// *** Take me somewhere green so we can kiss sitting on a tree ***

APPEND IMOEN2J
IF ~~ THEN BEGIN takemesomewheregreen
SAY @5626 // = ~(Imoen nervously glances at you) I... look <CHARNAME>, I've told you that there's nothing to talk about! (You notice her hands are trembling, and her breath is quickened, as if it takes great effort to inhale.)~
= @5627 // = ~This-- this place is suffocating me already, let's get outta here...!~
IF ~~ THEN DO ~RunAwayFrom(Player1,45)~ EXIT
END

IF ~~ THEN BEGIN takemesomewheregreen2
SAY @5628 // = ~(Imoen stares at you incredulously until she sees a rat scurry into a nearby hole in the wall. A visible shiver runs through her body as she directs an icy glare at you, and then walks off in a huff.)~
IF ~~ THEN DO ~RunAwayFrom(Player1,45)~ EXIT
END
END

// *** talk about dreams after yelling ***

APPEND IMOEN2J
IF WEIGHT #500 ~G("PressedMR",50)~ THEN BEGIN dret1
SAY @5321 // = ~<CHARNAME>, I...~ [MRImRom1]
IF ~~ THEN DO ~SG("PressedMR",5)~ GOTO dret2
END

IF ~~ THEN BEGIN dret2
SAY @5322 // = ~Sorry for yellin' at ya. You were just trying to be kind and show some concern an' all... an' that's very sweet of you, heheh...~
= @5323 // = ~It's just that... I try to keep certain things out of my mind, y'know...? And you... you almost make me...~
= @5618 // = ~Oh forget about it... ya were trying to tell me something, about your dreams...~
IF ~~ THEN GOTO FIXMR12blah
END

IF ~~ THEN BEGIN FIXMR12blah
   SAY @5619 // = ~So, um... tell me, how were those dreams ya mentioned? Me telling you weird things, huh? C'mon, you got me curious...~
   IF ~~ THEN REPLY @4269 GOTO FIXMR13blah
   IF ~~ THEN REPLY @4270 GOTO FIXMR14blah
   IF ~~ THEN REPLY @4271 GOTO FIXMR15blah
   IF ~~ THEN REPLY @4272 GOTO FIXMR17blah
   IF ~~ THEN REPLY @5620 GOTO dret3 // = ~No, Imoen, first I need to know what is troubling you... share it with me, please, you will feel better whatever it is...~
END

IF ~~ THEN BEGIN dret3
   SAY @5621 // = ~(Imoen purses her lips and looks away; she was expecting you to say this) Look <CHARNAME>, I... (She glances at you only to stare to the ground again, uneasy) I don't feel like talking about it right now, alright...?~
   = @5622 // = ~I'd prefer to listen now... I'll... I'll tell ya whatever you want me to tell when I feel like it, I promise... I don't wanna talk about it just now, <CHARNAME>.~
   = @5623 // = ~Tell me about yer dreams, c'mon... please... (she is pleading for it both with her eyes and voice. Talking with you seems to make her feel better...)~
   IF ~~ THEN REPLY @4269 GOTO FIXMR13blah
   IF ~~ THEN REPLY @4270 GOTO FIXMR14blah
   IF ~~ THEN REPLY @4271 GOTO FIXMR15blah
   IF ~~ THEN REPLY @4272 GOTO FIXMR17blah
END


IF ~~ THEN BEGIN FIXMR13blah
   SAY @4273
   IF ~~ THEN GOTO FIXMR16blah
END

IF ~~ THEN BEGIN FIXMR14blah
   SAY @4275
   IF ~~ THEN DO ~SetGlobal("ufffMR","GLOBAL",1) SetGlobal("ufarMR","GLOBAL",1)~ GOTO FIXMR16caquitablah
END

IF ~~ THEN BEGIN FIXMR16caquitablah
   SAY @4279 = @4280 = @4281 = @4282
   IF ~~ THEN GOTO FIXMR19blah
END


IF ~~ THEN BEGIN FIXMR15blah
   SAY @4276
   IF ~~ THEN REPLY @5329 GOTO FIXMR15petblah
   IF ~~ THEN REPLY @5330 GOTO FIXMR15petblah
   IF ~~ THEN REPLY @5331 GOTO FIXMR15petblah
   IF ~~ THEN REPLY @5332 GOTO FIXMR15petblah
   IF ~~ THEN REPLY @5333 GOTO FIXMR15petblah
   IF ~~ THEN REPLY @5334 GOTO FIXMR15petblah
END

IF ~~ THEN BEGIN FIXMR15petblah
   SAY @4277
   IF ~~ THEN REPLY @4278 DO ~SG("ImoenRomanceActive",3)~ EXIT
END

IF ~~ THEN BEGIN FIXMR16blah
   SAY @4279 = @4280 = @4281
   IF ~!Global("ufarMR","GLOBAL",1)~ THEN GOTO FIXMR18blah
   IF ~Global("ufarMR","GLOBAL",1)~ THEN GOTO FIXMR19blah
END

IF ~~ THEN BEGIN FIXMR17blah
   SAY @4283 = @4284
   IF ~~ THEN REPLY @4269 GOTO FIXMR13blah
   IF ~~ THEN REPLY @4270 GOTO FIXMR14blah
   IF ~~ THEN REPLY @4285 GOTO FIXMR15blah
END

IF ~~ THEN BEGIN FIXMR18blah
   SAY @1129 = @4286
   IF ~!Global("ufffMR","GLOBAL",1) !Global("ufffMR","LOCALS",1)~ THEN REPLY @4287 DO ~SetGlobal("ufffMR","LOCALS",1)~ GOTO FIXMR21blah
   IF ~~ THEN REPLY @4288 GOTO FIXMR22blah
   IF ~~ THEN REPLY @4289 GOTO FIXMR23blah
END

IF ~~ THEN BEGIN FIXMR19blah
	SAY @4290
	IF ~~ THEN GOTO FIXMR20blah
END

IF ~~ THEN BEGIN FIXMR20blah
	SAY @4291 =	@4292	= @4293 = @4294
	IF ~~ THEN GOTO FIXMR18caquitablah
END

IF ~~ THEN BEGIN FIXMR18caquitablah
   SAY @1129 = @4286
   IF ~~ THEN REPLY @4288 GOTO FIXMR22blah
   IF ~~ THEN REPLY @4289 GOTO FIXMR23blah
END


IF ~~ THEN BEGIN FIXMR21blah
	SAY @2691
	=
	@4295
	IF ~~ THEN GOTO FIXMR20blah
END

IF ~~ THEN BEGIN FIXMR22blah
	SAY @4296
	IF ~~ THEN REPLY @4297 GOTO FIXMR24blah
	IF ~~ THEN REPLY @4298 GOTO FIXMR23blah
END

IF ~~ THEN BEGIN FIXMR23blah
	SAY @4299
	IF ~~ THEN DO ~SetGlobal("Hadconversation1","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN FIXMR24blah
	SAY @4300 = @5335 = @4301 = @4302
	IF ~~ THEN REPLY @5624 GOTO FIXMR25blah // = ~Is that so? In which way? Oh, wait a minute... *that* is what is troubling you, right?~
	IF ~~ THEN REPLY @4304 GOTO FIXMR23blah
	IF ~~ THEN REPLY @4305 GOTO FIXMR26blah
END

IF ~~ THEN BEGIN FIXMR25blah
	SAY @4306
	=
	@5625 // = ~I... (she looks up, and suddenly seems aware of her surroundings again) Eh...? N-- no, nothing, it was nothing, really! (She makes an effort to smile) 'nuff 'bout weird dreams already, we should be doin' some vampire hunting!~
	=
	@4308
	=
	@453 
	IF ~~ THEN DO ~SetGlobal("Hadconversation1","GLOBAL",1)~ EXIT
END


IF ~~ THEN BEGIN FIXMR26blah
	SAY @4309
	=
	@4310
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END
END


// *** New Aerie rare dialogues ***

// ~~ You dumped Aerie and romanced Imoen: she notices you are together for real. ~~


CHAIN IF WEIGHT #0 
~G("AerieThoughtMR",6)~ THEN AERIEJ dump1
@5114 DO ~SG("AerieThoughtMR",9)~ // = ~<CHARNAME>, I...~ 
= @5115 // = ~(Aerie looks very nervous, troubled. Her eyes go from Imoen to you, from you to Imoen, and back to you again. You still remember what you shared together, and know perfectly that she does too.)~
= @5116 // = ~I... I hope you and Imoen will be happy together...~
== AERIEJ IF ~IsValidForPartyDialog("Imoen2")~ THEN @5117 // = ~(She falls silent and steps away... looking worriedly at the elf, Imoen approaches you and gives you a supportive hug.)~
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2")~ THEN @5118 // = ~Poor Aerie...~
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2")~ THEN @5119 // = ~She was a foolish girl that fell in love with a Child of Bhaal... something that could only end up hurting her.~
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2")~ THEN @5120 // = ~(Imoen looks into your eyes) I've thought about it a lot, <CHARNAME>... We know what the other feels, know of this thing inside us... We share this rare bond that links our hearts... our souls... and that's why I know we'd never be able to hurt each other.~
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2")~ THEN @5121 // = ~Obviously you and Aerie didn't have that... (She turns her head to look at her again, sadness in her gaze) and thus happened what logically had to happen.~
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2")~ THEN @5122 // = ~I don't think she likes me much now... probably she thinks I stole ya from her or something. Or worse, that she pushed ya right to my arms...~
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2")~ THEN @5123 // = ~I'll have some words with her... I'd like her to be comfortable while traveling with us, at least... y'know, I like that girl.~
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2")~ THEN @5124 // = ~Will do. Let's go on for now, my cutie-tushy...~
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2")~ THEN @5125 // = ~Hehee, I'm so gonna have a great time making up pet names for ya...~
== AERIEJ IF ~!IsValidForPartyDialog("Imoen2")~ THEN @5126 // = ~(She falls silent and steps away... you see Imoen look worriedly at her in the distance.)~
EXIT


// ~~ Small talk about Aerie's past relationship with the PC ~~

CHAIN IF WEIGHT #555
~G("NoImoenFriendshipMR",2)~ THEN IMOEN2J dump2
@5127 DO ~SG("NoImoenFriendshipMR",3)~ // = ~Aerie... stop looking at me like that, please.~ 
== AERIEJ
@5128 // = ~(Aerie is startled by Imoen's sudden interruption of her thoughts; she was indeed looking at her) I-- excuse me?~
== IMOEN2J
@5129 DO ~StartCutSceneMode() CutSceneId("Imoen2") MoveToObject("Aerie") EndCutSceneMode() StartDialog("IMOEN2J","Aerie")~ // = ~Don't act innocent, Aerie! (You see her purse her lips and approach the confused elf so she will be able to talk with her in private. You can still hear them, Imoen has made sure of that.)~
EXIT

CHAIN IF WEIGHT #555
~G("NoImoenFriendshipMR",3)~ THEN IMOEN2J dump3
@5130 DO ~SG("NoImoenFriendshipMR",4) RealSetGlobalTimer("AerieFriendshipTOmerMR","GLOBAL",1200) SG("AerieRomanceActive",3)~ // = ~look Aerie... I'd like to have some words with ya. I know you don't like me much right now...~
== AERIEJ @5131 // = ~I... why-- why do you think that?~
== IMOEN2J @5132 // = ~Do you think I don't know 'bout what happened between <CHARNAME> and you, Aerie? Y'hate me 'cause ya think I stole <PRO_HIMHER> from ya...~
== AERIEJ @5133 // = ~(Aerie's cheeks redden slightly) What!? No, I would never think that! And I would never hate you for something that is not your fault, either...~
= @5134 // = ~<CHARNAME> and I just... just didn't work together. I... I *did* have this strange hope that we would come over it and be together again but... it's obvious it won't be like that...~
= @5135 // = ~But I don't blame you or <PRO_HIMHER> for it, they are only... things that happen. Yesterday <PRO_HESHE> loved me, today it is you... who knows what will happen tomorrow...?~
== IMOEN2J @5136 // = ~Ah, so ya still hope <PRO_HESHE>'ll be back to ya, huh? (Imoen looks a little angered by Aerie's words, at first. Then she seems to think it better, and puts her arm around the Avariel shoulders.)~
== AERIEJ @5137 // = B-but I don't--~
== IMOEN2J @5138 // = ~No, no, lemme tell ya something...~
= @5139 // = ~Aerie... we are different. <CHARNAME> and I as opposed to you and <PRO_HIMHER>, I mean. Y'know that both of us are Bhaalspawn... and although that sounds *really* scary even to me, it makes us be kinda... connected.~
= @5140 // = ~Whenever I'm close to <PRO_HIMHER>, I not only can feel <PRO_HISHER> lips on mine, <PRO_HISHER> heart in <PRO_HISHER> chest or <PRO_HISHER> hands on my skin... I can feel <PRO_HISHER> *soul* pumping in sync with mine...~
= @5141 // = ~And it's such a feeling that it just can't be described, Aerie. We know what lies within each other... we *know* each other.~
= @5142 // = ~We spent our youths together, we've been all of our life together indeed... we share a common bond that possibly no one could hardly understand. But anyway, that's not the reason why I wanted to talk to you...~
= @5143 // = ~I just wanted, well... I wanted to be your friend, mostly.~
== AERIEJ @5147 // = ~My... friend?~
== IMOEN2J @5148 // = ~I know all this is hard for ya... I know what you've been through, and I know that the last you deserve is travelling with Miss bitterness and Mr Scornful Glares by your side, if you know what I mean...~
= @5144 // = ~And the last thing *I'd* like is having you glaring at me all the time. Like you were doing just a moment ago, no matter what you say, heh...~
= @5145 // = ~You're a nice girl, Aerie. A wise woman, indeed. And I'd prefer to have a friend in you rather than a bitch that plots for my fall, hehehe... --that was a joke if you didn't notice...~
== AERIEJ @5146 // = ~Oh Imoen I don't know why you think I'd hate you or-- or, or have revengeful thoughts towards you or anything like that! It's only that when I look at you two togeher all those brief happy moments I had with <CHARNAME> stir in my mind and... and I can't help feeling sad, and bitter, and... and, well, and lonely...~
== IMOEN2J @5149 // = ~Aaww... y'know, you're quite cute too. But I'm sure you knew that already, hehe...~
== AERIEJ @5150 // = ~(A smile appears on Aerie's lips) You are just flattering me so I forget about all that...~
== IMOEN2J @5151 // = ~Yeah, did it work?~
== AERIEJ @5152 // = ~Maybe... if you say it a couple times again.~
== IMOEN2J IF ~!Alignment(Player1,MASK_EVIL)~ THEN @5153 // = ~(Both women giggle. You must admit it is a beautiful sound.)~
== IMOEN2J IF ~Alignment(Player1,MASK_EVIL)~ THEN @5176 // = ~(Both women giggle.)~
= @5154 // = ~Hehehe, Aerie, as I read in some book back in Candlekeep, "this is the beginning of a beautiful relationship."~
== AERIEJ @5155 // = ~I... I really hope so, Imoen. I *truly* hope you will be happy with <CHARNAME>.~
== IMOEN2J @5156 // = ~Yer a nice fellow...~
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5157
== AERIEJ IF ~Gender(Player1,FEMALE)~ THEN @5158 
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5159
== AERIEJ IF ~Gender(Player1,FEMALE)~ THEN @5160 
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5161
== AERIEJ IF ~Gender(Player1,FEMALE)~ THEN @5162 
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5163
== AERIEJ IF ~Gender(Player1,FEMALE)~ THEN @5164 
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5165
== AERIEJ IF ~Gender(Player1,FEMALE)~ THEN @5166 
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5167
== AERIEJ IF ~Gender(Player1,FEMALE)~ THEN @5168 
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5169
== AERIEJ IF ~Gender(Player1,FEMALE)~ THEN @5170 
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5171
== AERIEJ IF ~Gender(Player1,FEMALE)~ THEN @5172 
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5173
== AERIEJ IF ~Gender(Player1,FEMALE)~ THEN @5174 
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5175 
== AERIEJ IF ~Gender(Player1,FEMALE)~ THEN @5632
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5633
EXIT




// *** Aditional dialogue option for Desharik for truly cranky characters ***


EXTEND_BOTTOM PPDESH 1
IF ~~ THEN REPLY @5092 GOTO desh1 // = ~I've heard you are the mean pirate that helps people out... I need your help, but not your out.~
END

EXTEND_BOTTOM PPDESH 3
IF ~~ THEN REPLY @5092 GOTO desh1 // = ~I've heard you are the mean pirate that helps people out... I need your help, but not your out.~
END

EXTEND_BOTTOM PPDESH 4
IF ~~ THEN REPLY @5092 GOTO desh1 // = ~I've heard you are the mean pirate that helps people out... I need your help, but not your out.~
END

APPEND PPDESH
IF ~~ THEN BEGIN desh1
SAY @5093 // = ~Hah! I don't know who may have told you that... and you don't seem to know whom you are facing right now. State your business before I lose my patience.~
IF ~~ THEN REPLY #44044 /* ~I need you to send me to Spellhold! I must be sent there!~ */ GOTO 5
IF ~~ THEN REPLY #44045 /* ~I seek entry to the asylum. Can you help with this?~ */ GOTO 5
IF ~~ THEN REPLY @5094 GOTO desh2 // = ~Excellent, excellent. Can you help me touch my butt with my nose? My mother told me to do it back when the dog was barking, but all my attempts have been in vain.~
IF ~~ THEN REPLY @5095 GOTO desh2 // = ~Do you want some apples? I can give you tons and tons of apples if you send me to Spellhold; a ship with ten thousand apples will arrive every day, I swear it in the name of the wise men from Porryplopy.~
END

IF ~~ THEN BEGIN desh2
SAY @5096 // = ~(The frown of the Pirate Lord deepens) Is this some kind of joke? You seem eager to meet my steel, idiot. Get out of here.~
IF ~~ THEN REPLY @5098 GOTO desh3 // = ~Hi Mister Steel, I'm your friend <CHARNAME>! Hey you look cold, do you want a blanket!? What do you say? Alright, I will buy some beans in my way to Spellhold, thank you. Do you think I should change my clothes? They are beginning to have a weird smell.~
IF ~~ THEN REPLY #44044 /* ~I need you to send me to Spellhold! I must be sent there!~ */ GOTO 5
IF ~~ THEN REPLY #44045 /* ~I seek entry to the asylum. Can you help with this?~ */ GOTO 5
IF ~~ THEN REPLY @5097 GOTO desh3 // = ~Well tell that to the sparrows that fly faster than the morning zephyr! One hand to eat, the other to look at the sky and tell yourself "Tomorrow will be another day!" while the sun sets behind Spellhold!~
END

IF ~~ THEN BEGIN desh3
SAY @5099 // = ~What are you rambling about!? I think you should be sent to Spellhold indeed, you lunatic fool! Get out of my sight before I commit you there!~
IF ~~ THEN REPLY @5100 GOTO desh4 // = ~Tell you what, you're a nice fellow. I'll put it all in an old wooden box with a rusty lock and throw it to the sea, guard it with my life and never poop in my pantaloons, alright?~
IF ~~ THEN REPLY @5101 GOTO desh4 // = ~THE MOON IS BLINDING ME!! Someone go fetch me a wooden stick so I can beat this monkey until he pukes his brains out! Let's have lunch in the forest, haha!~
IF ~~ THEN REPLY @5102 GOTO desh4 // = ~Lollipop! Lollipop! My world is a blue and green lollipop with happy thoughts and a pointy end! Praise the big hand of the father for this great day!~
IF ~~ THEN REPLY @5103 GOTO desh4 // = ~I look into your eyes and I see myself when I was younger and couldn't hold a single word about my shames for all I can do now is think about how you jumped to the tree!!~
END

IF ~~ THEN BEGIN desh4
SAY @5104 // = ~Enough!! Enough of this, you will get what you deserve while you rot in Spellhold, you raving mad<PRO_MANWOMAN>!~
IF ~~ THEN GOTO desh5
IF ~NumInPartyGT(1)~ THEN GOTO desh6
END

IF ~~ THEN BEGIN desh5
SAY @5105 // = ~By the gods, I think I'm stupider for talking to you. Stupider!? Get <PRO_HIMHER> out of my sight, NOW!! I am not going to risk my own mental health by keeping this loony around!!~
IF ~~ THEN DO ~ActionOverride(Player1,ApplySpellRES("SPMRACCN",Myself))
EraseJournalEntry(11681)
EraseJournalEntry(15715)
EraseJournalEntry(15760)
EraseJournalEntry(19364)
EraseJournalEntry(3362)
EraseJournalEntry(9982)
EraseJournalEntry(11681)
EraseJournalEntry(11686)
EraseJournalEntry(11884)
EraseJournalEntry(15783)
EraseJournalEntry(15794)
EraseJournalEntry(16541)
EraseJournalEntry(16677)
EraseJournalEntry(23512)
EraseJournalEntry(5059)
EraseJournalEntry(6934)
EraseJournalEntry(7235)
EraseJournalEntry(10106)
EraseJournalEntry(10107)
EraseJournalEntry(10670)
EraseJournalEntry(10671)
EraseJournalEntry(10933)
EraseJournalEntry(11689)
EraseJournalEntry(11755)
EraseJournalEntry(11904)
EraseJournalEntry(15698)
EraseJournalEntry(15703)
EraseJournalEntry(15801)
EraseJournalEntry(16558)
EraseJournalEntry(20367)
EraseJournalEntry(23504)
EraseJournalEntry(23530)
EraseJournalEntry(11661)
AddXPObject(Player1,39000)
AddXPObject(Player2,39000)
AddXPObject(Player3,39000)
AddXPObject(Player4,39000)
AddXPObject(Player5,39000)
AddXPObject(Player6,39000)
SetGlobal("PirateAsylum","GLOBAL",11)
SetGlobal("AsylumPlot","GLOBAL",11)
StartCutSceneMode()
StartCutScene("Cut41f")
~ JOURNAL @5107 /* ~Getting into the Asylum - Desharik is a bad bad man

I don't know why, I am to be thrown into the Asylum. I simply tried to be friendly to the mean Pirate Lord, but he is just too mean for his own good. I could have argued about his bad manners, but I'm curious if there will be a good food service in that Inn everyone talks about, that "Spellhold" or somesuch. Well, I miss Imoen too, she was a funny girl to keep around, and I have to find this person everyone tells me I'm after... I don't quite remember his name, Hygienicus? 

Whatever... */ FLAGS 256 EXIT
END

IF ~~ THEN BEGIN desh6
SAY @5106 // = ~By the gods, I think I'm stupider for talking to you. Stupider!? Get them out of my sight NOW, all of them!! They may all have <PRO_HISHER> disease of mind, and I am not going to risk my own mental health by keeping them around!!~
IF ~~ THEN DO ~ActionOverride(Player1,ApplySpellRES("SPMRACCN",Myself))
EraseJournalEntry(11681)
EraseJournalEntry(15715)
EraseJournalEntry(15760)
EraseJournalEntry(19364)
EraseJournalEntry(3362)
EraseJournalEntry(9982)
EraseJournalEntry(11681)
EraseJournalEntry(11686)
EraseJournalEntry(11884)
EraseJournalEntry(15783)
EraseJournalEntry(15794)
EraseJournalEntry(16541)
EraseJournalEntry(16677)
EraseJournalEntry(23512)
EraseJournalEntry(5059)
EraseJournalEntry(6934)
EraseJournalEntry(7235)
EraseJournalEntry(10106)
EraseJournalEntry(10107)
EraseJournalEntry(10670)
EraseJournalEntry(10671)
EraseJournalEntry(10933)
EraseJournalEntry(11689)
EraseJournalEntry(11755)
EraseJournalEntry(11904)
EraseJournalEntry(15698)
EraseJournalEntry(15703)
EraseJournalEntry(15801)
EraseJournalEntry(16558)
EraseJournalEntry(20367)
EraseJournalEntry(23504)
EraseJournalEntry(23530)
EraseJournalEntry(11661)
AddXPObject(Player1,39000)
AddXPObject(Player2,39000)
AddXPObject(Player3,39000)
AddXPObject(Player4,39000)
AddXPObject(Player5,39000)
AddXPObject(Player6,39000)
SetGlobal("PirateAsylum","GLOBAL",11)
SetGlobal("AsylumPlot","GLOBAL",11)
StartCutSceneMode()
StartCutScene("Cut41f")
~ JOURNAL @5107 FLAGS 256 EXIT
END
END


// *** Replace what Imoen says to fit her torture ***

REPLACE IMOEN2J
IF ~~ THEN BEGIN 19
SAY @5060 // ~You... you bastard! You will pay for what you've done to me, I'll kill you, Irenicus! I'll kill you!!~
IF ~~ THEN EXTERN PPIRENI2 60
END
END

// *** Imoen says "glad you didn't die, Aerie" ***

// ~~ Is killed and raised ~~

APPEND IMOEN2J
IF WEIGHT #666
~G("SelfishTookAerieMR",15)~ THEN BEGIN heyae1
SAY @5069 // = ~Hey hey, just where are you going!? At least *try* to raise her! C'mon, go back in there, go!!~
IF ~~ THEN DO ~SG("SelfishTookAerieMR",3)~ EXIT
END

IF WEIGHT #666
~G("AerieRaisedAfterSelfishMR",1)~ THEN BEGIN glad1
	SAY @5062 // = ~Aerie, are you... alright?~
IF ~~ THEN DO ~SG("AerieRaisedAfterSelfishMR",2)~ EXTERN AERIEJ glad1cha
END
END

CHAIN AERIEJ glad1cha
@5063 // = ~I... I think so...~
=
@5064 // = ~What happened...? My head hurts... I-- I only remember being taken by that monster and... and now I'm here again...~
== IMOEN2J
@5065 // = ~<CHARNAME> just raised you... I was so afraid that you wouldn't come back...! (Imoen hugs Aerie tightly, happy to see her well again.)~
== AERIEJ
@5066 // = ~Imoen... Imoen you are hurting me, don't squeeze that much...! I am glad to breath again, hehe...~
== IMOEN2J
@5067 // = ~(Imoen releases her) Sorry, sorry heh... it's great to see you're okay.~
=
@5068 // = ~Let's see what comes next then...~
EXIT

// ~~ Didn't die ~~

APPEND IMOEN2J
IF WEIGHT #666
~G("AerieNotDeadSelfishMR",1)~ THEN BEGIN notdead1
SAY @5062
IF ~~ THEN DO ~SG("AerieNotDeadSelfishMR",2)~ EXTERN AERIEJ notdead2
END
END

CHAIN AERIEJ notdead2
@5063
= @5075 // = ~What... what happened? (Aerie looks as if she has come out of a dreadful dream. She puts a hand on her forehead, leaning on Imoen for support) My vision is still blurry...~
= @5076 // = ~I-- I only remember being taken by that monster and... and now I'm here again...~
== IMOEN2J @5077 // = ~<CHARNAME> sacrificed part of <PRO_HIMHER>self to save you...~
== AERIEJ @5078 // = ~<PRO_HESHE> did that...? (She glances at you, and notices you *do* look slightly weaker.)~
= @5079 // ~I... thank you, <CHARNAME>. You chose the selfless path... although I cannot believe Imoen let you sacrifice yourself only for me. (She turns to her friend.)~
== IMOEN2J @5080 // = ~I know, I know...! I just couldn't think right, I was so afraid that you wouldn't survive! (Imoen hugs Aerie tightly, happy to see her well again.)~
== AERIEJ @5081 // = ~Imoen... Imoen you-- you are hurting me, don't squeeze that much...! Hehe, I am glad to see you again... I didn't know you held me in such great esteem...~
== IMOEN2J @5082 // = ~(Imoen releases her) Sorry, sorry heh... it's great to see you're okay, that's all. What could I do without someone like ya to be my victim? <CHARNAME>'s becoming just too hard to fool lately!~
== AERIEJ @5083 // = ~You should not have told <PRO_HIMHER> to go one path or the other, Imoen. You coerced <PRO_HIMHER> to take the decision you wanted and didn't let <PRO_HIMHER> choose freely; you know how obliguing <PRO_HESHE> is towards you.~
== IMOEN2J @5084 // = ~Oohh, just don't tell me off, alright? I know I shouldn't have, it was just, just... oh leave me be, it's done and can't be changed!~
== IMOEN2J IF ~G("ImoenRomanceActive",2)~ THEN @5085 // = ~B'sides, heh... there's a nice reward awaiting <CHARNAME> when all of this finishes... (She winks at you mischievously) I'm sure <PRO_HESHE>'ll recover pretty well with my... attentions, heheh...~
== IMOEN2J IF ~!G("ImoenRomanceActive",2)~ THEN @5086 // = ~B'sides, <CHARNAME> can take anything <PRO_HESHE> wants! (She winks at you) Oooh, you're sooo powerful and great, <CHARNAME>...! And a paladin of virtue, righteousness and selflessness!!~
== AERIEJ IF ~G("ImoenRomanceActive",2)~ THEN @5087 // = ~Eek... that was more than I was willing to hear, Imoen...~
== IMOEN2J IF ~G("ImoenRomanceActive",2)~ THEN @5088 // = ~Yeah right... you didn't think that when you--~
== AERIEJ IF ~G("ImoenRomanceActive",2)~ THEN @5089 // = ~Sssh!! I don't know what you are talking about... (With complicity in their eyes, they both titter glancing at you from time to time.)~
== AERIEJ IF ~!G("ImoenRomanceActive",2)~ THEN @5090 // = ~Hmm... does that flagrant flattery work very often for you...?~
== IMOEN25J IF ~!G("ImoenRomanceActive",2)~ THEN @5091 // = ~Ya should try it, you'd be surprised with all you'd get, heheh... (they both titter glancing at you from time to time.)~
EXIT



// *** Selfish takes someone you care about ***

EXTEND_BOTTOM HELLSELF 24
IF ~OR(2) G("ImoenRomanceActive",4) G("ImoenRomanceActive",2)~ THEN GOTO HS1
END

CHAIN HELLSELF HS1
@4987 // ~And, to make your decission more meaningful, someone that is more dear to you than others will be taken.~
= @4988 // ~How about you, Child of Bhaal. Yes, you would do nicely. But here even your essence has power... power enough for one such as I to not be able to take you.~
== IMOEN2J @4989 // ~That's good to hear, uh... mister...~

// He takes Aerie //

== HELLSELF IF ~Name("Aerie",Player2) !Dead("Aerie") InParty("Aerie")~ THEN
@4990 // ~It matters not. There are better choices than you, yes... The avariel girl will place you in a dire situation, Child of Murder.~
== AERIEJ IF ~Name("Aerie",Player2) !Dead("Aerie") InParty("Aerie")~ THEN
@4991 // ~No!~
== HELLSELF IF ~Name("Aerie",Player2) !Dead("Aerie") InParty("Aerie")~ THEN
@4992 DO ~SG("SelfishTookAerieMR",1)~ // ~Silence. I will see you in the other side.~

// He takes Jaheira //

== HELLSELF IF ~Name("Jaheira",Player2) !Dead("Jaheira") InParty("Jaheira")~ THEN
@4993 // ~It matters not. There are other choices, yes... the half-elven woman will place you in a dire situation, Child of Murder.~
== JAHEIRAJ IF ~Name("Jaheira",Player2) !Dead("Jaheira") InParty("Jaheira")~ THEN
@5000 // ~Do not worry about me, <CHARNAME>! Do what you must!~
== HELLSELF IF ~Name("Jaheira",Player2) !Dead("Jaheira") InParty("Jaheira")~ THEN
@4994 DO ~SG("SelfishTookJaheiraMR",1)~ // ~Silence. I will see you in the other side.~

// He takes Nalia //

== HELLSELF IF ~Name("Nalia",Player2) !Dead("Nalia") InParty("Nalia")~ THEN
@4995 // ~It matters not. There are other choices, yes... the human girl will place you in a dire situation, Child of Murder.~
== NALIAJ IF ~Name("Nalia",Player2) !Dead("Nalia") InParty("Nalia")~ THEN
@4996 // ~No!~
== HELLSELF IF ~Name("Nalia",Player2) !Dead("Nalia") InParty("Nalia")~ THEN
@4994 DO ~SG("SelfishTookNaliaMR",1)~ // ~Silence. I will see you in the other side.~

// He takes Minsc //

== HELLSELF IF ~Name("Minsc",Player2) !Dead("Minsc") InParty("Minsc")~ THEN
@4997 // ~It matters not. There are other choices. The human warrior will place you in a dire situation, Child of Murder.~
== MINSCJ IF ~Name("Minsc",Player2) !Dead("Minsc") InParty("Minsc")~ THEN
@4998 // ~We do not fear you, fiend!~
== HELLSELF IF ~Name("Minsc",Player2) !Dead("Minsc") InParty("Minsc")~ THEN
@4994 DO ~SG("SelfishTookMinscMR",1)~ // ~Silence. I will see you in the other side.~

// He takes Keldorn //

== HELLSELF IF ~Name("Keldorn",Player2) !Dead("Keldorn") InParty("Keldorn")~ THEN
@4999 // ~It matters not. There are other choices. The human paladin will place you in a dire situation, Child of Murder.~
== KELDORJ IF ~Name("Keldorn",Player2) !Dead("Keldorn") InParty("Keldorn")~ THEN
@5000 // ~Do not worry about me, <CHARNAME>! Do what you must!~
== HELLSELF IF ~Name("Keldorn",Player2) !Dead("Keldorn") InParty("Keldorn")~ THEN
@4994 DO ~SG("SelfishTookKeldornMR",1)~ // ~Silence. I will see you in the other side.~

// He takes someone that isn't one of those //

== HELLSELF IF ~NumInPartyGT(2) OR(3) !Name("Aerie",Player2) Dead("Aerie") !InParty("Aerie") OR(3) !Name("Jaheira",Player2) 
Dead("Jaheira") !InParty("Jaheira") OR(3) !Name("Nalia",Player2) Dead("Nalia") !InParty("Nalia") OR(3) !Name("Minsc",Player2) 
Dead("Minsc") !InParty("Minsc") OR(3) !Name("Keldorn",Player2) Dead("Keldorn") !InParty("Keldorn")~ THEN
@5003 // ~It matters not. There are other choices. Your other companion will place you in a dire situation, Child of Murder.~
== HELLSELF IF ~NumInPartyGT(2) OR(3) !Name("Aerie",Player2) Dead("Aerie") !InParty("Aerie") OR(3) !Name("Jaheira",Player2) 
Dead("Jaheira") !InParty("Jaheira") OR(3) !Name("Nalia",Player2) Dead("Nalia") !InParty("Nalia") OR(3) !Name("Minsc",Player2) 
Dead("Minsc") !InParty("Minsc") OR(3) !Name("Keldorn",Player2) Dead("Keldorn") !InParty("Keldorn")~ THEN
@5002 DO ~SG("SelfishTookCompanionMR",1)~ // ~I will see you in the other side.~
END HELLSELF 25



ADD_TRANS_TRIGGER HELLSELF 25
~!G("SelfishTookCompanionMR",1) !G("SelfishTookInnocentMR",1) !G("SelfishTookKeldornMR",1) !G("SelfishTookMinscMR",1) !G("SelfishTookNaliaMR",1) !G("SelfishTookJaheiraMR",1) !G("SelfishTookAerieMR",1)~


EXTEND_BOTTOM HELLSELF 25
IF ~NumInPartyGT(2) OR(3) !Name("Aerie",Player2) Dead("Aerie") !InParty("Aerie") OR(3) !Name("Jaheira",Player2) 
Dead("Jaheira") !InParty("Jaheira") OR(3) !Name("Nalia",Player2) Dead("Nalia") !InParty("Nalia") OR(3) !Name("Minsc",Player2) 
Dead("Minsc") !InParty("Minsc") OR(3) !Name("Keldorn",Player2) Dead("Keldorn") !InParty("Keldorn")~ THEN DO ~SG("SelfishTookCompanionMR",2)
SG("SelfishTookMR",1)
SG("TestMR",301)
CreateVisualEffectObject("SPFLESHS",Player2Fill) 
CreateVisualEffectObject("SPFLESHS",Myself) 
ActionOverride(Player2Fill,JumpToPoint([502.1313])) 
CreateCreature("CH7SPY",[569.1354],0) 
JumpToPoint([419.1311]) 
Wait(1) 
ForceSpell(Player2Fill,HELL_HOLD)~ JOURNAL #16671 FLAGS 64 EXIT
IF ~Name("Keldorn",Player2) !Dead("Keldorn") InParty("Keldorn")~ THEN DO ~SG("SelfishTookKeldornMR",2)
SG("SelfishTookMR",1)
SG("TestMR",301)
CreateVisualEffectObject("SPFLESHS",Player2Fill) 
CreateVisualEffectObject("SPFLESHS",Myself) 
ActionOverride(Player2Fill,JumpToPoint([502.1313])) 
CreateCreature("CH7SPY",[569.1354],0) 
JumpToPoint([419.1311]) 
Wait(1) 
ForceSpell(Player2Fill,HELL_HOLD)~ JOURNAL #16671 FLAGS 64 EXIT
IF ~Name("Minsc",Player2) !Dead("Minsc") InParty("Minsc") ~ THEN DO ~SG("SelfishTookMinscMR",2)
SG("SelfishTookMR",1)
SG("TestMR",301)
CreateVisualEffectObject("SPFLESHS",Player2Fill) 
CreateVisualEffectObject("SPFLESHS",Myself) 
ActionOverride(Player2Fill,JumpToPoint([502.1313])) 
CreateCreature("CH7SPY",[569.1354],0) 
JumpToPoint([419.1311]) 
Wait(1) 
ForceSpell(Player2Fill,HELL_HOLD)~ JOURNAL #16671 FLAGS 64 EXIT
IF ~Name("Nalia",Player2) !Dead("Nalia") InParty("Nalia")~ THEN DO ~SG("SelfishTookNaliaMR",2)
SG("SelfishTookMR",1)
SG("TestMR",301)
CreateVisualEffectObject("SPFLESHS",Player2Fill) 
CreateVisualEffectObject("SPFLESHS",Myself) 
ActionOverride(Player2Fill,JumpToPoint([502.1313])) 
CreateCreature("CH7SPY",[569.1354],0) 
JumpToPoint([419.1311]) 
Wait(1) 
ForceSpell(Player2Fill,HELL_HOLD)~ JOURNAL #16671 FLAGS 64 EXIT
IF ~Name("Jaheira",Player2) !Dead("Jaheira") InParty("Jaheira")~ THEN DO ~SG("SelfishTookJaheiraMR",2)
SG("SelfishTookMR",1)
SG("TestMR",301)
CreateVisualEffectObject("SPFLESHS",Player2Fill) 
CreateVisualEffectObject("SPFLESHS",Myself) 
ActionOverride(Player2Fill,JumpToPoint([502.1313])) 
CreateCreature("CH7SPY",[569.1354],0) 
JumpToPoint([419.1311]) 
Wait(1) 
ForceSpell(Player2Fill,HELL_HOLD)~ JOURNAL #16671 FLAGS 64 EXIT
IF ~Name("Aerie",Player2) !Dead("Aerie") InParty("Aerie")~ THEN DO ~SG("SelfishTookAerieMR",2)
SG("SelfishTookMR",1)
SG("TestMR",300)
CreateVisualEffectObject("SPFLESHS",Player2Fill) 
CreateVisualEffectObject("SPFLESHS",Myself) 
ActionOverride(Player2Fill,JumpToPoint([502.1313])) 
CreateCreature("CH7SPY",[569.1354],0) 
JumpToPoint([419.1311]) 
Wait(1) 
ForceSpell(Player2Fill,HELL_HOLD)~ JOURNAL #16671 FLAGS 64 EXIT
END

APPEND IMOEN2J
IF WEIGHT #100
~G("SelfishTookAerieMR",2)~ THEN BEGIN HS2ae
	SAY @5004 // ~Aerie, no!! <CHARNAME>, you must do something!~
	IF ~~ THEN DO ~SG("SelfishTookMR",0) SG("SelfishTookAerieMR",51)~ GOTO HS3aerie
END

IF WEIGHT #666
~G("SelfishTookJaheiraMR",2)~ THEN BEGIN HS2ja
	SAY @5005 // ~Jaheira! <CHARNAME>, you must do something!~
	IF ~~ THEN DO ~SG("SelfishTookMR",0) SG("SelfishTookJaheiraMR",0)~ GOTO HS3
END

IF WEIGHT #666
~G("SelfishTookNaliaMR",2)~ THEN BEGIN HS2na
	SAY @5006 // ~Nalia! <CHARNAME>, you must do something!~
	IF ~~ THEN DO ~SG("SelfishTookMR",0) SG("SelfishTookNaliaMR",0)~ GOTO HS3
END

IF WEIGHT #666
~G("SelfishTookMinscMR",2)~ THEN BEGIN HS2mi
	SAY @5007 // ~Oh, no, Minsc...~
	IF ~~ THEN DO ~SG("SelfishTookMR",0) SG("SelfishTookMinscMR",0)~ GOTO HS3male
END

IF WEIGHT #666
~G("SelfishTookKeldornMR",2)~ THEN BEGIN HS2ke
	SAY @5008 // ~Oh, no, Keldorn...~
	IF ~~ THEN DO ~SG("SelfishTookMR",0) SG("SelfishTookKeldornMR",0)~ GOTO HS3male
END

IF WEIGHT #666
~G("SelfishTookInnocentMR",2)~ THEN BEGIN HS2in
	SAY @5009 // ~Oh, no...~ 
	IF ~~ THEN DO ~SG("SelfishTookMR",0) SG("SelfishTookInnocentMR",0)~ GOTO HS3in
END

IF WEIGHT #666
~G("SelfishTookCompanionMR",2)~ THEN BEGIN HS2com
	SAY @5009 // ~Oh, no...~
	IF ~~ THEN DO ~SG("SelfishTookMR",0) SG("SelfishTookCompanionMR",0)~ GOTO HS3com
END

IF ~~ THEN BEGIN HS3aerie
	SAY @5010 // ~Don't let Aerie die! Please, please <CHARNAME>...~
	IF ~~ THEN REPLY @5011 /* ~I would never let any of my companions die, Imoen. I know which path I must choose.~ */ GOTO HS3aerie1
	IF ~~ THEN REPLY @5012 /* ~That is exactly what I will do. I don't need her.~ */ GOTO HS3aerie2
	IF ~~ THEN REPLY @5013 /* ~I will save her... for you, my love.~ */ GOTO HS3aerie1
	IF ~~ THEN REPLY @5014 /* ~But Imoen... I need all of my strength for the battle that is to come. It is a difficult decission but... if we want to survive, she must be sacrified.~ */ GOTO HS3aerie2a
	IF ~CheckStatGT(Player1,11,INT)~ THEN REPLY @5015 /* ~Don't worry I have a plan... I will take the path to the demon's right, but then I will raise her from the dead and everything will be alright, heheh...~ */ GOTO HS3aerie3
END

IF ~~ THEN BEGIN HS3aerie1
	SAY @5016 // ~That's... good. Be careful... I'm sure it won't be pleasant to go through that passage... you are very strong, and Aerie doesn't deserve to die like this after all she's done for us...~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN HS3aerie2
	SAY @5017 // ~No, <CHARNAME>! She doesn't deserve that, after all she's done for us! Save her... please... do it for me?~
	IF ~~ THEN REPLY @5018 /* ~Uh, of course, of course, *ahem* I'd never let any of my companions die, I guess... *ahem*~ */ GOTO HS3aerie1
	IF ~~ THEN REPLY @5019 /* ~No. I need my strength, and I don't need her. It's an easy choice.~ */ GOTO HS3aerie2a
	IF ~~ THEN REPLY @5020 /* ~Very well, I will save her... for you, my love.~ */ GOTO HS3aerie1
	IF ~~ THEN REPLY @5014 GOTO HS3aerie2a
	IF ~CheckStatGT(Player1,11,INT)~ THEN REPLY @5015 /* ~Don't worry I have a plan... I will take the path to the demon's right, but then I will raise her from the dead and everything will be alright, heheh...~ */ GOTO HS3aerie3
END

IF ~~ THEN BEGIN HS3aerie2a
	SAY @5021 // ~No, no...! Don't be selfish, don't fall for Bhaal's temptations, <CHARNAME>!~ 
	=
	@5022 // ~Do... what you must. I guess I can't judge you on this... with -- with luck we'll be able to raise her again...~
	=
	@5023 // ~I... I can't look, I can't... (Imoen turns away and covers her face with both hands.)~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN HS3aerie3
	SAY @5024 // ~But... what if we can't raise her afterwards? What if this... 'fiend' kills *both* her body and her soul...?~
	= @5022 = @5023
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN HS3
	SAY @5025 // ~Don't let -- uh, hmmm...~
	=
 	@5026 // ~Y'know... for a demon, this guy isn't very smart...~
	=
	@5027 // ~Do whatever you want, <CHARNAME>, heh... if she dies we can raise her afterwards just like we always do! But, well, better if you take the selfless path... to save her the pain of dying so cruelly, I mean...~
	=
	@5028 // ~But... agh, you'll need all of your strength to face Irenicus! I just don't know, it's your choice... I'll support you whatever you do.~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN HS3male
	SAY @5025
	=
	@5026
	=
	@5029 // ~Do whatever you want, <CHARNAME>, heh... if he dies we can raise him afterwards just like we always do! But, well, better if you take the selfless path... to save him the pain of dying so cruelly, I mean...~
	=
	@5028
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN HS3com
	SAY @5025
	=
	@5026
	=
	@5030 // ~Do whatever you want, <CHARNAME>, heh... if you take the path to his right we can raise the fallen like we always do! But, well, better if you take the selfless path... to save our companion the pain of dying so cruelly, I mean...~
	=
	@5028
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN HS3in
	SAY @5031 // ~Acks, now that's nasty...~
	=
	@5032 // ~This poor guy, he doesn't deserve to die... but -- but I can't judge you on this, <CHARNAME>... if we are going to face Irenicus, you'll need all of your strength...~
	=
	@5033 // ~I'd prefer that you took the selfless path, y'know, do the 'good' thing and all... but I will support you whatever choice you make, i want you to know that...~
	IF ~!G("ImoenRomanceActive",2)~ THEN EXIT
	IF ~G("ImoenRomanceActive",2)~ THEN GOTO HS3inlove
END

IF ~~ THEN BEGIN HS3inlove
	SAY @5034 // ~And you know that, if I were the one that was waiting there, I wouldn't mind to die at all, right...? Your quest... is far more important than my life.~
	=
	@5035 // ~Besides, (Imoen smiles) you'd raise me as soon as you get the Tear of Bhaal, heheh!~
	IF ~~ THEN EXIT
END
END


// *** Gong quest ***


INTERJECT_COPY_TRANS LOUT 20 ImGongCom1
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2")~ THEN
@4978 // ~Right-o, you really know how to have fun, <CHARNAME>! To the sewers, let's find a gong that probably will own a kobold named "Roger", who-hoo!~
== LOUT IF ~IsValidForPartyDialog("Imoen2")~ THEN
@4979 // ~He nay be a kobold, my Lady... I -- I think...~
END

INTERJECT_COPY_TRANS ROGER 13 ImGongCom2
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2")~ THEN
@4980 // ~Gag me with a spoon, now the great bhaalspawn <CHARNAME>, all tremble at <PRO_HISHER> name, is going to lug around a dung covered gong all through the realms? What's next, cleaning golden pantaloons like in the Friendly Arm Inn? Gimme a break...~
== JAHEIRAJ IF ~IsValidForPartyDialog("Imoen2") IsValidForPartyDialog("Jaheira")~ THEN
@4981 // ~I cannot believe we did that back then... as I can't believe what we are doing now...~
END

EXTEND_BOTTOM GRAE 7
IF ~IsValidForPartyDialog("Imoen2")~ THEN DO ~EscapeArea()~ EXTERN IMOEN2J ImGongCom3
END

CHAIN IMOEN2J ImGongCom3
@4982 // ~Can't say I'm surprised... lemme guess: this Drush guy sold the gong to a talking snake in Trademeet. This quest *can't* get more stupid already...~
== MINSCJ IF ~IsValidForPartyDialog("Imoen2") IsValidForPartyDialog("Minsc")~ THEN
@4983 // ~Uh... for what would a Yuan-ti want a gong, Imoen?~
== IMOEN2J IF ~IsValidForPartyDialog("Imoen2") IsValidForPartyDialog("Minsc")~ THEN
@4984 // ~... for the same than a troll or an ogre, I s'pose...~
== MINSCJ IF ~IsValidForPartyDialog("Minsc") IsValidForPartyDialog("Imoen2")~ THEN
@4985 // ~Oooh. Makes sense.~
EXIT


EXTEND_BOTTOM LOUT 30
IF ~IsValidForPartyDialog("Imoen2")~ THEN DO ~ActionOverride("Dennis",Shout(81)) ActionOverride("Dennis",EscapeArea()) EscapeArea()~ EXTERN IMOEN2J ImGongCom4
END

CHAIN IMOEN2J ImGongCom4
@4986 // ~You're welcome, pal! It only took us two days of traveling through Amn, it was nothing really... Just don't get into another inverosimile trouble again, hmm?~
EXIT



// *** Imoen's comment inside the illythid cell (I never know how to WRITE that DAMNED WORD!!! Stupid monsters with their WEIRD NAMES!!!) ***

APPEND IMOEN2J
IF WEIGHT #100 ~G("ImCellMR",2)~ THEN BEGIN ICMR1
	SAY @4964 // ~Yay... fun in the illithid cell.~
	IF ~~ THEN DO ~SG("ImCellMR",3)~ GOTO ICMR2
END
END

CHAIN IMOEN2J ICMR2
@4965 // ~I'm BORED, when will those tentacle thingies come and do whatever they want to do with us? This silence is killing me...~
== AERIEJ IF ~IsValidForPartyDialog("Aerie")~ THEN @4966 // ~Imoen... I'm pretty sure that whatever those creatures have in store for us is... is far worse than being here doing nothing...~
== VICONIJ IF ~IsValidForPartyDialog("Viconia") IsValidForPartyDialog("Aerie")~ THEN @4967 // ~For once I agree with you, wingless. Girl, you will be begging for this 'silence' soon enough.~
== VICONIJ IF ~IsValidForPartyDialog("Viconia") !IsValidForPartyDialog("Aerie")~ THEN @4968  // ~You will be begging for this 'silence' soon enough, girl. Soon all you will be able to hear will be screams of pain and sounds of madness. The illithids will get inside your mind and crack it like a nutshell. (Viconia smiles wickedly) It will not be pleasant.~
== IMOEN2J IF ~IsValidForPartyDialog("Viconia")~ THEN @4969 // ~What a great perspective...~
== EDWINJ IF ~IsValidForPartyDialog("Edwin")~ THEN @4970 // ~Girl... shut up. This is bad enough without your endless talking.~
== IMOEN2J IF ~IsValidForPartyDialog("Edwin")~ THEN @4971 // ~Ooh, are you scared, Edwin? Don't worry, Imoen is here to protect you, nothing will harm you, I promise...~
== EDWINJ IF ~IsValidForPartyDialog("Edwin")~ THEN @4972 // ~Agh... just *shut up* already! (Don't lose control, Edwin! Don't show your fear, she can smell it!)~
== IMOEN2J IF ~IsValidForPartyDialog("Edwin")~ THEN @4973 // ~Heheh...~
== KELDORJ IF ~IsValidForPartyDialog("Keldorn")~ THEN @4974 // ~Do not worry, my dear. Everything will be alright. You have to be strong...~
== IMOEN2J IF ~IsValidForPartyDialog("Keldorn")~ THEN @4975 // ~Oh, don't mind me, Keldorn, I'm fine... I've been in worse ones, heh...~
== IMOEN2J @4976 // ~Oh well... let's just sit down and wait... how fun (Imoen sighs.)~
EXIT




// *** Imoen's comment about being free ***


APPEND IMOEN2J
IF WEIGHT #-1 ~Global("AirCommentMR","GLOBAL",1)~ THEN BEGIN AIR1
SAY @4940 // ~Yesss! (Imoen takes a deep breath and steps forward, stretching her limbs.) Yes, AIR, at last fresh air...!~
IF ~~ THEN DO ~SetGlobal("AirCommentMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO AIR2
END

IF ~~ THEN BEGIN AIR2
SAY @4941 // ~It's wonderful, wonderful, WONDERFUL!! (As she fills her lungs all she can, she spreads her arms and tosses her head back, spinning in delight, enjoying the moment) So fresh, so clean... so untainted...!~
= @4942 // ~Aahh... (She looks back at you, a radiant smile on her lips.) you *don't know* how I missed the sky... This is GREAT! (Imoen is almost jumpy. It's impressive how fast her mood can change...)~
IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO AIR2a
END

IF ~~ THEN BEGIN AIR2a
SAY @4943 // ~C'mon, Let's go! Let's go and fight and sleep and run and *breath*...!~
IF ~~ THEN EXTERN PLAYER1 AIR3
END
END

APPEND PLAYER1
IF ~~ THEN BEGIN AIR3
	SAY @4944 // ~(Oh well... she's happy again, it seems. You can't help but wonder how long will it last.)~
	IF ~~ THEN EXIT
END
END




// *** Fixed first states for the dream talks with party members. ***


APPEND AERIEJ
	IF WEIGHT #14
~!Global("PhaereFixMRAe","GLOBAL",1)
Global("WeTalkedOfItAlready","LOCALS",0)
Global("HadImoenDreamRomance2","GLOBAL",1)
!GGT("Chapter",3)
!Global("Chapter","GLOBAL",1)~ 
	THEN BEGIN MRDC1
	SAY @4723
	IF ~~ THEN REPLY @4724 DO ~SetGlobal("WeTalkedOfItAlready","LOCALS",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO MRDC2
	IF ~~ THEN REPLY @4914 DO ~SetGlobal("WeTalkedOfItAlready","LOCALS",1)~ GOTO MRDC1a 
	IF ~~ THEN REPLY @4562 GOTO MRDC1a
 END
END

APPEND VICONIJ
	IF WEIGHT #4
~!Global("PhaereFixMRVi","GLOBAL",1)
Global("HadImoenDreamRomance2","GLOBAL",1)
!GGT("Chapter",3)
Global("WeTalkedOfItAlready","LOCALS",0)~ 
 THEN BEGIN MRDC1
	SAY @4632
	IF ~~ THEN REPLY @4633 DO ~SetGlobal("WeTalkedOfItAlready","LOCALS",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO MRDC2
	IF ~~ THEN REPLY @4914 DO ~SetGlobal("WeTalkedOfItAlready","LOCALS",1)~ GOTO MRDC1a 
	IF ~~ THEN REPLY @4562 GOTO MRDC1a
 END
END


APPEND JAHEIRAJ
IF WEIGHT #26
~!Global("PhaereFixMRJa","GLOBAL",1)
Global("HadImoenDreamRomance2","GLOBAL",1)
!GGT("Chapter",3)
Global("WeTalkedOfItAlready","LOCALS",0)~ 
THEN BEGIN MRDC1
	SAY @4560
	IF ~~ THEN REPLY @4561 DO ~SetGlobal("WeTalkedOfItAlready","LOCALS",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO MRDC3
	IF ~~ THEN REPLY @4914 DO ~SetGlobal("WeTalkedOfItAlready","LOCALS",1)~ GOTO MRDC2 
	IF ~~ THEN REPLY @4562 GOTO MRDC2
 END
END


// *** You love Aerie? you don't love Imoen, thus she won't love you. ***


REPLACE BAERIE
IF ~~ THEN BEGIN 295 // from: 296.0 294.0
  SAY #31363 /* ~I have been thinking about you quite a bit as of late.  I know this may seem an...odd question.  But I need to know...how do you...f-feel about me?~ */
  IF ~~ THEN REPLY #31364 /* ~I love you, Aerie...I thought you knew.~ */ DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4)~ GOTO 297
  IF ~~ THEN REPLY #31365 /* ~I care for you deeply, Aerie.~ */ DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4)~ GOTO 299
  IF ~~ THEN REPLY #31366 /* ~Feel?  You are a friend...no more and no less.~ */ GOTO 301
  IF ~~ THEN REPLY #31367 /* ~This is a ridiculous question and I'll not discuss it..~ */ GOTO 300
END
END

// *** You love Jaheira? Imoen would never betray her trust, and you better don't either, for your own good... ***

REPLACE BJAHEIR
IF ~~ THEN BEGIN 338 // from: 337.0 336.0
  SAY #27398 /* ~Besides, do I strike you as a person that would adjust well to such a strict timeline?~ */
  IF ~~ THEN REPLY #27399 /* ~Not before I suffered greatly. Your wit would exact payment, I am sure.~ */ GOTO 339
  IF ~~ THEN REPLY #27400 /* ~No need to. No sunrise could compare with your beauty in the moonlight. ~ */ DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4)~ GOTO 340
END

IF ~~ THEN BEGIN 372 // from: 368.1
  SAY #27600 /* ~I know, and I need your company. I am just not comfortable with needing it. Let's get some rest for now. I'll try to straighten this out.~ */
  IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) RestParty()
~ EXIT
END
END

EXTEND_BOTTOM BJAHEIR 291
  IF ~~ THEN REPLY @4911 DO ~SetGlobal("JaheiraRomanceActive","GLOBAL",3)~ GOTO YEPAH
END

EXTEND_BOTTOM BJAHEIR 290
  IF ~~ THEN REPLY @4911 DO ~SetGlobal("JaheiraRomanceActive","GLOBAL",3)~ GOTO YEPAH
END

APPEND BJAHEIR
IF ~~ THEN BEGIN YEPAH
	SAY @4912 = @4913
	IF ~~ THEN EXIT
END
END


// *** Split up ***

APPEND IMOEN2J
IF ~~ THEN BEGIN SUMR1
	SAY @0 =	@1
	IF ~~ THEN REPLY @2 GOTO SUMR2
	IF ~~ THEN REPLY @3 GOTO SUMR3
	IF ~~ THEN REPLY @4 GOTO SUMR3
	IF ~~ THEN REPLY @5 GOTO SUMR4
	IF ~~ THEN REPLY @6 DO ~SetGlobal("akalakaMR","GLOBAL",1)~ GOTO SUMR4a
	IF ~~ THEN REPLY @7 GOTO YouFuckingAnimalWhatYouThinkYouAreDoingHurtingMyLittleImoen
END


IF ~~ THEN BEGIN SUMR2
	SAY @8
	IF ~~ THEN GOTO SUMR7
END


IF ~~ THEN BEGIN SUMR3
	SAY @9
	IF ~~ THEN GOTO SUMR7
END

IF ~~ THEN BEGIN SUMR4
	SAY @10
	IF ~~ THEN REPLY @11 GOTO SUMR2
	IF ~~ THEN REPLY @12 GOTO SUMR4a
	IF ~~ THEN REPLY @6 DO ~SetGlobal("akalakaMR","GLOBAL",1)~ GOTO SUMR4a
	IF ~~ THEN REPLY @13 GOTO YouFuckingAnimalWhatYouThinkYouAreDoingHurtingMyLittleImoen
END

IF ~~ THEN BEGIN SUMR4a
	SAY @14
	=
	@15
	IF ~~ THEN REPLY @11 GOTO SUMR2
	IF ~!Global("akalakaMR","GLOBAL",1)~ THEN REPLY @16 GOTO SUMR4b
	IF ~~ THEN REPLY @17 DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ GOTO SUMR4c
	IF ~~ THEN REPLY @18 GOTO YouFuckingAnimalWhatYouThinkYouAreDoingHurtingMyLittleImoen
END


IF ~~ THEN BEGIN SUMR4b
	SAY @19
	=
	@20
	=
	@21
	IF ~~ THEN REPLY @22 GOTO SUMR4d
	IF ~~ THEN REPLY @23 DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ GOTO SUMR4c
	IF ~~ THEN REPLY @24 GOTO YouFuckingAnimalWhatYouThinkYouAreDoingHurtingMyLittleImoen
END

IF ~~ THEN BEGIN SUMR4c
	SAY @25
	=
	@26
	=
	@27
	=
	@28 
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN SUMR4d
	SAY @29
	=
	@30	
	IF ~~ THEN REPLY @31 GOTO SUMR4f
	IF ~~ THEN REPLY @32 GOTO SUMR4e
	IF ~~ THEN REPLY @33 GOTO SUMR4c
	IF ~~ THEN REPLY @34 GOTO YouFuckingAnimalWhatYouThinkYouAreDoingHurtingMyLittleImoen
END

IF ~~ THEN BEGIN SUMR4e
	SAY @35
	=	
	@36
	=
	@37
	=
	@38
	=
	@39
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN SUMR4f
	SAY @40
	=
	@41
	=
	@42
	=
	@43
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",2) SetGlobal("NotAgainCharnameMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN SUMR7
	SAY @44
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @45 GOTO SUMR7a
	IF ~~ THEN REPLY @46 GOTO SUMR7a
	IF ~~ THEN REPLY @47 DO ~SetGlobal("NotAgainCharnameMR","GLOBAL",1)~ GOTO SUMR7b
END 

IF ~~ THEN BEGIN SUMR7a
	SAY @48
	IF ~~ THEN DO ~SetGlobal("NotAgainCharnameMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN SUMR1b
	SAY @0
	IF ~~ THEN REPLY @2 GOTO SUMR2
	IF ~~ THEN REPLY @3 GOTO SUMR3
	IF ~~ THEN REPLY @4 GOTO SUMR3
	IF ~~ THEN REPLY @49 DO ~SetGlobal("akalakaMR","GLOBAL",1)~ GOTO SUMR1b2
	IF ~~ THEN REPLY @7 GOTO YouFuckingAnimalWhatYouThinkYouAreDoingHurtingMyLittleImoen
END

IF ~~ THEN BEGIN SUMR1b2
	SAY @50
	IF ~~ THEN REPLY @51 GOTO SUMR1b3
	IF ~~ THEN REPLY @52 GOTO SUMR1b3
	IF ~~ THEN REPLY @18 GOTO YouFuckingAnimalWhatYouThinkYouAreDoingHurtingMyLittleImoen
END

IF ~~ THEN BEGIN SUMR1b3
	SAY @53
	=
	@54
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN SUMR1c
	SAY @55
	IF ~~ THEN REPLY @56 GOTO SUMR1c1
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @57 GOTO SUMR4
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @6 GOTO SUMR4a
	IF ~!Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @49 DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ GOTO SUMR1b2
	IF ~~ THEN REPLY @58 GOTO YouFuckingAnimalWhatYouThinkYouAreDoingHurtingMyLittleImoen
END


IF ~~ THEN BEGIN SUMR1c1
	SAY @59
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN YouFuckingAnimalWhatYouThinkYouAreDoingHurtingMyLittleImoen
	SAY @60
	=
	@61
	IF ~~ THEN REPLY @62 GOTO yf4
	IF ~~ THEN REPLY @63 GOTO yf3
	IF ~~ THEN REPLY @64 GOTO yf2
	IF ~~ THEN REPLY @65 GOTO yf1
END

IF ~~ THEN BEGIN yf1
	SAY @66
	=
	@67
	=
	@68
	IF ~~ THEN REPLY @69 GOTO yf1b
	IF ~~ THEN REPLY @70 GOTO yf1b
	IF ~~ THEN REPLY @71 GOTO yf1a
END

IF ~~ THEN BEGIN yf1a
	SAY @72
	IF ~~ THEN DO ~LeaveParty()
	ReputationInc(-4) ActionOverride(Player1,ApplySpellRES("SPMRACCE",Player1)) 
	EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN yf1b
	SAY @73
	IF ~~ THEN DO ~LeaveParty()
	ReputationInc(-3) ActionOverride(Player1,ApplySpellRES("SPMRACNE",Player1))
	EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN yf2
	SAY @74
	=
	@68
	IF ~~ THEN REPLY @69 GOTO yf1b
	IF ~~ THEN REPLY @70 GOTO yf1b
	IF ~~ THEN REPLY @71 GOTO yf1a
END

IF ~~ THEN BEGIN yf3
	SAY @68
	IF ~~ THEN REPLY @75 GOTO yf1b
	IF ~~ THEN REPLY @76 GOTO yf1b
	IF ~~ THEN REPLY @77 GOTO yf1a
END

IF ~~ THEN BEGIN yf4
	SAY @68
	IF ~~ THEN REPLY @78 GOTO yf4a
	IF ~~ THEN REPLY @79 GOTO yf1a
	IF ~~ THEN REPLY @80 GOTO yf1a
END

IF ~~ THEN BEGIN yf4a
	SAY @81
	=
	@82
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3) ReputationInc(-1)~ EXIT
END
END


// *** Fix to Viconia's Stickiness and Imoen's romance ***

EXTEND_BOTTOM BVICONI 244
IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4)
SetGlobal("SleptViconia","GLOBAL",1) 
SetGlobal("LoveTalk","LOCALS",41)
StartCutSceneMode() 
StartCutScene("Cut34a")~ EXIT
END

EXTEND_BOTTOM BVICONI 393
IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4)
SetGlobal("ViconiaRomanceActive","GLOBAL",2)
RestParty()~ EXIT
END


// *** lilfixes with skipping ***

// Jaheira, after talking to Dermin

ADD_STATE_TRIGGER JAHEIRAJ 260
~Global("DerminSpawn","GLOBAL",4)
Global("DontSayThisAgain1MR","LOCALS",0)~

EXTEND_BOTTOM JAHEIRAJ 261
 IF ~~ THEN DO ~SetGlobal("DontSayThisAgain1MR","LOCALS",1)~ EXIT
END
EXTEND_BOTTOM JAHEIRAJ 262
 IF ~~ THEN DO ~SetGlobal("DontSayThisAgain1MR","LOCALS",1)~ EXIT
END
EXTEND_BOTTOM JAHEIRAJ 263
 IF ~~ THEN DO ~SetGlobal("DontSayThisAgain1MR","LOCALS",1)~ EXIT
END

// Phaere, after thing

EXTEND_BOTTOM UDPHAE01 103
  IF ~InParty("Jaheira") !InParty("Aerie") !InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",2)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
RestParty()~ EXIT
  IF ~!InParty("Jaheira") InParty("Aerie") !InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",2)
SetGlobal("PhaereFixMRAe","GLOBAL",1)
RestParty()~ EXIT
  IF ~!InParty("Jaheira") !InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",2)
SetGlobal("PhaereFixMRVi","GLOBAL",1)
RestParty()~ EXIT
  IF ~InParty("Jaheira") InParty("Aerie") !InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",2)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
SetGlobal("PhaereFixMRAe","GLOBAL",1)
RestParty()~ EXIT
  IF ~InParty("Jaheira") !InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",2)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
SetGlobal("PhaereFixMRVi","GLOBAL",1)
RestParty()~ EXIT
  IF ~!InParty("Jaheira") InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",2)
SetGlobal("PhaereFixMRAe","GLOBAL",1)
SetGlobal("PhaereFixMRVi","GLOBAL",1)
RestParty()~ EXIT
  IF ~InParty("Jaheira") InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",2)
SetGlobal("PhaereFixMRAe","GLOBAL",1)
SetGlobal("PhaereFixMRVi","GLOBAL",1)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
RestParty()~ EXIT
END

EXTEND_BOTTOM UDPHAE01 109
  IF ~InParty("Jaheira") !InParty("Aerie") !InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRJa","GLOBAL",1)~ GOTO 98
  IF ~!InParty("Jaheira") InParty("Aerie") !InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRAe","GLOBAL",1)~ GOTO 98
  IF ~!InParty("Jaheira") !InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRVi","GLOBAL",1)~ GOTO 98
  IF ~InParty("Jaheira") InParty("Aerie") !InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
SetGlobal("PhaereFixMRAe","GLOBAL",1)~ GOTO 98
  IF ~InParty("Jaheira") !InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
SetGlobal("PhaereFixMRVi","GLOBAL",1)~ GOTO 98
  IF ~!InParty("Jaheira") InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRAe","GLOBAL",1)
SetGlobal("PhaereFixMRVi","GLOBAL",1)~ GOTO 98
  IF ~InParty("Jaheira") InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRAe","GLOBAL",1)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
SetGlobal("PhaereFixMRVi","GLOBAL",1)~ GOTO 98
END

EXTEND_BOTTOM UDPHAE01 111
  IF ~InParty("Jaheira") !InParty("Aerie") !InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
~ GOTO 112
  IF ~!InParty("Jaheira") InParty("Aerie") !InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRAe","GLOBAL",1)
~ GOTO 112
  IF ~!InParty("Jaheira") !InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRVi","GLOBAL",1)
~ GOTO 112
  IF ~InParty("Jaheira") InParty("Aerie") !InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
SetGlobal("PhaereFixMRAe","GLOBAL",1)
~ GOTO 112
  IF ~InParty("Jaheira") !InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
SetGlobal("PhaereFixMRVi","GLOBAL",1)
~ GOTO 112
  IF ~!InParty("Jaheira") InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRAe","GLOBAL",1)
SetGlobal("PhaereFixMRVi","GLOBAL",1)
~ GOTO 112
  IF ~InParty("Jaheira") InParty("Aerie") InParty("Viconia")~ THEN DO ~SetGlobal("PhaereInnuendo","GLOBAL",3)
SetGlobal("PhaereFixMRAe","GLOBAL",1)
SetGlobal("PhaereFixMRVi","GLOBAL",1)
SetGlobal("PhaereFixMRJa","GLOBAL",1)
~ GOTO 112
END

// 1: viconia

ADD_STATE_TRIGGER VICONIJ 106
~Global("PhaereFixMRVi","GLOBAL",1)~

EXTEND_BOTTOM VICONIJ 106
  IF ~~ THEN DO ~SetGlobal("ViconiaMad2","LOCALS",1)
SetGlobal("PhaereFixMRVi","GLOBAL",0)~ GOTO 107
END

ADD_STATE_TRIGGER VICONIJ 108
~Global("PhaereFixMRVi","GLOBAL",1)~

EXTEND_BOTTOM VICONIJ 108
  IF ~~ THEN DO ~SetGlobal("ViconiaMad3","LOCALS",1)
SetGlobal("PhaereFixMRVi","GLOBAL",0)~ GOTO 109
END

// 2: Jaheira

ADD_STATE_TRIGGER JAHEIRAJ 441
~Global("PhaereFixMRJa","GLOBAL",1)~

EXTEND_BOTTOM JAHEIRAJ 442
  IF ~~ THEN DO ~SetGlobal("PhaereFixMRJa","GLOBAL",0)~ EXIT
END

EXTEND_BOTTOM JAHEIRAJ 443
  IF ~~ THEN DO ~SetGlobal("JaheiraRomanceActive","GLOBAL",3)
SetGlobal("PhaereFixMRJa","GLOBAL",0)~ EXIT
END

EXTEND_BOTTOM JAHEIRAJ 444
  IF ~~ THEN DO ~SetGlobal("JaheiraRomanceActive","GLOBAL",3)
SetGlobal("PhaereFixMRJa","GLOBAL",0)~ EXIT
END

EXTEND_BOTTOM JAHEIRAJ 445
  IF ~~ THEN DO ~SetGlobal("PhaereFixMRJa","GLOBAL",0)~ EXIT
END

EXTEND_BOTTOM JAHEIRAJ 446
  IF ~~ THEN DO ~SetGlobal("JaheiraRomanceActive","GLOBAL",3)
SetGlobal("PhaereFixMRJa","GLOBAL",0)~ EXIT
END

ADD_STATE_TRIGGER JAHEIRAJ 447
~Global("PhaereFixMRJa","GLOBAL",1)~

EXTEND_BOTTOM JAHEIRAJ 447
  IF ~~ THEN DO ~SetGlobal("JaheiraMad3","LOCALS",1)
SetGlobal("PhaereFixMRJa","GLOBAL",0)~ EXIT
END

// 3: Aerie

ADD_STATE_TRIGGER AERIEJ 124
~Global("PhaereFixMRAe","GLOBAL",1)~

EXTEND_BOTTOM AERIEJ 124
  IF ~~ THEN DO ~SetGlobal("AerieMad2","LOCALS",1)
SetGlobal("PhaereFixMRAe","GLOBAL",0)~ GOTO 125
END

ADD_STATE_TRIGGER AERIEJ 126
~Global("PhaereFixMRAe","GLOBAL",1)~


EXTEND_BOTTOM AERIEJ 126
  IF ~~ THEN DO ~SetGlobal("AerieMad3","LOCALS",1)
SetGlobal("PhaereFixMRAe","GLOBAL",0)~ EXIT
END


// *** Stronghold comments ***

// *** Radiant Heart ***

APPEND IMOEN2J
IF WEIGHT #666
~Global("PaladinCommentMR","GLOBAL",1)~ THEN BEGIN PCMR1
SAY @83
IF ~~ THEN DO ~SetGlobal("PaladinCommentMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO PCMR2
END

IF ~~ THEN BEGIN PCMR2
	SAY @84
	=
	@85
	IF ~~ THEN REPLY @86 GOTO PCMR9
	IF ~~ THEN REPLY @87 GOTO PCMR8
	IF ~~ THEN REPLY @88 GOTO PCMR7
	IF ~~ THEN REPLY @89 GOTO PCMR6
	IF ~~ THEN REPLY @90 GOTO PCMR5
	IF ~~ THEN REPLY @91 GOTO PCMR4
	IF ~~ THEN REPLY @92 GOTO PCMR3
END

IF ~~ THEN BEGIN PCMR3
	SAY @93
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PCMR4
	SAY @94
	=
	@95
	=
	@96
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PCMR5
	SAY @97
	=
	@98
	=
	@99
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PCMR6
	SAY @100
	=
	@101
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PCMR7
	SAY @102
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PCMR8
	SAY @103
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PCMR9
	SAY @104
	IF ~~ THEN EXIT
END
END



// *** Temples ***

APPEND IMOEN2J
IF WEIGHT #666
~Global("TempleCommentMR","GLOBAL",1)~ THEN BEGIN TCMR1
	SAY @105
	IF ~~ THEN DO ~SetGlobal("TempleCommentMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO TCMR2
END

IF ~~ THEN BEGIN TCMR2
	SAY @106
	IF ~AreaCheck("AR0901")~ THEN GOTO TCMR3
	IF ~AreaCheck("AR0902")~ THEN GOTO TCMR4
	IF ~AreaCheck("AR0904")~ THEN GOTO TCMR5
END

IF ~~ THEN BEGIN TCMR3
	SAY @107	
	IF ~~ THEN GOTO TCMR6
END

IF ~~ THEN BEGIN TCMR4
	SAY @108
	IF ~~ THEN GOTO TCMR6
END

IF ~~ THEN BEGIN TCMR5
	SAY @109
	IF ~~ THEN GOTO TCMR6
END

IF ~~ THEN BEGIN TCMR6
	SAY @110
	IF ~~ THEN REPLY @111 GOTO TCMR8
	IF ~~ THEN REPLY @112 GOTO TCMR8
	IF ~~ THEN REPLY @113 GOTO TCMR10
	IF ~~ THEN REPLY @114 GOTO TCMR9
	IF ~~ THEN REPLY @115 GOTO TCMR8
	IF ~~ THEN REPLY @116 GOTO TCMR8
	IF ~~ THEN REPLY @117 GOTO TCMR7
END

IF ~~ THEN BEGIN TCMR7
	SAY @118
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN TCMR8
	SAY @119
	IF ~~ THEN GOTO TCMR11
END

IF ~~ THEN BEGIN TCMR9
	SAY @120
	IF ~~ THEN GOTO TCMR11
END

IF ~~ THEN BEGIN TCMR10
	SAY @121
	IF ~~ THEN GOTO TCMR11
END

IF ~~ THEN BEGIN TCMR11
	SAY @122
	=
	@123
	=
	@124
	=
	@125
	IF ~~ THEN EXIT
END
END

// 0901 Temple of Helm 
// 0902 Temple of Lathander 
// 0903 Order of the Radiant Heart 
// 0904 Temple of Talos 

// *** Umar hills ***

APPEND IMOEN2J
IF WEIGHT #666
~Global("UmarHillsCommentMR","GLOBAL",1)~ THEN BEGIN UHMR1
SAY @126
IF ~~ THEN DO ~SetGlobal("UmarHillsCommentMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO UHMR2
END

IF ~~ THEN BEGIN UHMR2
	SAY @127
	=
	@128
	IF ~~ THEN REPLY @129 GOTO UHMR6
	IF ~~ THEN REPLY @130 GOTO UHMR5
	IF ~~ THEN REPLY @131 GOTO UHMR4
	IF ~~ THEN REPLY @132 GOTO UHMR3
END

IF ~~ THEN BEGIN UHMR3
	SAY @133
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN UHMR4
	SAY @134
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN UHMR5
	SAY @135
	IF ~~ THEN REPLY @129 GOTO UHMR6
	IF ~~ THEN REPLY @131 GOTO UHMR4
	IF ~~ THEN REPLY @132 GOTO UHMR3
END

IF ~~ THEN BEGIN UHMR6
	SAY @136
	IF ~~ THEN EXIT
END

IF WEIGHT #666 ~Global("UmarHillsCommentMR","GLOBAL",3)~ THEN BEGIN UHMR7
	SAY @137
	IF ~~ THEN DO ~SetGlobal("UmarHillsCommentMR","GLOBAL",4)~ GOTO UHMR7caca
END

IF ~~ THEN BEGIN UHMR7caca
	SAY @138
	=
	@139
	=
	@140
	IF ~~ THEN REPLY @141 GOTO UHMR12
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @142 GOTO UHMR11
	IF ~~ THEN REPLY @143 GOTO UHMR10
	IF ~~ THEN REPLY @144 GOTO UHMR10
	IF ~~ THEN REPLY @145 GOTO UHMR9
	IF ~~ THEN REPLY @146 GOTO UHMR8
END

IF ~~ THEN BEGIN UHMR8
	SAY @147
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN UHMR9
	SAY @148
	=
	@149
	=
	@150
	=
 	@151
	=
	@152 
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN UHMR10
	SAY @153
	=
	@154
	=
	@155
	=
 	@151
	=
	@156 
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN UHMR11
	SAY @157
	=
	@158
	=
	@159
	=
 	@151
	=
	@156 
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN UHMR12
	SAY @160
	IF ~~ THEN REPLY @161 GOTO UHMR16
	IF ~~ THEN REPLY @162 GOTO UHMR13
	IF ~~ THEN REPLY @163 GOTO UHMR15
	IF ~~ THEN REPLY @164 GOTO UHMR14
	IF ~~ THEN REPLY @165 GOTO UHMR13
END

IF ~~ THEN BEGIN UHMR13
	SAY @166
	IF ~~ THEN GOTO UHMR9
END

IF ~~ THEN BEGIN UHMR14
	SAY @167
	IF ~~ THEN GOTO UHMR9
END

IF ~~ THEN BEGIN UHMR15
	SAY @168
	IF ~~ THEN GOTO UHMR9
END

IF ~~ THEN BEGIN UHMR16
	SAY @169
	IF ~~ THEN GOTO UHMR9
END
END


// *** Druid Grove ***

APPEND IMOEN2J
IF WEIGHT #666
~Global("GroveCommentMR","GLOBAL",1)~ THEN BEGIN GCMR1
	SAY @170
	IF ~~ THEN DO ~SetGlobal("GroveCommentMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO GCMR1a
END

IF ~~ THEN BEGIN GCMR1a
	SAY @171
	=
	@172
	=
	@173
	IF ~~ THEN REPLY @174 GOTO GCMR6
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @175 GOTO GCMR5
	IF ~~ THEN REPLY @176 GOTO GCMR4
	IF ~~ THEN REPLY @177 GOTO GCMR3
	IF ~~ THEN REPLY @178 GOTO GCMR2
	IF ~~ THEN REPLY @179 GOTO GCMR2
END

IF ~~ THEN BEGIN GCMR2
	SAY @180
	=
	@181
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GCMR3
	SAY @182
	=
	@183
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GCMR4
	SAY @184
	=
	@183
	IF ~~ THEN EXIT
END
	
IF ~~ THEN BEGIN GCMR5
	SAY @185 
	IF ~~ THEN GOTO GCMR7
END

IF ~~ THEN BEGIN GCMR6
	SAY @186 
	=
	@187
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GCMR8
	SAY @188
	=
	@189
	IF ~~ THEN REPLY @190 GOTO GCMR9
	IF ~~ THEN REPLY @191 GOTO GCMR10
	IF ~~ THEN REPLY @192 GOTO GCMR10
	IF ~~ THEN REPLY @193 GOTO GCMR10
END

IF ~~ THEN BEGIN GCMR9
	SAY @194
	IF ~~ THEN GOTO GCMR12
END

IF ~~ THEN BEGIN GCMR10
	SAY @195
	IF ~~ THEN GOTO GCMR12
END

IF ~~ THEN BEGIN GCMR12
	SAY @196
	IF ~~ THEN REPLY @197 GOTO GCMR16
	IF ~~ THEN REPLY @198 GOTO GCMR16
	IF ~~ THEN REPLY @199 GOTO GCMR16a
	IF ~~ THEN REPLY @200 GOTO GCMR16
	IF ~~ THEN REPLY @201 GOTO GCMR15
	IF ~~ THEN REPLY @202 GOTO GCMR14
	IF ~~ THEN REPLY @203 GOTO GCMR13
END

IF ~~ THEN BEGIN GCMR13
	SAY @204
	=
	@205
	=
	@206
	=
	@207
	=
	@208
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO GCMR13chain
	IF ~IsValidForPartyDialog("Aerie")~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN AERIEJ GCMR13ae
END

IF ~~ THEN BEGIN GCMR14
	SAY @209	
	IF ~~ THEN REPLY @210 GOTO GCMR16
	IF ~~ THEN REPLY @211 GOTO GCMR14a
	IF ~~ THEN REPLY @203 GOTO GCMR13
END

IF ~~ THEN BEGIN GCMR14a
	SAY @212
	IF ~~ THEN REPLY @210 GOTO GCMR16
	IF ~~ THEN REPLY @213 GOTO GCMR14b
	IF ~~ THEN REPLY @214 GOTO GCMR13
END

IF ~~ THEN BEGIN GCMR14b
	SAY @215
	=
	@216
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GCMR15
	SAY @217
	=
	@218
	=
	@219
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN GCMR16
	SAY @220
	IF ~~ THEN GOTO GCMRgetit
END

IF ~~ THEN BEGIN GCMR16a
	SAY @221
	IF ~~ THEN GOTO GCMRgetit
END

IF ~~ THEN BEGIN GCMRgetit
	SAY @222
	IF ~~ THEN GOTO GCMRgetitchain
END

IF ~~ THEN BEGIN GCMRgetit2
	SAY @223
	=
	@224
	IF ~~ THEN DO ~SetGlobal("NextMorningMR","GLOBAL",1)
	RestParty()~ EXIT
END
IF ~~ THEN BEGIN GCMRNM1a
	SAY @225 
IF ~~ THEN DO ~SetGlobal("NextMorningMR","GLOBAL",0)~ GOTO GCMRNM2
END

IF ~~ THEN BEGIN GCMRNM2
	SAY @226
	=
	@227
	=
	@228
	=
	@229
	IF ~~ THEN REPLY @230 GOTO GCMRNM9
	IF ~~ THEN REPLY @231 GOTO GCMRNM8
	IF ~~ THEN REPLY @232 GOTO GCMRNM7
	IF ~~ THEN REPLY @233 GOTO GCMRNM6
	IF ~~ THEN REPLY @234 GOTO GCMRNM5
	IF ~~ THEN REPLY @235 GOTO GCMRNM4
	IF ~~ THEN REPLY @236 GOTO GCMRNM3
END

IF ~~ THEN BEGIN GCMRNM3
	SAY @237
	=
	@238
	=
	@239
	=
	@240
	=
	@241
	=
	@242
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN GCMRNM4
	SAY @243
	IF ~~ THEN GOTO GCMRNM10
END

IF ~~ THEN BEGIN GCMRNM5
	SAY @244
	IF ~~ THEN GOTO GCMRNM10
END

IF ~~ THEN BEGIN GCMRNM6
	SAY @245
	IF ~~ THEN GOTO GCMRNM10
END

IF ~~ THEN BEGIN GCMRNM7
	SAY @246
	IF ~~ THEN GOTO GCMRNM10
END

IF ~~ THEN BEGIN GCMRNM8
	SAY @247
	IF ~~ THEN GOTO GCMRNM10
END

IF ~~ THEN BEGIN GCMRNM9
	SAY @248
	IF ~~ THEN GOTO GCMRNM10
END

IF ~~ THEN BEGIN GCMRNM10
	SAY @249
	=
	@250
	=
	@251
	=
	@252
	IF ~~ THEN REPLY @253 GOTO GCMRNM14
	IF ~~ THEN REPLY @254 GOTO GCMRNM14
	IF ~~ THEN REPLY @255 GOTO GCMRNM13
	IF ~~ THEN REPLY @256 GOTO GCMRNM12
	IF ~~ THEN REPLY @257 GOTO GCMRNM11
	IF ~~ THEN REPLY @258 GOTO GCMRNM3
END

IF ~~ THEN BEGIN GCMRNM11
	SAY @259
	IF ~~ THEN REPLY @260 GOTO GCMRNM11a
END

IF ~~ THEN BEGIN GCMRNM11a
	SAY @261
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GCMRNM12
	SAY @262
	IF ~~ THEN GOTO GCMRNM15
END

IF ~~ THEN BEGIN GCMRNM13
	SAY @263
	IF ~~ THEN GOTO GCMRNM15
END

IF ~~ THEN BEGIN GCMRNM14
	SAY @264
	=
	@265
	IF ~~ THEN REPLY @266 GOTO GCMRNM16
	IF ~~ THEN REPLY @267 GOTO GCMRNM13
	IF ~~ THEN REPLY @268 GOTO GCMRNM12
	IF ~~ THEN REPLY @269 GOTO GCMRNM11
	IF ~~ THEN REPLY @270 GOTO GCMRNM3
END

IF ~~ THEN BEGIN GCMRNM15
	SAY @271
	=
	@272
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GCMRNM16
	SAY @273
	=
	@274
	IF ~~ THEN EXIT
END
END

APPEND PLAYER1
	IF ~Global("NextMorningMR","GLOBAL",1)~ THEN BEGIN GCMRNM1
	SAY @275
	IF ~~ THEN EXTERN IMOEN2J GCMRNM1a
END
END


CHAIN IMOEN2J GCMRgetitchain
@276
== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira")~ THEN @277
== EDWINJ IF ~IsValidForPartyDialog("Edwin")~ THEN @278
== NALIAJ IF ~IsValidForPartyDialog("Nalia") NumInPartyGT(3)~ THEN @279
== NALIAJ IF ~IsValidForPartyDialog("Nalia") !NumInPartyGT(3)~ THEN @280
== MINSCJ IF ~IsValidForPartyDialog("Minsc")~ THEN @281
== VALYGARJ IF ~IsValidForPartyDialog("Valygar")~ THEN @282
== KELDORJ IF ~IsValidForPartyDialog("Keldorn")~ THEN @283
== KORGANJ IF ~IsValidForPartyDialog("Korgan")~ THEN @284
END IMOEN2J GCMRgetit2

APPEND AERIEJ
	IF ~~ THEN BEGIN GCMR13ae
	SAY @285
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	EscapeArea()~ EXTERN IMOEN2J GCMR13chain
END
END


CHAIN IMOEN2J GCMR13chain
@286
== NALIAJ IF ~IsValidForPartyDialog("Nalia") IsValidForPartyDialog("Aerie")~ THEN @287
== NALIAJ IF ~IsValidForPartyDialog("Nalia") !IsValidForPartyDialog("Aerie")~ THEN @288
== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira")~ THEN @289
== VICONIJ IF ~IsValidForPartyDialog("Viconia") IsValidForPartyDialog("Jaheira")~ THEN @290
== VICONIJ IF ~IsValidForPartyDialog("Viconia") !IsValidForPartyDialog("Jaheira")~ THEN @291
== MINSCJ IF ~IsValidForPartyDialog("Minsc")~ THEN @292
END PLAYER1 perharpsMR

APPEND PLAYER1
IF ~~ THEN BEGIN perharpsMR
SAY @293
IF ~~ THEN DO ~ActionOverride("Imoen2",GivePartyAllEquipment())
	ActionOverride("Imoen2",LeaveParty())
	ReputationInc(-2) ActionOverride(Player1,ApplySpellRES("SPMRACNE",Player1)) 
	ActionOverride("Imoen2",EscapeArea())~ EXIT
END
END

CHAIN IMOEN2J GCMR7
@294
== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira")~ THEN @295
== AERIEJ IF ~IsValidForPartyDialog("Aerie") IsValidForPartyDialog("Jaheira")~ THEN @296
== AERIEJ IF ~IsValidForPartyDialog("Aerie") !IsValidForPartyDialog("Jaheira")~ THEN @297
== NALIAJ IF ~IsValidForPartyDialog("Nalia")~ THEN @298
== KORGANJ IF ~IsValidForPartyDialog("Korgan")~ THEN @299
== VICONIJ IF ~IsValidForPartyDialog("Viconia") IsValidForPartyDialog("Korgan")~ THEN @300
== VICONIJ IF ~IsValidForPartyDialog("Viconia") !IsValidForPartyDialog("Korgan")~ THEN @301
END IMOEN2J GCMR8


// *** Playhouse ***

APPEND IMOEN2J
IF WEIGHT #666
~Global("PlayhouseCommentMR","GLOBAL",1)~ THEN BEGIN PLMR1
	SAY @302
	IF ~~ THEN DO ~SetGlobal("PlayhouseCommentMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO PLMR2
END

IF ~~ THEN BEGIN PLMR2
	SAY @303
	IF ~~ THEN REPLY @304 GOTO PLMR6
	IF ~~ THEN REPLY @305 GOTO PLMR5
	IF ~~ THEN REPLY @306 GOTO PLMR4
	IF ~~ THEN REPLY @307 GOTO PLMR3
	IF ~~ THEN REPLY @308 GOTO PLMR3
END

IF ~~ THEN BEGIN PLMR3
	SAY @309
	=
	@310
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PLMR4
	SAY @311
	IF ~~ THEN GOTO PLMR7
END

IF ~~ THEN BEGIN PLMR5
	SAY @312
	IF ~~ THEN GOTO PLMR7
END

IF ~~ THEN BEGIN PLMR6
	SAY @313
	=
	@314 
	IF ~~ THEN REPLY @315 GOTO PLMR6b
	IF ~~ THEN REPLY @316 GOTO PLMR6a
	IF ~~ THEN REPLY @317 GOTO PLMR3
	IF ~~ THEN REPLY @318 GOTO PLMR3
END

IF ~~ THEN BEGIN PLMR6a
	SAY @319
	IF ~~ THEN GOTO PLMR7
END

IF ~~ THEN BEGIN PLMR6b
	SAY @320
	IF ~~ THEN GOTO PLMR7
END

IF ~~ THEN BEGIN PLMR7
	SAY @321
	=
	@322
	IF ~~ THEN REPLY @323 GOTO PLMR9
	IF ~~ THEN REPLY @324 GOTO PLMR9
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @325 GOTO PLMR8
	IF ~~ THEN REPLY @93 EXIT
	IF ~~ THEN REPLY @326 GOTO PLMR3
END

IF ~~ THEN BEGIN PLMR8
	SAY @327
	=
	@328
	IF ~~ THEN REPLY @329 GOTO PLMR8c
	IF ~~ THEN REPLY @330  GOTO PLMR8b
	IF ~~ THEN REPLY @331 EXIT
	IF ~~ THEN REPLY @332 GOTO PLMR8a
END

IF ~~ THEN BEGIN PLMR8a
	SAY @333
	=
	@334
	=
	@335
	=
	@336
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PLMR8b
	SAY @337
	=
	@338
	=
	@339
	IF ~~ THEN REPLY @340 GOTO PLMR8c
	IF ~~ THEN REPLY @341 GOTO PLMR8a
	IF ~~ THEN REPLY @342 EXIT
	IF ~~ THEN REPLY @343 GOTO PLMR8a
END

IF ~~ THEN BEGIN PLMR8c
	SAY @344
	IF ~~ THEN REPLY @345 GOTO PLMR9
	IF ~~ THEN REPLY @346 GOTO PLMR9
	IF ~~ THEN REPLY @347 GOTO PLMR8c1
END

IF ~~ THEN BEGIN PLMR8c1
	SAY @348
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PLMR9
	SAY @349
	IF ~!NumInPartyGT(2)~ THEN REPLY @350 GOTO PLMR15
	IF ~NumInPartyGT(2)~ THEN REPLY @351 GOTO PLMR15
	IF ~~ THEN REPLY @352 GOTO PLMR14
	IF ~~ THEN REPLY @353 GOTO PLMR13
	IF ~~ THEN REPLY @354 GOTO PLMR12
	IF ~~ THEN REPLY @355 GOTO PLMR10
	IF ~~ THEN REPLY @356 GOTO PLMR11
	IF ~~ THEN REPLY @357 GOTO PLMR10
END

IF ~~ THEN BEGIN PLMR10
	SAY @358
	=
	@359
	IF ~~ THEN REPLY @360 GOTO PLMR10a
	IF ~~ THEN REPLY @361 GOTO PLMR10a
	IF ~~ THEN REPLY @362 GOTO PLMR10a
END

IF ~~ THEN BEGIN PLMR10a
	SAY @363
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PLMR11
	SAY @364
	IF ~~ THEN REPLY @360 GOTO PLMR10a
	IF ~~ THEN REPLY @361 GOTO PLMR10a
	IF ~~ THEN REPLY @362 GOTO PLMR10a
END

IF ~~ THEN BEGIN PLMR12
	SAY @365
	IF ~~ THEN REPLY @360 GOTO PLMR10a
	IF ~~ THEN REPLY @361 GOTO PLMR10a
	IF ~~ THEN REPLY @362 GOTO PLMR10a
END

IF ~~ THEN BEGIN PLMR13
	SAY @366
	=
	@367
	IF ~~ THEN REPLY @360 GOTO PLMR10a
	IF ~~ THEN REPLY @361 GOTO PLMR10a
	IF ~~ THEN REPLY @362 GOTO PLMR10a
END

IF ~~ THEN BEGIN PLMR14
	SAY @368
	IF ~~ THEN REPLY @360 GOTO PLMR10a
	IF ~~ THEN REPLY @361 GOTO PLMR10a
	IF ~~ THEN REPLY @362 GOTO PLMR10a
END

IF ~~ THEN BEGIN PLMR15
	SAY @369
	=
	@370
	IF ~~ THEN REPLY @371 GOTO PLMR17
	IF ~~ THEN REPLY @372 GOTO PLMR16
	IF ~~ THEN REPLY @373 GOTO PLMR13
	IF ~~ THEN REPLY @352 GOTO PLMR14
	IF ~~ THEN REPLY @374 GOTO PLMR18
	IF ~~ THEN REPLY @355 GOTO PLMR10
	IF ~~ THEN REPLY @356 GOTO PLMR11
	IF ~~ THEN REPLY @357 GOTO PLMR10
END

IF ~~ THEN BEGIN PLMR16
	SAY @375
	IF ~~ THEN REPLY @360 GOTO PLMR10a
	IF ~~ THEN REPLY @361 GOTO PLMR10a
	IF ~~ THEN REPLY @362 GOTO PLMR10a
END

IF ~~ THEN BEGIN PLMR17
	SAY @376
	IF ~~ THEN REPLY @360 GOTO PLMR10a
	IF ~~ THEN REPLY @361 GOTO PLMR10a
	IF ~~ THEN REPLY @362 GOTO PLMR10a
END

IF ~~ THEN BEGIN PLMR18
	SAY @377
	=	
	@378
	IF ~~ THEN EXIT
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN GOTO PLMR19
END

IF ~~ THEN BEGIN PLMR19
	SAY @379
	=
	@380
	IF ~~ THEN EXIT
END
END	



// *** Thief stronghold ***

APPEND IMOEN2J
IF WEIGHT #666
~Global("ThiefCommentMR","GLOBAL",1)~ THEN BEGIN TSMR1
	SAY @381
	IF ~~ THEN DO ~SetGlobal("ThiefCommentMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO TSMR1a
END

IF ~~ THEN BEGIN TSMR1a
	SAY @382
	=
	@383
	IF ~~ THEN REPLY @384 GOTO TSMR6
	IF ~~ THEN REPLY @385 GOTO TSMR4
	IF ~~ THEN REPLY @386 GOTO TSMR5
	IF ~~ THEN REPLY @387 GOTO TSMR4
	IF ~~ THEN REPLY @388 GOTO TSMR3
	IF ~~ THEN REPLY @389 GOTO TSMR2
END

IF ~~ THEN BEGIN TSMR2
	SAY @390
	=
	@391
	IF ~~ THEN REPLY @392 GOTO TSMR8
	IF ~~ THEN REPLY @393 EXIT
	IF ~~ THEN REPLY @394 GOTO TSMR7
	IF ~~ THEN REPLY @395 GOTO TSMR7
END
	
IF ~~ THEN BEGIN TSMR3
	SAY @396
	IF ~~ THEN REPLY @392 GOTO TSMR8
	IF ~~ THEN REPLY @393 EXIT
	IF ~~ THEN REPLY @394 GOTO TSMR7
	IF ~~ THEN REPLY @395 GOTO TSMR7
END

IF ~~ THEN BEGIN TSMR4
	SAY @397
	=
	@398
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN TSMR5
	SAY @399
	IF ~~ THEN REPLY @392 GOTO TSMR8
	IF ~~ THEN REPLY @393 EXIT
	IF ~~ THEN REPLY @394 GOTO TSMR7
	IF ~~ THEN REPLY @395 GOTO TSMR7
END

IF ~~ THEN BEGIN TSMR6
	SAY @400
	IF ~~ THEN REPLY @392 GOTO TSMR8
	IF ~~ THEN REPLY @393 EXIT
	IF ~~ THEN REPLY @394 GOTO TSMR7
	IF ~~ THEN REPLY @395 GOTO TSMR7
END

IF ~~ THEN BEGIN TSMR7
	SAY @401
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN TSMR8
	SAY @402
	=
	@403
	=
	@404
	IF ~~ THEN EXIT
END
END


// *** Planar Sphere ***

APPEND IMOEN2J
IF WEIGHT #666
~Global("PlanarCommentMR","GLOBAL",1)~ THEN BEGIN PSMR1
	SAY @405
	IF ~~ THEN DO ~SetGlobal("PlanarCommentMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO PSMR1a
END

IF ~~ THEN BEGIN PSMR1a
	SAY @406
	IF ~~ THEN REPLY @407 GOTO PSMR2
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @408 GOTO PSMR2
	IF ~OR(2)
	Global("ImoenRomanceActive","GLOBAL",3)
	Global("ImoenRomanceActive","GLOBAL",4)~ THEN REPLY @409 GOTO PSMR2
	IF ~~ THEN REPLY @410 GOTO PSMR2
	IF ~~ THEN REPLY @411 GOTO PSMR2
	IF ~~ THEN REPLY @412 GOTO PSMR3
	IF ~~ THEN REPLY @413 GOTO PSMRJerk
END

IF ~~ THEN BEGIN PSMRJerk
	SAY @414
	=
	@415
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PSMR3
	SAY @416
	IF ~~ THEN REPLY @417 GOTO PSMR2
	IF ~~ THEN REPLY @418 GOTO PSMR3a
	IF ~~ THEN REPLY @419 GOTO PSMR3b
	IF ~~ THEN REPLY @420 GOTO PSMRJerk
END

IF ~~ THEN BEGIN PSMR3a
	SAY @421
	=
	@422
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PSMR3b
	SAY @423
	=
	@424
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PSMR2
	SAY @425
	=
	@426
	IF ~~ THEN REPLY @427 GOTO PSMR7
	IF ~~ THEN REPLY @428 GOTO PSMRJerk
	IF ~~ THEN REPLY @429 GOTO PSMR6
	IF ~~ THEN REPLY @430 GOTO PSMR5
	IF ~CheckStatGT(Player1,17,WIS)
	    CheckStatGT(Player1,16,CHR)
	    CheckStatGT(Player1,14,INT)
	    Alignment(Player1,CHAOTIC_NEUTRAL)~ THEN REPLY @431 GOTO PSMR4
END

IF ~~ THEN BEGIN PSMR4
	SAY @432
	=
	@433
	=
	@434
	IF ~~ THEN EXIT
	IF ~InParty("Valygar")
	InParty("Edwin")
	InParty("Solaufein")
	HPPercentGT(Player1,98)~ THEN GOTO PSMRmatrix
END

IF ~~ THEN BEGIN PSMRmatrix
	SAY @435
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PSMR5
	SAY @401
	IF ~~ THEN GOTO PSMRoh
END

IF ~~ THEN BEGIN PSMR6
	SAY @436
	IF ~~ THEN GOTO PSMRoh
END

IF ~~ THEN BEGIN PSMR7
	SAY @437
	IF ~~ THEN GOTO PSMRoh
END

IF ~~ THEN BEGIN PSMRoh
	SAY @438
	=
	@439
	IF ~~ THEN DO ~SetGlobal("GolemOrderMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN PSMRseeya
	SAY @440
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN PSMRgolt3
	SAY @441
	IF ~~ THEN REPLY @442 GOTO PSMRgolt3a
	IF ~~ THEN REPLY @443 EXIT
END

IF ~~ THEN BEGIN PSMRgolt3a
	SAY @444
	=
	@445
	IF ~~ THEN EXTERN OBSGOL01 PSMRgolt3b
END

IF ~~ THEN BEGIN imgol2
	SAY @446
	IF ~~ THEN EXTERN OBSGOL01 imgol3
END
END



EXTEND_BOTTOM OBSGOL01 8
	IF ~Name("Imoen2",LastTalkedToBy)
	Global("GolemTwistedMR","GLOBAL",0)
	Global("GolemOrderMR","GLOBAL",1)~ THEN DO ~SetGlobal("GolemTwistedMR","GLOBAL",1)~ EXTERN IMOEN2J PSMRGol
END

ADD_STATE_TRIGGER OBSGOL01 4
	~!Global("GolemTwistedMR","GLOBAL",1)~

ADD_STATE_TRIGGER OBSGOL01 8
	~!Global("GolemTwistedMR","GLOBAL",1)~


APPEND OBSGOL01
CHAIN2 IMOEN2J PSMRGol
	@447
	==
	@448
	==
	@449
	==
	@450
	==
	@451
	==
	@452
	==
	@4909
	==
	@453
	=
	@454
	==
	@455
	==
	@453
	=
	@456
	==
	@457
	==
	@458
END IMOEN2J PSMRseeya

IF ~~ THEN BEGIN PSMRgolt3b
	SAY @459
	IF ~~ THEN DO ~SetGlobal("GolemTwistedMR","GLOBAL",2)~ GOTO 4
END

IF ~Global("GolemTwistedMR","GLOBAL",1)
	Name("Imoen2",LastTalkedToBy)
	GlobalGT("PCSphere","GLOBAL",0)~ THEN BEGIN imgol1
	SAY @458
	IF ~~ THEN EXTERN IMOEN2J imgol2
END

IF ~~ THEN BEGIN imgol3
	SAY @456
	IF ~~ THEN EXIT
END

IF ~Global("GolemTwistedMR","GLOBAL",1)
	OR(2)
      InPartySlot(LastTalkedToBy,0)
	GlobalGT("PCSphere","GLOBAL",0)~ THEN BEGIN PSMRgolt
	SAY @458
	IF ~!IsValidForPartyDialog("Imoen2")~ THEN REPLY @460 GOTO PSMRgolt2
	IF ~IsValidForPartyDialog("Imoen2")~ THEN REPLY @460 EXTERN IMOEN2J PSMRgolt3
END

IF ~~ THEN BEGIN PSMRgolt2
	SAY @458
	IF ~~ THEN EXIT
END
END


	



// *** De'Arnise Keep ***

// IF GLOBAL "PCKeepOwner" is 1

APPEND IMOEN2J
IF WEIGHT #666
~Global("DeArniseCommentMR","GLOBAL",1)~ THEN BEGIN SCMR1
	SAY @461
	=
	@462
	=
	@463
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1")) 
	ClearAllActions()
	StartCutSceneMode()
	StartCutScene("ImArnise")~ EXIT
END

IF WEIGHT #666
~Global("DeArniseCommentMR","GLOBAL",2)~ THEN BEGIN SCMR2
	SAY @464
	IF ~~ THEN DO ~SetGlobal("DeArniseCommentMR","GLOBAL",3)~ GOTO SCMR2a
END

IF ~~ THEN BEGIN SCMR2a
	SAY @465
	IF ~InParty("Nalia")~ THEN EXTERN NALIAJ SCMR3
	IF ~!InParty("Nalia")~ THEN GOTO SCMR4
END

IF ~~ THEN BEGIN SCMR4
	SAY @466
	=
	@467
	=
	@468
	=
	@469
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SCMR5
	SAY @470
	=
	@471
	IF ~~ THEN EXTERN NALIAJ SCMR6
END

IF ~~ THEN BEGIN SCMR7
	SAY @472
	IF ~~ THEN EXIT
END
END

APPEND NALIAJ
	IF ~~ THEN BEGIN SCMR3
	SAY @473
	IF ~~ THEN EXTERN IMOEN2J SCMR5
END
	
IF ~~ THEN BEGIN SCMR6
	SAY @474
	IF ~~ THEN EXTERN IMOEN2J SCMR7
END
END



// *** Apology ***

APPEND IMOEN2J
IF ~~ THEN BEGIN Apology1
	SAY @475
	=
	@476
	=
	@477
	=
	@478
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END
END


// *** Fortunetell ***

EXTEND_BOTTOM TRGYP02 2
	IF ~Name("Imoen2",LastTalkedToBy)
!Global("ImoenTalkedGypsyMR","GLOBAL",1)~ THEN DO ~SetGlobal("ImoenTalkedGypsyMR","GLOBAL",1)~ EXTERN IMOEN2J GYMR1
END

APPEND TRGYP02
IF ~~ THEN BEGIN GYMR3
	SAY @479 
	IF ~~ THEN GOTO GYMR3chain
END

IF ~~ THEN BEGIN GYMR4
	SAY @479 
	IF ~~ THEN GOTO GYMR4chain
END

IF ~~ THEN BEGIN GYMR5
	SAY @479 
	IF ~~ THEN GOTO GYMR5chain
END

IF ~~ THEN BEGIN GYMR6
	SAY @479 
	IF ~~ THEN GOTO GYMR6chain
END

IF ~~ THEN BEGIN GYMR7
	SAY @479 
	IF ~~ THEN GOTO GYMR7chain
END

IF ~~ THEN BEGIN GYMR8
	SAY @479 
	IF ~~ THEN GOTO GYMR8chain
END


IF ~~ THEN BEGIN GYMR9
	SAY @481
	IF ~~ THEN DO ~GiveGoldForce(10)
	ActionOverride(Player1,SetDialog("Player1"))~ EXTERN IMOEN2J GYMR10
END

IF ~~ THEN BEGIN GYMR11
	SAY @482
	IF ~~ THEN DO ~GiveGoldForce(10)
	ActionOverride(Player1,SetDialog("Player1"))~ EXTERN IMOEN2J GYMR12
END

IF ~~ THEN BEGIN GYMR13
	SAY @483
	=
	@484
	IF ~~ THEN DO ~GiveGoldForce(10)
	ActionOverride(Player1,SetDialog("Player1"))~ EXTERN IMOEN2J GYMR14
END

IF ~~ THEN BEGIN GYMR15
	SAY @485
	IF ~~ THEN EXTERN IMOEN2J GYMR16
END

IF ~~ THEN BEGIN GYMR17
	SAY @485
	IF ~~ THEN EXTERN IMOEN2J GYMR18
END

IF ~~ THEN BEGIN GYMR19
	SAY @485
	IF ~~ THEN EXTERN IMOEN2J GYMR20
END
END

CHAIN TRGYP02 GYMR3chain
	@486
	=
	@487
	== IMOEN2J 
	@488
	== TRGYP02 
	@489
	=
	@490
	=
	@491
	=
	@492
END TRGYP02 GYMR9

CHAIN TRGYP02 GYMR4chain
	@486
	=
	@487
	== IMOEN2J 
	@488
	== TRGYP02 
	@489
	=
	@490
	=
	@491
	=
	@493
END TRGYP02 GYMR11

CHAIN TRGYP02 GYMR5chain
	@486
	=
	@487
	== IMOEN2J 
	@488
	== TRGYP02 
	@489
	=
	@490
	=
	@491
	=
	@494
END TRGYP02 GYMR13

CHAIN TRGYP02 GYMR6chain
	@486
	=
	@487
	== IMOEN2J 
	@495
	== TRGYP02 
	@496
	== IMOEN2J
	@497
	== TRGYP02
	@498
	=
	@499
	=
	@500
	== IMOEN2J
	@501
	== TRGYP02
	@502
	== IMOEN2J
	@503
	== TRGYP02
	@504
	== IMOEN2J
	@505
	== TRGYP02
	@506
	=
	@507
END TRGYP02 GYMR15

CHAIN TRGYP02 GYMR7chain
	@486
	=
	@487
	== IMOEN2J 
	@495
	== TRGYP02 
	@496
	== IMOEN2J
	@497
	== TRGYP02
	@498
	=
	@499
	=
	@500
	== IMOEN2J
	@501
	== TRGYP02
	@502
	== IMOEN2J
	@503
	== TRGYP02
	@508
	== IMOEN2J
	@509
	== TRGYP02
	@510
END TRGYP02 GYMR17

CHAIN TRGYP02 GYMR8chain
	@486
	=
	@487
	== IMOEN2J 
	@495
	== TRGYP02 
	@496
	== IMOEN2J
	@497
	== TRGYP02
	@511
	=
	@499
	=
	@500
	== IMOEN2J
	@501
	== TRGYP02
	@502
	== IMOEN2J
	@503
	== TRGYP02
	@512
	== IMOEN2J
	@513
	== TRGYP02
	@514
	=	
	@515
END TRGYP02 GYMR19


APPEND IMOEN2J
IF ~~ THEN BEGIN GYMR1
	SAY @516
	IF ~!Global("HeyWeGotTheLanthornMR","GLOBAL",2)
Global("ImoenRomanceActive","GLOBAL",2)~ THEN EXTERN TRGYP02 GYMR3
	IF ~!Global("HeyWeGotTLanthornMR","GLOBAL",2)
Global("ImoenRomanceActive","GLOBAL",3)~ THEN EXTERN TRGYP02 GYMR4
	IF ~!Global("HeyWeGotTheLanthornMR","GLOBAL",2)
Global("ImoenRomanceActive","GLOBAL",4)~ THEN EXTERN TRGYP02 GYMR5
	IF ~Global("HeyWeGotTheLanthornMR","GLOBAL",2)
Global("ImoenRomanceActive","GLOBAL",2)~ THEN EXTERN TRGYP02 GYMR6
	IF ~Global("HeyWeGotTheLanthornMR","GLOBAL",2)
Global("ImoenRomanceActive","GLOBAL",3)~ THEN EXTERN TRGYP02 GYMR7
	IF ~Global("HeyWeGotTheLanthornMR","GLOBAL",2)
Global("ImoenRomanceActive","GLOBAL",4)~ THEN EXTERN TRGYP02 GYMR8
END

IF ~~ THEN BEGIN GYMR10
	SAY @517
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO GYMR10caca
END

IF ~~ THEN BEGIN GYMR10caca
   SAY @518
	IF ~~ THEN DO ~RunAwayFrom(Player1,40)~ EXTERN PLAYER1 Youthink1
END

IF ~~ THEN BEGIN GYMR12
	SAY @517
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO GYMR12caca
END

IF ~~ THEN BEGIN GYMR12caca                                         
   SAY @519
	IF ~~ THEN DO ~SetGlobal("NormalApologyMR","GLOBAL",1)
	RunAwayFrom(Player1,40)~ EXTERN PLAYER1 Youthink1
END

IF ~~ THEN BEGIN GYMR14
	SAY @517
	=
	@520
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO GYMR14caca
END

IF ~~ THEN BEGIN GYMR14caca
   SAY 	@521
	IF ~~ THEN EXTERN PLAYER1 Youthink2
END

IF ~~ THEN BEGIN SUMR7bfool
	SAY @522
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GYMR16
	SAY @523
	=
	@524
	IF ~~ THEN REPLY @525 GOTO GYMR16a
	IF ~~ THEN REPLY @526 GOTO GYMR16a
	IF ~~ THEN REPLY @527 GOTO GYMR16a
	IF ~~ THEN REPLY @528 GOTO GYMR16a
	IF ~~ THEN REPLY @529 GOTO GYMR16a
END

IF ~~ THEN BEGIN GYMR16a
	SAY @530
	=
	@531
	=
	@532
	IF ~~ THEN REPLY @533 GOTO GYMR16f
	IF ~~ THEN REPLY @534 GOTO GYMR16e
	IF ~~ THEN REPLY @535 GOTO GYMR16d
	IF ~~ THEN REPLY @536 GOTO GYMR16c
	IF ~~ THEN REPLY @537 GOTO GYMR16c
	IF ~~ THEN REPLY @538 GOTO GYMR16c
	IF ~~ THEN REPLY @539 GOTO GYMR16c
	IF ~~ THEN REPLY @540 GOTO GYMR16b
END

IF ~~ THEN BEGIN GYMR16b
	SAY @541
	IF ~~ THEN REPLY @542 GOTO GYMR16b2
	IF ~~ THEN REPLY @543 GOTO GYMR16b1
	IF ~~ THEN REPLY @544 GOTO GYMR16b1
END

IF ~~ THEN BEGIN GYMR16b1
	SAY @545
	=
	@546
	=
	@547
	=
	@548
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	ReputationInc(-1)
	EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN GYMR16b2
	SAY @549
	=
	@550
	=
	@551
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GYMR16c
	SAY @552
	=
	@553
	=
	@551
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GYMR16d
	SAY @554
	=
	@555
	=
	@551
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GYMR16e
	SAY @556
	IF ~~ THEN REPLY @557 GOTO GYMR16b2
	IF ~~ THEN REPLY @558 GOTO GYMR16e1
	IF ~~ THEN REPLY @559 GOTO GYMR16c
END

IF ~~ THEN BEGIN GYMR16e1
	SAY @560
	IF ~~ THEN GOTO GYMR16c
END

IF ~~ THEN BEGIN GYMR16f
	SAY @561
	=
	@562
	=
	@563
	=
	@564
	IF ~~ THEN EXIT
END	

IF ~~ THEN BEGIN GYMR18
	SAY @517
	=
	@519
	IF ~~ THEN DO ~SetGlobal("NormalApologyMR","GLOBAL",1)
	RunAwayFrom(Player1,40)~ EXIT
END

IF ~~ THEN BEGIN GYMR20
	SAY @565
	=
	@524
	IF ~~ THEN REPLY @566 GOTO GYMR20a
	IF ~~ THEN REPLY @526 GOTO GYMR20a
	IF ~~ THEN REPLY @527 GOTO GYMR20a
	IF ~~ THEN REPLY @528 GOTO GYMR20a
	IF ~~ THEN REPLY @529 GOTO GYMR20a
END

IF ~~ THEN BEGIN GYMR20a
	SAY @567
	=
	@568
	=
	@569
	IF ~~ THEN REPLY @570 GOTO GYMR20f
	IF ~~ THEN REPLY @534 GOTO GYMR20e
	IF ~~ THEN REPLY @571 GOTO GYMR20d
	IF ~~ THEN REPLY @572 GOTO GYMR20c
	IF ~~ THEN REPLY @573 GOTO GYMR20c
	IF ~~ THEN REPLY @538 GOTO GYMR20c
	IF ~~ THEN REPLY @539 GOTO GYMR20c
	IF ~~ THEN REPLY @574 GOTO GYMR20b
END

IF ~~ THEN BEGIN GYMR20b
	SAY @541
	IF ~~ THEN REPLY @542 GOTO GYMR20b2
	IF ~~ THEN REPLY @575 GOTO GYMR20b1
	IF ~~ THEN REPLY @544 GOTO GYMR20b1
END

IF ~~ THEN BEGIN GYMR20b1
	SAY @545
	=
	@576
	=
	@547
	=
	@577
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	ReputationInc(-1)
	EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN GYMR20b2
	SAY @549
	=
	@553
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GYMR20c
	SAY @578
	=
	@550
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GYMR20d
	SAY @579
	=
	@555
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GYMR20e
	SAY @580
	IF ~~ THEN REPLY @581 GOTO GYMR20b2
	IF ~~ THEN REPLY @558 GOTO GYMR20e1
	IF ~~ THEN REPLY @559 GOTO GYMR20c
END

IF ~~ THEN BEGIN GYMR20e1
	SAY @560
	IF ~~ THEN GOTO GYMR16c
END

IF ~~ THEN BEGIN GYMR20f
	SAY @582
	=
	@583
	IF ~~ THEN EXIT
END
END	

APPEND PLAYER1
IF ~~ THEN BEGIN Youthink1
	SAY @584
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN Youthink2
	SAY @585
	IF ~~ THEN EXIT
END
END

// *** Soul ***

APPEND IMOEN2J
IF ~~ THEN BEGIN SOMR1annoyed
	SAY @586
	IF ~!Global("SorryCounter","GLOBAL",1)~ THEN REPLY @587 DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1) SetGlobal("SorryCounter","GLOBAL",1)~ GOTO SOMR1annoyed1
	IF ~Global("SorryCounter","GLOBAL",1)~ THEN REPLY @587 DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1) IncrementGlobal("SorryCounter","GLOBAL",1)~ GOTO SOMR1annoyed1s
	IF ~~ THEN REPLY @588 GOTO SOMR1annoyed2
	IF ~~ THEN REPLY @589 EXIT
END

IF ~~ THEN BEGIN SOMR1annoyed1
	SAY @590
	=
	@591
	IF ~~ THEN GOTO SOMRabout
END

IF ~~ THEN BEGIN SOMR1annoyed2
	SAY @401
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SOMR1annoyed1s
	SAY @592
	=
	@593
	IF ~~ THEN GOTO SOMRabout
END

IF ~~ THEN BEGIN SOMRabout
	SAY @594
	IF ~~ THEN REPLY @595 GOTO SOMR1
	IF ~~ THEN REPLY @596 GOTO SOMR11
END
	
IF ~~ THEN BEGIN SUMR7b4
	SAY @597
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN SOMR1again
	SAY @598
	IF ~~ THEN REPLY @599 GOTO SOMR7
	IF ~~ THEN REPLY @600 GOTO SOMR6
	IF ~~ THEN REPLY @601 GOTO SOMR3
	IF ~~ THEN REPLY @602 GOTO SOMR2
END
	
IF ~~ THEN BEGIN SOMR1
	SAY @603
	=
	@604
	IF ~~ THEN REPLY @599 GOTO SOMR7
	IF ~~ THEN REPLY @600 GOTO SOMR6
	IF ~~ THEN REPLY @605 GOTO SOMR5
	IF ~~ THEN REPLY @606 GOTO SOMR4
	IF ~~ THEN REPLY @601 GOTO SOMR3
	IF ~~ THEN REPLY @602 GOTO SOMR2
END

IF ~~ THEN BEGIN SOMR2
	SAY @607
	=
	@608
	=
	@609
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SOMR3
	SAY @610
	IF ~~ THEN DO ~SetGlobal("AskSoulMR","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN SOMR4
	SAY @611
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SOMR5
	SAY @612
	=
	@613
	IF ~~ THEN REPLY @614 GOTO SOMR8
	IF ~~ THEN REPLY @615 GOTO SOMR6
	IF ~~ THEN REPLY @616 GOTO SOMR3
	IF ~~ THEN REPLY @617 GOTO SOMR3pff
END

IF ~~ THEN BEGIN SOMR3pff
	SAY @618
	=
	@619
	IF ~~ THEN DO ~SetGlobal("AskSoulMR","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN SOMR6
	SAY @620
	IF ~~ THEN GOTO SOMR8
END

IF ~~ THEN BEGIN SOMR7
	SAY @621
	IF ~~ THEN GOTO SOMR8
END

IF ~~ THEN BEGIN SOMR8
	SAY @622
	=
	@623
	=
	@624
	=
	@625
	IF ~~ THEN REPLY @626 GOTO SOMR14
	IF ~~ THEN REPLY @627 GOTO SOMR13
	IF ~~ THEN REPLY @628 GOTO SOMR12
	IF ~~ THEN REPLY @629 GOTO SOMR11
	IF ~~ THEN REPLY @630 GOTO SOMR11
	IF ~~ THEN REPLY @631 GOTO SOMR10
	IF ~~ THEN REPLY @632 GOTO SOMR9
END

IF ~~ THEN BEGIN SOMR9
	SAY @633
	=
	@634
	=
	@635
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SOMR10
	SAY @636
	IF ~~ THEN REPLY @637 GOTO SOMR11
	IF ~~ THEN REPLY @638 GOTO SOMR10a
	IF ~~ THEN REPLY @639 GOTO SOMR11
	IF ~~ THEN REPLY @640 GOTO SOMR12
	IF ~~ THEN REPLY @641 GOTO SOMR9
END

IF ~~ THEN BEGIN SOMR10a
	SAY @642
	IF ~~ THEN EXIT
END

IF ~~THEN BEGIN SOMR11
	SAY @643
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SOMR12
	SAY @644
	IF ~~ THEN EXIT
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN GOTO SOMR12love
END

IF ~~ THEN BEGIN SOMR12love
	SAY @645
	=
	@646
	=
	@647
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SOMR13
	SAY @648
	IF ~~ THEN EXIT
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN GOTO SOMR12love
END

IF ~~ THEN BEGIN SOMR14
	SAY @649
	IF ~~ THEN EXIT
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN GOTO SOMR12love
END
END




// *** Wound-talk ***


// *** first type of wound-talk ***

APPEND IMOEN2J
IF ~~ THEN BEGIN WTMR11
	SAY @650
	=
	@651
	IF ~~ THEN REPLY @652 GOTO WTMR113
	IF ~~ THEN REPLY @653 GOTO WTMR112
	IF ~~ THEN REPLY @654 GOTO WTMR112
	IF ~~ THEN REPLY @655 GOTO WTMR112
	IF ~~ THEN REPLY @656 GOTO WTMR111
END

IF ~~ THEN BEGIN WTMR111
	SAY @657
	IF ~~ THEN GOTO WTMRnothavepot
	IF ~OR(6)
		PartyHasItem("IPOTN08")
		PartyHasItem("POTN08")
		PartyHasItem("POTN25")
		PartyHasItem("POTN55")
		PartyHasItem("POTN52")
		PartyHasItem("TTPOT")~ THEN GOTO WTMRhavepot
END

IF ~~ THEN BEGIN WTMR112
	SAY @658
	IF ~~ THEN GOTO WTMRnothavepot
	IF ~OR(6)
		PartyHasItem("IPOTN08")
		PartyHasItem("POTN08")
		PartyHasItem("POTN25")
		PartyHasItem("POTN55")
		PartyHasItem("POTN52")
		PartyHasItem("TTPOT")~ THEN GOTO WTMRhavepot
END

IF ~~ THEN BEGIN WTMR113
	SAY @659
	=
	@660
	IF ~~ THEN GOTO WTMRnothavepot
	IF ~OR(6)
		PartyHasItem("IPOTN08")
		PartyHasItem("POTN08")
		PartyHasItem("POTN25")
		PartyHasItem("POTN55")
		PartyHasItem("POTN52")
		PartyHasItem("TTPOT")~ THEN GOTO WTMRhavepot
END

IF ~~ THEN BEGIN WTMRnothavepot
	SAY @661
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN WTMRhavepot
	SAY @662
	IF ~~ THEN EXIT
END


// *** second type of wound-talk ***

	IF ~~ THEN BEGIN WTMR12
	SAY @663
	=
	@664
	IF ~~ THEN REPLY @665 GOTO WTMR121
	IF ~~ THEN REPLY @666 GOTO WTMR122
	IF ~~ THEN REPLY @667 GOTO WTMR121a
	IF ~~ THEN REPLY @668 GOTO WTMR123
	IF ~~ THEN REPLY @669 GOTO WTMR124
END

IF ~~ THEN BEGIN WTMR121
	SAY @670
	=	
	@671
	=
	@672
	IF ~~ THEN GOTO WTMRnothavepot
	IF ~OR(6)
		PartyHasItem("IPOTN08")
		PartyHasItem("POTN08")
		PartyHasItem("POTN25")
		PartyHasItem("POTN55")
		PartyHasItem("POTN52")
		PartyHasItem("TTPOT")~ THEN GOTO WTMRhavepot
END

IF ~~ THEN BEGIN WTMR121a
	SAY @673
	=	
	@671
	=
	@672
	IF ~~ THEN GOTO WTMRnothavepot
	IF ~OR(6)
		PartyHasItem("IPOTN08")
		PartyHasItem("POTN08")
		PartyHasItem("POTN25")
		PartyHasItem("POTN55")
		PartyHasItem("POTN52")
		PartyHasItem("TTPOT")~ THEN GOTO WTMRhavepot
END

IF ~~ THEN BEGIN WTMR122
	SAY @674
	IF ~~ THEN GOTO WTMRnothavepot
	IF ~OR(6)
		PartyHasItem("IPOTN08")
		PartyHasItem("POTN08")
		PartyHasItem("POTN25")
		PartyHasItem("POTN55")
		PartyHasItem("POTN52")
		PartyHasItem("TTPOT")~ THEN GOTO WTMRhavepot
END

IF ~~ THEN BEGIN WTMR123
	SAY @675
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN WTMR124
	SAY @676
	=
	@677
	IF ~~ THEN EXIT
END


// *** Third type of wound-talk ***

IF ~~ THEN BEGIN WTMR13
	SAY @678
	IF ~~ THEN REPLY @679 GOTO WTMR131
	IF ~~ THEN REPLY @680 GOTO WTMR131
	IF ~~ THEN REPLY @681 GOTO WTMR132
	IF ~~ THEN REPLY @682 GOTO WTMR133
	IF ~~ THEN REPLY @683 GOTO WTMR134
END


IF ~~ THEN BEGIN WTMR131
	SAY @684
	=
	@685
	IF ~~ THEN GOTO WTMRnothavepot2
	IF ~OR(6)
		PartyHasItem("IPOTN08")
		PartyHasItem("POTN08")
		PartyHasItem("POTN25")
		PartyHasItem("POTN55")
		PartyHasItem("POTN52")
		PartyHasItem("TTPOT")~ THEN GOTO WTMRhavepot
END

IF ~~ THEN BEGIN WTMRnothavepot2
	SAY @686
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN WTMR132
	SAY @687
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN WTMR133
	SAY @688
	=
	@689
	=
	@690
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN WTMR134
	SAY @691
	=
	@692
	IF ~~ THEN EXIT
END

// *** fourth type of wound-talk ***

IF ~~ THEN BEGIN WTMR14
	SAY @693
	IF ~~ THEN REPLY @694 GOTO SelfIniAWT
	IF ~~ THEN REPLY @695 GOTO SelfIniAWT	 
	IF ~Gender(Player1,MALE)~ THEN REPLY @696 GOTO WTMR141
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @696 GOTO WTMR141f
	IF ~~ THEN REPLY @697 GOTO WTMR142
	IF ~~ THEN REPLY @698 GOTO WTMR134
END

IF ~~ THEN BEGIN WTMR141
	SAY @699
	IF ~~ THEN GOTO SelfIniAWT2
END

IF ~~ THEN BEGIN WTMR141f
	SAY @700
	IF ~~ THEN GOTO SelfIniAWT2
END


IF ~~ THEN BEGIN WTMR142
	SAY @701
	IF ~~ THEN GOTO SelfIniAWT2
END
END




// *** Seeing Khalid without Jaheira ***

APPEND IMOEN2J
IF ~Global("SawKhalidMR","AR0603",1)~ THEN BEGIN KHMR1
	SAY @702
	IF ~~ THEN DO ~SetGlobal("SawKhalidMR","AR0603",2)~ GOTO KHMR2
END

IF ~~ THEN BEGIN KHMR2
	SAY @703
	=
	@704
	=
	@705
	=
	@706
	=
	@707
	=
	@708
	=
	@709
	=
	@710
	=
	@711
	=
	@712
	IF ~~ THEN EXIT
END
END


// *** Drow-skin ***

APPEND IMOEN2J
IF WEIGHT #761
~Global("DrowSkinMR","GLOBAL",1)~ THEN BEGIN DSMR1a
	SAY @713
	IF ~~ THEN DO ~SetGlobal("DrowSkinMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO DSMR1
END

IF ~~ THEN BEGIN DSMR1
	SAY @714
	IF ~~ THEN GOTO DSMR1comment
END

IF ~~ THEN BEGIN DSMR2
	SAY @715
	IF ~~ THEN GOTO DSMR2caquita
	IF ~OR(2) PartyHasItem("Misc3E") PartyHasItem("C2KIT")~ THEN GOTO SpiderSenseTingling1
END

IF ~~ THEN BEGIN SpiderSenseTingling1
	SAY @716
	IF ~PartyHasItem("MISC3E")~ THEN REPLY @5036 /* ~Imoen, why didn't you say it before? Meet Kitthix, the Black Spider! (Start to pull out your figurine.)~ */ GOTO SpiderSenseTingling
	IF ~PartyHasItem("C2KIT")~ THEN REPLY @5037 /* ~Imoen, why didn't you say it before? Meet IMPROVED KITTHIX, the Super-Black Spider! (Start to pull out your figurine.)~ */ GOTO SpiderSenseTingling
	IF ~~ THEN REPLY @5038 /* ~(Let her go on rambling...)~ */ GOTO DSMR2caquitabonita
END

IF ~~ THEN BEGIN SpiderSenseTingling
	SAY @5039 /* ~Agh, no, no, get that thing outta my sight! Geez, can't you tell yet when I'm joking and when talking serious?~ */
	=
	@5040 /* ~SO, where was I? I was about to tell you something really important... what was it...? I hate it when it happens that. You think of something and the second after it goes 'poof', and disappears from your mind! It's so annoying...~ */
	=
	@5041 /* ~I really should note... oh, wait, wait, it has come back!~ */
	IF ~~ THEN GOTO DSMR2caquitabonita
END

IF ~~ THEN BEGIN DSMR2caquita
	SAY @716
	IF ~~ THEN GOTO DSMR2caquitabonita
END

IF ~~ THEN BEGIN DSMR2caquitabonita
	SAY @717
	IF ~~ THEN REPLY @718 GOTO DSMR8
	IF ~~ THEN REPLY @719 GOTO DSMR7
	IF ~~ THEN REPLY @720 GOTO DSMR6
	IF ~~ THEN REPLY @721 GOTO DSMR3
	IF ~~ THEN REPLY @722 GOTO DSMR4
	IF ~~ THEN REPLY @723 GOTO DSMR3
	IF ~IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ DSMR2raise
END

IF ~~ THEN BEGIN DSMR3
	SAY @724
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN DSMR4
	SAY @725
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN DSMR6
	SAY @726
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN DSMR7
	SAY @727
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN DSMR8
	SAY @728
	=
	@729
	=
	@730
	IF ~~ THEN EXIT
END
END

CHAIN IMOEN2J DSMR1comment
	@731
	== IMOEN2J IF ~IsValidForPartyDialog("Aerie")~ THEN
	@732
	== AERIEJ IF ~IsValidForPartyDialog("Aerie")~ THEN
	@733
	== IMOEN2J IF ~IsValidForPartyDialog("Jaheira")~ THEN
	@734
	== IMOEN2J IF ~IsValidForPartyDialog("Jaheira")~ THEN
	@735
	== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira")~ THEN
	@736
	== IMOEN2J IF ~IsValidForPartyDialog("Viconia")~ THEN
	@737
	== IMOEN2J IF ~IsValidForPartyDialog("Viconia")~ THEN
	@738
	== VICONIJ IF ~IsValidForPartyDialog("Viconia")~ THEN
	@739
	== IMOEN2J IF ~IsValidForPartyDialog("Mazzy")~ THEN
	@740
	== IMOEN2J IF ~IsValidForPartyDialog("Mazzy")~ THEN
	@741
	== MAZZYJ IF ~IsValidForPartyDialog("Mazzy")~ THEN
	@742
	== IMOEN2J IF ~IsValidForPartyDialog("Korgan")~ THEN
	@4963 // ~K-Korgan, is *that* you!? Wow, you're quite a hunk now! How does it feel to be able to see others' faces from above?~
	== KORGANJ IF ~IsValidForPartyDialog("Korgan")~ THEN
	@4945 // ~Better ye nay be teasin' with a *dwarven* drow, lass! Me axe be as big as it was before, an' these black limbs can weild it as deadly!~
	== IMOEN2J IF ~IsValidForPartyDialog("Korgan")~ THEN
	@4946 // ~Sure Korgan... and now you can reach others' necks with it, hmm?~
	== KORGANJ IF ~IsValidForPartyDialog("Korgan")~ THEN
	@4947 // ~True enough, haha!~
	== IMOEN2J IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE)~ THEN
	@4948 // ~Heheheh... Edwin, you're such a beautiful *female* drow...~
	== EDWINJ IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE)~ THEN
	@4949 // ~Any other word about it, girl, and I will-~
	== IMOEN2J IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE)~ THEN
	@4950 // ~Do striptease?~
	== EDWINJ IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE)~ THEN
	@4951 // ~AGH! You are close to be incinerated, pathetic excuse for a-~
	== IMOEN2J IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE)~ THEN
	@4952 // ~Hahah, why you get so upset, Edwiney...? oh, I get it, it's one of "those days", right? Don't worry, I understand you, I'm a woman too after all...~
	== EDWINJ IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE)~ THEN
	@4953 // ~WHAT!? I AM NOT A WOMAN!! And YOU do *not* UNDERSTAND *ME*!~
	== IMOEN2J IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE)~ THEN
	@4954 // ~But I do! Here, take these and go behind that rock... (Imoen hands Edwin some kind of handkerchiefs, but you are not close enough to see what it exactly is) Put them around your-~
	== EDWINJ IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE)~ THEN
	@4955 // ~Shut your mouth!! (Edwin's glare could melt an iceberg, but Imoen simply smiles at *her* knowingly) Leave me alone!!~
	== EDWINJ IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE) Gender(Player1,MALE)~ THEN
	@4956 // ~(She -Edwin- storms away... however you notice that he *did* take the strange bandages... although you aren't naive enough not to get an idea of what Imoen just gave 'him'.)~
	== EDWINJ IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE) Gender(Player1,FEMALE)~ THEN
	@5189 // ~(She -Edwin- storms away... however you notice that he *did* take the "strange bandages"... looks like Edwin is learning by himself how hard being a female adventurer can become at times.)~
	== IMOEN2J IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",FEMALE)~ THEN
	@4957 // ~... why did Adalon turn him into a *female* drow? Guess dragons have too some kind of wicked sense of humor, heheh... Umm... so where was I...? Oh yeah...~
	== IMOEN2J IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",MALE) G("EdwinFemaleCommentMR",1)~ THEN
	@4958 // ~Heheeh... first a woman, now a drow... what will come next, Edwin?~
	== EDWINJ IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",MALE) G("EdwinFemaleCommentMR",1)~ THEN
	@4949 // ~Any other word about it, girl, and I will-~
	== IMOEN2J IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",MALE) G("EdwinFemaleCommentMR",1)~ THEN
	@4950 // ~Do striptease?~
	== EDWINJ IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",MALE) G("EdwinFemaleCommentMR",1)~ THEN
	@4951 // ~AGH! You are close to be incinerated, pathetic excuse for a-~
	== IMOEN2J IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",MALE) G("EdwinFemaleCommentMR",1)~ THEN
	@4959 // ~Hahah, I'd like to see how you *try*, Edwin! No need to be upset, itchy... if you're so smart then you should learn to have a sense of humor! Didn't you know that laughing is healthy? You'll die of seriousness one of these days...~
	== EDWINJ IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",MALE) G("EdwinFemaleCommentMR",1)~ THEN
	@4960 // ~Hmpf... leave me alone, brat. You are too immature to address me (Edwin dismisses Imoen with a movement of his dark hand and steps away muttering to himself.)~
	== EDWINJ IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",MALE) G("EdwinFemaleCommentMR",1)~ THEN
	@4961 // ~(Why does she worry about me? Can't everyone just leave me alone?)~
	== IMOEN2J IF ~IsValidForPartyDialog("Edwin") Gender("Edwin",MALE) G("EdwinFemaleCommentMR",1)~ THEN
	@4962 // ~Heh... so, umm, where was I? Oh, yeah...~
END IMOEN2J DSMR2
	

APPEND VICONIJ
	IF ~~ THEN BEGIN DSMR2raise
	SAY @743
	IF ~~ THEN REPLY @718 EXTERN IMOEN2J DSMR8
	IF ~~ THEN REPLY @719 EXTERN IMOEN2J DSMR7
	IF ~~ THEN REPLY @720 EXTERN IMOEN2J DSMR6
	IF ~~ THEN REPLY @721 EXTERN IMOEN2J DSMR3
	IF ~~ THEN REPLY @722 EXTERN IMOEN2J DSMR4
	IF ~~ THEN REPLY @723 EXTERN IMOEN2J DSMR3
END
END





// *** Voice questions ***

APPEND IMOEN2J
IF ~~ THEN BEGIN VOMR1
	SAY @744
	=
	@745
	=
	@746
	IF ~!Dead("C6BODHI")~ THEN GOTO VOMR1caquita
	IF ~Dead("C6BODHI")~ THEN GOTO VOMR1caquitita
END

IF ~~ THEN BEGIN VOMR1caquita
	SAY @747
	IF ~~ THEN GOTO VOMR1oqqoq
END

IF ~~ THEN BEGIN VOMR1caquitita
	SAY @5061
	IF ~~ THEN GOTO VOMR1oqqoq
END

IF ~~ THEN BEGIN VOMR1oqqoq
	SAY @748
	=
	@749
	IF ~~ THEN REPLY @750 GOTO VOMR7
	IF ~~ THEN REPLY @751 GOTO VOMR6
	IF ~~ THEN REPLY @752 GOTO VOMR5
	IF ~~ THEN REPLY @753 GOTO VOMR2
	IF ~~ THEN REPLY @754 GOTO VOMR3
	IF ~~ THEN REPLY @755 GOTO VOMR2
END

IF ~~ THEN BEGIN VOMR2
	SAY @756
	IF ~InParty("Jaheira")~ THEN GOTO VOMR2a
	IF ~!InParty("Jaheira")~ THEN GOTO VOMR2b
END

IF ~~ THEN BEGIN VOMR2a
	SAY @757
	=
	@758
	IF ~~ THEN EXTERN JAHEIRAJ VOMR2a1
END

IF ~~ THEN BEGIN VOMR2a2
	SAY @759
	IF ~~ THEN GOTO VOMR8
END

IF ~~ THEN BEGIN VOMR2b
	SAY @760
	IF ~~ THEN GOTO VOMR8
END

IF ~~ THEN BEGIN VOMR3
	SAY @761
	=	
	@762
	IF ~~ THEN GOTO VOMR8
END

IF ~~ THEN BEGIN VOMR5
	SAY @763
	IF ~~ THEN GOTO VOMR501
END

IF ~~ THEN BEGIN VOMR501
	SAY @764
	IF ~~ THEN GOTO VOMR5e
	IF ~IsValidForPartyDialog("Minsc")~ THEN GOTO VOMR501cha1
	IF ~IsValidForPartyDialog("Nalia")~ THEN GOTO VOMR501cha2
	IF ~IsValidForPartyDialog("Keldorn")~ THEN GOTO VOMR501cha3
	IF ~IsValidForPartyDialog("Anomen")~ THEN GOTO VOMR501cha4
END
END

CHAIN IMOEN2J VOMR501cha1
@791
== MINSCJ 
@792
== IMOEN2J 
@793
END IMOEN2J VOMR5e

CHAIN IMOEN2J VOMR501cha2
@794
== NALIAJ 
@795
== IMOEN2J 
@796
== NALIAJ 
@797
END IMOEN2J VOMR5e

CHAIN IMOEN2J VOMR501cha3
@798
== KELDORJ 
@799
== IMOEN2J 
@800
== KELDORJ 
@801
END IMOEN2J VOMR5e

CHAIN IMOEN2J VOMR501cha4
@802
== ANOMENJ
@803
== IMOEN2J
@804
== ANOMENJ
@805
END IMOEN2J VOMR5e

APPEND IMOEN2J
IF ~~ THEN BEGIN VOMR5e
	SAY @765
	IF ~~ THEN GOTO VOMR8
END

IF ~~ THEN BEGIN VOMR6
	SAY @766
	IF ~~ THEN GOTO VOMR2
END

IF ~~ THEN BEGIN VOMR7
	SAY @767
	IF ~~ THEN GOTO VOMR9
END

IF ~~ THEN BEGIN VOMR8
	SAY @768
	IF ~~ THEN GOTO VOMR9
END

IF ~~ THEN BEGIN VOMR9
	SAY @769
	=
	@770
	IF ~~ THEN GOTO VOMR11
	IF ~OR(14)
	Class(Player1,MAGE)
	Class(Player1,CLERIC)
	Class(Player1,BARD)
	Class(Player1,FIGHTER_MAGE)
	Class(Player1,FIGHTER_CLERIC)
	Class(Player1,FIGHTER_MAGE_THIEF)
	Class(Player1,DRUID)
	Class(Player1,MAGE_THIEF)
	Class(Player1,CLERIC_MAGE)
	Class(Player1,CLERIC_THIEF)
	Class(Player1,FIGHTER_DRUID)
	Class(Player1,FIGHTER_MAGE_CLERIC)
	Class(Player1,CLERIC_RANGER)
	Class(Player1,SORCERER)
	~ THEN GOTO VOMR10
END

IF ~~ THEN BEGIN VOMR10
	SAY @771
	IF ~IsValidForPartyDialog("Edwin")~ THEN GOTO VOMR11a
	IF ~!IsValidForPartyDialog("Edwin")~ THEN GOTO VOMR11b
	IF ~~ THEN GOTO VOMR12
END

IF ~~ THEN BEGIN VOMR11
	SAY @772
	IF ~IsValidForPartyDialog("Edwin")~ THEN GOTO VOMR11a
	IF ~!IsValidForPartyDialog("Edwin")~ THEN GOTO VOMR11b
END

IF ~~ THEN BEGIN VOMR11a
	SAY @773
	IF ~~ THEN EXTERN EDWINJ VOMR11acha
END

CHAIN2 EDWINJ VOMR11acha
@787
==
@788
==
@789
==
@790
END IMOEN2J VOMR12

IF ~~ THEN BEGIN VOMR11b
	SAY @774
	IF ~~ THEN GOTO VOMR12
END

IF ~~ THEN BEGIN SUMR7b10
	SAY @775
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN VOMR12
	SAY @776
	IF ~~ THEN REPLY @777 GOTO VOMR13
	IF ~~ THEN REPLY @778 GOTO VOMR13
	IF ~~ THEN REPLY @779 GOTO VOMR13
	IF ~~ THEN REPLY @780 GOTO VOMR13
	IF ~~ THEN REPLY @781 GOTO VOMR13
	IF ~~ THEN REPLY @782 GOTO VOMR13
	IF ~~ THEN REPLY @783 GOTO VOMR13
	IF ~~ THEN REPLY @784 GOTO VOMR13
END

IF ~~ THEN BEGIN VOMR13
	SAY @785
	IF ~~ THEN EXIT
END
END


APPEND JAHEIRAJ
	IF ~~ THEN BEGIN VOMR2a1
	SAY @786
	IF ~~ THEN EXTERN IMOEN2J VOMR2a2
	END
END





// *** Something to fix Aerie's pointless dialogue ***

APPEND AERIEJ
IF WEIGHT #750
~Global("Chapter","GLOBAL",5)
    Global("PointlessAerieMR","GLOBAL",0)~ THEN BEGIN POIN1
	SAY @806
	=
	@807
	IF ~InParty("Imoen2")~ THEN DO ~SetGlobal("PointlessAerieMR","GLOBAL",1) ActionOverride(Player1,SetDialog("Player1"))~ EXTERN IMOEN2J POIN2
	IF ~!InParty("Imoen2")~ THEN DO ~SetGlobal("PointlessAerieMR","GLOBAL",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO POIN3
END

IF ~~ THEN BEGIN POIN3
	SAY @808	
	IF ~~ THEN EXIT
END
END

APPEND IMOEN2J
	IF ~~ THEN BEGIN POIN2
	SAY @809
	IF ~~ THEN EXTERN AERIEJ POIN3
END
END

// *** And the same goes for Viconia ***

APPEND VICONIJ
	IF WEIGHT #750
	~Global("Chapter","GLOBAL",5)
	Global("PointlessViconiaMR","GLOBAL",0)~ THEN BEGIN POINV1
	SAY @810
	=
	@811
	IF ~~ THEN DO ~SetGlobal("PointlessViconiaMR","GLOBAL",1) ActionOverride(Player1,SetDialog("Player1"))~ EXIT
END
END



// *** Talking about the Slayer Dream ***

REPLACE DREAM4
IF ~~ THEN BEGIN 6 
  SAY @812
  IF ~~ THEN DO ~SetGlobal("SlayerDreamMR","GLOBAL",1)~ GOTO 7
END
END

APPEND IMOEN2J
IF ~~ THEN BEGIN SLMR1annoyed
	SAY @813
	IF ~~ THEN REPLY @814 DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1) SetGlobal("SorryCounter","GLOBAL",1)~ GOTO SLMR2annoyed
	IF ~~ THEN REPLY @815 EXIT
	IF ~~ THEN REPLY @816 EXIT
END

IF ~~ THEN BEGIN SLMR2annoyed 
	SAY @817
	=
	@818 
	IF ~~ THEN REPLY @819 GOTO SLMR7
	IF ~!Global("NextBranchSLMR1","GLOBAL",1)~ THEN REPLY @820 DO ~SetGlobal("NextBranchSLMR1","GLOBAL",1)~ GOTO SLMR6
	IF ~~ THEN REPLY @821 GOTO SLMR5
	IF ~~ THEN REPLY @822 GOTO SLMR4
	IF ~~ THEN REPLY @823 GOTO SLMR5a
	IF ~~ THEN REPLY @824 GOTO SLMR2
END

IF ~~ THEN BEGIN SLMR1
	SAY @825 
	IF ~~ THEN REPLY @819 GOTO SLMR7
	IF ~!Global("NextBranchSLMR1","GLOBAL",1)~ THEN REPLY @826 DO ~SetGlobal("NextBranchSLMR1","GLOBAL",1)~ GOTO SLMR6
	IF ~~ THEN REPLY @821 GOTO SLMR5
	IF ~~ THEN REPLY @827 GOTO SLMR4
	IF ~~ THEN REPLY @828 GOTO SLMR3
	IF ~~ THEN REPLY @824 GOTO SLMR2
END

IF ~~ THEN BEGIN SLMR2
	SAY @829
	=
	@830
	=
	@831
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN SLMR3
	SAY @832
	IF ~~ THEN REPLY @833 GOTO SLMR3go
	IF ~~ THEN REPLY @834 GOTO SLMR3okay
	IF ~~ THEN REPLY @835 GOTO SLMR2
END

IF ~~ THEN BEGIN SLMR3go
	SAY @836
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SLMR3okay
	SAY @837
	IF ~~ THEN REPLY @819 GOTO SLMR7
	IF ~!Global("NextBranchSLMR1","GLOBAL",1)~ THEN REPLY @838 DO ~SetGlobal("NextBranchSLMR1","GLOBAL",1)~ GOTO SLMR6
	IF ~~ THEN REPLY @821 GOTO SLMR5
	IF ~~ THEN REPLY @827 GOTO SLMR4
	IF ~~ THEN REPLY @839 GOTO SLMR2
END	

IF ~~ THEN BEGIN SLMR4
	SAY @840
	=
	@841
	=
	@842
	=
	@843
	IF ~~ THEN REPLY @844 GOTO SLMR4a
	IF ~~ THEN REPLY @845 GOTO SLMR4b
	IF ~~ THEN REPLY @846 GOTO SLMR4c
	IF ~~ THEN REPLY @847 GOTO SLMR4d
	IF ~~ THEN REPLY @848 GOTO SLMR3go
END

IF ~~ THEN BEGIN SLMR4a
	SAY @849
	IF ~InParty("Aerie")~ THEN GOTO SLMR4aerie
	IF ~!InParty("Aerie")~ THEN GOTO SLMR4a1
END
END

CHAIN IMOEN2J SLMR4aerie
	@850
	== AERIEJ IF ~IsValidForPartyDialog("Aerie")~ THEN @960
	== IMOEN2J IF ~IsValidForPartyDialog("Aerie")~ THEN @961
	== AERIEJ IF ~IsValidForPartyDialog("Aerie")~ THEN @962
	== IMOEN2J IF ~IsValidForPartyDialog("Aerie")~ THEN @963
END IMOEN2J SLMR4a1

APPEND IMOEN2J
IF ~~ THEN BEGIN SLMR4a1
	SAY @851
	=
	@852
	=
	@853
	IF ~~ THEN REPLY @819 GOTO SLMR7
	IF ~!Global("NextBranchSLMR1","GLOBAL",1)~ THEN REPLY @838 DO ~SetGlobal("NextBranchSLMR1","GLOBAL",1)~ GOTO SLMR6
	IF ~~ THEN REPLY @821 GOTO SLMR5
	IF ~~ THEN REPLY @854 GOTO SLMR2
END	

IF ~~ THEN BEGIN SLMR4b
	SAY @855
	=
	@856
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SLMR4c
	SAY @857
	=
	@858
	=
	@859
	=
	@860
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN SLMR4d
	SAY @861
	IF ~Gender(Player1,MALE)~ THEN GOTO SLMR4d1
	IF ~Gender(Player1,FEMALE)~ THEN GOTO SLMR4d2
END
	
IF ~~ THEN BEGIN SLMR4d1
	SAY @862
	=
	@863
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN SLMR4d2
	SAY @864
	=
	@865
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN SLMR5
	SAY @866
	=
	@867
	IF ~~ THEN REPLY @868 GOTO SLMR7
	IF ~!Global("NextBranchSLMR1","GLOBAL",1)~ THEN REPLY @869 DO ~SetGlobal("NextBranchSLMR1","GLOBAL",1)~ GOTO SLMR6 
	IF ~~ THEN REPLY @870 GOTO SLMR3
	IF ~~ THEN REPLY @871 GOTO SLMR5a
	IF ~~ THEN REPLY @824 GOTO SLMR2
END

IF ~~ THEN BEGIN SLMR5a
	SAY @872
	=
	@873
	=
	@401
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN SLMR6
	SAY @874
	=
	@875 
	IF ~~ THEN REPLY @819 GOTO SLMR7
	IF ~!Global("NextBranchSLMR1","GLOBAL",1)~ THEN REPLY @826 DO ~SetGlobal("NextBranchSLMR1","GLOBAL",1)~ GOTO SLMR6
	IF ~~ THEN REPLY @876 GOTO SLMR5
	IF ~~ THEN REPLY @827 GOTO SLMR4
	IF ~~ THEN REPLY @877 GOTO SLMR3
	IF ~~ THEN REPLY @878 GOTO SLMR2
END

IF ~~ THEN BEGIN SLMR7
	SAY @879
	=
	@880
	IF ~~ THEN REPLY @881 GOTO SLMR8
	IF ~!Global("NextBranchSLMR1","GLOBAL",1)~ THEN REPLY @882 GOTO SLMR9
	IF ~~ THEN REPLY @883 GOTO SLMR8
	IF ~~ THEN REPLY @884 GOTO SLMR8
	IF ~~ THEN REPLY @885 GOTO SLMR10
	IF ~~ THEN REPLY @886 GOTO SLMR10hmpf
END

IF ~~ THEN BEGIN SLMR8
	SAY @887
	IF ~~ THEN GOTO SLMR11
END

IF ~~ THEN BEGIN SLMR9
	SAY @888
	IF ~~ THEN GOTO SLMR11
END

IF ~~ THEN BEGIN SLMR10
	SAY @889
	IF ~~ THEN REPLY @890 GOTO SLMR10hmpf
	IF ~~ THEN REPLY @891 GOTO SLMR10a
	IF ~~ THEN REPLY @892 GOTO SLMR10b
	IF ~~ THEN REPLY @893 GOTO SLMR5a
END

IF ~~ THEN BEGIN SLMR10hmpf
	SAY @401
	IF ~~ THEN GOTO SLMR11
END

IF ~~ THEN BEGIN SLMR10strange
	SAY @894
	IF ~~ THEN GOTO SLMR11
END

IF ~~ THEN BEGIN SLMR10a
	SAY @895
	=
	@896
	IF ~~ THEN GOTO SLMR10hmpf
END

IF ~~ THEN BEGIN SLMR10b
	SAY @897
	IF ~~ THEN REPLY @898 GOTO SLMR10stupid1
	IF ~~ THEN REPLY @899 GOTO SLMR10stupid1 // Based on Shrek's Onion-talk...
	IF ~~ THEN REPLY @900 GOTO SLMR10strange
	IF ~~ THEN REPLY @901 GOTO SLMR10stupid2
	IF ~~ THEN REPLY @902 GOTO SLMR5a
END

IF ~~ THEN BEGIN SLMR10stupid1
	SAY @903
	=
	@904
	=
	@905
	=
	@906
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SLMR10stupid2
	SAY @907
	=
	@905
	=
	@906
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SLMR11
	SAY @908
	=
	@909
	=
	@910
	=
	@911 
	IF ~~ THEN REPLY @912 GOTO SLMR17
	IF ~~ THEN REPLY @913 GOTO SLMR16
	IF ~~ THEN REPLY @914 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO SLMR15
	IF ~~ THEN REPLY @915 GOTO SLMR14
	IF ~~ THEN REPLY @916 GOTO SLMR13
	IF ~~ THEN REPLY @917 GOTO SLMR12
END

IF ~~ THEN BEGIN SLMR12
	SAY @918
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SLMR13
	SAY @919
	=
	@920
	=
	@921
	=
	@922
	=
	@923
	=
	@924
	=
	@925
	IF ~~ THEN DO ~RunAwayFrom(Player1,30)~ EXIT
END

IF ~~ THEN BEGIN SLMR14
	SAY @926
	=
	@927
	=
	@928
	=
	@929
	=
	@930
	=
	@931
	=
	@925
	IF ~~ THEN DO ~RunAwayFrom(Player1,30)~ EXIT
END

IF ~~ THEN BEGIN SLMR15
	SAY @932
	=
	@933
	=
	@934
	=
	@935
	=
	@936
	IF ~~ THEN REPLY @937 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO SLMR18
	IF ~~ THEN REPLY @938 GOTO SLMR16
	IF ~~ THEN REPLY @939 GOTO SLMR14
	IF ~~ THEN REPLY @940 GOTO SLMR13
	IF ~~ THEN REPLY @917 GOTO SLMR12
END

IF ~~ THEN BEGIN SLMR16
	SAY @941
	=
	@942
	=
	@943
	=
	@944
	=
	@945
	=
	@946
	=
	@947
	IF ~~ THEN DO ~RunAwayFrom(Player1,30)~ EXIT
END


IF ~~ THEN BEGIN SLMR17 
	SAY @948
	=
	@949
	IF ~~ THEN REPLY @950 GOTO SLMR19
	IF ~~ THEN REPLY @938 GOTO SLMR16
	IF ~~ THEN REPLY @951 GOTO SLMR14
	IF ~~ THEN REPLY @952 GOTO SLMR13
	IF ~~ THEN REPLY @953 GOTO SLMR12
END

IF ~~ THEN BEGIN SLMR18
	SAY @954
	=
	@955 
	=
	@956
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SLMR19
	SAY @957
	=
	@958
	=
	@959
	IF ~~ THEN DO ~RunAwayFrom(Player1,30)~ EXIT
END
END






// *** Salvanas' Hit *** --> FROM KELSEY'S MOD, EDITED TO FIT IMOEN'S INVOLVEMENT WITH THE MAIN CHARACTER


APPEND SALVANAS
IF WEIGHT #11
~!InPartySlot(LastTalkedToBy,0)
Name("Imoen2",LastTalkedToBy)~ THEN BEGIN ImSal1
  SAY @964
  IF ~~ THEN EXTERN ~IMOEN2J~ ImSal2
END
END

APPEND IMOEN2J
IF ~~ THEN BEGIN ImSal2
  SAY @965
  IF ~~ THEN EXTERN ~SALVANAS~ ImSal3
END

IF ~~ THEN BEGIN SUMR7b9
	SAY @966
	IF ~~ THEN GOTO SUMR7b
END
END

APPEND SALVANAS
IF ~~ THEN BEGIN ImSal3
  SAY @967
  IF ~~ THEN EXTERN ~IMOEN2J~ ImSal5
END
END

APPEND IMOEN2J
IF ~~ THEN BEGIN ImSal5 
  SAY @968
	IF ~OR(2)
	!Global("ImoenRomanceActive","GLOBAL",2)
	Global("HadSexMessyInterlude","GLOBAL",1)~ THEN GOTO ImSal5a
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	!Global("HadSexMessyInterlude","GLOBAL",1)
		Gender(Player1,MALE)~ THEN GOTO 73SalvaMR
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	!Global("HadSexMessyInterlude","GLOBAL",1)
		Gender(Player1,FEMALE)~ THEN GOTO 73SalvaFMR
  END

IF ~~ THEN BEGIN ImSal5a
	SAY @969 
  IF ~~ THEN GOTO ImSal6
END

IF ~~ THEN BEGIN ImSal6
  SAY @970
  IF ~~ THEN EXTERN ~SALVANAS~ ImSal7
END
END

APPEND Salvanas
IF ~~ THEN BEGIN ImSal7 
SAY @971 
  IF ~!Global("ImoenRomanceActive","GLOBAL",2)~ THEN EXTERN ~IMOEN2J~ ImSal8
  IF ~Global("ImoenRomanceActive","GLOBAL",2)
	Gender(Player1,MALE)~ THEN EXTERN IMOEN2J SalvaMR1
  IF ~Global("ImoenRomanceActive","GLOBAL",2)
	Gender(Player1,FEMALE)~ THEN EXTERN IMOEN2J SalvaFMR1
END
END

APPEND Imoen2J
IF ~~ THEN BEGIN ImSal8
  SAY @972 
  IF ~~ THEN EXTERN ~SALVANAS~ ImSal9
END
END

APPEND Salvanas
IF ~~ THEN BEGIN ImSal9
  SAY @973 
  IF ~~ THEN DO ~RunAwayFrom("Imoen2",15)~ EXIT
END
END



APPEND SALVANAS
	IF ~~ THEN BEGIN MRpale
		SAY @974
		IF ~Global("MREww","GLOBAL",1)~ THEN DO ~ApplySpell(Myself,SURE_SLEEP)
		SetGlobal("MREww","GLOBAL",0)~ EXTERN IMOEN2J MREww1
		IF ~Global("MREww","GLOBAL",2)~ THEN DO ~ApplySpell(Myself,SURE_SLEEP)
		SetGlobal("MREww","GLOBAL",0)~ EXTERN IMOEN2J MREww2
		IF ~Global("MREww","GLOBAL",3)~ THEN DO ~ApplySpell(Myself,SURE_SLEEP)
		SetGlobal("MREww","GLOBAL",0)~ EXTERN IMOEN2J MREww3
		IF ~Global("MREww","GLOBAL",4)~ THEN DO ~ApplySpell(Myself,SURE_SLEEP)
		SetGlobal("MREww","GLOBAL",0)~ EXTERN IMOEN2J MREww4
	END

	IF ~~ THEN BEGIN MRpff
		SAY @975
		IF ~~ THEN EXTERN IMOEN2J MRFuckOffSalitre2
	END

	
CHAIN2 IMOEN2J MRFuckOffSalitre2
@976
==
@977
==
@978
==
@979
=
@980
END IMOEN2J MRUghElf
END


APPEND IMOEN2J
	IF ~~ THEN BEGIN 73SalvaMR
		SAY @969
 	 IF ~~ THEN GOTO 74Mal
	END

	IF ~~ THEN BEGIN 73SalvaFMR
		SAY @981
 	 IF ~~ THEN GOTO 74Fem
	END

IF ~~ THEN BEGIN 74Mal
  SAY @970
  IF ~~ THEN EXTERN ~SALVANAS~ ImSal7
END

IF ~~ THEN BEGIN 74Fem
  SAY @982 
  IF ~~ THEN EXTERN ~SALVANAS~ ImSal7
END

IF ~~ THEN BEGIN SalvaMR1
	SAY @983
	=
	@984
	=
	@985
	IF ~~ THEN REPLY @986 DO ~SetGlobal("MREww","GLOBAL",1)~ GOTO SalvaWhatYouThink
	IF ~~ THEN REPLY @987 DO ~SetGlobal("MREww","GLOBAL",2)~ GOTO SalvaWhatYouThink
	IF ~~ THEN REPLY @988 DO ~SetGlobal("MREww","GLOBAL",3)~ GOTO SalvaWhatYouThink
	IF ~~ THEN REPLY @989 DO ~SetGlobal("MREww","GLOBAL",4)~ GOTO SalvaWhatYouThink
	IF ~~ THEN REPLY @990 DO ~SetGlobal("MREww","GLOBAL",4)~ GOTO SalvaSlap1
	IF ~~ THEN REPLY @991 DO ~SetGlobal("MREww","GLOBAL",5)~ GOTO SalvaSlap1
 END

IF ~~ THEN BEGIN SalvaFMR1
	SAY @992
	=
	@993
	=
	@994
	IF ~~ THEN REPLY @986 DO ~SetGlobal("MREww","GLOBAL",1)~ GOTO SalvaWhatYouThink
	IF ~~ THEN REPLY @987 DO ~SetGlobal("MREww","GLOBAL",2)~ GOTO SalvaWhatYouThink
	IF ~~ THEN REPLY @995 DO ~SetGlobal("MREww","GLOBAL",3)~ GOTO SalvaWhatYouThink
	IF ~~ THEN REPLY @989 DO ~SetGlobal("MREww","GLOBAL",4)~ GOTO SalvaWhatYouThink
	IF ~~ THEN REPLY @990 DO ~SetGlobal("MREww","GLOBAL",4)~ GOTO SalvaSlap1
	IF ~~ THEN REPLY @996 DO ~SetGlobal("MREww","GLOBAL",5)~ GOTO SalvaSlap1
 END

IF ~~ THEN BEGIN SalvaWhatYouThink
	SAY @997
	IF ~~ THEN EXTERN SALVANAS MRpale
END

IF ~~ THEN BEGIN SalvaSlap1
	SAY @998
	IF ~~ THEN EXTERN SALVANAS MRpff
END

IF ~~ THEN BEGIN MREww1
	SAY @999
	=
	@1000
	=
	@1001
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MREww2
	SAY @999
	=
	@1002
	=
	@1000
	=
	@1001
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MREww3
	SAY @999
	=
	@1003
	=
	@1000
	=
	@1001
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MREww4
	SAY @999
	=
	@1004
	=
	@1000
	=
	@1001
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRUghElf
	SAY @1005
	IF ~Global("MREww","GLOBAL",4)~ THEN DO ~SetGlobal("MREww","GLOBAL",0)~ EXTERN IMOEN2J MREww5
	IF ~Global("MREww","GLOBAL",5)~ THEN DO ~SetGlobal("MREww","GLOBAL",0)~ EXTERN IMOEN2J MREww6
END

IF ~~ THEN BEGIN MREww5
	SAY @1006
	=
	@1007
	=
	@1008
      IF ~~ THEN DO ~ActionOverride("Salvanas",RunAwayFrom("Imoen2",15))~ EXIT
END

IF ~~ THEN BEGIN MREww6
	SAY @1009
	=
	@1010
      IF ~~ THEN DO ~ActionOverride("Salvanas",RunAwayFrom("Imoen2",15))~ EXIT
END
END




// *** Imoen Is Tired ***


// *** First ***

APPEND IMOEN2J
IF WEIGHT #500 
~Global("ImTiredMR","GLOBAL",1)~ THEN BEGIN 1TIRED1
	SAY @1011
	IF ~~ THEN DO ~SetGlobal("ImTiredMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO 1TIRED1caca
END

IF ~~ THEN BEGIN 1TIRED1caca
	SAY @1012
	IF ~~ THEN REPLY @1013 GOTO 1TIRED2
	IF ~~ THEN REPLY @1014 GOTO 1TIRED3
	IF ~~ THEN REPLY @1015 GOTO 1TIRED4
	IF ~~ THEN REPLY @1016 GOTO 1TIRED1a
	IF ~~ THEN REPLY @1017 GOTO 1TIRED5
	IF ~~ THEN REPLY @1018 GOTO 1TIRED6
END

IF ~~ THEN BEGIN 1TIRED1a
	SAY @1019
	=
	@1020
	=
	@1021
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 1TIRED2
	SAY @1022
	IF ~~ THEN REPLY @1023 GOTO 1TIREDR1
	IF ~~ THEN REPLY @1024 GOTO 1TIREDR1
	IF ~~ THEN REPLY @1025 GOTO 1TIREDR2
	IF ~~ THEN REPLY @1026 GOTO 1TIREDR3
END

IF ~~ THEN BEGIN 1TIREDR1
	SAY @1027
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 1TIREDR2
	SAY @1028
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 1TIREDR3
	SAY @1029
	IF ~~ THEN DO ~SetGlobal("KindnessCounter","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 1TIRED3
	SAY @1030
	IF ~~ THEN REPLY @1023 GOTO 1TIREDR1
	IF ~~ THEN REPLY @1031 GOTO 1TIREDR1
	IF ~~ THEN REPLY @1032 GOTO 1TIREDR2
	IF ~~ THEN REPLY @1026 GOTO 1TIREDR3
END

IF ~~ THEN BEGIN 1TIRED4
	SAY @1033 
	IF ~~ THEN GOTO 1TIRED4ab
END

IF ~~ THEN BEGIN 1TIRED4a
	SAY @1034
	IF ~~ THEN REPLY @1023 GOTO 1TIREDR1
	IF ~~ THEN REPLY @1031 GOTO 1TIREDR1
	IF ~~ THEN REPLY @1035 GOTO 1TIREDR2
	IF ~~ THEN REPLY @1026 GOTO 1TIREDR3
END

IF ~~ THEN BEGIN SUMR7g2
	SAY @1036
	IF ~~ THEN REPLY @1037 GOTO SUMR7h
	IF ~~ THEN REPLY @1038 EXIT
END

IF ~~ THEN BEGIN 1TIRED5
	SAY @1039
	=
	@1040
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 1TIRED6
	SAY @1041
	IF ~~ THEN DO ~SetGlobal("KindnessCounter","GLOBAL",1)~ EXIT
END





// *** Second ***

IF WEIGHT #501
 ~Global("ImTired2MR","GLOBAL",1)~ THEN BEGIN 2TIRED1
	SAY @1042
	IF ~~ THEN DO ~SetGlobal("ImTired2MR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO 2TIRED2
END

IF ~~ THEN BEGIN 2TIRED2
	SAY @1043
	=
	@1044
	IF ~~ THEN REPLY @1045 GOTO 2TIRED3
	IF ~~ THEN REPLY @1046 GOTO 2TIRED3
	IF ~~ THEN REPLY @1047 GOTO 2TIRED3
	IF ~~ THEN REPLY @1048 GOTO 2TIRED3
	IF ~IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ 2RestComMR
END

IF ~~ THEN BEGIN 2TIRED3
	SAY @1049
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 2RestCom2MR
	SAY @1050
	IF ~~ THEN EXIT
END
END

APPEND VICONIJ
	IF ~~ THEN BEGIN 2RestComMR
		SAY @1051
		IF ~~ THEN EXTERN IMOEN2J 2RestCom2MR
	END
END


// *** Third ***

APPEND IMOEN2J
IF WEIGHT #503
~Global("ImTired3MR","GLOBAL",1)~ THEN BEGIN 3TIRED1
	SAY @1052
	IF ~~ THEN DO ~SetGlobal("ImTired3MR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO 3TIRED2
END

IF ~~ THEN BEGIN 3TIRED2
	SAY @1053
	=
	@1054
	=
	@1055
	=
	@1056
	IF ~~ THEN REPLY @1057 GOTO 3TIRED3
	IF ~NumInPartyGT(2)~ THEN REPLY @1058 GOTO 3TIRED4
	IF ~!NumInPartyGT(2)~ THEN REPLY @1059 GOTO 3TIRED4
	IF ~~ THEN REPLY @1060 GOTO 3TIRED3
	IF ~~ THEN REPLY @1061 GOTO 3TIRED3
	IF ~~ THEN REPLY @1062 GOTO 3TIRED5
END

IF ~~ THEN BEGIN 3TIRED3
	SAY @1063
	=
	@1064
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 3TIRED4
	SAY @1065
	IF ~~ THEN DO ~RestParty()~ EXIT
END

IF ~~ THEN BEGIN 3TIRED5
	SAY @1066
	IF ~~ THEN GOTO 3TIRED6a
END

IF ~~ THEN BEGIN 3TIRED7
	SAY @1067
	=
	@1068
	IF ~~ THEN REPLY @1069 GOTO 3TIRED8
	IF ~~ THEN REPLY @1070 GOTO 3TIRED9
	IF ~~ THEN REPLY @1071 GOTO 3TIRED10
END

IF ~~ THEN BEGIN 3TIRED8
	SAY @1072
	=
	@1073
	=
	@1074
	=
	@1075
	=
	@1076
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 3TIRED9
	SAY @1077
	=
	@1078
	=
	@1079
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	ReputationInc(-4) ActionOverride(Player1,ApplySpellRES("SPMRACCE",Player1)) 
	EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 3TIRED10
	SAY @1080
	=
	@1081
	=
	@1082
	=
	@1083
	=
	@1084
	=
	@1085
	=
	@1086
	=
	@1087
	=
	@1088
	=
	@1089
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("ImDemon")~ EXIT
END
END

CHAIN IMOEN2J 1TIRED4ab 
	@1090
	== IMOEN2J IF ~IsValidForPartyDialog("Nalia")~ THEN @1091
	== NALIAJ IF ~IsValidForPartyDialog("Nalia")~ THEN @1092
	== IMOEN2J IF ~IsValidForPartyDialog("Aerie")~ THEN @1093
	== AERIEJ IF ~IsValidForPartyDialog("Aerie")~ THEN @1094
	== IMOEN2J IF ~IsValidForPartyDialog("Keldorn")~ THEN @1095
	== KELDORJ IF ~IsValidForPartyDialog("Keldorn")~ THEN @1096
END IMOEN2J 1TIRED4a


CHAIN IMOEN2J 3TIRED6a
	@1097
	== AERIEJ IF ~IsValidForPartyDialog("Aerie")~ THEN @1098
	== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira")~ THEN @1099
	== KORGANJ IF ~IsValidForPartyDialog("Korgan")~ THEN @1100
	== KELDORJ IF ~IsValidForPartyDialog("Keldorn")~ THEN @1101
	== NALIAJ IF ~IsValidForPartyDialog("Nalia")~ THEN @1102
END IMOEN2J 3TIRED7



// *** Fix the script ***

APPEND IMOEN2J
IF ~~ THEN BEGIN MRScriptFix
	SAY @1103
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("ImAssign")~ EXIT
END
END





// *********************************Changes To Existing Dialogues**********************************

// *** SCRIPT FIXING ***

REPLACE IMOEN2
IF ~~ THEN BEGIN 21
  SAY #49539 /* ~Good. I have missed traveling with you, <CHARNAME>, even when times were bad.~ */
  IF ~~ THEN DO ~JoinParty()~ GOTO 21NEWMRFIX
END
END

APPEND IMOEN2
	IF ~~ THEN BEGIN 21NEWMRFIX
		SAY @1104
		IF ~~ THEN DO ~SetDialog("IMOEN2J")
  		ClearAllActions()
 		StartCutSceneMode()
 		StartCutScene("ImAssign")
		~ EXIT
	END
END



// *** Bodhi "Kidnapping" Imoen ***


REPLACE BODHIAMB
IF ~~ THEN BEGIN 6 
  SAY #56533 
  IF ~InParty("Imoen2")~ THEN GOTO 6MR
  IF ~!InParty("Imoen2")~ THEN GOTO 7
END

IF ~~ THEN BEGIN 7 // from: 6.0
  SAY #56535 /* ~I will say no more to you. Fight, and if you survive, be thankful and go home.~ */
  IF ~~ THEN DO ~DialogueInterrupt(FALSE)
CreateCreatureObject("VAMPIM01",Myself,0,0,0)
CreateCreatureObject("VAMPIM01",Myself,0,0,0)
CreateCreatureObject("VAMPIM01",Myself,0,0,0)
CreateCreatureObject("VAMPIM01",Myself,0,0,0)
ForceSpell(Myself,DRYAD_TELEPORT)
SetGlobal("ImoenWhewMR","GLOBAL",1)
SetGlobal("Deactivate0801","AR0800",3)
Wait(1)
DestroySelf()
~ JOURNAL #16351 /* ~The Final Battle with Bodhi.

Bodhi has revealed herself to me, letting me know that she is aware of my pursuit... and in an attempt to dissuade me from entering her lair unleashed yet more of her undead creations upon me.  She swears I will lose much more than my life if I continue to pursue her... although, in truth, I have little choice.~ */ FLAGS 64 EXIT
END	
END

EXTEND_TOP BODHIAMB 1 #2
	IF ~~ THEN REPLY @1105 GOTO 1MR
END

APPEND BODHIAMB
	IF ~~ THEN BEGIN 1MR
		SAY @1106 
		IF ~~ THEN GOTO 5
	END
	
	IF ~~ THEN BEGIN 6MR
		SAY @1107
		IF ~Global("ImoenRomanceActive","GLOBAL",1)~ THEN GOTO 6MR1
		IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN GOTO 6MR1
		IF ~Global("ImoenRomanceActive","GLOBAL",3)~ THEN GOTO 6MR2
		IF ~Global("ImoenRomanceActive","GLOBAL",4)~ THEN GOTO 6MR3
	END

	IF ~~ THEN BEGIN 6MR1
		SAY @1108
		=
		@1109
		IF ~~ THEN EXTERN IMOEN2J BOD6MR1a
	END

	IF ~~ THEN BEGIN 6MR1b
		SAY @1110
		IF ~~ THEN GOTO 6MR4
	END

	IF ~~ THEN BEGIN 6MR2
		SAY @1111
		=
		@1112
		=
		@1113
		=
		@1114
		IF ~~ THEN EXTERN IMOEN2J BOD6MR2a
	END

	IF ~~ THEN BEGIN 6MR3
		SAY @1115
		=
		@1116
		=
		@1117
		IF ~~ THEN EXTERN IMOEN2J BOD6MR3a
	END

	IF ~~ THEN BEGIN 6MR4
		SAY @1118
		=
		@1119
		=
		@1120
		IF ~~ THEN EXTERN IMOEN2J BOD6MR5
	END

	IF ~~ THEN BEGIN 6MR6
		SAY @1121
		IF ~~ THEN GOTO 7
	END
END

APPEND IMOEN2J
	IF ~~ THEN BEGIN BOD6MR1a
		SAY @1122
		=
		@1123
		IF ~~ THEN EXTERN BODHIAMB 6MR1b
	END

	IF ~~ THEN BEGIN BOD6MR2a
		SAY @1124
		=
		@1125
		=
		@1126
		IF ~~ THEN EXTERN BODHIAMB 6MR1b
	END

	IF ~~ THEN BEGIN BOD6MR5
		SAY @1127
		IF ~~ THEN EXTERN BODHIAMB 6MR6	
	END

	IF ~~ THEN BEGIN BOD6MR3a
		SAY @1128
		IF ~~ THEN EXTERN BODHIAMB 6MR1b
	END

	IF WEIGHT #504 
~Global("ImoenWhewMR","GLOBAL",3)~ THEN BEGIN BODW1
		SAY @1129 
		IF ~~ THEN DO ~SetGlobal("ImoenWhewMR","GLOBAL",4) ActionOverride(Player1,SetDialog("Player1"))~ GOTO BODW2
	END
	END

CHAIN IMOEN2J BODW2
@1130
== NALIAJ IF ~IsValidForPartyDialog("Nalia")~ THEN @1133
== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira")~ THEN @1134
== ANOMENJ IF ~IsValidForPartyDialog("Anomen")~ THEN @1135
== CERNDJ IF ~IsValidForPartyDialog("Cernd")~ THEN @1136
== EDWINJ IF ~IsValidForPartyDialog("Edwin")~ THEN @1137
== VICONIJ IF ~IsValidForPartyDialog("Viconia")~ THEN @1138
== HAERDAJ IF ~IsValidForPartyDialog("HaerDalis")~ THEN @1139
== AERIEJ IF ~IsValidForPartyDialog("Aerie")~ THEN @1140
== JANJ IF ~IsValidForPartyDialog("Jan")~ THEN @1141
== KELDORJ IF ~IsValidForPartyDialog("Keldorn")~ THEN @1142
== KORGANJ IF ~IsValidForPartyDialog("Korgan")~ THEN @1143
== MAZZYJ IF ~IsValidForPartyDialog("Mazzy")~ THEN @1144
== VALYGARJ IF ~IsValidForPartyDialog("Valygar")~ THEN @1145
== IMOEN2J
@1131
=
@1132
EXIT


// *** Finding Imoen, first time ***

REPLACE PPIMOEN
IF ~~ THEN BEGIN 1 
  SAY @1146 
	IF ~~ THEN GOTO 1MR
END

IF ~~ THEN BEGIN 6 // from:
  SAY #44658 /* ~So empty... empty...~ [IMOEN62] */
  IF ~~ THEN REPLY @1147 GOTO 6NEWMR 
  IF ~~ THEN REPLY @1148 GOTO 6NEWMR
  IF ~~ THEN REPLY @1149 GOTO 6aNEWMR
  IF ~~ THEN REPLY @1150 GOTO 6bNEWMR
END
END

EXTEND_TOP PPIMOEN 3
	IF ~~ THEN REPLY @1151 GOTO 3MR
END

EXTEND_BOTTOM PPIRENI1 29
	IF ~~ THEN REPLY @1152 GOTO 30
END

EXTEND_BOTTOM PPIRENI1 27
	IF ~~ THEN REPLY @1153 GOTO 28
END

APPEND PPIMOEN
	IF ~~ THEN BEGIN 6NEWMR
	SAY @1154 
	IF ~~ THEN EXTERN PPIRENI1 27
	END

	IF ~~ THEN BEGIN 6aNEWMR
	SAY @1155
	IF ~~ THEN EXTERN PPIRENI1 27
	END

	IF ~~ THEN BEGIN 6bNEWMR
	SAY @1155
	IF ~~ THEN EXTERN PPIRENI1 27NEWMR
	END

	IF ~~ THEN BEGIN 2MR
	SAY @1156
	IF ~~ THEN GOTO 2
	END

	IF ~~ THEN BEGIN 1MR
	SAY @1157
      IF ~~ THEN GOTO 2MR
	END

	IF ~~ THEN BEGIN 3MR
	SAY @1158 
	IF ~~ THEN GOTO 4
	END
END

APPEND PPIRENI1
	IF ~~ THEN BEGIN 27NEWMR
	SAY @1159
	IF ~~ THEN GOTO 30
	END
END
	

// *** Phaere Innuendo ***



EXTEND_TOP UDPHAE01 106 #2
	IF ~Global("ImoenRomanceActive","GLOBAL",1)~ THEN REPLY @1160 GOTO 110
	IF ~Global("ImoenRomanceActive","GLOBAL",4)~ THEN REPLY @1161 GOTO 110
END

APPEND IMOEN2J
	IF WEIGHT #505
~Global("PhaereInnuendo","GLOBAL",2)
	Global("WasThatGoodMR","GLOBAL",2)~ THEN BEGIN PHMR1
	SAY @1162
	IF ~~ THEN DO ~SetGlobal("WasThatGoodMR","GLOBAL",3) ActionOverride(Player1,SetDialog("Player1"))
	SetGlobal("PhaereFixMRJa","GLOBAL",0)
	SetGlobal("PhaereFixMRVi","GLOBAL",0)
	SetGlobal("PhaereFixMRAe","GLOBAL",0)~ GOTO PHMR1a
	END

	IF ~~ THEN BEGIN PHMR1a
	SAY @1163
	IF ~~ THEN REPLY @1164 GOTO PHMR6
	IF ~~ THEN REPLY @1165 GOTO PHMR5
	IF ~~ THEN REPLY @1166 GOTO PHMR4
	IF ~~ THEN REPLY @1167 GOTO PHMR3
	IF ~~ THEN REPLY @1168 GOTO PHMR2
	IF ~~ THEN REPLY @1169 GOTO PHMR2
	END

	IF ~~ THEN BEGIN PHMR2
	SAY @1170
	=
	@1171
	IF ~~ THEN GOTO PHMRNasty
	END
	
	IF ~~ THEN BEGIN PHMR3 
	SAY @1172
	=
	@1173
	IF ~~ THEN GOTO PHMRNasty
	END

	IF ~~ THEN BEGIN PHMR4
	SAY @1174
	=
	@1175
	IF ~~ THEN REPLY @1176 GOTO PHMR6
	IF ~~ THEN REPLY @1177 GOTO PHMR5
	IF ~~ THEN REPLY @1167 GOTO PHMR3
	IF ~~ THEN REPLY @1178 GOTO PHMR2
	IF ~~ THEN REPLY @1179 GOTO PHMR2
	END

	IF ~~ THEN BEGIN PHMR5
	SAY @1180
	=
	@1181
	IF ~~ THEN REPLY @1182 GOTO PHMR6a
	IF ~~ THEN REPLY @1183 GOTO PHMR3
	IF ~InParty("Aerie")
	Global("SleptAerie","GLOBAL",1)~ THEN REPLY @1184 GOTO PHMRreally1
	IF ~InParty("Jaheira")
	Global("JaheiraNookie","GLOBAL",1)~ THEN REPLY @1185 GOTO PHMRreally2
	IF ~InParty("Viconia")
	Global("SleptViconia","GLOBAL",1)~ THEN REPLY @1186 GOTO PHMRreally3
	IF ~~ THEN REPLY @1178 GOTO PHMR2
	IF ~~ THEN REPLY @1179 GOTO PHMR2
	END

	IF ~~ THEN BEGIN PHMRreally1
	SAY @1187
	IF ~~ THEN EXTERN AERIEJ PHMRreally1a
	END

	IF ~~ THEN BEGIN PHMRreally1b
	SAY @1188
	=
	@1189
	IF ~Global("PhaereInnuendo","GLOBAL",2)~ THEN GOTO PHMRNasty
	IF ~Global("PhaereInnuendo","GLOBAL",3)~ THEN GOTO PHMRBNasty2
	END

	IF ~~ THEN BEGIN PHMRreally2
	SAY @1190
	IF ~~ THEN EXTERN JAHEIRAJ PHMRreally2a
	END

	IF ~~ THEN BEGIN PHMRreally3
	SAY @1191
	IF ~~ THEN EXTERN VICONIJ PHMRreally3a
	END

	IF ~~ THEN BEGIN PHMR6a
	SAY @1192
	=
	@1193
	IF ~~ THEN GOTO PHMRNasty
	END

	IF ~~ THEN BEGIN PHMR6
	SAY @1194
	=
	@1195
	=
	@1193
	IF ~~ THEN GOTO PHMRNasty
	END

	IF ~~ THEN BEGIN PHMRNasty
	SAY @1196
	=
	@1197
	IF ~~ THEN EXIT
	END	


	IF WEIGHT #506
~Global("PhaereInnuendo","GLOBAL",3)
	Global("WasThatGoodMR","GLOBAL",2)~ THEN BEGIN PHMRB1
	SAY @1198
	IF ~~ THEN DO ~SetGlobal("WasThatGoodMR","GLOBAL",3) ActionOverride(Player1,SetDialog("Player1"))
	SetGlobal("PhaereFixMRJa","GLOBAL",0)
	SetGlobal("PhaereFixMRVi","GLOBAL",0)
	SetGlobal("PhaereFixMRAe","GLOBAL",0)~ GOTO PHMRB1a
	END

	IF ~~ THEN BEGIN PHMRB1a
	SAY @1199
	IF ~~ THEN REPLY @1200 GOTO PHMRB6
	IF ~~ THEN REPLY @1201 GOTO PHMRB5
	IF ~~ THEN REPLY @1202 GOTO PHMRB2
	IF ~~ THEN REPLY @1203 GOTO PHMRBcaca
	IF ~~ THEN REPLY @1204 GOTO PHMRB2
	END

	IF ~~ THEN BEGIN PHMRBcaca
	SAY @1205
	=
	@1206
	IF ~~ THEN GOTO PHMRBNasty
	END

	IF ~~ THEN BEGIN PHMRB6
	SAY @1194
	=
	@1195
	=
	@1193
	IF ~~ THEN GOTO PHMRBNasty
	END

	IF ~~ THEN BEGIN PHMRB5
	SAY @1180
	=
	@1207
	IF ~~ THEN REPLY @1208 GOTO PHMRB6a
	IF ~~ THEN REPLY @1209 GOTO PHMRB3
	IF ~InParty("Aerie")
	Global("SleptAerie","GLOBAL",1)~ THEN REPLY @1184 GOTO PHMRreally1
	IF ~InParty("Jaheira")
	Global("JaheiraNookie","GLOBAL",1)~ THEN REPLY @1185 GOTO PHMRreally2
	IF ~InParty("Viconia")
	Global("SleptViconia","GLOBAL",1)~ THEN REPLY @1210 GOTO PHMRreally3
	IF ~~ THEN REPLY @1211 GOTO PHMRB2
	IF ~~ THEN REPLY @1179 GOTO PHMRB2
	END

	IF ~~ THEN BEGIN PHMRB6a
	SAY @1212
	=
	@1193
	IF ~~ THEN GOTO PHMRBNasty
	END

	IF ~~ THEN BEGIN PHMRB2
	SAY @1213
	=
	@1214
	IF ~~ THEN EXIT
	END

	IF ~~ THEN BEGIN PHMRB3
	SAY @1172
	=
	@1193
	IF ~~ THEN GOTO PHMRBNasty
	END

	IF ~~ THEN BEGIN SUMR7b18
	SAY @1215
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("ImDemon")~ EXIT
	END

	IF ~~ THEN BEGIN PHMRBNasty
	SAY @1216
	=
	@1217
	IF ~~ THEN EXIT
	END

	IF ~~ THEN BEGIN PHMRBNasty2
	SAY @1218
	=
	@1219
	=
	@1217
	IF ~~ THEN EXIT
	END
END

APPEND AERIEJ
	IF ~~ THEN BEGIN PHMRreally1a
	SAY @1220
	IF ~~ THEN EXTERN IMOEN2J PHMRreally1b
	END
END

APPEND JAHEIRAJ
	IF ~~ THEN BEGIN PHMRreally2a
	SAY @1221
	IF ~~ THEN EXTERN IMOEN2J PHMRreally1b
	END
END

APPEND VICONIJ
	IF ~~ THEN BEGIN PHMRreally3a
	SAY @1222
	IF ~~ THEN EXTERN IMOEN2J PHMRreally1b
	END
END


// *** IMOEN, reunited in Spellhold (knowingly) ***


REPLACE IMOEN2
IF ~!G("ISaidThisAndAmHappyMR",1)~ THEN BEGIN 0
  SAY @1223 
  IF ~~ THEN REPLY @1224 DO ~SG("ISaidThisAndAmHappyMR",1) SetGlobal("IntroduceMeMR","GLOBAL",1)~ GOTO 1MR1
  IF ~~ THEN REPLY @1225 DO ~SG("ISaidThisAndAmHappyMR",1) SetGlobal("IntroduceMeMR","GLOBAL",1)~ GOTO 2
  IF ~~ THEN REPLY @1226 DO ~SG("ISaidThisAndAmHappyMR",1) SetGlobal("IntroduceMeMR","GLOBAL",1)~ GOTO 2NEWMR
  IF ~~ THEN REPLY @1227 DO ~SG("ISaidThisAndAmHappyMR",1) SetGlobal("IntroduceMeMR","GLOBAL",1)~ GOTO 3
  IF ~~ THEN REPLY @1228 DO ~SG("ISaidThisAndAmHappyMR",1) SetGlobal("IntroduceMeMR","GLOBAL",1)~ GOTO 2
  IF ~~ THEN REPLY @1229 DO ~SG("ISaidThisAndAmHappyMR",1) SetGlobal("IntroduceMeMR","GLOBAL",1)~ GOTO 4
  IF ~~ THEN REPLY @1230 DO ~SG("ISaidThisAndAmHappyMR",1) SetGlobal("IntroduceMeMR","GLOBAL",1)~ GOTO 0MR
END

IF ~~ THEN BEGIN 2 
  SAY @1231
  IF ~~ THEN EXIT
  IF ~!G("IntroduceMeMR",4)~ THEN DO ~SetGlobal("IntroduceMeMR","GLOBAL",1)~ GOTO 5
END

IF ~~ THEN BEGIN 3 
  SAY @1232
  IF ~~ THEN EXIT
  IF ~!G("IntroduceMeMR",4)~ THEN DO ~SetGlobal("IntroduceMeMR","GLOBAL",1)~ GOTO 5
END

IF ~~ THEN BEGIN 4 
  SAY @1233
  IF ~~ THEN EXIT
  IF ~!G("IntroduceMeMR",4)~ THEN DO ~SetGlobal("IntroduceMeMR","GLOBAL",1)~ GOTO 5
END

IF ~~ THEN BEGIN 5 
  SAY @1234 
  IF ~~ THEN GOTO 6
END

IF ~~ THEN BEGIN 6
  SAY @1235
	IF ~~ THEN GOTO 6MR1
	END

IF ~~ THEN BEGIN 7 
  SAY @1236
  IF ~~ THEN REPLY @1237 GOTO 9
  IF ~~ THEN REPLY @1238 GOTO 9
  IF ~~ THEN REPLY @1239 GOTO 8
  IF ~~ THEN REPLY @1240 GOTO 10
END

IF ~~ THEN BEGIN 8
  SAY @1241
  IF ~~ THEN GOTO 11
END

IF ~~ THEN BEGIN 9 
  SAY @1242
	IF ~~ THEN GOTO 9MR1
END

IF ~~ THEN BEGIN 10 
  SAY @1243
  IF ~~ THEN GOTO 11
END

IF ~~ THEN BEGIN 11 
  SAY @1244
	IF ~~ THEN GOTO 11MR1
END

IF ~~ THEN BEGIN 12 
  SAY @1245
  IF ~~ THEN GOTO 13
END

IF ~~ THEN BEGIN 13 
  SAY @1246 
  IF ~~ THEN REPLY @1247 GOTO 17
  IF ~~ THEN REPLY @1248 GOTO 16
  IF ~~ THEN REPLY @1249 GOTO 15
  IF ~~ THEN REPLY @1250 GOTO 14MR
END

IF ~~ THEN BEGIN 18 
  SAY @1251
  IF ~~ THEN GOTO 19
END

IF ~~ THEN BEGIN 25
  SAY @1252
  IF ~~ THEN DO ~SetGlobal("KickedOut","LOCALS",1)
SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
SetDialog("Imoen2p")
EscapeAreaMove("ar0406",504,1493,0)
~ EXIT
END
END

APPEND IMOEN2
	IF ~~ THEN BEGIN 2NEWMR
	SAY @1253
	IF ~~ THEN REPLY @1254 GOTO 3NEWMR
	IF ~~ THEN REPLY @1255  GOTO 1MR1
      IF ~~ THEN REPLY @1225 GOTO 2
      IF ~~ THEN REPLY @1256 GOTO 3
      IF ~~ THEN REPLY @1257 GOTO 2
      IF ~~ THEN REPLY @1258 GOTO 4
	END

	IF ~~ THEN BEGIN 3NEWMR
	SAY @1259
	=
	@1260
	IF ~~ THEN REPLY @1261  GOTO 1MR1
      IF ~~ THEN REPLY @1225 GOTO 2
      IF ~~ THEN REPLY @1262 GOTO 3
      IF ~~ THEN REPLY @1263 GOTO 2
      IF ~~ THEN REPLY @1264 GOTO 4
	END

	IF ~~ THEN BEGIN 9MR1
	SAY @1265
	IF ~~ THEN  GOTO 9MR2
	END

	IF ~~ THEN BEGIN 9MR2
	SAY @1266
  	IF ~~ THEN GOTO 12
	END

	IF ~~ THEN BEGIN 6MR1
	SAY @1267 
	IF ~~ THEN GOTO 7
	END

	IF ~~ THEN BEGIN 11MR1
	SAY @1268
	IF ~~ THEN REPLY @1269 GOTO 9
	IF ~~ THEN REPLY @1270 GOTO 9
	END

	IF ~~ THEN BEGIN 0MR
	SAY @1271
	=
	@1272
	IF ~~ THEN GOTO 0MR1
	END

	IF ~~ THEN BEGIN 0MR1
	SAY @1273
	IF ~~ THEN GOTO 0MR2
	IF ~IsValidForPartyDialog("Keldorn")~ THEN EXTERN KELDORJ 0MR1cha1
	IF ~IsValidForPartyDialog("Jaheira")~ THEN EXTERN JAHEIRAJ 0MR1cha2
	IF ~IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ 0MR1cha3
	IF ~IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ 0MR1cha4
	IF ~IsValidForPartyDialog("Nalia")~ THEN EXTERN NALIAJ 0MR1cha5
	IF ~IsValidForPartyDialog("Mazzy")~ THEN EXTERN MAZZYJ 0MR1cha6
	IF ~IsValidForPartyDialog("Minsc")~ THEN EXTERN MINSCJ 0MR1cha7
	END

CHAIN2 KELDORJ 0MR1cha1
@1457
END IMOEN2 0MR2

CHAIN2 JAHEIRAJ 0MR1cha2
@1458
END IMOEN2 0MR2

CHAIN2 AERIEJ 0MR1cha3
@1459
END IMOEN2 0MR2

CHAIN2 VICONIJ 0MR1cha4
@1460
END IMOEN2 0MR2

CHAIN2 NALIAJ 0MR1cha5
@1461
END IMOEN2 0MR2

CHAIN2 MAZZYJ 0MR1cha6
@1462
END IMOEN2 0MR2

CHAIN2 MINSCJ 0MR1cha7
@1463
END IMOEN2 0MR2

	IF ~~ THEN BEGIN 0MR2
	SAY @1274
	IF ~~ THEN DO ~EscapeArea()
	ReputationInc(-1) ActionOverride(Player1,ApplySpellRES("SPMRACNE",Player1))~ EXIT
	END

	IF ~~ THEN BEGIN 14MR
	SAY @1275
	IF ~~ THEN REPLY @1276 GOTO 14MR1
	IF ~CheckStatGT(Player1,13,WIS)~ THEN REPLY @5209 GOTO alopecia1 // = ~Well, I had many dreams. The first three ones were about my taint; the others, however... (begin to tell her all about your dreams.)~
	IF ~!CheckStatGT(Player1,13,WIS)~ THEN REPLY @5209 GOTO alopecia // = ~Well, I had many dreams. The first three ones were about my taint; the others, however... (begin to tell her all about your dreams.)~
	END

	IF ~~ THEN BEGIN alopecia1
	SAY @5213 // = ~<CHARNAME>, <CHARNAME>...! (Imoen looks uneasy. You notice she wants to avoid this topic for now) Yer going too fast, my head is still spinning and you're tellin' me about some crazy dreams you had 'bout me...~
	= @5211 // = ~Those can wait, dontcha think? The others, the, uh, "tainted" ones, have some kind of priority...~
	= @5212 // = ~It seems dead gods never rest easy... an' you've always been prone to have these weird dreams about the taint... you have dealt with it quite longer than me, y'know...~
	IF ~~ THEN GOTO 18
	END

	IF ~~ THEN BEGIN alopecia
	SAY @5210 // = ~<CHARNAME>, <CHARNAME>...! (Imoen looks uneasy, but you can't tell why) Yer going too fast, my head is still spinning and you're tellin' me about some crazy dreams you had 'bout me...~
	= @5211 // = ~Those can wait, dontcha think? The others, the, uh, "tainted" ones, have some kind of priority...~
	= @5212 // = ~It seems dead gods never rest easy... an' you've always been prone to have these weird dreams about the taint... you have dealt with it quite longer than me, y'know...~
	IF ~~ THEN GOTO 18
	END
	

	IF ~~ THEN BEGIN 14MR1
	SAY @1277
	IF ~~ THEN GOTO 14
	END

	IF ~~ THEN BEGIN 1MR1
	SAY @1278
  IF ~~ THEN REPLY @1279 GOTO 2
  IF ~~ THEN REPLY @1280 GOTO 3
  IF ~~ THEN REPLY @1228 GOTO 2
  IF ~~ THEN REPLY @1281 GOTO 4
END
END


// *** CHANGE TO VICONIA'S LOVETALK ***

// *** Viconia ***

REPLACE BVICONI
 IF ~~ THEN BEGIN 35
  SAY @1282
  IF ~~ THEN REPLY @1283 GOTO 36
  IF ~~ THEN REPLY @1284 GOTO 37
  IF ~~ THEN REPLY @1285 GOTO MRVicAdd1
 END
	
 IF ~~ THEN BEGIN 37
  SAY @1286
  IF ~~ THEN REPLY @1287 GOTO MRVicAdd3
  IF ~~ THEN REPLY @1288 GOTO 144
 END
END

APPEND BVICONI
 IF ~~ THEN BEGIN MRVicAdd1
  SAY @1289
  IF ~~ THEN REPLY @1290 GOTO 37
  IF ~~ THEN REPLY @1291 GOTO 36
  IF ~~ THEN REPLY @1292 GOTO 37
  IF ~~ THEN REPLY @1293 GOTO MRVicAdd2
 END

 IF ~~ THEN BEGIN MRVicAdd2
  SAY @1294
  IF ~~ THEN DO ~SetGlobal("ViconiaRomanceActive","GLOBAL",3)~
  EXIT
 END
	
 IF ~~ THEN BEGIN MRVicAdd3
  SAY @1295
  IF ~~ THEN EXIT
 END
END

// *** CHANGE TO HAER'DALIS DIALOGUE ***

// *** Haer'Dalis ***

EXTEND_TOP HAERDA 211 #2
	IF ~~ THEN REPLY @1296 GOTO MRHDAdd1
END

APPEND HAERDA
IF ~~ THEN BEGIN MRHDAdd1
	SAY @1297
	IF ~~ THEN DO ~SetGlobalTimer("HaerDalisRomance","GLOBAL",1800)
JoinParty()~ EXIT
END
END



// *** PARTY COMPLAINTS / COMMENTS ABOUT THE INVOLVEMENT ***

// *** Keldorn *** <--- Only if Imoen is present!

APPEND KELDORJ
	IF WEIGHT #507 
~Global("KeldornThoughtMR","GLOBAL",1)~ THEN BEGIN KTMR1
	SAY @1298
	=
	@1299
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO KTMR2
	END
	


	IF ~~ THEN BEGIN KTMR2
	SAY @1300
	IF ~~ THEN GOTO KTMR3
	IF ~IsValidForPartyDialog("Imoen2")~ THEN EXTERN IMOEN2J KTMR2cha
	END

	CHAIN2 IMOEN2J KTMR2cha
	@1320
	==
	@1321
	END KELDORJ KTMR3
	
	IF ~~ THEN BEGIN KTMR3
	SAY @1301
	IF ~~ THEN REPLY @1302 GOTO KTMR4
	IF ~~ THEN REPLY @1303 GOTO KTMR4
	IF ~~ THEN REPLY @1304 EXTERN IMOEN2J KTMR3a
	IF ~~ THEN REPLY @1305 EXTERN IMOEN2J KTMR3a
	IF ~~ THEN REPLY @1306 EXTERN IMOEN2J KTMR3a
	END

	IF ~~ THEN BEGIN KTMRhey
	SAY @1307
	IF ~~ THEN GOTO KTMR4
	END

	IF ~~ THEN BEGIN KTMR4
	SAY @1308
	=
	@1309
	IF ~~ THEN EXTERN IMOEN2J KTMR5
	END

	IF ~~ THEN BEGIN KTMR6
	SAY @1310
	=
	@1311
	IF ~~ THEN EXTERN IMOEN2J KTMR7
	END
END


APPEND IMOEN2J
	IF ~~ THEN BEGIN KTMR3a
	SAY @1312
	=
	@1313
	IF ~~ THEN EXTERN KELDORJ KTMRhey
	END
	
	IF ~~ THEN BEGIN KTMR5
	SAY @1314
	=
	@1315
	=
	@1316
	=
	@1317
	IF ~~ THEN EXTERN KELDORJ KTMR6
	END

	IF ~~ THEN BEGIN KTMR7
	SAY @1318
	=
	@1319
	IF ~~ THEN EXIT
END
END
	

	

// *** Jaheira ***

APPEND JAHEIRAJ
IF WEIGHT #508
~Global("JaheiraThoughtMR","GLOBAL",1)~ THEN BEGIN JTMR1
	SAY @1322
	=
	@1323
	IF ~Gender(Player1,MALE)~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO JTMR2
	IF ~Gender(Player1,FEMALE)~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO JTMR3
END

IF ~~ THEN BEGIN JTMR2
	SAY @1324
	IF ~~ THEN GOTO JTMR4
END

IF ~~ THEN BEGIN JTMR3
	SAY @1325
	IF ~~ THEN GOTO JTMR4
END

IF ~~ THEN BEGIN JTMR4
	SAY @1326
	IF ~~ THEN DO ~SetGlobal("JaheiraThoughtMR","GLOBAL",2)
	ActionOverride(Player1,SetDialog("Player1"))~ GOTO JTMR4a
END

IF ~~ THEN BEGIN JTMR4a
	SAY @1327
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO JTMR5
	IF ~IsValidForPartyDialog("Imoen2")~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN IMOEN2J JTMR4acha
END

CHAIN2 IMOEN2J JTMR4acha
@1345
==
@1346
END JAHEIRAJ JTMR5

IF ~~ THEN BEGIN JTMR5
	SAY @1328
	IF ~~ THEN REPLY @1329 EXTERN PLAYER1 JTMR6 
	IF ~~ THEN REPLY @1330 EXTERN PLAYER1 JTMR7
	IF ~~ THEN REPLY @1331 EXTERN PLAYER1 JTMR8
	IF ~~ THEN REPLY @1332 EXTERN PLAYER1 JTMR9
	IF ~~ THEN REPLY @1333 EXTERN PLAYER1 JTMR10
END

IF ~~ THEN BEGIN JTMR11
	SAY @1334
	=
	@1335
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN JTMR12
	SAY @1336
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 JTMRGoOn
END	
END

APPEND PLAYER1
	IF ~~ THEN BEGIN JTMRGoOn
	SAY @1337
	=
	@1338
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
	END

	IF ~~ THEN BEGIN JTMR6
		SAY @1339
		IF ~~ THEN EXTERN JAHEIRAJ JTMR11
	END

	IF ~~ THEN BEGIN JTMR7
		SAY @1340
		IF ~~ THEN EXTERN JAHEIRAJ JTMR11
	END

	IF ~~ THEN BEGIN JTMR8
		SAY @1341
		IF ~~ THEN EXTERN JAHEIRAJ JTMR11
	END

	IF ~~ THEN BEGIN JTMR9
		SAY @1342
		IF ~~ THEN EXTERN JAHEIRAJ JTMR11
	END	

	IF ~~ THEN BEGIN JTMR10
		SAY @1343
		IF ~~ THEN GOTO JTMR10a
	END

	IF ~~ THEN BEGIN JTMR10a
		SAY @1344
		IF ~~ THEN EXTERN JAHEIRAJ JTMR12
		IF ~IsValidForPartyDialog("Imoen2")~ THEN EXTERN IMOEN2J JTMR10acha
	END
END

CHAIN IMOEN2J JTMR10acha
@1347
=
@1348
== JAHEIRAJ
@1349
END JAHEIRAJ JTMR12


/*
// ~~ Anomen ~~

CHAIN IF WEIGHT #0
~G("AnomenThought",1)~ THEN ANOMENJ t1
@5296 // = ~Enough! This is outrageous, there is only so much of this blasphemous, wicked relationship that I will tolerate!~
== IMOEN2J @5297 // = ~Huh...? What ar'ya ramblin' about, Annie?~
== ANOMENJ IF ~G("AnomenIsNotKnight",1)~ THEN @5298 // = ~Cut it out, girl, you will not fool me with your false innocence. You know perfectly the reason for my anger: you and <CHARNAME> have just accepted something *inacceptable*!
== ANOMENJ IF ~G("AnomenIsKnight",1)~ THEN @5299 // = ~My lady, you have gone too far. You and <CHARNAME> have just accepted something *inacceptable*!
== IMOEN2J @5300 // = ~Oh... *that* thing...~
== ANOMENJ IF ~Gender(Player1,FEMALE)~ THEN @5301 // = ~It is not only the blasphemy of two Bhaalspawn filth together. The fact that you both are WOMEN is something unthinkable!~
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5302 // = ~Look Anomen, that's something--~
== ANOMENJ IF ~Gender(Player1,FEMALE) G("AnomenIsNotKnight",1)~ THEN @5303 // = ~I am not finished, do not interrupt me, girl!
== ANOMENJ IF ~Gender(Player1,FEMALE) G("AnomenIsNotKnight",1)~ THEN @5304 // = ~I am not finished, Imoen.~
== ANOMENJ IF ~Gender(Player1,FEMALE)~ THEN @5305 // = ~I will not stand idly watching your dirty games, developing a filthy lesbian relationship before my eyes. You are an anathem to all that is pure and right--~
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5306 // = ~~
*/

// *** Aerie ***

APPEND AERIEJ
IF WEIGHT #509 
~Global("AerieThoughtMR","GLOBAL",1)~ THEN BEGIN ATMR1
	SAY @1350 = @1351 = @1352
	IF ~~ THEN DO ~SetGlobal("AerieThoughtMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ EXIT
END
END

	
// *** Viconia ***


APPEND VICONIJ
IF WEIGHT #510 
~Global("ViconiaThoughtMR","GLOBAL",1)~ THEN BEGIN VTMR1
	SAY @1353
	IF ~Gender(Player1,MALE)~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO VTMR2
	IF ~Gender(Player1,FEMALE)~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO VTMR3
END

IF ~~ THEN BEGIN VTMR2
	SAY @1354
	IF ~~ THEN GOTO VTMR4
END

IF ~~ THEN BEGIN VTMR3
	SAY @1355
	=
	@1356
	=
	@1357
	IF ~~ THEN GOTO VTMR4
END

CHAIN2 IMOEN2J VTMR4cha
@1454
==
@1455
==
@1456
END VICONIJ VTMR5

IF ~~ THEN BEGIN VTMR4
	SAY @1358
	IF ~~ THEN DO ~SetGlobal("ViconiaThoughtMR","GLOBAL",2)~ GOTO VTMR5
	IF ~IsValidForPartyDialog("Imoen2")~ THEN DO ~SetGlobal("ViconiaThoughtMR","GLOBAL",2)~ EXTERN IMOEN2J VTMR4cha
END

IF ~~ THEN BEGIN VTMR5
	SAY @1359
	IF ~IsValidForPartyDialog("Imoen2")~ THEN REPLY @1360 EXTERN IMOEN2J VTMR6
	IF ~!IsValidForPartyDialog("Imoen2")~ THEN REPLY @1361 GOTO VTMR7
	IF ~~ THEN REPLY @1362 EXTERN IMOEN2J VTMR6
	IF ~IsValidForPartyDialog("Imoen2")~ THEN REPLY @1363 GOTO VTMRWhathe
	IF ~~ THEN REPLY @1364 EXTERN IMOEN2J VTMR8
	IF ~~ THEN REPLY @1365 EXTERN IMOEN2J VTMRHey
	IF ~~ THEN REPLY @1366 EXTERN IMOEN2J VTMRHey
	IF ~~ THEN REPLY @1367 GOTO VTMRNever
END

IF ~~ THEN BEGIN VTMRWhathe
	SAY @1368
	=
	@1369
	=
	@1370
	=
	@1371
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN VTMRNever
	SAY @1372
	=
	@1373
	IF ~~ THEN REPLY @1374 EXTERN IMOEN2J VTMRNever1
	IF ~~ THEN REPLY @1375 GOTO VTMRNever2
END

IF ~~ THEN BEGIN VTMRNever2
	SAY @1376
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN VTMR7
	SAY @1377
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN VTMR9
	SAY @1378
	IF ~~ THEN EXTERN IMOEN2J VTMR10
END
END 

APPEND IMOEN2J
	IF ~~ THEN BEGIN VTMRNever1
	SAY @1379
	IF ~~ THEN EXTERN VICONIJ VTMRNever2
	END

	IF ~~ THEN BEGIN VTMR6
	SAY @1380
	IF ~~ THEN EXTERN VICONIJ VTMR7
	END
	
	IF ~~ THEN BEGIN VTMR8
	SAY @1381
	=
	@1382
	=
	@1383
	IF ~~ THEN EXTERN VICONIJ VTMR7
	END

	IF ~~ THEN BEGIN VTMRHey
	SAY @1384
	IF ~~ THEN REPLY @1385 EXTERN VICONIJ VTMR9
	IF ~~ THEN REPLY @1386 EXTERN VICONIJ VTMR9
	END
	
	IF ~~ THEN BEGIN VTMR10
	SAY @1387
	IF ~~ THEN REPLY @1388 GOTO VTMR11
	IF ~~ THEN REPLY @1389 GOTO VTMR11
	IF ~~ THEN REPLY @1390 GOTO VTMR12
	END

	IF ~~ THEN BEGIN VTMR11
	SAY @1391
	IF ~~ THEN EXTERN VICONIJ VTMR7
	END

	IF ~~ THEN BEGIN VTMR12
	SAY @1392
	=
	@1393
	=
	@1394
	IF ~~ THEN EXTERN VICONIJ VTMR7
	END
END

// *** Introducing Imoen to your companions ***

APPEND IMOEN2J
IF WEIGHT #511 
~Global("IntroduceMeMR","GLOBAL",3)
NumInPartyGT(2)
	OR(10)
	IsValidForPartyDialog("Korgan")
	IsValidForPartyDialog("Nalia")
	IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Jan")
	IsValidForPartyDialog("Keldorn")
	IsValidForPartyDialog("HaerDalis")
	IsValidForPartyDialog("Anomen")
	IsValidForPartyDialog("Cernd")
	IsValidForPartyDialog("Valygar")
	IsValidForPartyDialog("Mazzy")~ THEN BEGIN IMMR1
	SAY @1395
	IF ~~ THEN REPLY @1396 DO ~SetGlobal("IntroduceMeMR","GLOBAL",4)~ EXTERN PLAYER1 IMMR2
	IF ~~ THEN REPLY @1397 DO ~SetGlobal("IntroduceMeMR","GLOBAL",4)~ GOTO IMMRfuckyou
END

IF WEIGHT #511
~Global("IntroduceMeMR","GLOBAL",3) 
NumInPartyGT(2)
	!IsValidForPartyDialog("Korgan")
	!IsValidForPartyDialog("Nalia")
	!IsValidForPartyDialog("Aerie")
	!IsValidForPartyDialog("Jan")
	!IsValidForPartyDialog("Keldorn")
	!IsValidForPartyDialog("HaerDalis")
	!IsValidForPartyDialog("Anomen")
	!IsValidForPartyDialog("Cernd")
	!IsValidForPartyDialog("Valygar")
	!IsValidForPartyDialog("Mazzy")
	OR(4)
	IsValidForPartyDialog("Jaheira")
	IsValidForPartyDialog("Viconia")
	IsValidForPartyDialog("Edwin")
	IsValidForPartyDialog("Minsc")~ THEN BEGIN IMMR1new
	SAY @4917 // ~Hey, people...!~
	IF ~~ THEN DO ~SG("IntroduceMeMR",4)~ GOTO IMMR1newcha
END

IF WEIGHT #511 ~G("IntroduceMeMR",3) !NumInPartyGT(2)~ THEN BEGIN insolo1
	SAY @5342 // = ~Whoa...~
IF ~~ THEN DO ~SG("IntroduceMeMR",4)~ GOTO insolo2
END

IF ~~ THEN BEGIN insolo2
	SAY @5343 // = ~Ya came all the way here *all alone*? I knew ya were a "tough-to-kill-<PRO_GIRLBOY> ", but, heh... ya really have some guts.~
	IF ~~ THEN REPLY @5344 GOTO insolo9 // = ~I've always been a loner. You know that, everyone that has met me knows that.~
	IF ~~ THEN REPLY @5345 GOTO insolo8 // = ~No one wants to join a Bhaalspawn in <PRO_HISHER> turbulent journey, Imoen...~
	IF ~~ THEN REPLY @5346 GOTO insolo7 // = ~I will not risk the lives of others in my own mission... only I must carry the burden of my accursed soul.~
	IF ~~ THEN REPLY @5347 GOTO insolo6 // = ~Yes, I killed everyone in my way. And you can't ask "friend or foe" to someone that is already dead...~
	IF ~~ THEN REPLY @5348 GOTO insolo5 // = ~There is power in my path, and I want it all for MYSELF!~
	IF ~~ THEN REPLY @5349 GOTO insolo4 // = ~(You shrug) I didn't really feel like having a party following me, that's all.~
	IF ~~ THEN REPLY @5350 GOTO insolo3 // = ~Yes, and I expect you to keep quiet. Otherwise, you'll force me to leave you here.~
END

IF ~~ THEN BEGIN insolo3
	SAY @5351 // = ~(Imoen purses her lips with disgust, although she already knew how you like things) sorry, <CHARNAME>. No words from me, I promise.~
	IF ~~ THEN DO ~SG("ImoenRomanceActive",3)~ EXIT
END

IF ~~ THEN BEGIN insolo4
	SAY @5352 // = ~Oh...~
	IF ~~ THEN GOTO insolominyah
END

IF ~~ THEN BEGIN insolo5
	SAY @5353 // = ~Hahah, you greedy bastard (she winks at you) wontcha spare a bit of it for your cute childhood friend?~
	= @5354 // = ~You-- you'll keep me with ya, right...? At least 'til we go outta here... please?~
	IF ~~ THEN REPLY @5387 GOTO insolo5c // = ~I said the power is MINE!! GO AWAY!!~
	IF ~~ THEN REPLY @5355 GOTO insolo5a // = ~So long as you stay in my shadow, you can follow me wherever you want.~
	IF ~~ THEN REPLY @5356 GOTO insolo5b // = ~Oh but of course! I meant "You and Myself". I'd never consider leaving you behind me, Imoen.~
	IF ~~ THEN REPLY @5357 GOTO insolo5a // = ~I don't know. I haven't decided yet. Let's go on together... for now.~
	IF ~~ THEN REPLY @5386 GOTO insolo3 // = ~Be quiet, girl! So long as you keep silent, I will tolerate you.~
END

IF ~~ THEN BEGIN insolo5a
	SAY @5358 // = ~(Imoen sighs) I guess that's better than nothing...~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN insolo5b
	SAY @5359 // = ~(Imoen smiles, although you can still see some kind of disgust in her expression) That's good to hear. Although I'd like ya to be a little less obsessed with all the power thing.~
	= @5360 // = ~(She sighs) let's get outta here then... it's no wonder why Minsc and Jaheira aren't with ya by now.~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN insolo5c
	SAY @5361 // = ~(Imoen jumps back) Whoa easy there! C'mon, I'll help ya, no need to get grumpy... I'll stay out of your way, alright? I'll be like a shadow, no talking at all, nope...~
	= @5362 // = ~Give me a chance... I-- I don't want to be alone here.~
	IF ~~ THEN DO ~SG("ImoenRomanceActive",3)~ EXIT
END

IF ~~ THEN BEGIN insolo6
	SAY @5363 // = ~Hah, you'n'your jokes. Well, I *prefer* to believe it's a joke, so just don't tell me what you've really been doin'.~
	IF ~~ THEN GOTO insolominyah
END

IF ~~ THEN BEGIN insolo7
	SAY @5364 // = ~(Imoen smiles, looking at you with affection in her eyes) Well, ya can share your burden with me anytime, y'know that. Your mission is my mission... no matter if I like it or not, heheh.~
	= @5365 // = ~I... I always liked to think we were kind of special, <CHARNAME>... y'know, like a bond 'tween us both. Now we know what it is...~
	= @5366 // = ~Although Minsc, Dynaheir, Khalid and Jaheira... well, they were nice people. But I guess we shouldn't have involved any of them in this... it shoulda've stayed just you'n'me. Too many deaths already...~
	= @5367 // = ~Uh, sorry, I'm goin' bleak again. Let's just go on... <CHARNAME> and Imoen against the odds like in the old times, hehe. Although... I'll miss Boo all the same.~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN insolo8
	SAY @5383 // = ~I guess so... I wouldn't, that's for sure, hehe! (She winks at you) but I'm sure there's people crazy enough for it, y'know, like Minsc or Dynaheir or Khalid...~
	IF ~~ THEN GOTO insolominyah
END

IF ~~ THEN BEGIN insolo9
	SAY @5384 // = ~Yer a queer fellow, that's what ye are (she winks at you) at least ya keep *me* around. I hope that won't change anytime soon... I-- I wouldn't want to be stuck in this horrible place all alone.~
	= @5385 // = ~Minsc and Jaheira woulda've come in handy here... (Imoen sighs) oh well. I'm only surprised they stayed with us for so long, given your tendency to push everyone away from ya.~
	= @5368 // = ~But... I've never really wondered why I'm different to ya. I... I always liked to think we were kind of special, y'know, like a bond 'tween us both. Now we know what it is... (She sadly shakes her head.)~ 
	= @5380 // = ~Although Minsc, Dynaheir, Khalid and Jaheira... well, they were nice people. But I guess we shouldn't have involved any of them in this... it shoulda've stayed just you'n'me. Too many deaths already...~
	= @5381 // = ~Uh, sorry, I'm goin' bleak again. Let's just go on... <CHARNAME> and Imoen against the odds like in the old times, hehe. Although... I'll miss Boo all the same.~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN insolominyah
	SAY @5382 // = ~Hey, where's Minsc? And Jaheira? I thought they had made it out of that dungeon we were in...~
	IF ~~ THEN REPLY @5369 GOTO minyah2 // = ~We left them there to find their way out by themselves, remember? We had more chances if we split up... although I never saw them again.~
	IF ~~ THEN REPLY @5370 GOTO minyah1 // = ~We left them there to rot. We didn't need them.~
	IF ~~ THEN REPLY @5371 GOTO insolo9 // = ~You know I'm a lonely person... we went separate ways as soon as we were out of there.~
	IF ~~ THEN REPLY @5372 GOTO IMMRwhat2 // = ~I'm sorry but... they died.~
	IF ~~ THEN REPLY @5373 GOTO IMMRwhat2c // = ~I had to kill them. They were too annoying.~
	IF ~~ THEN REPLY @5374 GOTO minyah5 // = ~It's not the first of our worries right now... we should be moving already.~
END


IF ~~ THEN BEGIN minyah1
	SAY @5375 // = ~Hey-hey, not so fast... *you* left them there to rot. I gave Jaheira the key to her cage when ya weren't lookin' and told Minsc before leaving that Boo was stupid and Dynaheir deserved to die so he'd go mad and crushed his cell by himself.~
	= @5376 // = ~I... I was too scared to do anything more for them. I wish I could have... they were our friends, <CHARNAME>. Mine, at least...~
	= @5377 // = ~(Imoen sighs) Oh well... I'll miss Boo the most. Let's get outta here...~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN minyah2
	SAY @5378 // = ~Oh... a true shame. I... I was too scared to do anything more for them. I wish I could have... they were our friends, <CHARNAME>. Mine, at least...~
	= @5379 // = ~(Imoen sighs) Oh well... I'll miss Boo the most. Let's get outta this place, I'm getting sick just standing here...~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN minyah5
	SAY @1419
	IF ~~ THEN EXIT
END
END
	
	
 

CHAIN IMOEN2J IMMR1newcha
@4918 // ~It's good to see familiar faces...~
== IMOEN2J IF ~IsValidForPartyDialog("Jaheira")~ THEN @4919 // ~Jaheira! How're ya doin', any improvement to your temper?~
== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira")~ THEN @4920 // ~... It's... a relief to see you are well, Imoen.~
== IMOEN2J IF ~IsValidForPartyDialog("Jaheira")~ THEN @4921 // ~Yeah... I missed you too.~
== IMOEN2J IF ~IsValidForPartyDialog("Minsc")~ THEN @4922 // ~Hey, Minsc, glad to see you're still with us...! And little Boo too, heheh...~
== MINSCJ IF ~IsValidForPartyDialog("Minsc")~ THEN @4923 // ~Boo knew you would be alright! He has been sad without little Imoen, but now everything is good and well and Boo is happy again!~
== IMOEN2J IF ~IsValidForPartyDialog("Minsc")~ THEN @4924 // ~Sure Minsc... sure it was only Boo, heh...~
== IMOEN2J IF ~IsValidForPartyDialog("Viconia")~ THEN @4925 // ~Hmm, but... who's that? A drow in the party, <CHARNAME>...? It could only be... Viconia!~
== IMOEN2J IF ~IsValidForPartyDialog("Viconia")~ THEN @4926 // ~Oh, Viconia! You look quite different from last time I saw you... did you dye your hair or something?~
== VICONIJ IF ~IsValidForPartyDialog("Viconia")~ THEN @4927 // ~I could ask almost the same question, girl.~
== IMOEN2J IF ~IsValidForPartyDialog("Viconia")~ THEN @4928 // ~Oh, yeah...! I changed my haircut in Baldur's Gate, after the 'incident'. You weren't with us any more at that point I recall... you like it? It fits me better, dontcha think?~
== VICONIJ IF ~IsValidForPartyDialog("Viconia")~ THEN @4929 // ~(Viconia snorts and ignores Imoen, her interest in the matter completely lost already.)~
== IMOEN2J IF ~IsValidForPartyDialog("Viconia")~ THEN @4930 // ~Oh well, you haven't changed much, heh... it's good to see you again nevertheless.~
== IMOEN2J IF ~Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5042 // ~Hmmm... red clothes... lotsa weird piercings... and that "I'm-better-than-you" look... just who are you, woman? You remind me of someone but... I can't really tell...~
== EDWINJ IF ~Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5043 // ~I am no one that you know of, brat. Leave me alone.~
== IMOEN2J IF ~Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5044 // ~Oh... (Imoen's suspicious look turns into one of disbelief as a crazy idea grows in her mind) oh, oh my! You're... no, it just can't be, it's impossible...~
== AERIEJ IF ~IsValidForPartyDialog("Aerie") Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5045 // ~(Aerie giggles) It... it *is* possible I fear, Imoen...~
== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira") !IsValidForPartyDialog("Aerie") Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5046 // ~I fear it *is* possible indeed, Imoen... "she" is Edwin.~
== VICONIJ IF ~IsValidForPartyDialog("Viconia") !IsValidForPartyDialog("Jaheira") !IsValidForPartyDialog("Aerie") Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5047 // ~This wretch you see here is indeed who you think "she" is, girl.~
== VALYGARJ IF ~IsValidForPartyDialog("Valygar") !IsValidForPartyDialog("Viconia") !IsValidForPartyDialog("Jaheira") !IsValidForPartyDialog("Aerie") Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5048 // ~"She" is the mage known as Edwin before his unfortunate... 'incident', Imoen.~
== IMOEN2J IF ~Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5049 // ~... Edwin? Is-- is that you? (Imoen can hardly hold her laughter.)~
== EDWINJ IF ~Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5050 // ~No I'm NOT! Stop PESTERING ME, girl!!~
== IMOEN2J IF ~Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5051 // ~(She finally bursts laughing) Ooohh, it's *really* you!! Just-- just WHAT happened!?~
== EDWINJ IF ~Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5052 // ~None of your business, annoying brat!! I should have stabbed your back when I had the chance back there!~
== IMOEN2J IF ~Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5053 // ~(Imoen ignores the mage's yells) Oh but Edwin, you are *so* attractive now! How many hearts have you broken already, hotty one? I'm sure every man sighs and drools when you pass by, hehehee!~
== EDWINJ IF ~Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5054 // ~AGH! Leave me be!! (The mage steps away from Imoen, muttering to him -or rather her- self...)~
== IMOEN2J IF ~Gender("Edwin",FEMALE) IsValidForPartyDialog("Edwin")~ THEN @5055 // ~Oh I'm SO gonna enjoy this...~
== IMOEN2J IF ~Gender("Edwin",MALE) IsValidForPartyDialog("Edwin")~ THEN @4931 // ~... red clothes... weird piercings... strange beard... and that "I'm-better-than-you" look...~
== IMOEN2J IF ~Gender("Edwin",MALE) IsValidForPartyDialog("Edwin")~ THEN @4932 // ~Edwin. (Imoen sighs) Still with nothing better to do than following <CHARNAME> in <PRO_HISHER> crazy quests, you mad wizard?~
== EDWINJ IF ~Gender("Edwin",MALE) IsValidForPartyDialog("Edwin")~ THEN @4933 // ~Better watch your tongue, brat. Without my outstanding abilities you would surely be still rotting in that cell. Show some respect for your superiors.~
== IMOEN2J IF ~Gender("Edwin",MALE) IsValidForPartyDialog("Edwin")~ THEN @4934 // ~Hahah! You're plain *cute*, Edwin! I think this is the beginning of a *great* friendship between you and me, really!~
== EDWINJ IF ~Gender("Edwin",MALE) IsValidForPartyDialog("Edwin")~ THEN @4935 // ~Hmpf... (As if you would allow that to happen...)~
== IMOEN2J IF ~Gender("Edwin",MALE) IsValidForPartyDialog("Edwin")~ THEN @4936 // ~Huh, did you say something, Edwiney?~
== EDWINJ IF ~Gender("Edwin",MALE) IsValidForPartyDialog("Edwin")~ THEN @4937 // ~That I should have stabbed your back when I had the opportunity back there, annoying brat!~
== IMOEN2J IF ~Gender("Edwin",MALE) IsValidForPartyDialog("Edwin")~ THEN @4938 // ~Oh, and now you are just flattering me! You're sooooo cute...~
END IMOEN2J IMMR2new





APPEND IMOEN2J
IF ~~ THEN BEGIN SUMR7g
	SAY @1036
	IF ~~ THEN REPLY @1037 DO ~SetGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7h
	IF ~~ THEN REPLY @1038 EXIT
END

IF ~~ THEN BEGIN IMMR2new
	SAY @4939 // ~Oh well... travelling together once again. Let's see what happens...~
	IF ~~ THEN EXIT
	IF ~!InParty("Jaheira") !InParty("Minsc")~ THEN GOTO IMMRwhat
END


IF ~~ THEN BEGIN IMMRfuckyou
	SAY @1398
	=
	@1399
	IF ~~ THEN DO ~SetGlobal("KindnessCounter","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN SUMR7b7
	SAY @1400
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN IMMRyeah
	SAY @1401
	IF ~~ THEN GOTO IMMRyeah2
	IF ~OR(4)
	IsValidForPartyDialog("Jaheira")
	IsValidForPartyDialog("Viconia")
	IsValidForPartyDialog("Edwin")
	IsValidForPartyDialog("Minsc")~ THEN GOTO IMMR1newcha
	IF ~!InParty("Jaheira") !InParty("Minsc") !IsValidForPartyDialog("Viconia") !IsValidForPartyDialog("Edwin")~ THEN GOTO IMMRwhat
END

IF ~~ THEN BEGIN IMMRyeah2
	SAY @1402
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN IMMRwhat
	SAY @1403
	IF ~~ THEN REPLY @1404 GOTO IMMRwhat1
	IF ~~ THEN REPLY @1405 GOTO IMMRwhat2
	IF ~~ THEN REPLY @1406 GOTO IMMRwhat3
END

IF ~~ THEN BEGIN IMMRwhat1
	SAY @1407
	=
	@1408
	=
	@1409
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN IMMRwhat3
	SAY @1410
	=
	@1411
	IF ~Gender(Player1,MALE)~ THEN GOTO AMAMAMR
	IF ~Gender(Player1,FEMALE)~ THEN GOTO EMEMEMR
END

IF ~~ THEN BEGIN AMAMAMR
	SAY @1412
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN EMEMEMR
	SAY @1413
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN IMMRwhat2
	SAY @1414
	=
	@1415
	IF ~~ THEN REPLY @1416 GOTO IMMRwhat2a
	IF ~~ THEN REPLY @1417 GOTO IMMRwhat2b
	IF ~~ THEN REPLY @1418 GOTO IMMRwhat2c
END

IF ~~ THEN BEGIN IMMRwhat2a
	SAY @1419
	=
	@1420
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN IMMRwhat2b
	SAY @1421
	=
	@1422
	=
	@1423
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN IMMRwhat2c
	SAY @1424
	=
	@1425
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SUMR7e
	SAY @1426
	IF ~~ THEN REPLY @1427 GOTO SUMR7f
	IF ~~ THEN REPLY @1038 EXIT
END
END

APPEND PLAYER1
IF ~~ THEN BEGIN IMMR2
	SAY @1428
	IF ~IsValidForPartyDialog("Aerie")
	Global("AerieRomanceActive","GLOBAL",2)
	!Global("TTTMR1","LOCALS",1)~ THEN REPLY @1429 DO ~SetGlobal("TTTMR1","LOCALS",1)~ EXTERN AERIEJ IMMR3
	IF ~IsValidForPartyDialog("Aerie")
	!Global("AerieRomanceActive","GLOBAL",2)
	!Global("TTTMR1","LOCALS",1)~ THEN REPLY @1430 DO ~SetGlobal("TTTMR1","LOCALS",1)~ EXTERN AERIEJ IMMR3
	IF ~IsValidForPartyDialog("Korgan")
	!Global("TTTMR2","LOCALS",1)~ THEN REPLY @1431 DO ~SetGlobal("TTTMR2","LOCALS",1)~ EXTERN KORGANJ IMMR4
	IF ~IsValidForPartyDialog("Nalia")
	!Global("TTTMR3","LOCALS",1)~ THEN REPLY @1432 DO ~SetGlobal("TTTMR3","LOCALS",1)~ EXTERN NALIAJ IMMR5
	IF ~IsValidForPartyDialog("Jan")
	!Global("TTTMR4","LOCALS",1)~ THEN REPLY @1433 DO ~SetGlobal("TTTMR4","LOCALS",1)~ EXTERN JANJ IMMR6
	IF ~IsValidForPartyDialog("Keldorn")
	!Global("TTTMR5","LOCALS",1)~ THEN REPLY @1434 DO ~SetGlobal("TTTMR5","LOCALS",1)~ EXTERN KELDORJ IMMR7
	IF ~IsValidForPartyDialog("HaerDalis")
	!Global("TTTMR6","LOCALS",1)~ THEN REPLY @1435 DO ~SetGlobal("TTTMR6","LOCALS",1)~ EXTERN HAERDAJ IMMR8
	IF ~IsValidForPartyDialog("Anomen")
	Global("AnomenRomanceActive","GLOBAL",2)
	!Global("TTTMR7","LOCALS",1)~ THEN REPLY @1436 DO ~SetGlobal("TTTMR7","LOCALS",1)~ EXTERN ANOMENJ IMMR9
	IF ~IsValidForPartyDialog("Anomen")
	!Global("AnomenRomanceActive","GLOBAL",2)
	!Global("TTTMR7","LOCALS",1)~ THEN REPLY @1437 DO ~SetGlobal("TTTMR7","LOCALS",1)~ EXTERN ANOMENJ IMMR9
	IF ~IsValidForPartyDialog("Cernd")
	!Global("TTTMR8","LOCALS",1)~ THEN REPLY @1438 DO ~SetGlobal("TTTMR8","LOCALS",1)~ EXTERN CERNDJ IMMR10
	IF ~IsValidForPartyDialog("Valygar")
	!Global("TTTMR9","LOCALS",1)~ THEN REPLY @1439 DO ~SetGlobal("TTTMR9","LOCALS",1)~ EXTERN VALYGARJ IMMR11
	IF ~IsValidForPartyDialog("Mazzy")
	!Global("TTTMR10","LOCALS",1)~ THEN REPLY @1440 DO ~SetGlobal("TTTMR10","LOCALS",1)~ EXTERN MAZZYJ IMMR12
	IF ~OR(4)
	IsValidForPartyDialog("Minsc")
	IsValidForPartyDialog("Jaheira")
	IsValidForPartyDialog("Viconia")
	IsValidForPartyDialog("Edwin")~ THEN REPLY @1441 EXTERN IMOEN2J IMMRyeah
	IF ~!IsValidForPartyDialog("Minsc")
	!IsValidForPartyDialog("Jaheira")
	!IsValidForPartyDialog("Viconia")
	!IsValidForPartyDialog("Edwin")~ THEN REPLY @1442 EXTERN IMOEN2J IMMRwhat
	END


IF ~~ THEN BEGIN IMMR8a
	SAY @1443
	IF ~~ THEN GOTO IMMR2
END
END


// *** presentations ***

APPEND AERIEJ
	IF ~~ THEN BEGIN IMMR3
	SAY @1444
	IF ~~ THEN EXTERN PLAYER1 IMMR2
	END
END

APPEND KORGANJ
	IF ~~ THEN BEGIN IMMR4
	SAY @1445
	IF ~~ THEN EXTERN PLAYER1 IMMR2
	END
END

APPEND NALIAJ
	IF ~~ THEN BEGIN IMMR5
	SAY @1446
	IF ~~ THEN EXTERN PLAYER1 IMMR2
	END
END

APPEND JANJ
	IF ~~ THEN BEGIN IMMR6
	SAY @1447
	IF ~~ THEN EXTERN PLAYER1 IMMR2
	END
END

APPEND KELDORJ
	IF ~~ THEN BEGIN IMMR7
	SAY @1448
	IF ~~ THEN EXTERN PLAYER1 IMMR2
	END
END

APPEND HAERDAJ
	IF ~~ THEN BEGIN IMMR8
	SAY @1449
	IF ~~ THEN EXTERN PLAYER1 IMMR8a
	END
END

APPEND ANOMENJ
	IF ~~ THEN BEGIN IMMR9
	SAY @1450
	IF ~~ THEN EXTERN PLAYER1 IMMR2
	END
END

APPEND CERNDJ
	IF ~~ THEN BEGIN IMMR10
	SAY @1451
	IF ~~ THEN EXTERN PLAYER1 IMMR2
	END
END

APPEND VALYGARJ
	IF ~~ THEN BEGIN IMMR11
	SAY @1452
	IF ~~ THEN EXTERN PLAYER1 IMMR2
	END
END

APPEND MAZZYJ
	IF ~~ THEN BEGIN IMMR12
	SAY @1453
	IF ~~ THEN EXTERN PLAYER1 IMMR2
	END
END



// *** LOVING EACH OTHER ***

APPEND IMOEN2J
IF ~~ THEN BEGIN LUVMR0
	SAY @1464 
	=
	@1465
	=
	@1466
	IF ~~ THEN REPLY @1467 GOTO LUVMR0a
	IF ~~ THEN REPLY @1468 EXIT
	IF ~~ THEN REPLY @1469 GOTO LUVMR0b
	IF ~~ THEN REPLY @1470 GOTO LUVMR0c
END

IF ~~ THEN BEGIN LUVMR0a
	SAY @1471
	=
	@1472
	IF ~~ THEN REPLY @1473 GOTO 0a1
	IF ~~ THEN REPLY @1474 GOTO 0a2
	IF ~~ THEN REPLY @1475 GOTO 0a3
	IF ~~ THEN REPLY @1476 GOTO 0a4
	IF ~~ THEN REPLY @1477 GOTO 0a5
END

IF ~~ THEN BEGIN 0a1
	SAY @1478
	IF ~~ THEN GOTO 0a1a
END

IF ~~ THEN BEGIN 0a2
	SAY @1479
	IF ~~ THEN GOTO 0a1a
END

IF ~~ THEN BEGIN 0a4
	SAY @1480
	=
	@1481
	=
	@1482
	IF ~~ THEN GOTO 0a1a
END

IF ~~ THEN BEGIN 0a1a
	SAY @1483
	IF ~~ THEN REPLY @1484 GOTO 0a1a1
	IF ~~ THEN REPLY @1485 GOTO 0a1a2
	IF ~IsValidForPartyDialog("Aerie")~ THEN REPLY @1486 GOTO 0a1a3
	IF ~~ THEN REPLY @1487 GOTO 0a5
	IF ~~ THEN REPLY @1488 GOTO 0a3
END

IF ~~ THEN BEGIN 0a1a1
	SAY @1489
	=
	@1490
	=
	@1491
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 0a1a2
	SAY @1492 = @1493 = @1494 = @1495 = @1496 = @1497
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 0a1a3
	SAY @1498 = @1499 = @1500 = @1501
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SUMR7b16
	SAY @1502
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN 0a3
	SAY @1503
	=
	@1504
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 0a5
	SAY @1505
	=
	@1506
	IF ~~ THEN EXIT
END
 
IF ~~ THEN BEGIN LUVMR0b
	SAY @1507
	=
	@1508
	IF ~~ THEN REPLY @1509 GOTO 0b1
	IF ~~ THEN REPLY @1510 GOTO 0b2
	IF ~~ THEN REPLY @1511 GOTO LUVMR0c
	IF ~~ THEN REPLY @1512 EXIT
END

IF ~~ THEN BEGIN 0b1
	SAY @1513
	=
	@1514
	=
	@1515
	IF ~~ THEN REPLY @1516 GOTO 0b1a
	IF ~~ THEN REPLY @1517 GOTO 0b1b
	IF ~~ THEN REPLY @1518 GOTO 0b1c
END

IF ~~ THEN BEGIN 0b1a
	SAY @1519
	=
	@1520
	=
	@1521
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 0b1b
	SAY @1522
	=
	@1523
	=
	@1524
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 0b1c
	SAY @1525  
	=
	@1526
	=
	@1521
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 0b2
	SAY @1527
	=
	@1528
	IF ~~ THEN REPLY @1529 GOTO 0b1a
	IF ~~ THEN REPLY @1530 GOTO 0b1b
	IF ~ReputationGT(Player1,13)
	Gender(Player1,MALE)~ THEN REPLY @1531 GOTO 0b2a
	IF ~ReputationGT(Player1,13)
	Gender(Player1,FEMALE)~ THEN REPLY @1531 GOTO 0b2af
	IF ~!ReputationGT(Player1,13)
	Gender(Player1,MALE)~ THEN REPLY @1531 GOTO 0b2b
	IF ~!ReputationGT(Player1,13)
	Gender(Player1,FEMALE)~ THEN REPLY @1531 GOTO 0b2bf
	IF ~~ THEN REPLY @1532 GOTO 0b2c
END

IF ~~ THEN BEGIN 0b2a
	SAY @1533
	IF ~~ THEN REPLY @1534 GOTO 0b2a1
	IF ~~ THEN REPLY @1535 GOTO 0b1b
	IF ~~ THEN REPLY @1532 GOTO 0b2c
END

IF ~~ THEN BEGIN 0b2af
	SAY @1536
	IF ~~ THEN REPLY @1534 GOTO 0b2a1
	IF ~~ THEN REPLY @1535 GOTO 0b1b
	IF ~~ THEN REPLY @1532 GOTO 0b2c
END


IF ~~ THEN BEGIN 0b2b
	SAY @1537
	IF ~~ THEN REPLY @1534 GOTO 0b2a1
	IF ~~ THEN REPLY @1535 GOTO 0b1b
	IF ~~ THEN REPLY @1532 GOTO 0b2c
END

IF ~~ THEN BEGIN 0b2bf
	SAY @1538
	IF ~~ THEN REPLY @1534 GOTO 0b2a1
	IF ~~ THEN REPLY @1535 GOTO 0b1b
	IF ~~ THEN REPLY @1532 GOTO 0b2c
END

IF ~~ THEN BEGIN 0b2a1
	SAY @1539
	IF ~~ THEN REPLY @1540 GOTO 0b2a2
	IF ~~ THEN REPLY @1535 GOTO 0b1b
	IF ~~ THEN REPLY @1532 GOTO 0b2c
END

IF ~~ THEN BEGIN 0b2a2	
	SAY @1541
	IF ~~ THEN REPLY @1542 GOTO 0b2a3
END

IF ~~ THEN BEGIN 0b2a3
	SAY @1543 = @1544 = @1545 = @1546 = @1547 = @1548 = @1549 
	IF ~~ THEN REPLY @1550 GOTO 0b2a3a
	IF ~~ THEN REPLY @1551 GOTO 0b2a3b
	IF ~~ THEN REPLY @1552 GOTO 0b2a3c
END

IF ~~ THEN BEGIN 0b2a3a
	SAY @1553
	=
	@1554
	=
	@1555
	=
	@1556
	=
	@1557
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 0b2a3b
	SAY @1558
	=
	@1559
	=
	@1560
	=
	@1561
	=
	@1562
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 0b2a3c
	SAY @1558
	=
	@1563
	=	
	@1564
	=
	@1565
	=
	@1562
	IF ~~ THEN EXIT
END


IF ~~ THEN BEGIN 0b2c
	SAY @1566
	IF ~Gender(Player1,MALE)~ THEN GOTO 0b2cMALE
	IF ~Gender(Player1,FEMALE)~ THEN GOTO 0b2cFEMALE
END

IF ~~ THEN BEGIN 0b2cMALE
	SAY @1567
	IF ~~ THEN GOTO 0b2cGEN
END

IF ~~ THEN BEGIN 0b2cFEMALE
	SAY @1568
	IF ~~ THEN GOTO 0b2cGEN
END

IF ~~ THEN BEGIN 0b2cGEN
	SAY @1569
	=
	@1570
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR0c
	SAY @1571
	=
	@1572
	=
	@1573
	=
	@4910
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))
	ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LuvCut1")~
	EXIT
END
END

APPEND PLAYER1
IF ~Global("ImoenUnconsciousMR","GLOBAL",1)~ THEN BEGIN 0c1
	SAY @1574
	IF ~~ THEN DO ~SetGlobal("ImoenUnconsciousMR","GLOBAL",2)~ GOTO 0c2ext
END

IF ~~ THEN BEGIN 0c2
	SAY @1575
	IF ~~ THEN REPLY @1576 EXIT
	IF ~~ THEN REPLY @1577 EXIT
	IF ~~ THEN REPLY @1578 EXIT
END
END

CHAIN PLAYER1 0c2ext
	@1579
	== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira")~ THEN @1580
	== AERIEJ IF ~IsValidForPartyDialog("Aerie")~ THEN @1581
	== JANJ IF ~IsValidForPartyDialog("Jan")~ THEN @1582
	== VICONIJ IF ~IsValidForPartyDialog("Viconia")~ THEN @1583
	== MINSCJ IF ~IsValidForPartyDialog("Minsc")~ THEN @1584
	== NALIAJ IF ~IsValidForPartyDialog("Nalia")~ THEN @1585
	== KELDORJ IF ~IsValidForPartyDialog("Keldorn")~ THEN @1586
	== MAZZYJ IF ~IsValidForPartyDialog("Mazzy")~ THEN @1587
END PLAYER1 0c2

APPEND IMOEN2J
IF WEIGHT #514
~Global("ImoenUnconsciousMR","GLOBAL",3)~ THEN BEGIN 0c3
	SAY @1588
	IF ~~ THEN DO ~SetGlobal("ImoenUnconsciousMR","GLOBAL",4) ActionOverride(Player1,SetDialog("Player1"))~ GOTO 0c3caca
END

IF ~~ THEN BEGIN SUMR7b12
	SAY @1589
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN 0c3caca
	SAY @1590
	=
	@1591 
	IF ~~ THEN REPLY @1592 GOTO 0c3c
	IF ~~ THEN REPLY @1593 GOTO 0c3b
	IF ~~ THEN REPLY @1594 DO ~ActionOverride(Player1,ApplySpellRES("SPMRACCN",Player1))~GOTO 0c3a 
	IF ~IsValidForPartyDialog("Aerie")~ THEN REPLY @1595 EXTERN AERIEJ 0c3lies
END

IF ~~ THEN BEGIN 0c3a
	SAY @1596
	=
	@1597
	=
	@1598
	IF ~~ THEN REPLY @1599 GOTO 0c3aDirtyLiar
	IF ~~ THEN REPLY @1600 GOTO 0c3c
	IF ~~ THEN REPLY @1601 GOTO 0c3b
	IF ~IsValidForPartyDialog("Aerie")~ THEN REPLY @1602 EXTERN AERIEJ 0c3lies
END

IF ~~ THEN BEGIN 0c3aDirtyLiar
	SAY @1603
	=
	@1604
	=
	@1605
	IF ~~ THEN DO ~ActionOverride(Player1,ApplySpellRES("SPMRACNE",Player1)) ReputationInc(-3)~ EXIT
END
	
IF ~~ THEN BEGIN 0c3b
	SAY @1606
	=
	@1607
	=
	@1608
	=
	@1609
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3) ActionOverride(Player1,ApplySpellRES("SPMRACNE",Player1)) ReputationInc(-3)~ EXIT
END

IF ~~ THEN BEGIN 0c3c
	SAY @1610
	=
	@1611
	=
	@1612
	=
	@1613
	IF ~~ THEN DO ~ReputationInc(-1) ActionOverride(Player1,ApplySpellRES("SPMRACCN",Myself))~ EXIT
END


// *****************************************************

IF ~~ THEN BEGIN LUVMR1
	SAY @1614 
	IF ~~ THEN REPLY @1615 GOTO LUVMR1b
	IF ~~ THEN REPLY @1616 GOTO LUVMR1d
	IF ~~ THEN REPLY @1617 GOTO LUVMR1b
	IF ~~ THEN REPLY @1618 GOTO LUVMR1c
	IF ~~ THEN REPLY @1619 GOTO LUVMR1b
	IF ~~ THEN REPLY @1620 GOTO LUVMR1a
END

IF ~~ THEN BEGIN LUVMR1a
	SAY @1621
	=
	@1622
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR1b
	SAY @1623
	=
	@1624
	=
	@1625
	IF ~~ THEN REPLY @1626 GOTO 1b1
	IF ~~ THEN REPLY @1627 GOTO 1b2
	IF ~~ THEN REPLY @1628 GOTO LUVMR1a
END

IF ~~ THEN BEGIN 1b1
	SAY @1629
	=
	@1630
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 1b2
	SAY @1631
	=
	@1630
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR1c
	SAY @1632
	=
	@1633
	=
	@1634
	=
	@1635
	=
	@1624
	=
	@1625
	IF ~~ THEN REPLY @1636 GOTO 1c1
	IF ~~ THEN REPLY @1627 GOTO 1c2
	IF ~~ THEN REPLY @1637 GOTO LUVMR1a
END

IF ~~ THEN BEGIN 1c1
	SAY @1638
	=
	@1630
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 1c2
	SAY @1639
	=
	@1640
	=
	@1630
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR1d
	SAY @1641
	=
	@1642
	=
	@1643
	=
	@1624
	=
	@1644
	IF ~~ THEN REPLY @1645 GOTO 1b1
	IF ~~ THEN REPLY @1627 GOTO 1b2
	IF ~~ THEN REPLY @1646 GOTO 1d1
END

IF ~~ THEN BEGIN 1d1
	SAY @1647
	IF ~~ THEN REPLY @1648 GOTO 1d1a
	IF ~~ THEN REPLY @1649 GOTO LUVMR1a
END

IF ~~ THEN BEGIN 1d1a
	SAY @1650
	=
	@1630
	IF ~~ THEN EXIT
END


// *****************************************************

IF ~~ THEN BEGIN LUVMR2
	SAY @1651 
	IF ~~ THEN REPLY @1652 GOTO LUVMR2a
	IF ~~ THEN REPLY @1653 GOTO LUVMR2b
	IF ~~ THEN REPLY @1654 GOTO LUVMR2c
	IF ~~ THEN REPLY @1655 GOTO LUVMR2a
	IF ~~ THEN REPLY @1656 GOTO LUVMR2e
END

IF ~~ THEN BEGIN LUVMR2a
	SAY @1657
	=
	@1658
	=
	@1659
	=
	@1660
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR2b
	SAY @1661
	=
	@1662
	=
	@1663
	=
	@1664
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR2c
	SAY @1665
	=
	@1666
	=
	@1667
	=
	@1668
	=
	@1669
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR2e
	SAY @1670	
	=
	@1671
	=
	@1672	
	=
	@1673
	=
	@1674
	IF ~~ THEN EXIT
END

// *****************************************************

IF ~~ THEN BEGIN LUVMR3
	SAY @1675 
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR3next
END

IF ~~ THEN BEGIN LUVMR3next
	SAY @1676
	=
	@1677
	IF ~~ THEN REPLY @1678 GOTO LUVMR3e
	IF ~~ THEN REPLY @1679 GOTO LUVMR3d
	IF ~~ THEN REPLY @1680 GOTO LUVMR3c
	IF ~~ THEN REPLY @1681 GOTO LUVMR3b
	IF ~~ THEN REPLY @1682 GOTO LUVMR3a
END

IF ~~ THEN BEGIN LUVMR3a
	SAY @1683
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR3b
	SAY @1684
	IF ~~ THEN GOTO LUVMR3d
END

IF ~~ THEN BEGIN LUVMR3e
	SAY @1685
	=
	@1686
	IF ~~ THEN GOTO LUVMR3d
END

IF ~~ THEN BEGIN LUVMR3d
	SAY @1687
	=
	@1688
	IF ~~ THEN REPLY @1689 GOTO 3b4
	IF ~~ THEN REPLY @1690 GOTO 3b3
	IF ~~ THEN REPLY @1691 GOTO 3b2
	IF ~~ THEN REPLY @1692 GOTO 3b1
END

IF ~~ THEN BEGIN 3b1
	SAY @1693
	=
	@1694
	IF ~~ THEN REPLY @1695 GOTO 3b1a
	IF ~~ THEN REPLY @1696 GOTO 3b1b
END
	
IF ~~ THEN BEGIN 3b1a
	SAY @1697
	=
	@1698
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 3b1b
	SAY @1699
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 3b2
	SAY @444
	=
	@1700
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 3b3
	SAY @1701
	IF ~~ THEN REPLY @1702 GOTO 3b4
	IF ~~ THEN REPLY @1703 GOTO 3b2
END

IF ~~ THEN BEGIN LUVMR3c
	SAY @1704
	=
	@1705
	=
	@1706
	=
	@1707
	IF ~~ THEN GOTO 3b4
END

IF ~~ THEN BEGIN 3b4
	SAY @1708
	=
	@1709
	=
	@1710
	=
	@1711
	IF ~~ THEN REPLY @1712 GOTO 3b4a
	IF ~~ THEN REPLY @1713 GOTO 3b4b
	IF ~~ THEN REPLY @1714 GOTO 3b4a
	IF ~~ THEN REPLY @1715 GOTO 3b4c
	IF ~~ THEN REPLY @1716 GOTO 3b4d
END

IF ~~ THEN BEGIN 3b4a
	SAY @1717
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO 3b4aquq
END

IF ~~ THEN BEGIN 3b4aquq
   SAY @1718
	IF ~NumInPartyGT(2)~ THEN EXTERN PLAYER1 3good5
	IF ~!NumInPartyGT(2)~ THEN EXTERN PLAYER1 3good5a
END

IF ~~ THEN BEGIN 3b4b
	SAY @1719
	=
	@1720
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO 3b4bquq
END

IF ~~ THEN BEGIN 3b4bquq
   SAY @1721
	IF ~NumInPartyGT(2)~ THEN REPLY @1722 EXTERN PLAYER1 3good5
	IF ~!NumInPartyGT(2)~ THEN REPLY @1722 EXTERN PLAYER1 3good5a
	IF ~~ THEN REPLY @1716 GOTO 3b4d
END

IF ~~ THEN BEGIN 3b4d
	SAY @1723
	IF ~NumInPartyGT(2)~ THEN REPLY @1724 GOTO 3b4d2
	IF ~!NumInPartyGT(2)~ THEN REPLY @1725 GOTO 3b4d2
	IF ~~ THEN REPLY @1726 GOTO 3b4d1
END

IF ~~ THEN BEGIN 3b4d1
	SAY @1727
	=
	@1728
	IF ~~ THEN DO ~RestParty()~ EXIT
END

IF ~~ THEN BEGIN 3b4d2
	SAY @1729
	=
	@1730
	IF ~~ THEN DO ~RestParty()~ EXIT
END

IF ~~ THEN BEGIN 3b4c
	SAY @1731
	IF ~~ THEN REPLY @1732 GOTO 3b4a
	IF ~~ THEN REPLY @1733 GOTO 3b4c1
END

IF ~~ THEN BEGIN 3b4c1
	SAY @1734
	=
	@1735
	=
	@1736
	=
	@1737
	IF ~~ THEN REPLY @1738 GOTO 3b4c1c
	IF ~~ THEN REPLY @1739 GOTO 3b4c1b
	IF ~~ THEN REPLY @1740 GOTO 3b4c1a
END

IF ~~ THEN BEGIN 3b4c1a
	SAY @1741
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO 3b4chungo
END

IF ~~ THEN BEGIN 3b4chungo
	SAY @1742
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXTERN PLAYER1 3b4chungo2
	IF ~IsValidForPartyDialog("Nalia")~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXTERN NALIAJ 3b4chungocha1
	IF ~IsValidForPartyDialog("Viconia")~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXTERN VICONIJ 3b4chungocha2
	IF ~IsValidForPartyDialog("Jaheira")~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXTERN JAHEIRAJ 3b4chungocha3
	IF ~IsValidForPartyDialog("Aerie")~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXTERN AERIEJ 3b4chungocha4
END
END

CHAIN NALIAJ 3b4chungocha1
@2131
END PLAYER1 3b4chungo2

CHAIN VICONIJ 3b4chungocha2
@2132
END PLAYER1 3b4chungo2

CHAIN JAHEIRAJ 3b4chungocha3
@2131
END PLAYER1 3b4chungo2

CHAIN AERIEJ 3b4chungocha4
@2131
END PLAYER1 3b4chungo2


APPEND IMOEN2J
IF ~~ THEN BEGIN 3b4c1b
	SAY @1743
	=
	@1744
	=
	@1745
	=
	@1746
	IF ~~ THEN DO ~RestParty()~ EXIT
END

IF ~~ THEN BEGIN 3b4c1c
	SAY @1747
	IF ~~ THEN REPLY @1748 GOTO 3good1
END

IF ~~ THEN BEGIN 3good1
	SAY @1749
	IF ~~ THEN REPLY @1750 GOTO 3good2
	IF ~~ THEN REPLY @1751 GOTO 3b4c1b
	IF ~~ THEN REPLY @1752 GOTO 3b4chungo
END

IF ~~ THEN BEGIN 3good2
	SAY @1753
	IF ~~ THEN REPLY @1754 DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO 3good3
	IF ~~ THEN REPLY @1755 GOTO 3b4c1b
END

IF ~~ THEN BEGIN 3good3
	SAY @1756 
	IF ~~ THEN EXTERN PLAYER1 3good4
END

CHAIN2 PLAYER1 3good4
@1757
==
@1758
=
@1759
=
@1760
=
@1761
=
@1762
END IMOEN2J 3good4a

IF ~~ THEN BEGIN 3good4a
	SAY @1763
	IF ~NumInPartyGT(2)~ THEN EXTERN PLAYER1 3good5
	IF ~!NumInPartyGT(2)~ THEN EXTERN PLAYER1 3good5a
END


// ***************************************************** 

IF ~~ THEN BEGIN LUVMR4
	SAY @1764 
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR4next
END

IF ~~ THEN BEGIN LUVMR4next
	SAY @1765
	=
	@1766
	IF ~~ THEN REPLY @1767 GOTO LUVMR4a 
	IF ~~ THEN REPLY @1768 GOTO LUVMR4b
	IF ~~ THEN REPLY @1769 GOTO LUVMR4c
END

IF ~~ THEN BEGIN LUVMR4a
	SAY @1770
	IF ~~ THEN EXTERN PLAYER1 LUVMR4aSelf
END

IF ~~ THEN BEGIN LUVMR4b
	SAY @1771
	=
	@1772
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR4c
	SAY @1773
	IF ~~ THEN EXIT
END

// *****************************************************

IF ~~ THEN BEGIN LUVMR5
	SAY @1774 
	=
	@1775
	IF ~~ THEN REPLY @1776 GOTO LUVMR5d
	IF ~~ THEN REPLY @1777 GOTO LUVMR5c
	IF ~~ THEN REPLY @1778 GOTO LUVMR5c
	IF ~~ THEN REPLY @1779 GOTO LUVMR5b
	IF ~~ THEN REPLY @1780 GOTO LUVMR5a
END

IF ~~ THEN BEGIN LUVMR5a
	SAY @1781
	IF ~~ THEN REPLY @1782 GOTO LUVMR5d
	IF ~~ THEN REPLY @1783 GOTO LUVMR5c
	IF ~~ THEN REPLY @1784 GOTO LUVMR5b
	IF ~~ THEN REPLY @1785 GOTO 5a1
END

IF ~~ THEN BEGIN 5a1
	SAY @1786
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR5b
	SAY @1787
	IF ~~ THEN REPLY @1782 GOTO LUVMR5d
	IF ~~ THEN REPLY @1783 GOTO LUVMR5c
	IF ~~ THEN REPLY @1784 GOTO LUVMR5b
	IF ~~ THEN REPLY @1785 GOTO 5a1
END

IF ~~ THEN BEGIN LUVMR5c
	SAY @1788
	=
	@1789
	=
	@1790
	=
	@1791
	=
	@1792
	IF ~~ THEN REPLY @1782 GOTO LUVMR5d
	IF ~~ THEN REPLY @1785 GOTO 5a1
END

IF ~~ THEN BEGIN LUVMR5d
	SAY @1793
	=
	@1794
	=
	@1795
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR5dnew
END

IF ~~ THEN BEGIN LUVMR5dnew
	SAY @1796
	IF ~~ THEN DO ~RealSetGlobalTimer("GetARoomCharnameMR","GLOBAL",300)
	SetGlobal("GonnaRestMR","GLOBAL",1)
	ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 5dgood
END

IF ~Global("GetARoomCharnameAtOnceMR","GLOBAL",1)~ THEN BEGIN 5dtime
	SAY @1797
	=
	@1798
	IF ~~ THEN DO ~SetGlobal("GetARoomCharnameAtOnceMR","GLOBAL",2)~ EXIT
END

IF WEIGHT #100 ~Global("GonnaRestMR","GLOBAL",2)~ THEN BEGIN LUVMR5NEWMR1
	SAY @1799
	=
	@1800
	=
	@1801
	IF ~~ THEN DO ~SetGlobal("GonnaRestMR","GLOBAL",0)~ EXIT
END

// *****************************************************

IF ~~ THEN BEGIN LUVMR6
	SAY @1802
	=
	@1803 
	=
	@1804
	IF ~~ THEN REPLY @1805 GOTO LUVMR6b
	IF ~~ THEN REPLY @1806 GOTO LUVMR6a
END

IF ~~ THEN BEGIN LUVMR6a
	SAY @1807
	IF ~~ THEN REPLY @1808 GOTO LUVMR6b
	IF ~~ THEN REPLY @1809 GOTO LUVMR6b
END

IF ~~ THEN BEGIN LUVMR6b
	SAY @1810
	=
	@1811
	IF ~~ THEN REPLY @1812 GOTO 6c2
	IF ~~ THEN REPLY @1813 GOTO 6c1 
END

IF ~~ THEN BEGIN 6c1
	SAY @1814
	IF ~~ THEN GOTO 6c2cha
END

IF ~~ THEN BEGIN 6c2
	SAY @1815 
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LuvCut2")~ EXIT
END

IF ~~ THEN BEGIN 6c2cha
	SAY @1815
	IF ~~ THEN DO ~ClearAllActions() StartCutSceneMode() StartCutScene("LuvCut2")~ EXIT
	IF ~IsValidForPartyDialog("Keldorn")~ THEN EXTERN KELDORJ 6c2chacom3
	IF ~IsValidForPartyDialog("Korgan")~ THEN EXTERN KORGANJ 6c2chacom1 
	IF ~IsValidForPartyDialog("Valygar")~ THEN EXTERN VALYGARJ 6c2chacom2
	IF ~IsValidForPartyDialog("Minsc")~ THEN EXTERN MINSCJ 6c2chacom4
END
END

APPEND MINSCJ
	IF ~~ THEN BEGIN 6c2chacom4
	SAY @2135
	IF ~~ THEN DO ~ClearAllActions() StartCutSceneMode() StartCutScene("LuvCut2")~ EXIT
END
END

APPEND KORGANJ
	IF ~~ THEN BEGIN 6c2chacom1
	SAY @2134
	IF ~~ THEN DO ~ClearAllActions() StartCutSceneMode() StartCutScene("LuvCut2")~ EXIT
END
END

APPEND VALYGARJ
	IF ~~ THEN BEGIN 6c2chacom2
	SAY @2134
	IF ~~ THEN DO ~ClearAllActions() StartCutSceneMode() StartCutScene("LuvCut2")~ EXIT
END
END

APPEND KELDORJ
	IF ~~ THEN BEGIN 6c2chacom3
	SAY @2134
	IF ~~ THEN DO ~ClearAllActions() StartCutSceneMode() StartCutScene("LuvCut2")~ EXIT
END
END

APPEND IMOEN2J
IF WEIGHT #512
~Global("ImoenScaredMR","GLOBAL",1)~ THEN BEGIN LUVMR6d
	SAY @1816
	IF ~~ THEN DO ~SetGlobal("ImoenScaredMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR6e
END

IF ~~ THEN BEGIN LUVMR6e
	SAY @1817
	IF ~~ THEN REPLY @1818 GOTO LUVMR6g
	IF ~~ THEN REPLY @1819 GOTO LUVMR6f
	IF ~~ THEN REPLY @1820 GOTO LUVMR6f
	IF ~~ THEN REPLY @1821 GOTO LUVMR6f
END

IF ~~ THEN BEGIN LUVMR6f
	SAY @1822
	IF ~~ THEN REPLY @1823 GOTO LUVMR6g
	IF ~~ THEN REPLY @1824 EXTERN PLAYER1 6fbad
END

IF ~~ THEN BEGIN LUVMR6g
	SAY @1825
	=	
	@1826
	=
	@225 
	=
	@1827
	=
	@1828
	=
	@1829
	=
	@1830	
	=
	@1831
	IF ~~ THEN REPLY @1832 GOTO LUVMR6j
	IF ~~ THEN REPLY @1833 GOTO LUVMR6i
	IF ~~ THEN REPLY @1834 GOTO LUVMR6i
	IF ~~ THEN REPLY @1835 GOTO LUVMR6h
END

IF ~~ THEN BEGIN LUVMR6h
	SAY @1836
	IF ~~ THEN REPLY @1837 GOTO LUVMR6i
	IF ~~ THEN REPLY @1838 GOTO LUVMR6i
	IF ~~ THEN REPLY @1839 GOTO LUVMR6i
	IF ~~ THEN REPLY @1840 GOTO 6h1
END
	
IF ~~ THEN BEGIN 6h1
	SAY @1841
	=
	@1842
	=
	@1843
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	ReputationInc(-3) ActionOverride(Player1,ApplySpellRES("SPMRACNE",Player1)) 
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN LUVMR6i
	SAY @1844
	=
	@1845
	=
	@1846
	=
	@1847
	=
	@1848
	=
	@1849
	=
	@1850
	IF ~~ THEN REPLY @1851 GOTO LUVMR6j
	IF ~~ THEN REPLY @1852 GOTO LUVMR6j
	IF ~~ THEN REPLY @1853 GOTO LUVMR6j
	IF ~~ THEN REPLY @1854 GOTO LUVMR6k
	IF ~~ THEN REPLY @1855 GOTO 6youbastard
END

IF ~~ THEN BEGIN 6youbastard
	SAY @1856
	IF ~~ THEN GOTO 6h1
END

IF ~~ THEN BEGIN LUVMR6k
	SAY @1857
	=
	@1858
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR6j
	SAY @1859
	=
	@1860
	IF ~~ THEN REPLY @1861 GOTO LUVMR6m
	IF ~~ THEN REPLY @1862 GOTO LUVMR6l
	IF ~~ THEN REPLY @1863 GOTO LUVMR6l
	IF ~~ THEN REPLY @1864 GOTO LUVMR6l
	IF ~~ THEN REPLY @1865 GOTO 6youbastard
END

IF ~~ THEN BEGIN LUVMR6l
	SAY @1866
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR6m
END

IF ~~ THEN BEGIN LUVMR6m
	SAY @1867
	IF ~~ THEN REPLY @1868 GOTO LUVMR6o
	IF ~~ THEN REPLY @1869 GOTO LUVMR6n
	IF ~~ THEN REPLY @1870 GOTO LUVMR6n
	IF ~~ THEN REPLY @1871 GOTO LUVMR6k
	IF ~~ THEN REPLY @1872 GOTO 6youbastard
END

IF ~~ THEN BEGIN LUVMR6n
	SAY @1873
	=
	@1874
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR6o
	SAY @1875
	=
	@1876
	=
	@1877
	IF ~NumInPartyGT(2)~ THEN GOTO 6o1
	IF ~!NumInPartyGT(2)~ THEN EXTERN PLAYER1 6p
END

IF ~~ THEN BEGIN 6o1
	SAY @1878
	IF ~~ THEN EXTERN PLAYER1 6p
	IF ~IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ 6o1cha1
	IF ~IsValidForPartyDialog("Nalia")~ THEN EXTERN NALIAJ 6o1cha2
	IF ~IsValidForPartyDialog("Jaheira")~ THEN EXTERN JAHEIRAJ 6o1cha3
	IF ~IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ 6o1cha4
	IF ~IsValidForPartyDialog("Jan")~ THEN EXTERN JANJ 6o1cha5
	IF ~IsValidForPartyDialog("Edwin")~ THEN EXTERN EDWINJ 6o1cha6
	IF ~IsValidForPartyDialog("Korgan")~ THEN EXTERN KORGANJ 6o1cha7
END
END

CHAIN AERIEJ 6o1cha1
@2140
END PLAYER1 6p

CHAIN NALIAJ 6o1cha2
@2141
END PLAYER1 6p

CHAIN JAHEIRAJ 6o1cha3
@2142
END PLAYER1 6p

CHAIN VICONIJ 6o1cha4
@2143
END PLAYER1 6p

CHAIN JANJ 6o1cha5
@2144
END PLAYER1 6p

CHAIN EDWINJ 6o1cha6
@2145
END PLAYER1 6p

CHAIN KORGANJ 6o1cha7
@2146
END PLAYER1 6p


// pon la música aquí de la pesadilla empezando

// *****************************************************

APPEND IMOEN2J
IF ~~ THEN BEGIN LUVMR7
	SAY @1879 
	=
	@1880
	IF ~~ THEN REPLY @1881 GOTO LUVMR7a
	IF ~~ THEN REPLY @1882 GOTO LUVMR7a
	IF ~~ THEN REPLY @1883 GOTO LUVMR7a
	IF ~~ THEN REPLY @1884 GOTO LUVMR7b
	IF ~~ THEN REPLY @1885 GOTO LUVMR7c
END

IF ~~ THEN BEGIN LUVMR7c
	SAY @1886
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR7b
	SAY @1887
	=	
	@1888
	=
	@401
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SUMR7b1
	SAY @1889
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN LUVMR7a
	SAY @1890
	=
	@1891
	=
	@1892
	IF ~~ THEN REPLY @1893 GOTO LUVMR7i
	IF ~~ THEN REPLY @1894 GOTO LUVMR7h
	IF ~~ THEN REPLY @1895 GOTO LUVMR7g
	IF ~~ THEN REPLY @1896 GOTO LUVMR7f
	IF ~~ THEN REPLY @1897 GOTO LUVMR7e
	IF ~~ THEN REPLY @1898 GOTO LUVMR7d
END

IF ~~ THEN BEGIN LUVMR7d
	SAY @1899
	=
	@1900
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR7e
	SAY @1901
	IF ~~ THEN GOTO LUVMR7j
END

IF ~~ THEN BEGIN LUVMR7f
	SAY @1902
	IF ~~ THEN GOTO LUVMR7j
END

IF ~~ THEN BEGIN LUVMR7g
	SAY @1903
	IF ~~ THEN GOTO LUVMR7j
END

IF ~~ THEN BEGIN LUVMR7h
	SAY @1904
	IF ~~ THEN GOTO LUVMR7j
END

IF ~~ THEN BEGIN LUVMR7i
	SAY @1905
	IF ~~ THEN GOTO LUVMR7j
END

IF ~~ THEN BEGIN LUVMR7j
	SAY @1906
	=
	@1907
	=
	@1908
	=
	@1909
	IF ~~ THEN REPLY @1910 GOTO 7j3
	IF ~~ THEN REPLY @1911 GOTO 7j2
	IF ~InParty("Jan")~ THEN REPLY @1912 GOTO 7j1
	IF ~!InParty("Jan")~ THEN REPLY @1913 GOTO 7j1
	IF ~~ THEN REPLY @1914 GOTO LUVMR7d
END

IF ~~ THEN BEGIN 7j1
	SAY @1915
	=
	@1916
	IF ~~ THEN GOTO 7j2
END

IF ~~ THEN BEGIN 7j2
	SAY @1917
	IF ~~ THEN GOTO 7j3
END

IF ~~ THEN BEGIN 7j3
	SAY @1918
	=
	@1919
	IF ~InParty("Jan")~ THEN REPLY @1920 GOTO 7j4
	IF ~!InParty("Jan")
		NumInPartyGT(2)~ THEN REPLY @1921 GOTO 7j4
	IF ~!NumInPartyGT(2)~ THEN REPLY @1922 GOTO 7j4
	IF ~~ THEN REPLY @1923 GOTO 7j5
	IF ~~ THEN REPLY @1924 GOTO LUVMR7d
END

IF ~~ THEN BEGIN 7j4
	SAY @1925
	=
	@1926
	=
	@1927
	=
	@1928
	=
	@1929
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 7j5
	SAY @1930
	=
	@1931
	=
	@1932
	=
	@1933
	IF ~~ THEN REPLY @1934 GOTO 7j11
	IF ~~ THEN REPLY @1935 GOTO 7j10
	IF ~~ THEN REPLY @1936 GOTO 7j9
	IF ~~ THEN REPLY @1937 GOTO 7j8
	IF ~~ THEN REPLY @1938 GOTO 7j7
	IF ~~ THEN REPLY @1939 GOTO 7j7
	IF ~~ THEN REPLY @1940 GOTO LUVMR7d
END

IF ~~ THEN BEGIN 7j11
	SAY @1941
	IF ~~ THEN REPLY @1937 GOTO 7j8
	IF ~~ THEN REPLY @1938 GOTO 7j7
	IF ~~ THEN REPLY @1939 GOTO 7j7
	IF ~~ THEN REPLY @1940 GOTO LUVMR7d
END

IF ~~ THEN BEGIN 7j10
	SAY @1942
	IF ~~ THEN REPLY @1937 GOTO 7j8
	IF ~~ THEN REPLY @1938 GOTO 7j7
	IF ~~ THEN REPLY @1939 GOTO 7j7
	IF ~~ THEN REPLY @1940 GOTO LUVMR7d
END

IF ~~ THEN BEGIN 7j9
	SAY @1943
	IF ~~ THEN REPLY @1934 GOTO 7j11
	IF ~~ THEN REPLY @1935 GOTO 7j10
	IF ~~ THEN REPLY @1937 GOTO 7j8
	IF ~~ THEN REPLY @1938 GOTO 7j7
	IF ~~ THEN REPLY @1939 GOTO 7j7
	IF ~~ THEN REPLY @1940 GOTO LUVMR7d
END

IF ~~ THEN BEGIN 7j8
	SAY @1944
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 7j7
	SAY @1945
 	IF ~~ THEN EXIT
END


// What? You want me to sing something?

// your sweetness

// lips joined

// lips touched

// soul kiss, deep kiss





// ***************************************************************

IF ~~ THEN BEGIN LUVMR8
	SAY @1946 
	=
	@1947
	IF ~~ THEN REPLY @1948 GOTO LUVMR8a
	IF ~~ THEN REPLY @1949 GOTO LUVMR8b
	IF ~~ THEN REPLY @1950 GOTO LUVMR8c
	IF ~~ THEN REPLY @1951 GOTO LUVMR8d
END

IF ~~ THEN BEGIN LUVMR8a
	SAY @1952
	IF ~~ THEN GOTO LUVMR8e
END



IF ~~ THEN BEGIN LUVMR8b
	SAY @1953
	=
	@1954
	=
	@1955
	IF ~~ THEN GOTO LUVMR8e
END

IF ~~ THEN BEGIN LUVMR8c
	SAY @1956
	=
	@1957
	IF ~~ THEN GOTO LUVMR8e
END

IF ~~ THEN BEGIN LUVMR8d
	SAY @1958
	=
	@1959
	IF ~~ THEN GOTO 8d2
	IF ~IsValidForPartyDialog("Minsc")~ THEN GOTO LUVMR8dcha
END
END

CHAIN IMOEN2J LUVMR8dcha
@2125
== MINSCJ 
@2126
== IMOEN2J 
@2127
== MINSCJ 
@2128
== IMOEN2J 
@2129
== MINSCJ 
@2130
END IMOEN2J 8dminsc

APPEND IMOEN2J
IF ~~ THEN BEGIN 8d2
	SAY @1960
	=
	@1961
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 8dminsc
	SAY @1962
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR8e
	SAY @1963
	IF ~NumInPartyGT(2)~ THEN REPLY @1964 GOTO LUVMR8f
	IF ~!NumInPartyGT(2)~ THEN REPLY @1965 GOTO LUVMR8f
	IF ~~ THEN REPLY @1966 GOTO LUVMR8g
	IF ~~ THEN REPLY @1967 GOTO LUVMR8h
	IF ~~ THEN REPLY @1968 GOTO 8youfuckeditup
END	

IF ~~ THEN BEGIN LUVMR8h
	SAY @1969
	=
	@1970
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR8f
	SAY @1971
	IF ~!NumInPartyGT(2)~ THEN GOTO 8f1	
	IF ~NumInPartyGT(2)~ THEN GOTO 8f2
END

IF ~~ THEN BEGIN 8f1
	SAY @1972
	IF ~~ THEN GOTO 8getiton
END

IF ~~ THEN BEGIN 8f2
	SAY @1973
	IF ~~ THEN REPLY @1974 GOTO 8f3
	IF ~~ THEN REPLY @1975 GOTO 8f4
	IF ~~ THEN REPLY @1976 GOTO 8f5
END

IF ~~ THEN BEGIN 8f3
	SAY @1977
	IF ~~ THEN GOTO 8getiton
END

IF ~~ THEN BEGIN 8f4
	SAY @1978
	=
	@1979
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 8f5
	SAY @1980
	=
	@1979
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR8g
	SAY @1981
	IF ~!NumInPartyGT(2)~ THEN GOTO 8g2
	IF ~NumInPartyGT(2)~ THEN GOTO 8g1
END

IF ~~ THEN BEGIN 8g1
	SAY @1982
	IF ~~ THEN REPLY @1983 GOTO 8getiton
	IF ~~ THEN REPLY @1984 GOTO 8g1a
	IF ~~ THEN REPLY @1985 GOTO 8f2
END

IF ~~ THEN BEGIN 8g1a
	SAY @1986
	IF ~~ THEN GOTO 8f5
END

IF ~~ THEN BEGIN 8g2
	SAY @1982
	IF ~~ THEN REPLY @1987 GOTO 8g2a
	IF ~~ THEN REPLY @1988 GOTO 8g2b
	IF ~~ THEN REPLY @1989 GOTO 8g1a
END

IF ~~ THEN BEGIN 8g2a
	SAY @1990
	IF ~~ THEN GOTO 8getiton
END

IF ~~ THEN BEGIN 8g2b
	SAY @1991
	IF ~~ THEN GOTO 8getiton
END

IF ~~ THEN BEGIN 8getiton
	SAY @1992
	=
	@1993
	IF ~~ THEN DO ~RestParty()~ EXIT
END

IF ~~ THEN BEGIN 8youfuckeditup
	SAY @1994
	=
	@1995
	=
	@1996
	=
	@1997
	=
	@1998
	=
	@1999
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	ReputationInc(-2) 
	EscapeArea()~
	EXIT
END



// ***************************************************************

IF ~~ THEN BEGIN LUVMR9
	SAY @5070 // = ~(You come closer to Imoen with the intention of saying something charming to her. She has been a little sad lately.)~ [MRImRom5]
	IF ~~ THEN REPLY @2001 GOTO LUVMR9c
	IF ~~ THEN REPLY @2002 GOTO LUVMR9c
	IF ~~ THEN REPLY @2003 GOTO LUVMR9c
	IF ~~ THEN REPLY @2004 GOTO LUVMR9b
	IF ~~ THEN REPLY @2005 GOTO LUVMR9a
END

IF ~~ THEN BEGIN LUVMR9fem
	SAY @2000 // = ~(You come closer to Imoen with the intention of saying something beautiful to her. She has been a little sad lately.)~ [MRImRom5]
	IF ~~ THEN REPLY @2001 GOTO LUVMR9c
	IF ~~ THEN REPLY @2002 GOTO LUVMR9c
	IF ~~ THEN REPLY @2003 GOTO LUVMR9c
	IF ~~ THEN REPLY @2004 GOTO LUVMR9b
	IF ~~ THEN REPLY @2005 GOTO LUVMR9a
END

IF ~~ THEN BEGIN LUVMR9a
	SAY @2006
	=
	@2007
	=
	@2008
	=
	@2009
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR9b
	SAY @2010
	=
	@2011
	=
	@2012
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR9c
	SAY @2013
	IF ~~ THEN REPLY @2014 GOTO 9c3
	IF ~~ THEN REPLY @2015 GOTO 9c3
	IF ~~ THEN REPLY @2016 GOTO 9c3
	IF ~~ THEN REPLY @2017 GOTO 9c2
	IF ~~ THEN REPLY @2018 GOTO 9c1
END

IF ~~ THEN BEGIN 9c1
	SAY @2019
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 9c2
	SAY @2020
	=
	@2021
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 9c3
	SAY @2022
	IF ~~ THEN REPLY @2023 GOTO 9c5
	IF ~~ THEN REPLY @2024 GOTO 9c5
	IF ~~ THEN REPLY @2025 GOTO 9c4
	IF ~~ THEN REPLY @2026 GOTO 9c1
END

IF ~~ THEN BEGIN 9c4
	SAY @2027
	=
	@2021
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 9c5
	SAY @2028
	=
	@2029
	=
	@2030
	=
	@2031
	=
	@2032
	=
	@2033		
	=
	@2034
	=
	@2035
	IF ~CheckStatGT(Player1,13,WIS)~ THEN REPLY @2036 GOTO 9x2
	IF ~~ THEN REPLY @2037 GOTO 9x1
	IF ~~ THEN REPLY @2038 GOTO 9x1
	IF ~~ THEN REPLY @2039 GOTO LUVMR9x
END

IF ~~ THEN BEGIN LUVMR9x
	SAY @2040
	=
	@2041
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SUMR7b6
	SAY @2042
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN 9x1
	SAY @2043
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 9x2
	SAY @2044
	=
	@2045
	IF ~~ THEN EXIT
END

// *****************************************************

IF ~~ THEN BEGIN LUVMR10
	SAY @2046 
	IF ~~ THEN REPLY @2047 GOTO LUVMR10a
	IF ~~ THEN REPLY @2048 GOTO LUVMR10b
	IF ~~ THEN REPLY @2049 GOTO LUVMR10c
	IF ~~ THEN REPLY @2050 GOTO LUVMR10d
	IF ~~ THEN REPLY @2051 GOTO LUVMR10e
	IF ~~ THEN REPLY @2052 GOTO LUVMR10f
	IF ~~ THEN REPLY @2053 GOTO LUVMR10g
	IF ~~ THEN REPLY @2054 GOTO LUVMR10h
	IF ~~ THEN REPLY @2055 GOTO LUVMR10i
	IF ~~ THEN REPLY @2056 GOTO LUVMR10j
	IF ~~ THEN REPLY @2057 EXIT
END

IF ~~ THEN BEGIN LUVMR10a
	SAY @2058
	=
	@2059
	IF ~~ THEN REPLY @2060 GOTO LUVMR10b
	IF ~~ THEN REPLY @2049 GOTO LUVMR10c
	IF ~~ THEN REPLY @2050 GOTO LUVMR10d
	IF ~~ THEN REPLY @2051 GOTO LUVMR10e
	IF ~~ THEN REPLY @2052 GOTO LUVMR10f
	IF ~~ THEN REPLY @2053 GOTO LUVMR10g
	IF ~~ THEN REPLY @2054 GOTO LUVMR10h
	IF ~~ THEN REPLY @2055 GOTO LUVMR10i
	IF ~~ THEN REPLY @2056 GOTO LUVMR10j
	IF ~~ THEN REPLY @2057 EXIT
END

IF ~~ THEN BEGIN LUVMR10b
	SAY @2061
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR10c
	SAY @2062
	=
	@2063
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR10d
	SAY @2064
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR10e
	SAY @2065
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR10f
	SAY @2066
	=
	@2067
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR10g
	SAY @2068
	=
	@2069
	IF ~~ THEN REPLY @2060 GOTO LUVMR10b
	IF ~~ THEN REPLY @2049 GOTO LUVMR10c
	IF ~~ THEN REPLY @2050 GOTO LUVMR10d
	IF ~~ THEN REPLY @2051 GOTO LUVMR10e
	IF ~~ THEN REPLY @2052 GOTO LUVMR10f
	IF ~~ THEN REPLY @2054 GOTO LUVMR10h
	IF ~~ THEN REPLY @2055 GOTO LUVMR10i
	IF ~~ THEN REPLY @2070 GOTO LUVMR10j
	IF ~~ THEN REPLY @2057 EXIT
END

IF ~~ THEN BEGIN LUVMR10h
	SAY @2071
	=
	@2072
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR10i
	SAY @2073
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR10j
	SAY @2074
	IF ~~ THEN REPLY @2060 GOTO LUVMR10b
	IF ~~ THEN REPLY @2049 GOTO LUVMR10c
	IF ~~ THEN REPLY @2050 GOTO LUVMR10d
	IF ~~ THEN REPLY @2051 GOTO LUVMR10e
	IF ~~ THEN REPLY @2052 GOTO LUVMR10f
	IF ~~ THEN REPLY @2054 GOTO LUVMR10h
	IF ~~ THEN REPLY @2055 GOTO LUVMR10i
	IF ~~ THEN REPLY @2057 EXIT
END

// ***************************************************************

IF ~~ THEN BEGIN LUVMR11
	SAY @2075
	=
	@2076
	=
	@2077
	IF ~~ THEN REPLY @2078 GOTO LUVMR11a
	IF ~~ THEN REPLY @2079 GOTO LUVMR11b
	IF ~~ THEN REPLY @2080 GOTO LUVMR11c
END

IF ~~ THEN BEGIN LUVMR11a
	SAY @2081
	= @2082
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR11b
	SAY @2083
	= @2084
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN LUVMR11c
	SAY @2085
	= @2086
	IF ~~ THEN EXIT
END

// ******************************************************************

	IF ~~ THEN BEGIN 0c3lies1
	SAY @2087
	IF ~~ THEN REPLY @2088 GOTO 0c3c
	IF ~~ THEN REPLY @2089 GOTO 0c3b
	IF ~~ THEN REPLY @2090 GOTO 0c3a
	END

	IF ~~ THEN BEGIN SUMR7b11
	SAY @2091
	IF ~~ THEN GOTO SUMR7b
	END
	
	IF ~~ THEN BEGIN 0c3lies2
	SAY @2092
	IF ~~ THEN REPLY @2093 GOTO 0c3c
	IF ~~ THEN REPLY @2094 GOTO 0c3b
	IF ~~ THEN REPLY @2095 GOTO 0c3a
	END

	IF ~~ THEN BEGIN 4good6
	SAY @2096
	IF ~~ THEN DO ~RestParty()~
	EXIT
	END	
	
IF ~~ THEN BEGIN 6awake1
SAY @2097
= @2098
= @2099
IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO 6awake1shit
END

IF ~~ THEN BEGIN 6awake1shit
   SAY @2100
IF ~~ THEN EXTERN PLAYER1 6awake2
END
END


// *** And some miscelaneous appending ***

APPEND PLAYER1
	IF ~~ THEN BEGIN LUVMR4aSelf
	SAY @2101 
   = @2102
	= @2103
	= @2104
	= @2105
	IF ~~ THEN EXIT
	END

	IF ~~ THEN BEGIN 3b4chungo2
	SAY @2106
	IF ~~ THEN EXIT
	END
	
	IF ~~ THEN BEGIN 3good5
	SAY @2107
	IF ~~ THEN EXTERN IMOEN2J 4good6
	IF ~IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ 3good5cha1	
	IF ~IsValidForPartyDialog("Jan")~ THEN EXTERN JANJ 3good5cha2
	IF ~IsValidForPartyDialog("Minsc")~ THEN EXTERN MINSCJ 3good5cha3
	IF ~IsValidForPartyDialog("Mazzy")~ THEN EXTERN MAZZYJ 3good5cha4
	IF ~IsValidForPartyDialog("Keldorn")~ THEN EXTERN KELDORJ 3good5cha5
	IF ~IsValidForPartyDialog("HaerDalis")~ THEN EXTERN HAERDAJ 3good5cha6
	IF ~IsValidForPartyDialog("Jaheira")~ THEN EXTERN JAHEIRAJ 3good5cha7
	IF ~IsValidForPartyDialog("Nalia")~ THEN EXTERN NALIAJ 3good5cha8
END
END

CHAIN AERIEJ 3good5cha1
@2133
END IMOEN2J 4good6

CHAIN JANJ 3good5cha2
@2133
END IMOEN2J 4good6

CHAIN MINSCJ 3good5cha3
@2133
END IMOEN2J 4good6

CHAIN MAZZYJ 3good5cha4
@2133
END IMOEN2J 4good6

CHAIN KELDORJ 3good5cha5
@2133
END IMOEN2J 4good6

CHAIN HAERDAJ 3good5cha6
@2133
END IMOEN2J 4good6

CHAIN JAHEIRAJ 3good5cha7
@2133
END IMOEN2J 4good6

CHAIN NALIAJ 3good5cha8
@2133
END IMOEN2J 4good6

APPEND PLAYER1
	IF ~~ THEN BEGIN 3good5a
	SAY @2108
	IF ~~ THEN EXTERN IMOEN2J 4good6
	END

	IF ~~ THEN BEGIN 5dgood
	SAY @2109
	IF ~~ THEN EXIT
	END

	IF ~~ THEN BEGIN 6fbad
	SAY @2110 
	IF ~~ THEN GOTO 6f1bad
	IF ~IsValidForPartyDialog("Jaheira")~ THEN EXTERN JAHEIRAJ 6fbadcha2
	IF ~IsValidForPartyDialog("Nalia")~ THEN EXTERN NALIAJ 6fbadcha3
	IF ~IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ 6fbadcha4
	IF ~IsValidForPartyDialog("Mazzy")~ THEN EXTERN MAZZYJ 6fbadcha1
	END

CHAIN2 AERIEJ 6fbadcha4
@2136
END PLAYER1 6f1bad

CHAIN2 NALIAJ 6fbadcha3
@2137
END PLAYER1 6f1bad

CHAIN2 JAHEIRAJ 6fbadcha2
@2138
END PLAYER1 6f1bad

CHAIN2 MAZZYJ 6fbadcha1
@2139
END PLAYER1 6f1bad


	IF ~~ THEN BEGIN 6f1bad
	SAY @2111
	IF ~~ THEN EXIT
	END
END

CHAIN PLAYER1 6p
@2112 // = ~(your reciprocal contact grows more and more intimate. Looking into her eyes you caress her face, following with your thumb the trace of the scar across her eye, and another shudder shakes her body as she feels your finger there.)~
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN
@5071 // = ~(Imoen gently takes your hand and kisses it; as she puts it on her waist, you can almost hear her say "Please don't touch me there." She doesn't let this discourage you, for then she guides your hand downwards, from her hips to the intimacy of her clothes, until your fingers can find their way without her help.)~
== IMOEN2J IF ~Gender(Player1,MALE)~ THEN
@5072 // = ~(Imoen gently takes your hand and kisses it; as she puts it on her hip, you can almost hear her say "Please don't touch me there." She doesn't let this discourage you, for then she guides your hand upwards, from her waist to the depths of her tunic, until your fingers can find their way without her help.)~
== PLAYER1 IF ~Gender(Player1,MALE)~ THEN
@5073 // = ~(She can't restrain a moan as your hands seek out her soft curves, her own in a desperate search of your swelling pride; your senses are overwhelmed by a torrent of feelings that boom inside your head as you cover every inch of her body with your strokes.)~
== PLAYER1 IF ~Gender(Player1,FEMALE)~ THEN
@5074 // = ~(She bites her lip and can't restrain a loud moan as your hands seek out her soft curves and darkest depths, while her own hands hunger for the same, covering every inch of your body with her strokes.)~
== PLAYER1
        @2113
	=
	@2114
	=
	@2115
	=
	@2116
	=
	@2117
END PLAYER1 6plinica

APPEND PLAYER1
IF ~~ THEN BEGIN 6plinica
SAY @2118
IF ~~ THEN DO ~SetGlobal("AwakenSingingImoenMR","GLOBAL",1)
RestParty()~ EXIT
END 

	IF ~Global("AwakenSingingImoenMR","GLOBAL",2)~ THEN BEGIN 6awake
	SAY @2119
	=
	@2120
	IF ~~ THEN DO ~SetGlobal("AwakenSingingImoenMR","GLOBAL",3)~ EXTERN IMOEN2J 6awake1
	END

	IF ~~ THEN BEGIN 6awake2
	SAY @2121
	IF ~~ THEN EXIT
	END
END



APPEND AERIEJ
	IF ~~ THEN BEGIN 0c3lies
	SAY @2122
	IF ~~ THEN REPLY @2123 EXTERN IMOEN2J 0c3lies1
	IF ~~ THEN REPLY @2124 EXTERN IMOEN2J 0c3lies2
	END
END






// ***Stealing***

		// ***Gaxx***

APPEND IMOEN2J
IF WEIGHT #515 
~Global("GaxxImoenTriggerMR","GLOBAL",1)
	Global("GaxxImoenStealMR","GLOBAL",0)~ THEN BEGIN MRG1  // ESTO VA EN EL TRIGGER
	SAY @2147  //
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO MRG1caquita
	END

	IF ~~ THEN BEGIN MRG1caquita
	SAY @2148
	=
	@2149
	IF ~~ THEN REPLY @2150 DO ~SetGlobal("GaxxImoenStealMR","GLOBAL",1)~ GOTO MRG5
	IF ~~ THEN REPLY @2151 DO ~SetGlobal("GaxxImoenStealMR","GLOBAL",1)~ GOTO MRG5
	IF ~~ THEN REPLY @2152 DO ~SetGlobal("GaxxImoenStealMR","GLOBAL",1)~ GOTO MRG4
	IF ~~ THEN REPLY @2153 DO ~SetGlobal("GaxxImoenStealMR","GLOBAL",1)~ GOTO MRG3
	IF ~~ THEN REPLY @2154 DO ~SetGlobal("GaxxImoenStealMR","GLOBAL",1)~ GOTO MRG2
END

IF ~~ THEN BEGIN MRG2
	SAY @2155
	=
	@2156
	=
	@2157 
	IF ~~  THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN MRG3
	SAY @2158
	IF ~~ THEN GOTO MRG5
END

IF ~~ THEN BEGIN MRG4
	SAY @2159 
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRG5
	SAY @2160
	=
	@2161
	=
	@2162
	IF ~~ THEN REPLY @2163 GOTO MRG7
	IF ~~ THEN REPLY @2164 GOTO MRG7
	IF ~~ THEN REPLY @2165 GOTO MRG7
	IF ~~ THEN REPLY @2166 GOTO MRG7
	IF ~CheckStatGT(Player1,13,WIS)~ THEN REPLY @2167 GOTO MRG7a
	IF ~~ THEN REPLY @2168 GOTO MRG6
END

IF ~~ THEN BEGIN MRG6
	SAY @2155
	=
	@2169
	=
	@2157 
	IF ~~  THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN MRG7a
	SAY @2170
	IF ~~ THEN REPLY @2171 GOTO MRG7
	IF ~~ THEN REPLY @2172 GOTO MRG7b
END

IF ~~ THEN BEGIN MRG7b
	SAY @2173
	=
	@2174
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRG7
	SAY @2175
	=
	@2176
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO MRG7aaaee
END

IF ~~ THEN BEGIN MRG7aaaee
     SAY @2177
	IF ~~ THEN EXTERN PLAYER1 MRG8
END

IF ~~ THEN BEGIN MRG9
	SAY @2178
	=
	@2179
	IF ~~ THEN REPLY @2180 GOTO MRG22
	IF ~~ THEN REPLY @5220 GOTO MRGnew1 // = ~Oh but Imoen, why didn't you tell me you wanted it? Keep it, by all means...~
	IF ~~ THEN REPLY @2181 GOTO MRG13
	IF ~~ THEN REPLY @2182 GOTO MRG19
	IF ~~ THEN REPLY @2183 GOTO MRG12
	IF ~~ THEN REPLY @2184 GOTO MRG10
END

IF ~~ THEN BEGIN MRGnew1
	SAY @5221 // = ~I think I'm gonna kee-- huh...?~ 
	= @5222 // = ~What didya say, that I keep it??~
	IF ~~ THEN REPLY @5223 GOTO MRGnew3 // = ~Yes, please, I don't mind at all. You deserve it more than me anyway.~
	IF ~~ THEN REPLY @5224 GOTO MRG10 // = ~YES, keep it and leave me alone, I can't be bothered with your stupid games...~
	IF ~~ THEN REPLY @5225 GOTO MRG13 // = ~NO! Just give it back, dammit!!~
	IF ~~ THEN REPLY @2182 GOTO MRG19 
	IF ~~ THEN REPLY @5226 GOTO MRG12 // = ~I'd never say that because I know you wouldn't understand its power, you dumbhead!~
END

IF ~~ THEN BEGIN MRGnew3
	SAY @5227 // = ~I-- uh... (Imoen looks quite confused. She looks at you and then at the ring on her finger.)~
	= @5228 // = ~(Finally she purses her lips and frowns) Just what's your problem, dontcha ever get mad or what!? I was just teasin' ya, I don't want the stupid ring! (She removes it from her finger and tosses it back at you.)~
	= @5229 // = ~(She turns around and, huffing, walks away from you muttering to herself, leaving you standing there with the ring on the palm of your hand) Dumb head with <PRO_HISHER> dumb politeness an' dumb morals always spoils the fun, boring buffle headed <CHARNAME> won't let me tease <PRO_HIMHER>, what does <PRO_HESHE> think <PRO_HESHE> is, hmpf... <PRO_HESHE>'s always nice to people an' I just wanted a lil' fun, but noooo, <PRO_HESHE> says "keep the ring dear" an' ruins everything, dumb head with dumb politeness an'... ... ...~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRG10
	SAY @2185
	=
	@2186
	IF ~~ THEN REPLY @2187 GOTO MRG13
	IF ~~ THEN REPLY @2188 GOTO MRG12
	IF ~~ THEN REPLY @2189 GOTO MRG11
END

IF ~~ THEN BEGIN MRG10a
	SAY @2190
	=
	@2191
	IF ~~ THEN REPLY @2192 GOTO MRG13
	IF ~~ THEN REPLY @2193 GOTO MRG11
END

IF ~~ THEN BEGIN MRG11
	SAY @2194
	=
	@2195
	=
	@2196
	=
	@2197
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SUMR7b8
	SAY @2198
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN MRG12
	SAY @2199
	IF ~~ THEN REPLY @2200 GOTO MRG13
	IF ~~ THEN REPLY @2201 GOTO MRG10a
END

IF ~~ THEN BEGIN MRG13
	SAY @2202
	IF ~~ THEN REPLY @2203 GOTO MRG14
	IF ~~ THEN REPLY @2204 GOTO MRG10a 
END

IF ~~ THEN BEGIN MRG14
	SAY @2205
	IF ~~ THEN REPLY @2206 GOTO MRG15
	IF ~~ THEN REPLY @2204 GOTO MRG10a 
END
	
IF ~~ THEN BEGIN MRG15
	SAY @2207
	IF ~~ THEN EXTERN PLAYER1 MRG16
END

IF ~~ THEN BEGIN MRG17
	SAY @2208
	IF ~~ THEN EXTERN PLAYER1 MRG18
END

IF ~~ THEN BEGIN MRG19
	SAY @2209
	IF ~~ THEN REPLY @2210 GOTO MRG21
	IF ~~ THEN REPLY @2211 GOTO MRG20
	IF ~~ THEN REPLY @2212 GOTO MRG10a
END

IF ~~ THEN BEGIN MRG20
	SAY @2213
	=
	@2214
	=
	@2215
	=
	@2216
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN BEGIN SUMR7b
	SAY @401
	IF ~~ THEN REPLY @2217 GOTO SUMR7c
	IF ~~ THEN REPLY @1038 EXIT
END

IF ~~ THEN BEGIN MRG21
	SAY @2218
	IF ~~ THEN EXTERN PLAYER1 MRG16
END

IF ~~ THEN BEGIN MRG22
	SAY @2219
	IF ~~ THEN REPLY @2220 GOTO MRG21
	IF ~~ THEN REPLY @5230 GOTO MRGnew1 // = ~Hehe, alright Imoen, I get the idea... keep the ring, you have earned it.~
	IF ~~ THEN REPLY @2221 GOTO MRG20
	IF ~~ THEN REPLY @2212 GOTO MRG10a
END


	// ***Girdles of Strength***


IF WEIGHT #516
~Global("GirdleImoenTriggerMR","GLOBAL",1)
	Global("GirdleImoenStealMR","GLOBAL",0)~ THEN BEGIN MRG23
	SAY @2222
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO MRG23caquita
END

IF ~~ THEN BEGIN MRG23caquita
	SAY @2223
	IF ~~ THEN REPLY @2224 DO ~SetGlobal("GirdleImoenStealMR","GLOBAL",1)~ GOTO MRG25
	IF ~~ THEN REPLY @2225 DO ~SetGlobal("GirdleImoenStealMR","GLOBAL",1)~ GOTO MRG25
	IF ~~ THEN REPLY @2226 DO ~SetGlobal("GirdleImoenStealMR","GLOBAL",1)~ GOTO MRG25
	IF ~~ THEN REPLY @2227 DO ~SetGlobal("GirdleImoenStealMR","GLOBAL",1)~ GOTO MRG24
END

IF ~~ THEN BEGIN MRG24
	SAY @2228
	=
	@2229
	=
	@2230
	=
	@2231
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRG25
	SAY @2232
	=  
	@2233
	=
	@2234
	IF ~~ THEN REPLY @2235 GOTO MRG30
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @2236 GOTO MRG29
	IF ~!Global("ImoenRomanceActive","GLOBAL",2)
	CheckStatGT(Player1,13,CHR)~ THEN REPLY @2237 GOTO MRG29001
	IF ~!Global("ImoenRomanceActive","GLOBAL",2)
	!CheckStatGT(Player1,13,CHR)~ THEN REPLY @2237 GOTO MRG29002
	IF ~~ THEN REPLY @2238 GOTO MRG28
	IF ~~ THEN REPLY @2239 GOTO MRG27
	IF ~~ THEN REPLY @2240 GOTO MRG26
	IF ~~ THEN REPLY @2241 GOTO MRG24
END

IF ~~ THEN BEGIN MRG29001
	SAY @2242
	=
	@2243
	=
	@2244
	=
	@2245
	IF ~~ THEN REPLY @2246 GOTO NEWMR00101
	IF ~~ THEN REPLY @2247 GOTO NEWMR00103
	IF ~~ THEN REPLY @2248 GOTO NEWMR00104
	IF ~~ THEN REPLY @2249 GOTO NEWMR00106
	IF ~~ THEN REPLY @2250 GOTO NEWMR00107
	IF ~~ THEN REPLY @2251 GOTO NEWMR00108
END

IF ~~ THEN BEGIN MRG29002
	SAY @2242
	=
	@2252
	=
	@2253
	IF ~~ THEN REPLY @2246 GOTO NEWMR00102
	IF ~~ THEN REPLY @2254 GOTO NEWMR00103
	IF ~~ THEN REPLY @2248 GOTO NEWMR00105
	IF ~~ THEN REPLY @2249 GOTO NEWMR00106
	IF ~~ THEN REPLY @2250 GOTO NEWMR00107
	IF ~~ THEN REPLY @2251 GOTO NEWMR00108
END

IF ~~ THEN BEGIN NEWMR00101
	SAY @2255
	IF ~~ THEN REPLY @2256 GOTO NEWMR00101a
	IF ~~ THEN REPLY @2257 GOTO NEWMR001012b
	IF ~~ THEN REPLY @2258 GOTO NEWMR001012c
END

IF ~~ THEN BEGIN NEWMR00101a
	SAY @2259
	=
	@2260
	IF ~~ THEN GOTO NEWMRtakeback
END


IF ~~ THEN BEGIN NEWMR00102
	SAY @2255
	IF ~~ THEN REPLY @2261 GOTO NEWMR00102a
	IF ~~ THEN REPLY @2257 GOTO NEWMR001012b
	IF ~~ THEN REPLY @2258 GOTO NEWMR001012c
END

IF ~~ THEN BEGIN NEWMR00102a
	SAY @2262
	=
	@2263
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ GOTO NEWMRtakeback
END	

IF ~~ THEN BEGIN NEWMR001012b
	SAY @2264
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ GOTO petopetMR
END

IF ~~ THEN BEGIN petopetMR
	SAY @2263
	IF ~~ THEN REPLY @2265 GOTO PETAMAKAMR
	IF ~~ THEN REPLY @2266 GOTO PETAMAKAMR
	IF ~~ THEN REPLY @2267 GOTO PETAMAKAMR
END



IF ~~ THEN BEGIN PETAMAKAMR
	SAY @2268
	IF ~~ THEN GOTO NEWMRtakeback
END

IF ~~ THEN BEGIN NEWMR001012c
	SAY @2269
	=
	@2270
	IF ~~ THEN GOTO PETAMAKAMR
END

IF ~~ THEN BEGIN NEWMR00103
	SAY @2271
	=
	@2272
	=
	@2273
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ GOTO PETAMAKAMR
END

IF ~~ THEN BEGIN NEWMR00104
	SAY @2274
	=
	@2275
	IF ~~ THEN GOTO PETAMAKAMR
END


IF ~~ THEN BEGIN NEWMR00105
	SAY @2276
	=
	@2277
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ GOTO PETAMAKAMR
END


IF ~~ THEN BEGIN NEWMR00106
	SAY @2278
	=
	@2279
	IF ~~ THEN GOTO NEWMRtakeback
END

IF ~~ THEN BEGIN NEWMR00107
	SAY @2280
	IF ~Gender(Player1,MALE)~ THEN GOTO AKAKMR
	IF ~Gender(Player1,FEMALE)~ THEN GOTO AKAKFMR
END

IF ~~ THEN BEGIN AKAKMR
	SAY @2281
	IF ~~ THEN GOTO PETAMAKAMR
END

IF ~~ THEN BEGIN AKAKFMR
	SAY @2282
	IF ~~ THEN GOTO PETAMAKAMR
END	

IF ~~ THEN BEGIN NEWMR00108
	SAY @2283
	=
	@2284
	=
	@2285
	=
	@2286
	=
	@2287
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END


IF ~~ THEN BEGIN NEWMRtakeback
	SAY @2286
	=
	@2288
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRG26
	SAY @2289
	IF ~~ THEN EXTERN PLAYER1 MRGStupid
END

IF ~~ THEN BEGIN MRG27
	SAY @2290
	=
	@2291
	IF ~~ THEN EXTERN PLAYER1 MRG31
END

IF ~~ THEN BEGIN MRG28
	SAY @2292
	=
	@2293
	IF ~~ THEN EXTERN PLAYER1 MRG31
END

IF ~~ THEN BEGIN MRG29
	SAY @2294
	=
	@2295
	=
	@2296
	IF ~~ THEN EXTERN PLAYER1 MRG31
END

IF ~~ THEN BEGIN MRG30
	SAY @2297
	=
	@2298
	=
	@2299
	IF ~~ THEN EXTERN PLAYER1 MRG31
END

IF ~~ THEN BEGIN MRG32
	SAY @2300
	=
	@2301
	IF ~~ THEN EXTERN PLAYER1 MRG33
END

IF ~~ THEN BEGIN MRG34
	SAY @2302
	IF ~~ THEN REPLY @2303 GOTO MRG35
	IF ~~ THEN REPLY @2304 GOTO MRG35
	IF ~~ THEN REPLY @2305 GOTO MRG35
	IF ~~ THEN REPLY @2306 GOTO MRG35
	IF ~~ THEN REPLY @2307 GOTO MRG35
END

IF ~~ THEN BEGIN MRG35
	SAY @2308 =	@2309	= @2310 = @2311 = @2312 = @2313
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN SUMR7b17
	SAY @2314
	IF ~~ THEN GOTO SUMR7b
END
END

APPEND PLAYER1
	IF ~~ THEN BEGIN MRG8
		SAY @2315 =	@2316 = @2317 = @2318
		IF ~~ THEN EXTERN IMOEN2J MRG9
	END

	IF ~~ THEN BEGIN MRG16
		SAY @2319 = @2320	= @2321 = @2322 =	@2323 = @2324
		IF ~~ THEN EXTERN IMOEN2J MRG17
	END

	IF ~~ THEN BEGIN MRG18
		SAY @2325
		=
		@2326
		IF ~~ THEN EXIT
	END


	IF ~~ THEN BEGIN MRGStupid
		SAY @2327
		IF ~~ THEN GOTO MRG31
	END

	IF ~~ THEN BEGIN MRG31
		SAY @2328 =	@2329	= @2330 = @2331
		IF ~~ THEN EXTERN IMOEN2J MRG32
	END
	
	IF ~~ THEN BEGIN MRG33
		SAY @2332 =	@2333
		IF ~~ THEN REPLY @2334 EXTERN IMOEN2J MRG34
		IF ~~ THEN REPLY @2335 EXTERN IMOEN2J MRG35 
	 	IF ~~ THEN REPLY @5231 EXTERN IMOEN2J MRGnew4 // = ~Oh but Imoen, if you wanted the girdle, you just had to ask for it... please keep it, I'm sure you'll put it to good use.~
		IF ~~ THEN REPLY @2336 EXTERN IMOEN2J MRG34
		IF ~~ THEN REPLY @2337 EXTERN IMOEN2J MRG35
		IF ~~ THEN REPLY @2338 EXTERN IMOEN2J MRG35
	END
END

APPEND IMOEN2J
IF ~~ THEN BEGIN MRGnew4
	SAY @2308 = @5232 // = ~I was only playin' a lil' joke at you, <CHARNAME>! Must ya always spoil all the fun!? Meh, don't know why I bother!~ 
	= @5233 // = ~Yer as exciting as a rock... and have the same temper too... (she sighs) just how d'ya manage to put up with me like that!?~
	= @5234 // = ~Oh well, here, take the damn girdle... (she unfastens the belt and hands it to you) I swear, trying to getcha mad is like talking to trees... which isn't bad the most of times but it can be pretty unnerving!~
	= @5235 // = ~But I don't give up so easily, hehe...~
	IF ~~ THEN EXIT
END
END

APPEND IMOEN2J

// *** Talking about Money! ***

	// *** 1st one: 30,000 GP ***

IF WEIGHT #517
~Global("1stMoneyTriggerMR","GLOBAL",1)
	Global("1stMoneyTalkPassed","GLOBAL",0)~ THEN BEGIN MRM1a
	SAY @2339 
	IF ~~ THEN DO ~SetGlobal("1stMoneyTalkPassed","GLOBAL",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO MRM1
END

IF ~~ THEN BEGIN SUMR7b5
	SAY @2340
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN MRM1
	SAY @2341
	=
	@2342
	=
	@2343
	IF ~~ THEN REPLY @2344 GOTO MRM9
	IF ~~ THEN REPLY @2345 GOTO MRM8
	IF ~~ THEN REPLY @2346 GOTO MRM7
	IF ~~ THEN REPLY @2347 GOTO MRM4
	IF ~PartyHasItem("WA2ROBE")
	    !HasItemEquiped("WA2ROBE","Imoen2")~ THEN REPLY @2348 GOTO MRM5
	IF ~HasItemEquiped("WA2ROBE","Imoen2")~ THEN REPLY @2349 GOTO MRM6
	IF ~~ THEN REPLY @2350 GOTO MRM3
	IF ~~ THEN REPLY @2351 GOTO MRM2
END

IF ~~ THEN BEGIN MRM2
	SAY @2352
	=
	@2353
	IF ~~ THEN REPLY @2354 GOTO MRM2d
	IF ~!IsValidForPartyDialog("Aerie")~ THEN REPLY @2355 GOTO MRM2c
	IF ~IsValidForPartyDialog("Aerie")~ THEN REPLY @2355 GOTO MRM2ca
	IF ~~ THEN REPLY @2356 GOTO MRM2b
	IF ~~ THEN REPLY @2357 GOTO MRM2a
END 

IF ~~ THEN BEGIN MRM2a
	SAY @2358
	=
	@2359
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRM2b
	SAY @2360
	=
	@2361
	IF ~IsValidForPartyDialog("Aerie")~ THEN GOTO MRM2da
	IF ~!IsValidForPartyDialog("Aerie")~ THEN GOTO MRM2db
END


IF ~~ THEN BEGIN MRM2c
	SAY @2362
	=
	@2359
	=
	@2363
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN MRM2ca
	SAY @2362
	=
	@2359
	=
	@2364
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXTERN AERIEJ MRM2ca2
END

IF ~~ THEN BEGIN MRM2d
	SAY @2365
	=
	@2359
	IF ~IsValidForPartyDialog("Aerie")~ THEN GOTO MRM2da
	IF ~!IsValidForPartyDialog("Aerie")~ THEN GOTO MRM2db
END

IF ~~ THEN BEGIN MRM2da
	SAY @2366
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXTERN AERIEJ MRM2ca2
END

IF ~~ THEN BEGIN MRM2db
	SAY @2367
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN MRM3
	SAY @2368 = @2369 = @2370
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRM4
	SAY @2371
	=
	@2372
	IF ~IsValidForPartyDialog("Edwin")~ THEN GOTO MRM4a
	IF ~!IsValidForPartyDialog("Edwin")~ THEN GOTO MRM10
END

IF ~~ THEN BEGIN MRM4a
	SAY @2373
	=
	@2374
	IF ~~ THEN EXTERN EDWINJ MRM4b
END
	
IF ~~ THEN BEGIN MRM4c
	SAY @2375
	IF ~~ THEN GOTO MRM10
END

IF ~~ THEN BEGIN MRM5
	SAY @2376
	=
	@2377
	IF ~!HasItemEquiped("WA2ROBE",Player1)~ THEN GOTO MRM5a
	IF ~HasItemEquiped("WA2ROBE",Player1)~ THEN GOTO MRM5b
END

IF ~~ THEN BEGIN MRM5b
	SAY @2378
	IF ~~ THEN REPLY @2379 GOTO MRM5b1
	IF ~~ THEN REPLY @2380 GOTO MRM5b1
	IF ~~ THEN REPLY @2381 GOTO MRM5b1
	IF ~~ THEN REPLY @2382 GOTO MRM5b1
END

IF ~~ THEN BEGIN MRM5b1
	SAY @401
	IF ~~ THEN GOTO MRM10
END

IF ~~ THEN BEGIN MRM5a
	SAY @2383
	IF ~~ THEN GOTO MRM5a1
	IF ~HasItemEquiped("WA2ROBE","Nalia") IsValidForPartyDialog("Nalia")~ THEN EXTERN NALIAJ MRM5a1cha1
	IF ~HasItemEquiped("WA2ROBE","Aerie") IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ MRM5a1cha2
	IF ~HasItemEquiped("WA2ROBE","Jan") IsValidForPartyDialog("Jan")~ THEN EXTERN JANJ MRM5a1cha3
END

CHAIN2 NALIAJ MRM5a1cha1
@2469
END IMOEN2J MRM5a1

CHAIN2 AERIEJ MRM5a1cha2
@2470
END IMOEN2J MRM5a1

CHAIN2 JANJ MRM5a1cha3
@2471
END IMOEN2J MRM5a1

IF ~~ THEN BEGIN MRM5a1
	SAY @2384
	IF ~~ THEN GOTO MRM10
END

IF ~~ THEN BEGIN MRM6
	SAY @2376
	=
	@2385
	IF ~~ THEN GOTO MRM10
END

IF ~~ THEN BEGIN MRM7
	SAY @2386
	IF ~~ THEN REPLY @2387 GOTO MRM4
	IF ~PartyHasItem("WA2ROBE")
	    !HasItemEquiped("WA2ROBE","Imoen2")~ THEN REPLY @2388 GOTO MRM5
	IF ~HasItemEquiped("WA2ROBE","Imoen2")~ THEN REPLY @2389 GOTO MRM6
	IF ~~ THEN REPLY @2390 GOTO MRM3
	IF ~~ THEN REPLY @2351 GOTO MRM2
END

IF ~~ THEN BEGIN SUMR7b15
	SAY @2391
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN MRM8
	SAY @2392
	IF ~~ THEN GOTO MRM10
END

IF ~~ THEN BEGIN MRM9
	SAY @2393
	IF ~~ THEN GOTO MRM10
END

IF ~~ THEN BEGIN MRM10
	SAY @2394
	=
	@2395
	IF ~~ THEN REPLY @2396 GOTO MRM14
	IF ~~ THEN REPLY @2397 GOTO MRM13
	IF ~~ THEN REPLY @2398 GOTO MRM11
	IF ~~ THEN REPLY @2399 GOTO MRM11
	IF ~~ THEN REPLY @2400 GOTO MRM12
	IF ~~ THEN REPLY @2401 GOTO MRM11
END

IF ~~ THEN BEGIN MRM11
	SAY @2402
	IF ~InParty("Nalia")~ THEN GOTO MRM11a
	IF ~!InParty("Nalia")~ THEN GOTO MRM11b
END

IF ~~ THEN BEGIN MRM11a
	SAY @2403
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRM11b
	SAY @2404
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRM12
	SAY @2405
	IF ~InParty("Nalia")~ THEN GOTO MRM11a
	IF ~!InParty("Nalia")~ THEN GOTO MRM11b
END

IF ~~ THEN BEGIN MRM13
	SAY @2406
	IF ~InParty("Nalia")~ THEN GOTO MRM11a
	IF ~!InParty("Nalia")~ THEN GOTO MRM11b
END

IF ~~ THEN BEGIN MRM14
	SAY @2407
	IF ~InParty("Nalia")~ THEN GOTO MRM11a
	IF ~!InParty("Nalia")~ THEN GOTO MRM11b
END



// *** 2nd one: 60.000 GP ***
	
IF WEIGHT #518
~Global("2ndMoneyTriggerMR","GLOBAL",1)
	Global("2ndMoneyTalkPassedMR","GLOBAL",0)~ THEN BEGIN MRM15pet
	SAY @2408
	IF ~~ THEN DO ~SetGlobal("2ndMoneyTalkPassedMR","GLOBAL",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO MRM15
END

IF ~~ THEN BEGIN MRM15
	SAY @2409
	=
	@2410
	=
	@2411
	IF ~~ THEN REPLY @2412 GOTO MRM18
	IF ~~ THEN REPLY @2413 GOTO MRM17
	IF ~~ THEN REPLY @2414 GOTO MRM17
	IF ~Gender(Player1,MALE)~ THEN REPLY @2415 GOTO MRM16
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @2415 GOTO MRM16FF
END
	
IF ~~ THEN BEGIN MRM16
	SAY @2416
	=
	@2417
	=
	@2418
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN MRM16FF
	SAY @2419
	=
	@2420
	=
	@2418
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
END


IF ~~ THEN BEGIN MRM17
	SAY @2421
	=
	@2422
	IF ~~ THEN GOTO MRM19
END

IF ~~ THEN BEGIN MRM18
	SAY @2423
	=
	@2424
	=
	@2422
	IF ~~ THEN GOTO MRM19
END

IF ~~ THEN BEGIN MRM19
	SAY @2425
	IF ~~ THEN REPLY @2426 GOTO MRM20
	IF ~~ THEN REPLY @2427 GOTO MRM20
	IF ~~ THEN REPLY @2428 GOTO MRM21
	IF ~~ THEN REPLY @2429 GOTO MRM21
END

IF ~~ THEN BEGIN MRM20
	SAY @2430
	IF ~~ THEN GOTO MRM22
END

IF ~~ THEN BEGIN MRM21
	SAY @2431
	IF ~~ THEN GOTO MRM22
END

IF ~~ THEN BEGIN MRM22
	SAY @2432
	IF ~~ THEN REPLY @2433 GOTO MRM23
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	!Global("HadSexMessyInterlude","GLOBAL",1)~ THEN REPLY @2434 GOTO MRM26
	IF ~~ THEN REPLY @2435 GOTO MRM24
	IF ~~ THEN REPLY @2436 GOTO MRM25
	IF ~~ THEN REPLY @2437 GOTO MRM23
	IF ~~ THEN REPLY @2438 GOTO MRM16
END

IF ~~ THEN BEGIN MRM23
	SAY @2439
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRM24
	SAY @2440
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRM25
	SAY @2441
	=
	@2442
	=
	@2443
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRM26
	SAY @2444
	=
	@2445
	=
	@2446
	IF ~~ THEN EXIT
END


	// *** 3rd one: 100.000 GP ***

IF WEIGHT #519
~Global("3rdMoneyTriggerMR","GLOBAL",1)
		Global("3rdMoneyTalkPassedMR","GLOBAL",0)~ THEN BEGIN MRM28
	SAY @2447
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 MRM28a
END

IF ~~ THEN BEGIN MRM28b
	SAY @2448
	=
	@2449
 	IF ~~ THEN GOTO MRM28c
END

IF ~~ THEN BEGIN MRM28c
	SAY @2450
	IF ~IsValidForPartyDialog("Nalia")~ EXTERN NALIAJ NaMoCoMR
	IF ~!IsValidForPartyDialog("Nalia")
		IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ AeMoCoMR
	IF ~!IsValidForPartyDialog("Nalia")
		!IsValidForPartyDialog("Aerie")
		IsValidForPartyDialog("Keldorn")~ THEN EXTERN KELDORJ KeMoCoMR
	IF ~!IsValidForPartyDialog("Nalia")
		!IsValidForPartyDialog("Aerie")
		!IsValidForPartyDialog("Keldorn") 
		IsValidForPartyDialog("Korgan")~ THEN EXTERN KORGANJ KoMoCoMR
	IF ~!IsValidForPartyDialog("Nalia")
		!IsValidForPartyDialog("Aerie")
		!IsValidForPartyDialog("Keldorn") 
		!IsValidForPartyDialog("Korgan") 
		IsValidForPartyDialog("Edwin")~ THEN EXTERN EDWINJ EdMoCoMR
	IF ~!IsValidForPartyDialog("Nalia")
		!IsValidForPartyDialog("Aerie")
		!IsValidForPartyDialog("Keldorn") 
		!IsValidForPartyDialog("Korgan") 
		!IsValidForPartyDialog("Edwin")
		IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ ViMoCoMR
	IF ~!IsValidForPartyDialog("Nalia")
		!IsValidForPartyDialog("Aerie")
		!IsValidForPartyDialog("Keldorn")
		!IsValidForPartyDialog("Korgan")
		!IsValidForPartyDialog("Edwin")
		!IsValidForPartyDialog("Viconia")~ THEN GOTO MRM29
END

IF ~~ THEN BEGIN MRM29
	SAY @2451
	IF ~~ THEN REPLY @2452 GOTO MRM34
	IF ~~ THEN REPLY @2453 GOTO MRM34
	IF ~~ THEN REPLY @2454 GOTO MRM34
	IF ~~ THEN REPLY @2455 GOTO MRM33
	IF ~~ THEN REPLY @2456 GOTO MRM33
	IF ~~ THEN REPLY @2457 GOTO MRM32
	IF ~~ THEN REPLY @1018 GOTO MRM31
END

IF ~~ THEN BEGIN MRM31
	SAY @2458
	IF ~~ THEN REPLY @2459 GOTO MRM31a
	IF ~~ THEN REPLY @2460 GOTO MRM33
END

IF ~~ THEN BEGIN MRM31a
	SAY @2461
	=
	@2462
	=
	@2463
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRM32
	SAY @2464
	=
	@2463
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN MRM33
	SAY @2465
	=
	@2466
	=
	@2467
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRM34
	SAY @2468
	IF ~~ THEN EXIT
END
END



APPEND PLAYER1
	IF ~~ THEN BEGIN MRM28a
		SAY @2472
		=
		@2473
		IF ~~ THEN DO ~SetGlobal("3rdMoneyTalkPassedMR","GLOBAL",1)~ EXTERN IMOEN2J MRM28b
	END
END

APPEND NALIAJ
	IF ~~ THEN BEGIN NaMoCoMR
		SAY @2474
	IF ~!IsValidForPartyDialog("Aerie")
		!IsValidForPartyDialog("Keldorn")
		!IsValidForPartyDialog("Korgan")
		!IsValidForPartyDialog("Edwin")
		!IsValidForPartyDialog("Viconia")~ THEN EXTERN IMOEN2J MRM29
	IF ~IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ AeMoCoMR
	IF ~!IsValidForPartyDialog("Aerie")
		IsValidForPartyDialog("Keldorn")~ THEN EXTERN KELDORJ KeMoCoMR
	IF ~!IsValidForPartyDialog("Aerie")
		!IsValidForPartyDialog("Keldorn") 
		IsValidForPartyDialog("Korgan")~ THEN EXTERN KORGANJ KoMoCoMR
	IF ~!IsValidForPartyDialog("Aerie")
		!IsValidForPartyDialog("Keldorn") 
		!IsValidForPartyDialog("Korgan") 
		IsValidForPartyDialog("Edwin")~ THEN EXTERN EDWINJ EdMoCoMR
	IF ~!IsValidForPartyDialog("Aerie")
		!IsValidForPartyDialog("Keldorn") 
		!IsValidForPartyDialog("Korgan") 
		!IsValidForPartyDialog("Edwin") 
		IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ ViMoCoMR 
	END
END

APPEND AERIEJ
	IF ~~ THEN BEGIN MRM2ca2
		SAY @2475
		IF ~~ THEN EXIT
	END
	
	IF ~~ THEN BEGIN AeMoCoMR
		SAY @2476
	IF ~!IsValidForPartyDialog("Keldorn")
		!IsValidForPartyDialog("Korgan")
		!IsValidForPartyDialog("Edwin")
		!IsValidForPartyDialog("Viconia")~ THEN EXTERN IMOEN2J MRM29
	IF ~IsValidForPartyDialog("Keldorn")~ THEN EXTERN KELDORJ KeMoCoMR
	IF ~!IsValidForPartyDialog("Keldorn") 
		IsValidForPartyDialog("Korgan")~ THEN EXTERN KORGANJ KoMoCoMR
	IF ~!IsValidForPartyDialog("Keldorn") 
		!IsValidForPartyDialog("Korgan") 
		IsValidForPartyDialog("Edwin")~ THEN EXTERN EDWINJ EdMoCoMR
	IF ~!IsValidForPartyDialog("Keldorn") 
		!IsValidForPartyDialog("Korgan") 
		!IsValidForPartyDialog("Edwin") 
		IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ ViMoCoMR 
	END
END

APPEND KELDORJ
	IF ~~ THEN BEGIN KeMoCoMR
		SAY @2477
	IF ~!IsValidForPartyDialog("Korgan")
		!IsValidForPartyDialog("Edwin")
		!IsValidForPartyDialog("Viconia")~ THEN EXTERN IMOEN2J MRM29
	IF ~IsValidForPartyDialog("Korgan")~ THEN EXTERN KORGANJ KoMoCoMR
	IF ~!IsValidForPartyDialog("Korgan") 
		IsValidForPartyDialog("Edwin")~ THEN EXTERN EDWINJ EdMoCoMR
	IF ~!IsValidForPartyDialog("Korgan") 
		!IsValidForPartyDialog("Edwin") 
		IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ ViMoCoMR 
	END
END

APPEND KORGANJ
	IF ~~ THEN BEGIN KoMoCoMR
		SAY @2478
	IF ~!IsValidForPartyDialog("Edwin")
		!IsValidForPartyDialog("Viconia")~ THEN EXTERN IMOEN2J MRM29
	IF ~IsValidForPartyDialog("Edwin")~ THEN EXTERN EDWINJ EdMoCoMR
	IF ~!IsValidForPartyDialog("Edwin") 
		IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ ViMoCoMR 
	END
END

APPEND EDWINJ
	IF ~~ THEN BEGIN MRM4b
		SAY @2479
		=
		@2480
		=
		@2481
		IF ~~ THEN EXTERN IMOEN2J MRM4c
	END

	IF ~~ THEN BEGIN EdMoCoMR
		SAY @2482
	IF ~!IsValidForPartyDialog("Viconia")~ THEN EXTERN IMOEN2J MRM29
	IF ~IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ ViMoCoMR 
	END
END

APPEND VICONIJ
	IF ~~ THEN BEGIN ViMoCoMR
		SAY @2483
	IF ~~ THEN EXTERN IMOEN2J MRM29
	END
END

APPEND BIMOEN2

// *** Lovetalks ***



// ***1***

IF WEIGHT #-900 ~!Global("ImoenRomanceActive","GLOBAL",3)
	Global("ImTalksMR","GLOBAL",2) !Global("PressedMR","LOCALS",1)
	~ THEN BEGIN 18arrebutifori
	SAY @2484
IF ~~ THEN GOTO 18nextarrebutifori
END

IF ~~ THEN BEGIN 18nextarrebutifori
	SAY @2485 = @2486
	IF ~!Global("PressedMR","LOCALS",2)~ THEN REPLY @2487 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1) SetGlobal("IAskedMR","LOCALS",1)~ GOTO 22MRarrebutifori
	IF ~~ THEN REPLY @2488 GOTO 23MRarrebutifori
	IF ~~ THEN REPLY @2489 GOTO 19arrebutifori
	IF ~~ THEN REPLY @2490 GOTO 20arrebutifori
	IF ~~ THEN REPLY @2491 GOTO 21arrebutifori
END

IF WEIGHT #-900 ~!Global("ImoenRomanceActive","GLOBAL",3)
Global("ImTalksMR","GLOBAL",2) Global("PressedMR","LOCALS",1)
~ THEN BEGIN 18new1arrebutifori
SAY @5321 // = ~<CHARNAME>, I...~ [MRImRom1]
IF ~~ THEN DO ~SetGlobal("PressedMR","LOCALS",5)~ GOTO 18new2arrebutifori
END

IF ~~ THEN BEGIN 18new2arrebutifori
SAY @5322 // = ~Sorry for yellin' at ya. You were just trying to be kind and show some concern an' all... an' that's very sweet of you, heheh...~
= @5323 // = ~It's just that... I try to keep certain things out of my mind, y'know...? And you... you almost make me...~
= @5324 // = ~Oh forget about it. I have other things to worry about right now, like, heh... just *why* you took so much time coming to rescue me!?~
IF ~~ THEN GOTO 18nextarrebutifori
END

IF ~~ THEN BEGIN 19arrebutifori
	SAY @2492
	=
	@2493
	=
	@2494
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)
	ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 20arrebutifori
	SAY @2495
	=
	@2496
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 21arrebutifori
	SAY @2497
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 22MRarrebutifori
	SAY @2498
	=
	@2499
	=
	@2500
	IF ~~ THEN REPLY @2501 GOTO 23MRarrebutifori
	IF ~~ THEN REPLY @2491 GOTO 21arrebutifori
END

IF ~~ THEN BEGIN 23MRarrebutifori
	SAY @2502
	IF ~!Alignment(Player1,LAWFUL_EVIL)
	!Alignment(Player1,NEUTRAL_EVIL)
	!Alignment(Player1,CHAOTIC_EVIL)~ THEN REPLY @2503 GOTO 27arrebutifori
	IF ~OR(3)
	Alignment(Player1,LAWFUL_EVIL)
	Alignment(Player1,NEUTRAL_EVIL)
	Alignment(Player1,CHAOTIC_EVIL)~ THEN REPLY @2504 GOTO 27liearrebutifori
	IF ~!Alignment(Player1,LAWFUL_EVIL)
	!Alignment(Player1,NEUTRAL_EVIL)
	!Alignment(Player1,CHAOTIC_EVIL)~ THEN REPLY @2505 GOTO 26arrebutifori
	IF ~OR(3)
	Alignment(Player1,LAWFUL_EVIL)
	Alignment(Player1,NEUTRAL_EVIL)
	Alignment(Player1,CHAOTIC_EVIL)~ THEN REPLY @2506 GOTO 27liearrebutifori
	IF ~~ THEN REPLY @2507GOTO 24arrebutifori
	IF ~~ THEN REPLY @2508 GOTO 25arrebutifori
	IF ~~ THEN REPLY @2509 GOTO 28arrebutifori
	IF ~~ THEN REPLY @2510 GOTO 19arrebutifori
END

IF ~~ THEN BEGIN 27liearrebutifori
	SAY @2511
	IF ~~ THEN GOTO 28arrebutifori
END

IF ~~ THEN BEGIN 24arrebutifori
	SAY @2512
	=
	@2513
	=
	@2514
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("KindnessCounter","GLOBAL",0)
	ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 25arrebutifori
	SAY @2515
	=
	@2516
	IF ~~ THEN GOTO 33arrebutifori
END // 100

IF ~~ THEN BEGIN 26arrebutifori
	SAY @2517
	IF ~~ THEN GOTO 28arrebutifori
END

IF ~~ THEN BEGIN 27arrebutifori
	SAY @2518
	IF ~~ THEN GOTO 28arrebutifori
END

IF ~~ THEN BEGIN 28arrebutifori
	SAY @2519
	IF ~InParty("Minsc")~ THEN REPLY @2520 GOTO 30arrebutifori
	IF ~!InParty("Minsc")~ THEN REPLY @2521 GOTO 32arrebutifori
	IF ~~ THEN REPLY @2522 GOTO 32aarrebutifori
	IF ~~ THEN REPLY @2523 GOTO 29arrebutifori
	IF ~~ THEN REPLY @2524 GOTO 21arrebutifori
END

IF ~~ THEN BEGIN 29arrebutifori
	SAY @2525
	=
	@2526
	=
	@2527
	IF ~~ THEN GOTO 33arrebutifori
END

IF ~~ THEN BEGIN 30arrebutifori
	SAY @2528
IF ~~ THEN EXTERN MINSCJ Mirrabbo
END

IF ~~ THEN BEGIN 31MRarrebutifori
	SAY @2529
	=
	@225
	IF ~~ THEN GOTO 33arrebutifori
END

IF ~~ THEN BEGIN 32arrebutifori
	SAY @2531
	=
	@2532
	IF ~~ THEN GOTO 33arrebutifori
END

IF ~~ THEN BEGIN 32aarrebutifori
	SAY @2533
	IF ~~ THEN GOTO 33arrebutifori
END

IF ~~ THEN BEGIN 33arrebutifori
	SAY @453
	=	
	@2534
	=
	@2535
	=
	@2536
	IF ~~ THEN REPLY @2537 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 38arrebutifori
	IF ~~ THEN REPLY @2538 GOTO 37arrebutifori
	IF ~~ THEN REPLY @2539 GOTO 36arrebutifori
	IF ~~ THEN REPLY @2540 GOTO 39arrebutifori
	IF ~~ THEN REPLY @2541 GOTO 35arrebutifori
	IF ~~ THEN REPLY @2542 GOTO 34arrebutifori
END

IF ~~ THEN BEGIN 34arrebutifori
	SAY @2543
	=
	@2544
	=
	@2545
	=
	@2546
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 35arrebutifori
	SAY @2547
	=
	@2548
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 36arrebutifori
	SAY @2549
	=
	@453
	=
	@2550
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 37arrebutifori
	SAY @2551
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END // 200

IF ~~ THEN BEGIN 38arrebutifori
	SAY @2552
	=
	@2553
	=
	@2554
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	IncrementGlobal("KindnessCounter","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 39arrebutifori
	SAY @2555
	=
	@2556
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END


// ***2***


IF WEIGHT #-900 ~!Global("ImoenRomanceActive","GLOBAL",3)
	Global("ImTalksMR","GLOBAL",4)
	Global("DontLoopPleaseMR","LOCALS",0)
	!Global("PressedMR","LOCALS",1)
	~ THEN BEGIN 40arrebutifori
	SAY @2557
	IF ~Global("IAskedMR","LOCALS",1)~ THEN REPLY @2558 DO ~SetGlobal("IAskedMR","LOCALS",2)
	SetGlobal("DontLoopPleaseMR","LOCALS",1)~ GOTO 44arrebutifori
	IF ~!Global("IAskedMR","LOCALS",1)~ THEN REPLY @2558 DO ~SetGlobal("DontLoopPleaseMR","LOCALS",1)~ GOTO 44aarrebutifori
	IF ~~ THEN REPLY @2559 GOTO 43arrebutifori
	IF ~~ THEN REPLY @2560 DO ~SetGlobal("DontLoopPleaseMR","LOCALS",1)~ GOTO 42arrebutifori
	IF ~~ THEN REPLY @2561 DO ~SetGlobal("DontLoopPleaseMR","LOCALS",1)~ GOTO 41arrebutifori
END

IF WEIGHT #-900 ~!Global("ImoenRomanceActive","GLOBAL",3)
	Global("ImTalksMR","GLOBAL",4)
	Global("DontLoopPleaseMR","LOCALS",0)
	Global("PressedMR","LOCALS",1)
	~ THEN BEGIN 40newarrebutifori
SAY @5325 // = ~<CHARNAME>, I...~
IF ~~ THEN DO ~SetGlobal("PressedMR","LOCALS",0)~ GOTO 40new2arrebutifori
END

IF ~~ THEN BEGIN 40new2arrebutifori
SAY @5322 // = ~Sorry for yellin' at ya. You were just trying to be kind and show some concern an' all... an' that's very sweet of you, heheh...~
= @5323 
= @5326 // = ~Well, I-- I must do something about it. If you have some minutes to spare...~
IF ~Global("IAskedMR","LOCALS",1)~ THEN REPLY @2558 DO ~SetGlobal("IAskedMR","LOCALS",2)
SetGlobal("DontLoopPleaseMR","LOCALS",1)~ GOTO 44arrebutifori
IF ~!Global("IAskedMR","LOCALS",1)~ THEN REPLY @2558 DO ~SetGlobal("DontLoopPleaseMR","LOCALS",1)~ GOTO 44aarrebutifori
IF ~~ THEN REPLY @2559 GOTO 43arrebutifori
IF ~~ THEN REPLY @2560 DO ~SetGlobal("DontLoopPleaseMR","LOCALS",1)~ GOTO 42arrebutifori
IF ~~ THEN REPLY @2561 DO ~SetGlobal("DontLoopPleaseMR","LOCALS",1)~ GOTO 41arrebutifori
END

IF ~~ THEN BEGIN 41arrebutifori
	SAY @2562
	=
	@2563
	=
	@2564
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 42arrebutifori
	SAY @2565
	=
	@2566
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 43arrebutifori
	SAY @2497
	IF ~~ THEN DO ~SetGlobal("ImTalksMR","GLOBAL",2)
	ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 44arrebutifori
	SAY @2567 = @2568 = @5108 = @2569
	IF ~~ THEN REPLY @2570 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 47arrebutifori
	IF ~~ THEN REPLY @2571 GOTO 46arrebutifori
	IF ~~ THEN REPLY @2572 GOTO 42arrebutifori
	IF ~~ THEN REPLY @2573 GOTO 45arrebutifori
END

IF ~~ THEN BEGIN 44aarrebutifori
	SAY @2567 =	@2575	= @5108 = @2569
	IF ~~ THEN REPLY @2570 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 47arrebutifori
	IF ~~ THEN REPLY @2571 GOTO 46arrebutifori
	IF ~~ THEN REPLY @2572 GOTO 42arrebutifori
	IF ~~ THEN REPLY @2573 GOTO 45arrebutifori
END
IF ~~ THEN BEGIN 45arrebutifori
	SAY @2562
	=
	@2563
	=
	@2578
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
      SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 46arrebutifori
	SAY @2579
	IF ~~ THEN GOTO 48arrebutifori
END

IF ~~ THEN BEGIN 47arrebutifori
	SAY @2580
	IF ~~ THEN GOTO 48arrebutifori
END

IF ~~ THEN BEGIN 48arrebutifori
	SAY @2581 = @2582 = @2583 = @2584 = @2585 = @2586 = @2587 = @2588 = @2589
	IF ~~ THEN REPLY @2590 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 51arrebutifori
	IF ~~ THEN REPLY @2591 GOTO 51arrebutifori
	IF ~~ THEN REPLY @2592 GOTO 50arrebutifori
	IF ~~ THEN REPLY @2593 GOTO 49arrebutifori
END

IF ~~ THEN BEGIN 49arrebutifori
	SAY @2594
	=
	@2595
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 50arrebutifori
	SAY @2596
	=
	@2597 
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END


IF ~~ THEN BEGIN 51arrebutifori
	SAY @2598 = @2599 = @2600 = @2601 = @2602 = @2603 = @2604 = @2605 = @2606 = @5109 = @5110 = @5111 = @5112 = @5113 = @2607 = @2608 =
	@2609 = @2610 = @2611 =	@2612 
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("ImRoCut1")~ EXIT
END

IF ~Global("NextRomance1MR","GLOBAL",1)~ THEN BEGIN 51nextarrebutifori
	SAY @2613
	IF ~~ THEN DO ~SetGlobal("NextRomance1MR","GLOBAL",2)~ GOTO 51next2arrebutifori
END

IF ~~ THEN BEGIN 51next2arrebutifori
	SAY @2614
	IF ~~ THEN REPLY @2615 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 53arrebutifori
	IF ~~ THEN REPLY @2616 GOTO 53arrebutifori
	IF ~~ THEN REPLY @2617 GOTO 52arrebutifori
END

IF ~~ THEN BEGIN 52arrebutifori
	SAY @2618
	=
	@2619	
	=
	@2620
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 53arrebutifori
	SAY @2621
	IF ~~ THEN REPLY @2622 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 54arrebutifori
	IF ~~ THEN REPLY @2623 GOTO 54arrebutifori
	IF ~~ THEN REPLY @2624 GOTO 54arrebutifori
	IF ~~ THEN REPLY @2625 GOTO 54arrebutifori
	IF ~~ THEN REPLY @2626 GOTO 54arrebutifori
END

IF ~~ THEN BEGIN 54arrebutifori
	SAY @2627
	=
	@2628
	=
	@2629
	=
	@2630
	=
	@2631
	IF ~~ THEN REPLY @2632 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~  GOTO 55arrebutifori
	IF ~~ THEN REPLY @2633 GOTO 55arrebutifori
END

IF ~~ THEN BEGIN 55arrebutifori
	SAY @2634
	=
	@2635 
	=
	@2636
	=
	@2637
	=
	@2638
	IF ~~ THEN REPLY @2639 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 56arrebutifori
	IF ~~ THEN REPLY @2640 GOTO 58arrebutifori
	IF ~CheckStatGT(Player1,12,WIS)~ THEN REPLY @2641 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 59arrebutifori
	IF ~~ THEN REPLY @2642 GOTO 57arrebutifori
	IF ~~ THEN REPLY @2643 GOTO 49arrebutifori
END

IF ~~ THEN BEGIN 56arrebutifori
	SAY @2644
	=
	@2645
	IF ~~ THEN REPLY @2640 GOTO 58arrebutifori
	IF ~CheckStatGT(Player1,12,WIS)~ THEN REPLY @2641 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 59arrebutifori
	IF ~~ THEN REPLY @2643 GOTO 49arrebutifori
END

IF ~~ THEN BEGIN 57arrebutifori
	SAY @2646
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 58arrebutifori
	SAY @2647
	=
	@2648
	=
	@2649
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END
	
IF ~~ THEN BEGIN 59arrebutifori
	SAY @2650
IF ~CheckStatGT(Player1,12,WIS)~ THEN REPLY @2651 GOTO 62arrebutifori
IF ~~ THEN REPLY @2652 GOTO 61arrebutifori
IF ~CheckStatGT(Player1,13,WIS)~ THEN REPLY @2653 GOTO 62arrebutifori
IF ~~ THEN REPLY @2654 GOTO 60arrebutifori
END

IF ~~ THEN BEGIN 60arrebutifori
	SAY @2655
	=
	@2656
	=
	@2657
IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END 

IF ~~ THEN BEGIN 61arrebutifori
	SAY @2658
	=
	@2659
	=
	@2660
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 62arrebutifori
	SAY @2661
	=
	@2662
	=
	@2663
	IF ~~ THEN REPLY @2664 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 63arrebutifori
	IF ~~ THEN REPLY @2665 GOTO 57arrebutifori
	IF ~~ THEN REPLY @2666 GOTO 62aarrebutifori
END

IF ~~ THEN BEGIN 62aarrebutifori
	SAY @2667
	=
	@2668
	=
	@2669
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 63arrebutifori
	SAY @2670
	=
	@2671
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END


// ***3***


IF WEIGHT #-900 ~!Global("ImoenRomanceActive","GLOBAL",3)
	Global("ImTalksMR","GLOBAL",6)
	Global("HadConversation1","GLOBAL",1)
	!Global("PressedMR","LOCALS",1)
	~ THEN BEGIN 64arrebutifori
	SAY @2672 
	IF ~~ THEN GOTO 64nextarrebutifori
END

IF ~~ THEN BEGIN 64nextarrebutifori
	SAY @2673
	IF ~IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ Mirrabb1
	IF ~!IsValidForPartyDialog("Viconia")~ THEN GOTO 64aarrebutifori
END 

IF WEIGHT #-900 ~!Global("ImoenRomanceActive","GLOBAL",3)
	Global("ImTalksMR","GLOBAL",6)
	Global("HadConversation1","GLOBAL",1)
	Global("PressedMR","LOCALS",1)~ THEN BEGIN 64new1arrebutifori
	SAY @5325
IF ~~ THEN DO ~SetGlobal("PressedMR","LOCALS",0)~ GOTO 64new2arrebutifori
END

IF ~~ THEN BEGIN 64new2arrebutifori
SAY @5322 
= @5327 // = ~There... there's something that troubles me indeed, it's obsessing me... I just couldn't find the way to tell ya...~
= @5328 // = ~But-- but I must do something 'bout it, or I'll go mad. There's something I omitted when talking about the torture...~
IF ~~ THEN GOTO 64vacaarrebutifori
END


IF ~~ THEN BEGIN Mirrabb2arrebutifori
	SAY @2674
	IF ~~ THEN EXTERN VICONIJ Mirrabb3
END

IF ~~ THEN BEGIN Mirrabb4arrebutifori
	SAY @2675
	IF ~~ THEN GOTO 64aarrebutifori
END

IF ~~ THEN BEGIN 64aarrebutifori
	SAY @2676
	IF ~~ THEN GOTO 64vacaarrebutifori
END

IF ~~ THEN BEGIN 64vacaarrebutifori
	SAY @2677
	IF ~~ THEN REPLY @2678 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 70arrebutifori
	IF ~~ THEN REPLY @2679 GOTO 71arrebutifori
	IF ~~ THEN REPLY @2680 GOTO 69arrebutifori
	IF ~~ THEN REPLY @2681 GOTO 68arrebutifori
	IF ~~ THEN REPLY @2682 GOTO 67arrebutifori
	IF ~~ THEN REPLY @2683 GOTO 65arrebutifori
	IF ~~ THEN REPLY @2684 GOTO 66arrebutifori
END

IF ~~ THEN BEGIN 65arrebutifori
	SAY @2685
	=
	@2686
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
      SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 66arrebutifori
	SAY @2687
	=
	@2688
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 67arrebutifori
	SAY @2689
	IF ~~ THEN DO ~SetGlobal("ImTalksMR","GLOBAL",4)
	ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 68arrebutifori
	SAY @2690
	IF ~~ THEN DO ~SetGlobal("ImTalksMR","GLOBAL",4)
	ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 69arrebutifori
	SAY @2691
	IF ~~ THEN GOTO 71arrebutifori
END

IF ~~ THEN BEGIN 70arrebutifori
	SAY @2692
	IF ~~ THEN GOTO 71arrebutifori
END

IF ~~ THEN BEGIN 71arrebutifori
	SAY @2693
	=
	@2694
	IF ~~ THEN REPLY @2695 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 74arrebutifori
	IF ~~ THEN REPLY @2696 GOTO 74arrebutifori
	IF ~~ THEN REPLY @2697 GOTO 75arrebutifori
	IF ~~ THEN REPLY @2698 GOTO 73arrebutifori
	IF ~~ THEN REPLY @2699 GOTO 72arrebutifori
END



IF ~~ THEN BEGIN 72arrebutifori
	SAY @2700
	=
	@2701
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
      SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 73arrebutifori
	SAY @2702
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 74arrebutifori
	SAY @2580
	IF ~~ THEN GOTO 75arrebutifori
END

IF ~~ THEN BEGIN 75arrebutifori
	SAY @2703
	=
	@2704
	=
	@2705
	=
	@2706
	IF ~~ THEN REPLY @2707 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 80arrebutifori
	IF ~~ THEN REPLY @2708 GOTO 78arrebutifori
	IF ~~ THEN REPLY @2709 GOTO 77arrebutifori
	IF ~~ THEN REPLY @2710 GOTO 76arrebutifori
	IF ~~ THEN REPLY @2711 GOTO 72arrebutifori 
END

IF ~~ THEN BEGIN 76arrebutifori
	SAY @2712
	IF ~~ THEN GOTO 81arrebutifori
END

IF ~~ THEN BEGIN 77arrebutifori
	SAY @2713
	=
	@2714
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
      SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 78arrebutifori
	SAY @2715
	IF ~~ THEN REPLY @2716 GOTO 80arrebutifori
	IF ~~ THEN REPLY @2717 GOTO 79arrebutifori
	IF ~~ THEN REPLY @2718 GOTO 77arrebutifori
	IF ~~ THEN REPLY @2719 GOTO 72arrebutifori
END

IF ~~ THEN BEGIN 79arrebutifori
	SAY @2720
	IF ~~ THEN REPLY @2721 GOTO 80arrebutifori
	IF ~~ THEN REPLY @2722 GOTO 77arrebutifori
	IF ~~ THEN REPLY @2723 GOTO 72arrebutifori
END

IF ~~ THEN BEGIN 80arrebutifori
	SAY @2724
	IF ~~ THEN GOTO 81arrebutifori
END

IF ~~ THEN BEGIN 81arrebutifori
	SAY @2725 = @2726	= @2727 = @2728 = @2729 = @2730 = @2731 = @2732	= @2733 = @2734 = @2735 = @2736 = @2737 = @2738	= @2739 = @453 =
	@2740 
	IF ~~ THEN REPLY @2741 GOTO 84arrebutifori
	IF ~~ THEN REPLY @2742 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 85arrebutifori
	IF ~~ THEN REPLY @2743 GOTO 83arrebutifori
	IF ~~ THEN REPLY @2744 GOTO 82arrebutifori
	IF ~~ THEN REPLY @2745 GOTO 81aarrebutifori
END

IF ~~ THEN BEGIN 81aarrebutifori
	SAY @2746
	=
	@2747
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
      SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 82arrebutifori
	SAY @2748
	IF ~~ THEN REPLY @2749 GOTO 82aarrebutifori
END

IF ~~ THEN BEGIN 82aarrebutifori
	SAY @2750
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 83arrebutifori
	SAY @2751
	=
	@453 
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 84arrebutifori
	SAY @2752
	=
	@453
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 85arrebutifori
	SAY @2753 
	IF ~CheckStatGT(Player1,12,WIS)~ THEN REPLY @2754 GOTO 88arrebutifori
	IF ~~ THEN REPLY @2755 GOTO 86arrebutifori
END

IF ~~ THEN BEGIN 86arrebutifori
	SAY @2756
	IF ~CheckStatGT(Player1,12,WIS)~ THEN REPLY @2754 GOTO 88arrebutifori
	IF ~~ THEN REPLY @2757 GOTO 87arrebutifori
END

IF ~~ THEN BEGIN 87arrebutifori
	SAY @2758
	=
	@453
	=
	@2759
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END 

IF ~~ THEN BEGIN 88arrebutifori
	SAY @2760
	IF ~~ THEN REPLY @2761 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 90arrebutifori
	IF ~~ THEN REPLY @2762 GOTO 89arrebutifori
END

IF ~~ THEN BEGIN 89arrebutifori
	SAY @2763
	=
	@453
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 90arrebutifori
	SAY @453
	=
	@2764
	IF ~~ THEN REPLY @2765 GOTO 91arrebutifori
	IF ~~ THEN REPLY @2766 GOTO 90aarrebutifori
END

IF ~~ THEN BEGIN 90aarrebutifori
	SAY @2767
	=
	@2768
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 91arrebutifori
	SAY @2769 
	=
	@2770
	=
	@2771
	IF ~~ THEN REPLY @2772 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 92arrebutifori
	IF ~~ THEN REPLY @2773 GOTO 92arrebutifori
	IF ~~ THEN REPLY @2774 GOTO 92arrebutifori
END

IF ~~ THEN BEGIN 92arrebutifori
	SAY @2775 = @2776	= @2777 = @2778 =	@2779	= @2780
	IF ~~ THEN REPLY @2691 GOTO 114arrebutifori
	IF ~~ THEN REPLY @2781 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 111arrebutifori
	IF ~~ THEN REPLY @2782 GOTO 114NEWMRarrebutifori
	IF ~~ THEN REPLY @2783 GOTO 99arrebutifori
	IF ~~ THEN REPLY @2784 GOTO 101arrebutifori
	IF ~~ THEN REPLY @2785 GOTO 98arrebutifori
	IF ~~ THEN REPLY @2786 GOTO 115arrebutifori
	IF ~~ THEN REPLY @2787 GOTO 96arrebutifori
	IF ~~ THEN REPLY @2788 GOTO 102arrebutifori
	IF ~~ THEN REPLY @2789 GOTO 93arrebutifori
END

IF ~~ THEN BEGIN 114NEWMRarrebutifori
	SAY @2790
	=
	@2791
	IF ~~ THEN REPLY @2792 GOTO ILYMRarrebutifori
	IF ~~ THEN REPLY @2793 GOTO ILYMRarrebutifori
	IF ~~ THEN REPLY @2794 GOTO BitchMRarrebutifori
	IF ~~ THEN REPLY @2787 GOTO 96NEWMRarrebutifori
	IF ~~ THEN REPLY @2788 GOTO 102arrebutifori
	IF ~~ THEN REPLY @2789 GOTO 93arrebutifori
END

IF ~~ THEN BEGIN ILYMRarrebutifori
	SAY @2795
	=
	@2796
	=
	@2797
	=
	@2798
	IF ~Gender(Player1,MALE)~ THEN GOTO 103aarrebutifori
	IF ~Gender(Player1,FEMALE)~ THEN GOTO 103barrebutifori
END



IF ~~ THEN BEGIN BitchMRarrebutifori
	SAY @2799
	=
	@2800
	IF ~~ THEN REPLY @2801 GOTO WhatTheNEWMRarrebutifori
	IF ~~ THEN REPLY @2802 GOTO 97arrebutifori
	IF ~~ THEN REPLY @2803 GOTO MadNEWMRarrebutifori
	IF ~~ THEN REPLY @2804 GOTO 97NEWMRarrebutifori
END

IF ~~ THEN BEGIN 97NEWMRarrebutifori
	SAY @2805
	IF ~~ THEN GOTO 97arrebutifori
END

IF ~~ THEN BEGIN MadNEWMRarrebutifori
	SAY @2806
	=
	@2807
	=
	@2808
	=
	@2809
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1) ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN WhatTheNEWMRarrebutifori
	SAY @2810
	=
	@2811
	=
	@2812
	=
	@2813
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J")) LeaveParty()
	ReputationInc(-3) ActionOverride(Player1,ApplySpellRES("SPMRACCE",Player1)) 
	EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 96NEWMRarrebutifori
	SAY @2814 // 850
	IF ~~ THEN REPLY @2815 GOTO 97arrebutifori
	IF ~~ THEN REPLY @2816 GOTO 97arrebutifori
END


IF ~~ THEN BEGIN 93arrebutifori
	SAY @2817
	=
	@2818
	=
	@2819
	IF ~~ THEN REPLY @2820 GOTO 95arrebutifori
	IF ~~ THEN REPLY @2821 GOTO 94arrebutifori
END

IF ~~ THEN BEGIN 94arrebutifori
	SAY @2822
	=
	@2823
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
        GivePartyAllEquipment()
	LeaveParty()
	ReputationInc(-1)
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN 95arrebutifori
	SAY @2824
	=
	@2825
	=
	@2826
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 96arrebutifori
	SAY @2827
	=
	@2828 // 850
	IF ~~ THEN REPLY @2815 GOTO 97arrebutifori
	IF ~~ THEN REPLY @2816 GOTO 97arrebutifori
END

IF ~~ THEN BEGIN 97arrebutifori
	SAY @2829
	=
	@2830
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	ActionOverride(Player1,ApplySpellRES("SPMRACCN",Player1)) 
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN 98arrebutifori
	SAY @2831
	=
	@2832
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN 99arrebutifori
	SAY @2833 // 850
	=
	@2834
	=
	@2835
	IF ~~ THEN REPLY @2820 GOTO 95arrebutifori
	IF ~~ THEN REPLY @2821 GOTO 100arrebutifori
END

IF ~~ THEN BEGIN 100arrebutifori
	SAY @2836
	=
	@2837
	=
	@2826 // 900
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 101arrebutifori
	SAY @2838
	=
	@2839
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 102arrebutifori
	SAY @2840
	=
	@2841
	IF ~~ THEN REPLY @2842 GOTO 103arrebutifori
	IF ~~ THEN REPLY @2843 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 106arrebutifori
END

IF ~~ THEN BEGIN 103arrebutifori
	SAY @2844
	=
	@2845
	=
	@2846
	=
	@2798
	IF ~Gender(Player1,MALE)~ THEN GOTO 103aarrebutifori
	IF ~Gender(Player1,FEMALE)~ THEN GOTO 103barrebutifori
END

IF ~~ THEN BEGIN 103carrebutifori
	SAY @2844
	=
	@2846
	=
	@2798
	IF ~Gender(Player1,MALE)~ THEN GOTO 103aarrebutifori
	IF ~Gender(Player1,FEMALE)~ THEN GOTO 103barrebutifori
END

IF ~~ THEN BEGIN 103aarrebutifori
	SAY @2847
	IF ~~ THEN GOTO 104arrebutifori
END

IF ~~ THEN BEGIN 103barrebutifori
	SAY @2848
	IF ~~ THEN GOTO 104arrebutifori
END

IF ~~ THEN BEGIN 104arrebutifori
	SAY @2849
	IF ~~ THEN REPLY @2850 GOTO 105arrebutifori
	IF ~~ THEN REPLY @2851 GOTO 105arrebutifori
	IF ~~ THEN REPLY @2852 GOTO 105arrebutifori
END

IF ~~ THEN BEGIN 105arrebutifori
	SAY @2853
	=
	@2854
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
      SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT // 900
END

IF ~~ THEN BEGIN 106arrebutifori
	SAY @2855
	IF ~~ THEN REPLY @2856 GOTO 103arrebutifori
	IF ~~ THEN REPLY @2857 GOTO 107arrebutifori
	IF ~~ THEN REPLY @2858 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 109arrebutifori
END // 935

IF ~~ THEN BEGIN 107arrebutifori
	SAY @2844
	=
	@2845
	=
	@2859
	=
	@2798
	IF ~Gender(Player1,MALE)~ THEN GOTO 107aarrebutifori
	IF ~Gender(Player1,FEMALE)~ THEN GOTO 107barrebutifori 
END

IF ~~ THEN BEGIN 107aarrebutifori
	SAY @2860
	IF ~~ THEN GOTO 108arrebutifori
END

IF ~~ THEN BEGIN 107barrebutifori
	SAY @2861
	IF ~~ THEN GOTO 108arrebutifori
END

IF ~~ THEN BEGIN 108arrebutifori
	SAY @2862
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
      SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 109arrebutifori
	SAY @2863
	=
	@2864
	=
	@2865
	IF ~~ THEN REPLY @2866 GOTO 107arrebutifori
	IF ~~ THEN REPLY @2867 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 110arrebutifori
END

IF ~~ THEN BEGIN 110arrebutifori
	SAY @2868 = @2869 = @2870 = @2871 = @2872 = @2873 = @2874 =	@2875	= @2876
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 111arrebutifori
	SAY @2877
	=
	@2878
	IF ~~ THEN REPLY @2879 GOTO 113arrebutifori
	IF ~~ THEN REPLY @2880 GOTO 115arrebutifori
	IF ~~ THEN REPLY @2881 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 117arrebutifori
	IF ~~ THEN REPLY @2882 GOTO 112arrebutifori 
END

IF ~~ THEN BEGIN 112arrebutifori
	SAY @2883
	=
	@2884
	IF ~~ THEN REPLY @2885 GOTO 103arrebutifori
	IF ~~ THEN REPLY @2843 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 106arrebutifori
END

IF ~~ THEN BEGIN 113arrebutifori
	SAY @2886 // 990
	=
	@2887
	IF ~~ THEN REPLY @2888 GOTO 103carrebutifori
	IF ~~ THEN REPLY @2889 GOTO 102arrebutifori
	IF ~~ THEN REPLY @2890 GOTO 99arrebutifori
	IF ~~ THEN REPLY @2891 GOTO 93arrebutifori
	IF ~~ THEN REPLY @2892 GOTO 97arrebutifori
END
	
IF ~~ THEN BEGIN 114arrebutifori
	SAY @2893
	=
	@2894
	=
	@2895
	IF ~~ THEN REPLY @2781 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 111arrebutifori
	IF ~~ THEN REPLY @2783 GOTO 99arrebutifori
	IF ~~ THEN REPLY @2896 GOTO 101arrebutifori
	IF ~~ THEN REPLY @2785 GOTO 98arrebutifori
	IF ~~ THEN REPLY @2787 GOTO 96arrebutifori
	IF ~~ THEN REPLY @2788 GOTO 102arrebutifori
	IF ~~ THEN REPLY @2897 GOTO 93arrebutifori 
END

IF ~~ THEN BEGIN 115arrebutifori
	SAY @2898
	=
	@2899
	=
	@2900
	IF ~~ THEN REPLY @2781 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 111arrebutifori
	IF ~~ THEN REPLY @2901 GOTO 99arrebutifori
	IF ~~ THEN REPLY @2902 GOTO 101arrebutifori
	IF ~~ THEN REPLY @2903 GOTO 98arrebutifori
	IF ~~ THEN REPLY @2904 GOTO 116arrebutifori
	IF ~~ THEN REPLY @2905 GOTO 96arrebutifori
	IF ~~ THEN REPLY @2906 GOTO 102arrebutifori
	IF ~~ THEN REPLY @2907 GOTO 93arrebutifori 
END

IF ~~ THEN BEGIN 116arrebutifori
	SAY @2908
	= // 1035
	@2909
	IF ~~ THEN REPLY @2781 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 111arrebutifori
	IF ~~ THEN REPLY @2901 GOTO 99arrebutifori
	IF ~~ THEN REPLY @2910 GOTO 101arrebutifori
	IF ~~ THEN REPLY @2903 GOTO 98arrebutifori
	IF ~~ THEN REPLY @2905 GOTO 96arrebutifori
	IF ~~ THEN REPLY @2906 GOTO 102arrebutifori
	IF ~~ THEN REPLY @2907 GOTO 93arrebutifori
END

IF ~~ THEN BEGIN 117arrebutifori
	SAY @2911
	IF ~~ THEN REPLY @2912 GOTO 103carrebutifori
	IF ~~ THEN REPLY @2913 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 118arrebutifori
	IF ~~ THEN REPLY @2914 GOTO 101arrebutifori
	IF ~~ THEN REPLY @2915 GOTO 119arrebutifori
	IF ~~ THEN REPLY @2916 GOTO 99arrebutifori
	IF ~~ THEN REPLY @2917 GOTO 102arrebutifori
	IF ~~ THEN REPLY @2918 GOTO 96arrebutifori
END

IF ~~ THEN BEGIN 118arrebutifori
	SAY @2919 = @2869 = @2870 = @2920 = @2921 = @2873 = @2922 = @2923 = @2876
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	IncrementGlobal("KindnessCounter","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 119arrebutifori
	SAY @2924
	=
	@2925
	=
	@2819
	IF ~~ THEN REPLY @2820 GOTO 95arrebutifori
	IF ~~ THEN REPLY @2821 GOTO 94arrebutifori
END


// ***4***


IF WEIGHT #-900 ~!Global("ImoenRomanceActive","GLOBAL",3)
	Global("ImTalksMR","GLOBAL",8)
	~ THEN BEGIN 120arrebutifori
	SAY @2926 
	IF ~~ THEN REPLY @2927 GOTO 125arrebutifori
	IF ~~ THEN REPLY @2928 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 124arrebutifori
	IF ~~ THEN REPLY @2929 GOTO 122arrebutifori
	IF ~~ THEN REPLY @2930 GOTO 123arrebutifori
	IF ~~ THEN REPLY @2931 GOTO 121arrebutifori
END

IF ~~ THEN BEGIN 121arrebutifori
	SAY @2932
	=
	@2933
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
      SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 122arrebutifori
	SAY @2934
	IF ~ReputationLT(Player1,7)~ THEN GOTO 126barrebutifori
	IF ~ReputationGT(Player1,12)~ THEN GOTO 126aarrebutifori
	IF ~ReputationGT(Player1,6)
	    ReputationLT(Player1,13)~ THEN GOTO 126carrebutifori	
END

IF ~~ THEN BEGIN 123arrebutifori
	SAY @2935
	IF ~ReputationLT(Player1,7)~ THEN GOTO 126barrebutifori
	IF ~ReputationGT(Player1,12)~ THEN GOTO 126aarrebutifori
	IF ~ReputationGT(Player1,6)
	    ReputationLT(Player1,13)~ THEN GOTO 126carrebutifori	
END

IF ~~ THEN BEGIN 124arrebutifori
	SAY @2936
	IF ~ReputationLT(Player1,7)~ THEN GOTO 126barrebutifori
	IF ~ReputationGT(Player1,12)~ THEN GOTO 126aarrebutifori
	IF ~ReputationGT(Player1,6)
	    ReputationLT(Player1,13)~ THEN GOTO 126carrebutifori	
END

IF ~~ THEN BEGIN 125arrebutifori
	SAY @2937
	IF ~ReputationLT(Player1,7)~ THEN GOTO 126barrebutifori
	IF ~ReputationGT(Player1,12)~ THEN GOTO 126aarrebutifori
	IF ~ReputationGT(Player1,6)
	    ReputationLT(Player1,13)~ THEN GOTO 126carrebutifori	
END

IF ~~ THEN BEGIN 126aarrebutifori
	SAY @2938
	=
	@2939
	=
	@2940
	=
	@2941
	=
	@2942
	=
	@2943
	IF ~~ THEN REPLY @2944 GOTO 132arrebutifori
	IF ~~ THEN REPLY @2945 GOTO 131arrebutifori
	IF ~~ THEN REPLY @2946 GOTO 130arrebutifori
	IF ~~ THEN REPLY @2947 GOTO 129arrebutifori
	IF ~~ THEN REPLY @2948 GOTO 128arrebutifori
	IF ~~ THEN REPLY @2949 GOTO 127arrebutifori
END

IF ~~ THEN BEGIN 127arrebutifori
	SAY @2950
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
      SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 128arrebutifori
	SAY @2951
	=
	@2952
	IF ~~ THEN GOTO 133arrebutifori
END
	
IF ~~ THEN BEGIN 129arrebutifori
	SAY @2953
	IF ~~ THEN REPLY @2954 GOTO 129aarrebutifori
	IF ~~ THEN REPLY @2955 GOTO 129barrebutifori
END

IF ~~ THEN BEGIN 129aarrebutifori
	SAY @2956
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 129barrebutifori
	SAY @2957
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 130arrebutifori
	SAY @2958
	IF ~~ THEN REPLY @2959 GOTO 130aarrebutifori
	IF ~~ THEN REPLY @2960 GOTO 129arrebutifori
	IF ~~ THEN REPLY @2961 GOTO 130barrebutifori
	IF ~~ THEN REPLY @2962 GOTO 127arrebutifori
END

IF ~~ THEN BEGIN 130aarrebutifori
	SAY @2963
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 130barrebutifori
	SAY @2964
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 131arrebutifori
	SAY @2965
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 132arrebutifori
	SAY @2966
	IF ~~ THEN REPLY @2967 GOTO 132arrarrebutifori
END

IF ~~ THEN BEGIN 132arrarrebutifori
	SAY @2968 // 1243
	=
	@2969
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 133arrebutifori
	SAY @2970 
	IF ~~ THEN REPLY @2971 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 136harrebutifori
	IF ~~ THEN REPLY @2972 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 135harrebutifori
	IF ~~ THEN REPLY @2973 GOTO 134harrebutifori
END

IF ~~ THEN BEGIN 134harrebutifori
	SAY @2974
	IF ~~ THEN REPLY @2975 DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 135harrebutifori
	SAY @2976
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 136harrebutifori
	SAY @2977
	=
	@2978
	IF ~~ THEN REPLY @460 GOTO 136heharrebutifori
END

IF ~~ THEN BEGIN 136heharrebutifori
	SAY @2979
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 126barrebutifori
	SAY @2980
	=
	@2981
	=
	@2982
	=
	@2983
	=
	@2984
	IF ~~ THEN REPLY @2985 GOTO 132barrebutifori
	IF ~~ THEN REPLY @2986 GOTO 131barrebutifori
	IF ~~ THEN REPLY @2987 GOTO 130baarrebutifori
	IF ~~ THEN REPLY @2988 GOTO 129baarrebutifori
	IF ~~ THEN REPLY @2989 GOTO 128barrebutifori
	IF ~~ THEN REPLY @2990 GOTO 127arrebutifori
END

IF ~~ THEN BEGIN 128barrebutifori
	SAY @2991
	=
	@2992
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 129baarrebutifori
	SAY @2993
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 130baarrebutifori
	SAY @2994
	=
	@2995
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 131barrebutifori
	SAY @2996
	IF ~~ THEN REPLY @2997 GOTO 131baarrebutifori
	IF ~~ THEN REPLY @2998 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 131bbarrebutifori
	IF ~~ THEN REPLY @2989 GOTO 128barrebutifori
	IF ~~ THEN REPLY @2999 GOTO 131cucaarrebutifori
END

IF ~~ THEN BEGIN 131cucaarrebutifori
	SAY @3000
	IF ~~ THEN GOTO 133barrebutifori
END

IF ~~ THEN BEGIN 131baarrebutifori
	SAY @3001
	IF ~~ THEN REPLY @3002 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 131bbarrebutifori
	IF ~~ THEN REPLY @3003 GOTO 131cucaarrebutifori
	IF ~~ THEN REPLY @2989 GOTO 128barrebutifori
END

IF ~~ THEN BEGIN 131bbarrebutifori
	SAY @3004
	IF ~~ THEN GOTO 133barrebutifori
END

IF ~~ THEN BEGIN 133barrebutifori
	SAY @3005 
	IF ~~ THEN REPLY @2971 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 136harrebutifori
	IF ~~ THEN REPLY @2973 GOTO 134harrebutifori
END

IF ~~ THEN BEGIN 132barrebutifori
	SAY @3006
	=
	@3007
	IF ~~ THEN REPLY @3008 GOTO 132bcarrebutifori
	IF ~~ THEN REPLY @3009 GOTO 132bbarrebutifori
	IF ~~ THEN REPLY @3010 GOTO 132baarrebutifori
END

IF ~~ THEN BEGIN 132baarrebutifori
	SAY @3011
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 132bbarrebutifori
	SAY @3012
	=
	@3013
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 132bcarrebutifori
	SAY @3014
	IF ~~ THEN REPLY @3015 GOTO 132bcaarrebutifori
	IF ~~ THEN REPLY @3009 GOTO 132bbarrebutifori
	IF ~~ THEN REPLY @3010 GOTO 132baarrebutifori
END

IF ~~ THEN BEGIN 132bcaarrebutifori
	SAY @3016
	IF ~~ THEN REPLY @3017 GOTO 132bcbarrebutifori
	IF ~~ THEN REPLY @3009 GOTO 132bbarrebutifori
	IF ~~ THEN REPLY @3010 GOTO 132baarrebutifori 
END

IF ~~ THEN BEGIN 132bcbarrebutifori
	SAY @3018
	IF ~~ THEN REPLY @3019 GOTO 132bccarrebutifori
	IF ~~ THEN REPLY @3009 GOTO 132bbarrebutifori
	IF ~~ THEN REPLY @3010 GOTO 132baarrebutifori
END

IF ~~ THEN BEGIN 132bccarrebutifori
	SAY @3020
	IF ~~ THEN GOTO 133barrebutifori
END

IF ~~ THEN BEGIN 126carrebutifori
	SAY @3021
	=
	@2981
	=
	@3022
	=
	@3023
	=
	@3024
	=
	@3025
	IF ~~ THEN REPLY @3026 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 134carrebutifori
	IF ~~ THEN REPLY @3027 GOTO 133carrebutifori
	IF ~~ THEN REPLY @3028 GOTO 132carrebutifori
	IF ~~ THEN REPLY @3029 GOTO 131carrebutifori
	IF ~~ THEN REPLY @3030 GOTO 130carrebutifori
	IF ~~ THEN REPLY @3031 GOTO 129carrebutifori
	IF ~~ THEN REPLY @3032 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO OpiNEWMRarrebutifori
	IF ~~ THEN REPLY @3033 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 128carrebutifori
	IF ~~ THEN REPLY @3034 GOTO 127arrebutifori
	IF ~~ THEN REPLY @3035 GOTO 127carrebutifori
END

IF ~~ THEN BEGIN OpiNEWMRarrebutifori
	SAY @3036
	IF ~~ THEN GOTO 133arrebutifori
END
	

IF ~~ THEN BEGIN 127carrebutifori
	SAY @3037
	IF ~~ THEN REPLY @3038 GOTO 127caarrebutifori
	IF ~~ THEN REPLY @3039 GOTO 127cbarrebutifori
END

IF ~~ THEN BEGIN 127caarrebutifori
	SAY @3040
	=
	@3041
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 127cbarrebutifori
	SAY @3042
	IF ~~ THEN REPLY @3026 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 134carrebutifori
	IF ~~ THEN REPLY @3043 GOTO 133carrebutifori
	IF ~~ THEN REPLY @3028 GOTO 132carrebutifori
	IF ~~ THEN REPLY @3029 GOTO 131carrebutifori
	IF ~~ THEN REPLY @3030 GOTO 130carrebutifori
	IF ~~ THEN REPLY @3031 GOTO 129carrebutifori
	IF ~~ THEN REPLY @3033 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 128carrebutifori
	IF ~~ THEN REPLY @3044 GOTO 127arrebutifori
END

IF ~~ THEN BEGIN 128carrebutifori
	SAY @3045
	=
	@3046
	=
	@3047
	=
	@453
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 129carrebutifori
	SAY @3048
	=
	@3049
	=
	@3050
	=
	@47
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 130carrebutifori
	SAY @3051
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 131carrebutifori
	SAY @3052
	=
	@3053
	=
	@3054
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 132carrebutifori
	SAY @3055
	=
	@3056
	=
	@3057
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 133carrebutifori
	SAY @3058
	=
	@3059
	=
	@3060
	IF ~~ THEN GOTO 133arrebutifori
END

IF ~~ THEN BEGIN 134carrebutifori
	SAY @3061
	=
	@3062
	IF ~~ THEN GOTO 133arrebutifori
END


// ***5***


IF WEIGHT #-900 ~Global("ImTalksMR","GLOBAL",10)~ THEN BEGIN 169arrebutifori
	SAY @3063 
	IF ~~ THEN EXTERN PLAYER1 MR170
END

  
IF ~~ THEN BEGIN 171MRarrebutifori
	SAY @3064
	=
	@3065
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 174MRarrebutifori
	SAY @3066
	=
	@3067
	=
	@3068
	=
	@3069
	IF ~~ THEN GOTO 177arrebutifori
END

IF ~~ THEN BEGIN 175MRarrebutifori
	SAY @3070
	=
	@3071 // 
	=
	@3072
	=
	@3073
	IF ~~ THEN GOTO 177arrebutifori
END

IF ~~ THEN BEGIN 176MRarrebutifori
	SAY @3074
	=
	@3075
	=
	@3076
	IF ~~ THEN GOTO 177arrebutifori
END

IF ~~ THEN BEGIN 176aarrebutifori
	SAY @3077
	=
	@3078
	=
	@3079
	=
	@3080
	IF ~~ THEN GOTO 177arrebutifori
END

IF ~~ THEN BEGIN 177arrebutifori
	SAY @3081
	IF ~~ THEN REPLY @3082 GOTO 181arrebutifori
	IF ~~ THEN REPLY @3083 GOTO 180arrebutifori
	IF ~CheckStatGT(Player1,13,WIS) CheckStatGT(Player1,12,CHR)~ THEN REPLY @3084 GOTO 179arrebutifori
	IF ~~ THEN REPLY @3085 GOTO 178arrebutifori
END

IF ~~ THEN BEGIN 178arrebutifori
	SAY @3086
	=
	@3087
	=
	@3088
	=
	@3089
	=
	@3090
	=
	@3091
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN 179arrebutifori
	SAY @3092
	IF ~~ THEN GOTO 182arrebutifori
END

IF ~~ THEN BEGIN 180arrebutifori
	SAY @1505
	=
	@3093
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 181arrebutifori
	SAY @3094
	IF ~~ THEN GOTO 182arrebutifori
END

IF ~~ THEN BEGIN 182arrebutifori
	SAY @3095
	IF ~~ THEN GOTO 183arrebutifori
END

IF ~~ THEN BEGIN 183arrebutifori
	SAY @3096
	IF ~~ THEN REPLY @3097 GOTO 184arrebutifori
	IF ~~ THEN REPLY @3098 GOTO 178arrebutifori
	IF ~~ THEN REPLY @3099 GOTO 180arrebutifori
END

IF ~~ THEN BEGIN 184arrebutifori
	SAY @3100
	IF ~~ THEN REPLY @3101 GOTO 185arrebutifori
	IF ~~ THEN REPLY @3102 GOTO 186arrebutifori
END

IF ~~ THEN BEGIN 185arrebutifori
	SAY @3103
	IF ~~ THEN GOTO 187arrebutifori
END

IF ~~ THEN BEGIN 186arrebutifori
	SAY @3104
	IF ~~ THEN GOTO 187arrebutifori
END

IF ~~ THEN BEGIN 187arrebutifori
	SAY @3105
	IF ~~ THEN GOTO 188arrebutifori
END

IF ~~ THEN BEGIN 188arrebutifori
	SAY @3106
	IF ~~ THEN REPLY @3107 GOTO 191arrebutifori
	IF ~~ THEN REPLY @3108 GOTO 190MRarrebutifori
	IF ~~ THEN REPLY @3109 GOTO 190arrebutifori
	IF ~~ THEN REPLY @3110 GOTO 189arrebutifori
END

IF ~~ THEN BEGIN 189arrebutifori
	SAY @3111
	=
	@3112
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 190arrebutifori
	SAY @3113
	=
	@3114
	IF ~~ THEN GOTO 192arrebutifori
END

IF ~~ THEN BEGIN 190MRarrebutifori
	SAY @3115
	IF ~~ THEN GOTO 192arrebutifori
END

IF ~~ THEN BEGIN 191arrebutifori
	SAY @3116
	IF ~~ THEN GOTO 192arrebutifori
END

IF ~~ THEN BEGIN 192arrebutifori
	SAY @3117
	IF ~Gender(Player1,MALE)~ THEN REPLY @3118 GOTO 194arrebutifori
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @3118 GOTO 200arrebutifori
	IF ~~ THEN REPLY @3119 GOTO 193arrebutifori
END

IF ~~ THEN BEGIN 193arrebutifori
	SAY @3120
	=
	@3121
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 194arrebutifori
	SAY @3122
	IF ~~ THEN REPLY @3123 GOTO 195arrebutifori
	IF ~~ THEN REPLY @3124 GOTO 193arrebutifori
END

IF ~~ THEN BEGIN 195arrebutifori
	SAY @3125 
	=
	@3126
	=
	@3127
	=
	@3128 
	=
	@3129 
	=
	@3130
	=
	@3131
	=	
	@3132
	=
	@3133
	=
	@3134
	=	
	@3135
	=
	@3136
	=
	@3137
	=
	@3138
	=
	@3139
	=
	@3140
	=
	@3141
	=
	@3142
	=
	@3143
	=
	@3144
	IF ~~ THEN REPLY @3145 GOTO 198arrebutifori
	IF ~~ THEN REPLY @3146 GOTO 199arrebutifori
	IF ~~ THEN REPLY @3147 GOTO 197arrebutifori
	IF ~~ THEN REPLY @3148 GOTO 196arrebutifori
END

IF ~~ THEN BEGIN 196arrebutifori
	SAY @3149
	=
	@3150
	=
	@3151
	=
	@3152
	=
	@3153
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
END // 1800

IF ~~ THEN BEGIN 197arrebutifori
	SAY @3154
	=
	@3155
	=
	@3156
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 198arrebutifori
	SAY @3157
	=
	@3158
	=
	@3159
	=
	@3160
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN 199arrebutifori
	SAY @3161
	=
	@3162	
	=
	@3163
	=
	@3164
	=
	@3165
	=
	@3166
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 200arrebutifori
	SAY @3167
	IF ~~ THEN REPLY @3168 GOTO 201arrebutifori
	IF ~~ THEN REPLY @3124 GOTO 193arrebutifori
END

IF ~~ THEN BEGIN 201arrebutifori
	SAY @3169
	=
	@3170
	=
	@3171
	=
	@3172 
	=
	@3129
	=
	@3174
	=
	@3175
	=	
	@3132
	=
	@3176
	=
	@3177
	=	
	@3135
	=
	@3178
	=
	@3179
	=
	@3180
	=
	@3181
	=
	@3182
	=
	@3183
	=
	@3184
	=
	@3185
	=
	@3186
	=
	@3142
	=
	@3187
	=
	@3188
	IF ~~ THEN REPLY @3189 GOTO 202arrebutifori
	IF ~~ THEN REPLY @3190 GOTO 202newMRarrebutifori
	IF ~~ THEN REPLY @3191 GOTO 204arrebutifori
	IF ~~ THEN REPLY @3192 GOTO 203arrebutifori
END

IF ~~ THEN BEGIN 202newMRarrebutifori
	SAY @3193
	=
	@3194
	=
	@3195
	=
	@3196
	=
	@3197
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 202arrebutifori
	SAY @3198
	=
	@3199
	=
	@3200
	=
	@3201
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END


IF ~~ THEN BEGIN 203arrebutifori
	SAY @3154
	=
	@3202
	=
	@3156
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 204arrebutifori
	SAY @3161
	=
	@3162	
	=
	@3163
	=
	@3203
	=
	@3165
	=
	@3166
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END


// ***6***


IF WEIGHT #-900 ~Global("ImTalksMR","GLOBAL",12)~ THEN BEGIN 135arrebutifori
	SAY @3204 
	=
	@3205
	=
	@3206
	IF ~~ THEN REPLY @3207 GOTO 139arrebutifori
	IF ~~ THEN REPLY @3208 GOTO 140arrebutifori
	IF ~~ THEN REPLY @3209 GOTO 137arrebutifori
	IF ~~ THEN REPLY @3210 GOTO 136arrebutifori
END

IF ~~ THEN BEGIN 136arrebutifori
	SAY @3211
	=
	@3212
	=
	@3213
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 137arrebutifori
	SAY @3214
	IF ~~ THEN REPLY @3215 GOTO 138arrebutifori
	IF ~~ THEN REPLY @3216 GOTO 136arrebutifori
END

IF ~~ THEN BEGIN 138arrebutifori
	SAY @401
	IF ~~ THEN GOTO 139arrebutifori
END

IF ~~ THEN BEGIN 139arrebutifori
	SAY @3217
	IF ~~ THEN GOTO 141arrebutifori
END

IF ~~ THEN BEGIN 140arrebutifori
	SAY @3218
	=
	@3219
	IF ~~ THEN GOTO 141arrebutifori
END

IF ~~ THEN BEGIN 141arrebutifori
	SAY @3220	
	IF ~~ THEN REPLY @3221 GOTO 144arrebutifori
	IF ~~ THEN REPLY @3222 GOTO 145NEWMRarrebutifori
	IF ~~ THEN REPLY @3223 GOTO 145arrebutifori
	IF ~~ THEN REPLY @3224 GOTO 146NEWMRarrebutifori
	IF ~~ THEN REPLY @3225 GOTO 146arrebutifori
	IF ~~ THEN REPLY @3226 GOTO 999arrebutifori
	IF ~~ THEN REPLY @3227 GOTO 141aarrebutifori
END

IF ~~ THEN BEGIN 145NEWMRarrebutifori
	SAY @3228
	IF ~~ THEN GOTO 147arrebutifori 
END 

IF ~~ THEN BEGIN 146NEWMRarrebutifori
	SAY @3229
	=
	@3230
	IF ~~ THEN REPLY @3231 GOTO 144arrebutifori
	IF ~~ THEN REPLY @3232 GOTO 145NEWMRarrebutifori
	IF ~~ THEN REPLY @3233 GOTO 145arrebutifori
	IF ~~ THEN REPLY @3234 GOTO 146arrebutifori
	IF ~~ THEN REPLY @3226 GOTO 999arrebutifori
	IF ~~ THEN REPLY @3227 GOTO 141aarrebutifori
END



IF ~~ THEN BEGIN 141aarrebutifori
	SAY @3235
	IF ~~ THEN GOTO 147arrebutifori
END

IF ~~ THEN BEGIN 999arrebutifori
	SAY @3236
	IF ~~ THEN GOTO 142aarrebutifori
	IF ~IsValidForPartyDialog("Nalia")~ THEN EXTERN NALIAJ 999cha1arrebutifori
	IF ~IsValidForPartyDialog("HaerDalis")~ THEN EXTERN HAERDAJ 999cha2arrebutifori
	IF ~IsValidForPartyDialog("Jaheira")~ THEN EXTERN JAHEIRAJ 999cha3arrebutifori
	IF ~IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ 999cha4arrebutifori
	IF ~IsValidForPartyDialog("Viconia")~ THEN EXTERN VICONIJ 999cha5arrebutifori
	IF ~IsValidForPartyDialog("Korgan")~ THEN EXTERN KORGANJ 999cha6arrebutifori
	IF ~IsValidForPartyDialog("Edwin")~ THEN EXTERN EDWINJ 999cha7arrebutifori
END

CHAIN2 NALIAJ 999cha1arrebutifori
@3756
END BIMOEN2 142aarrebutifori

CHAIN2 HAERDAJ 999cha2arrebutifori
@3757
END BIMOEN2 142aarrebutifori

CHAIN2 JAHEIRAJ 999cha3arrebutifori
@3758
END BIMOEN2 142aarrebutifori

CHAIN2 AERIEJ 999cha4arrebutifori
@3759
END BIMOEN2 142aarrebutifori

CHAIN2 VICONIJ 999cha5arrebutifori
@3760
END BIMOEN2 142aarrebutifori

CHAIN2 KORGANJ 999cha6arrebutifori
@3761
END BIMOEN2 142aarrebutifori

CHAIN2 EDWINJ 999cha7arrebutifori
@3762
END BIMOEN2 142aarrebutifori

IF ~~ THEN BEGIN 142arrebutifori
	SAY @3237
	IF ~~ THEN GOTO 142aarrebutifori
END

IF ~~ THEN BEGIN 142aarrebutifori
	SAY @3238
	IF ~~ THEN REPLY @3239 GOTO 143arrebutifori
END

IF ~~ THEN BEGIN 143arrebutifori
	SAY @3240 
	IF ~~ THEN GOTO 147arrebutifori
END

IF ~~ THEN BEGIN 144arrebutifori
	SAY @3241 
	IF ~~ THEN GOTO 147arrebutifori
END

IF ~~ THEN BEGIN 145arrebutifori
	SAY @3242 
	IF ~~ THEN GOTO 147arrebutifori
END

IF ~~ THEN BEGIN 146arrebutifori
	SAY @3243 
	=
	@3244 
	IF ~~ THEN GOTO 147arrebutifori
END

IF ~~ THEN BEGIN 147arrebutifori
	SAY @3245 = @3246 = @3247 = @3248 = @3249
	IF ~~ THEN REPLY @3250 GOTO 152arrebutifori
	IF ~~ THEN REPLY @3251 GOTO 151arrebutifori
	IF ~~ THEN REPLY @3252 GOTO 150arrebutifori
	IF ~~ THEN REPLY @3253 GOTO 149arrebutifori
	IF ~~ THEN REPLY @3254 GOTO 148arrebutifori
END

IF ~~ THEN BEGIN 148arrebutifori
	SAY @3255
	=
	@3256
	=
	@401
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN BEGIN 149arrebutifori
	SAY @3257
	IF ~~ THEN GOTO 153arrebutifori
END

IF ~~ THEN BEGIN 150arrebutifori
	SAY @3258
	IF ~~ THEN GOTO 153arrebutifori
END

IF ~~ THEN BEGIN 151arrebutifori
	SAY @3259
	IF ~~ THEN GOTO 153arrebutifori
END

IF ~~ THEN BEGIN 152arrebutifori
	SAY @3260
	IF ~~ THEN GOTO 153arrebutifori
END

IF ~~ THEN BEGIN 153arrebutifori
	SAY @3261 
	=
	@3262 
	=
	@3263 
	=
	@3264
	=
	@3265
	=
	@3266
	=
	@3267
	IF ~~ THEN REPLY @3268 GOTO 154arrebutifori
	IF ~~ THEN REPLY @3269 GOTO 155arrebutifori
	IF ~~ THEN REPLY @3270 GOTO 156arrebutifori
	IF ~~ THEN REPLY @3271 GOTO 157arrebutifori
END

IF ~~ THEN BEGIN 154arrebutifori
	SAY @3272
	IF ~~ THEN GOTO 158arrebutifori
END // 2010

IF ~~ THEN BEGIN 155arrebutifori
	SAY @3273
	IF ~~ THEN GOTO 158arrebutifori
END

IF ~~ THEN BEGIN 156arrebutifori
	SAY @3274
	IF ~~ THEN GOTO 158arrebutifori
END

IF ~~ THEN BEGIN 157arrebutifori
	SAY @3275
	=
	@3276
	IF ~~ THEN GOTO 158arrebutifori
END

IF ~~ THEN BEGIN 158arrebutifori
	SAY @3277
	=
	@3278
	=
	@3279
	=
	@3280
	=
	@3281
	=
	@3282
	=
	@3283
	=
	@3284
	IF ~~ THEN REPLY @3285 GOTO 162arrebutifori
	IF ~~ THEN REPLY @3286 GOTO 161arrebutifori
	IF ~~ THEN REPLY @3287 GOTO 160arrebutifori
	IF ~~ THEN REPLY @3288 GOTO 159arrebutifori
END

IF ~~ THEN BEGIN 159arrebutifori
	SAY @3289
	=
	@3290
	=
	@3063
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 160arrebutifori
	SAY @3292
	=
	@3293
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 161arrebutifori
	SAY @3294
	IF ~~ THEN GOTO 163arrebutifori
END

IF ~~ THEN BEGIN 162arrebutifori
	SAY @3295
	=
	@3296 
	IF ~~ THEN GOTO 163arrebutifori
END

IF ~~ THEN BEGIN 163arrebutifori
	SAY @3297
	=
	@3298
	=
	@3299
	=
	@887
	=
	@3300
	IF ~~ THEN REPLY @3301 GOTO 167arrebutifori
	IF ~~ THEN REPLY @3302 GOTO 168arrebutifori
	IF ~~ THEN REPLY @3303 GOTO 166arrebutifori
	IF ~~ THEN REPLY @3304 GOTO 164arrebutifori
END

IF ~~ THEN BEGIN 164arrebutifori
	SAY @3305
	=
	@3306
	=
	@3307
	IF ~~ THEN REPLY @3308 GOTO 165arrebutifori
	IF ~~ THEN REPLY @3309 GOTO 165arrebutifori
	IF ~~ THEN REPLY @3310 GOTO 165arrebutifori
	IF ~~ THEN REPLY @3311 GOTO 165arrebutifori
	IF ~~ THEN REPLY @3312 GOTO 165arrebutifori
	IF ~~ THEN REPLY @3313 GOTO 165arrebutifori
	IF ~~ THEN REPLY @3314 GOTO 165arrebutifori
	IF ~~ THEN REPLY @3315 GOTO 165arrebutifori
	IF ~~ THEN REPLY @3316 GOTO 165arrebutifori
	IF ~~ THEN REPLY @3317 GOTO 165arrebutifori
END

IF ~~ THEN BEGIN 165arrebutifori
	SAY @3318
	=
	@3319
	=
	@3320
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 166arrebutifori
	SAY @3321
	=
	@3322
	=
	@3323
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 167arrebutifori
	SAY @3324
	=
	@3325
	=
	@3326
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN 168arrebutifori
	SAY @3327 = @3328	= @3329 = @3330 = @3331 = @3332 = @3333 = @3334	= @3290 = @4977
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END






// ***************END OF SoA LOVETALKS******************











// *** THE INFLECTION POINT ***



		// *** Act 1 *** 


IF WEIGHT #-900
~Global("EscapedUnderdarkMR","GLOBAL",2)
      !Global("ImoenRomanceActive","GLOBAL",3)
	!StateCheck(Player1,STATE_SLEEPING)~ THEN BEGIN 205arrebutifori
	SAY @3335 
	IF ~~ THEN DO ~SetGlobal("EscapedUnderdarkMR","GLOBAL",3)~ GOTO 205bisarrebutifori
END

IF ~~ THEN BEGIN 205bisarrebutifori
	SAY @3336
	IF ~IsValidForPartyDialog("Jaheira")~ THEN EXTERN JAHEIRAJ JaheiraCabrona
	IF ~!IsValidForPartyDialog("Jaheira")
	IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ InterMR2
	IF ~!IsValidForPartyDialog("Jaheira")
	!IsValidForPartyDialog("Aerie")
	IsValidForPartyDialog("Cernd")~ THEN EXTERN CERNDJ InterMR4 
	IF ~!IsValidForPartyDialog("Jaheira")
	!IsValidForPartyDialog("Aerie")
	!IsValidForPartyDialog("Cernd")
	IsValidForPartyDialog("Nalia")~ THEN EXTERN NALIAJ InterMR5 
	IF ~!IsValidForPartyDialog("Jaheira")
	!IsValidForPartyDialog("Aerie")
	!IsValidForPartyDialog("Cernd")
	!IsValidForPartyDialog("Nalia")~ THEN GOTO 134arrarrebutifori
END
 
IF ~~ THEN BEGIN 134arrarrebutifori
	SAY @3337
	=
	@3338
	IF ~IsValidForPartyDialog("Viconia")~ THEN REPLY @3339 EXTERN VICONIJ OffenseMirrabbo
	IF ~!IsValidForPartyDialog("Viconia")~ THEN REPLY @3340 GOTO 208MRarrebutifori
	IF ~~ THEN REPLY @5629 GOTO 208MRarrebutifori
	IF ~~ THEN REPLY @3341 GOTO 207arrebutifori
	IF ~~ THEN REPLY @3342 GOTO 206arrebutifori
END

IF ~~ THEN BEGIN 206arrebutifori
	SAY @3343
	=
	@3344
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 207arrebutifori
	SAY @3345
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)	
	SetGlobal("KindnessCounter","GLOBAL",0)
	SetGlobal("ImoenMerchantMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 208MRarrebutifori
	SAY @3346
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("WeAreGonnaHaveSexInTheElvenCamp","GLOBAL",1)~
	EXIT
END


// *** Losing the opportunity ***


IF WEIGHT #1
~Global("WeAreGonnaHaveSexInTheElvenCamp","GLOBAL",5)~ THEN BEGIN 209arrebutifori
	SAY @3347
	=
	@3348
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("WeAreGonnaHaveSexInTheElvenCamp","GLOBAL",100)
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("KindnessCounter","GLOBAL",0)
	SetGlobal("ImoenMerchantMR","GLOBAL",1)~ EXIT
END



// *** Act 2 ***

   IF WEIGHT #-900
~Global("WeAreGonnaHaveSexInTheElvenCamp","GLOBAL",3)~ THEN BEGIN 210arrebutifori
	SAY @3349
	IF ~~ THEN DO ~SetGlobal("WeAreGonnaHaveSexInTheElvenCamp","GLOBAL",4)
	ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe1")~
	EXIT	
END

IF WEIGHT #522
	~Global("TalkingAboutMusic","GLOBAL",1)~ THEN BEGIN 211arrebutifori
	SAY @3350
	IF ~~ THEN DO ~SG("TalkingAboutMusic",2)~ GOTO 211cacaarrebutifori
END

IF ~~ THEN BEGIN 211cacaarrebutifori
	SAY @3351 = @3352 = @3353
	IF ~~ THEN REPLY @5177 DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO 212arrebutifori // = ~I'm preparing the place where I am going to sleep as I do every time we rest, obviously.~
	IF ~~ THEN REPLY @3354 DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO 212arrebutifori
	IF ~~ THEN REPLY @5178 DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO 212arrebutifori // = ~You said you wanted to rest here. Disobeying you is not a wise thing to do, so I do what you told me to do...!~
	IF ~~ THEN REPLY @5179 DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO 212arrebutifori // = ~Have you seen my teddy bear? I need it to fall asleep. You haven't stolen it again, have you?~
END

IF ~~ THEN BEGIN 212arrebutifori
	SAY @3355
	IF ~~ THEN REPLY @3356 GOTO 213arrebutifori
	IF ~NumInPartyGT(2)~ THEN REPLY @3357 GOTO 219arrebutifori
	IF ~!NumInPartyGT(2)~ THEN REPLY @3357 GOTO 219femalearrebutifori
	IF ~NumInPartyGT(2)~ THEN REPLY @3358 GOTO 219arrebutifori
	IF ~!NumInPartyGT(2)~ THEN REPLY @3358 GOTO 219femalearrebutifori
END

IF ~~ THEN BEGIN 213arrebutifori
	SAY @3359
	=
	@3360
	IF ~Gender(Player1,MALE)~ THEN REPLY @3361 GOTO 214aarrebutifori
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @3361 GOTO 214barrebutifori
	IF ~Gender(Player1,MALE)~ THEN REPLY @3362 GOTO 215arrebutifori
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @3362 GOTO 215femalearrebutifori
	IF ~~ THEN REPLY @3363 GOTO 213chachiarrebutifori
END

IF ~~ THEN BEGIN 213chachiarrebutifori
	SAY @3364 
	IF ~NumInPartyGT(2)~ THEN GOTO 219arrebutifori
	IF ~!NumInPartyGT(2)~ THEN GOTO 219femalearrebutifori
END

IF ~~ THEN BEGIN 214aarrebutifori
	SAY @3365
	=
	@3366
	=
	@3367
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	ReputationInc(-1) 
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN 214barrebutifori
	SAY @3368
	=
	@3369
	=
	@3370
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	ReputationInc(-1) 
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN 215arrebutifori
	SAY @3371
	=
	@3372
	= // 2430
	@3373
	IF ~~ THEN REPLY @2691 GOTO 216arrebutifori
	IF ~~ THEN REPLY @3374 GOTO 217arrebutifori
	IF ~~ THEN REPLY @3375 GOTO 218arrebutifori
END

IF ~~ THEN BEGIN 215femalearrebutifori
	SAY @5180 // = ~(Imoen's cheeks redden slightly at the realization) S-- so ya like women...? (Passed her first moment of surprise, her face goes pale; she looks troubled and confused. It is as if she has imagined this situation countless times before.)~
	= @3372 // = ~Oh... oh, no, no, <CHARNAME>... you... you, I mean... you matter a lot to me, you're the most important person in my life right now, but... ~
	= @3373 // = ~I do love you but... not in that way... you understand?~
	IF ~~ THEN REPLY @2691 GOTO 216arrebutifori
	IF ~~ THEN REPLY @5181 GOTO 217femalearrebutifori // = ~Yeah, I understand now. I understand that you are one of those straight purist whores full of prejudices against those that have different tastes!~
	IF ~~ THEN REPLY @5185 GOTO 218arrebutifori // = ~Yes, of course I do. You are just another bitch that just wants me to help them without giving something in exchange.~
END

IF ~~ THEN BEGIN 217femalearrebutifori
	SAY @5182 // = ~(Your words seem to upset Imoen much more than you expected. She blushes brightly, sparks in her eyes.)~
	= @5183 // = ~It's NOT like that, <CHARNAME>, I assure you. I'm the last person you could ever tell that, there are many things you don't know about me.~
	= @5184 // = ~Look, I won't consider your words true, for I know it's your pain who talks, not you. But careful with what you say.~
	= @3381
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 216arrebutifori
	SAY @3376
	=
	@3377
	=
	@3378
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 217arrebutifori
	SAY @3379
	=
	@3380
	=
	@3381
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 218arrebutifori
	SAY @3380
	=
	@3381
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 219arrebutifori
	SAY @3382
	IF ~~ THEN REPLY @3383 GOTO 220arrebutifori
	IF ~~ THEN REPLY @3384	DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe2")~ EXIT
END

IF ~~ THEN BEGIN 219femalearrebutifori
	SAY @3382 
	IF ~~ THEN REPLY @5186 GOTO 220arrebutifori // = ~Whoa!! It was about time... alone in the forest, let's have some action! (Begin to undress.)~
	IF ~~ THEN REPLY @3384	DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe2")~ EXIT
END


IF ~~ THEN BEGIN 220arrebutifori
	SAY @3385
	IF ~~ THEN REPLY @3386 DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe2")~ EXIT
	IF ~NumInPartyGT(2)~ THEN REPLY @3387 GOTO 222arrebutifori
	IF ~!NumInPartyGT(2)~ THEN REPLY @3387 GOTO 222soloarrebutifori
	IF ~~ THEN REPLY @3388 GOTO 221arrebutifori
END

IF ~~ THEN BEGIN 221arrebutifori
	SAY @3389
	=
	@3390
	=
	@3391
	IF ~~ THEN REPLY @3392 GOTO 221aarrebutifori
	IF ~~ THEN REPLY @3393 GOTO 221darrebutifori
END

IF ~~ THEN BEGIN 221aarrebutifori
	SAY @3394
	IF ~~ THEN REPLY @3395 GOTO 221barrebutifori
	IF ~~ THEN REPLY @3396 GOTO 221carrebutifori
END

IF ~~ THEN BEGIN 221acaquitaarrebutifori
	SAY @5190 // = ~What was that!!?~
	IF ~~ THEN REPLY @3395 GOTO 221barrebutifori
	IF ~~ THEN REPLY @3396 GOTO 221carrebutifori
END

IF ~~ THEN BEGIN 221barrebutifori
	SAY @3397
	=
	@3398
	=
	@3399
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe2")~ EXIT
END


IF ~~ THEN BEGIN 221carrebutifori
	SAY @3400
	=
	@3401
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe2")~ EXIT
END

IF ~~ THEN BEGIN 221darrebutifori
	SAY @3402
	=
	@3403
	IF ~~ THEN REPLY @3404 GOTO 221earrebutifori
	IF ~~ THEN REPLY @3405 GOTO 221barrebutifori
END

IF ~~ THEN BEGIN 221earrebutifori
	SAY @3406
	=
	@3407
	IF ~~ THEN REPLY @3408 GOTO 221farrebutifori
	IF ~~ THEN REPLY @3409 GOTO 221acaquitaarrebutifori
END

IF ~~ THEN BEGIN 221farrebutifori
	SAY @3410
	=
	@3411 // 2482
	IF ~~ THEN REPLY @3412 GOTO 221aarrebutifori
	IF ~~ THEN REPLY @3413 GOTO 221garrebutifori
END

IF ~~ THEN BEGIN 221garrebutifori
	SAY @3414
	=
	@3415
	IF ~~ THEN REPLY @3416 GOTO 221harrebutifori
	IF ~~ THEN REPLY @3417 GOTO 221iarrebutifori
END

IF ~~ THEN BEGIN 221harrebutifori
	SAY @3418
	=
	@3419
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END

IF ~~ THEN BEGIN 221iarrebutifori
	SAY @3420
	=
	@3421
	=
	@3422
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	ReputationInc(-2) ActionOverride(Player1,ApplySpellRES("SPMRACCN",Player1)) 
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN 222arrebutifori
	SAY @3423
	=
	@3424
	=
	@3425
	IF ~~ THEN REPLY @3426 GOTO 222barrebutifori
	IF ~~ THEN REPLY @3427 GOTO 222aarrebutifori
END

IF ~~ THEN BEGIN 222soloarrebutifori
	SAY @5187 // = ~(Her eyes widen when she sees you like that. You realize too late that, surprisingly enough, Imoen wasn't suggesting to have some wild sex by the campfire...)~
	= @5188 // = ~(She goes pale. Then can't hold it anymore and bursts in laughter.)~
	= @3425
	IF ~~ THEN REPLY @3426 GOTO 222barrebutifori
	IF ~~ THEN REPLY @3427 GOTO 222aarrebutifori
END


IF ~~ THEN BEGIN 222aarrebutifori
	SAY @3428
	=
	@3429
	=
	@3430
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe2")~ EXIT
END

IF ~~ THEN BEGIN 222barrebutifori
	SAY @3431
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe2")~ EXIT
END




// *** Act 3 ***


IF WEIGHT #-900 ~NumInPartyGT(2) Global("TalkingAboutMusic","GLOBAL",3)~ THEN BEGIN 224arrebutifori
	SAY @3432 
	IF ~~ THEN GOTO 224caquitaarrebutifori
END

IF WEIGHT #-900 ~!NumInPartyGT(2) Global("TalkingAboutMusic","GLOBAL",3)~ THEN BEGIN 224rearrebutifori
	SAY @5191 // = ~(Imoen stares at the flames. You both are sitting around the small fire, but few words have been said up to now, just some casual comments. Finally, Imoen speaks.)~ [MRImRom5]
	IF ~~ THEN GOTO 224caquitaarrebutifori
END
END

CHAIN BIMOEN2 224caquitaarrebutifori
@3433 = @3434 = @3435 =	@3436	= @3437 = @3438
== BIMOEN2 IF ~!Class(Player1,BARD)~ THEN @3439
== BIMOEN2 IF ~Class(Player1,BARD)~ THEN @5192
== BIMOEN2 IF ~NumInPartyGT(2)~ THEN @3440 
== BIMOEN2 IF ~!NumInPartyGT(2)~ THEN @5193
== BIMOEN2 @3441 = @3442 = @3443 = @3444 = @3445 = @3446 = @3447 = @3448
= @5194 // = ~I was amazed when I first saw it 'grow', heh... I had no idea things like this existed. He didn't tell me from where he had got it; he just told me it was from far away to the south, "past Lapaliiya and Halruaa", he said... I didn't even know those places existed back then, and even now I don't really know what might be beyond that...~
= @5195 // = ~He said it's a "guitar", and a magic one at that... it sounds kinda funny, dontcha think? "Guitar"... (She shrugs) I didn't care much about the name anyway.~
== BIMOEN2 IF ~Class(Player1,BARD)~ THEN @5196 // ~Y'know, I was quite surprised he didn't give it to ya instead... ya were quite into music an' all the bardish stuff... (she shrugs again) he didn't want to spoil you *even* more I guess, heh... but anyway...~
== BIMOEN2 @3449 = @3450 = @3451 = @3452 = @3453 = @3454
== BIMOEN2 IF ~Class(Player1,BARD)~ THEN @5197 // ~B'sides there was already one bard around... no need for two, 'specially if the second was as *bad* as me...~
== BIMOEN2 @3455
= @3456
== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira")~ THEN @3782
== AERIEJ IF ~IsValidForPartyDialog("Aerie")~ THEN @3785
== NALIAJ IF ~IsValidForPartyDialog("Nalia")~ THEN @3789
== JANJ IF ~IsValidForPartyDialog("Jan")~ THEN @3794
== VICONIJ IF ~IsValidForPartyDialog("Viconia")~ THEN @3792
== EDWINJ IF ~IsValidForPartyDialog("Edwin")~ THEN @3796
== KORGANJ IF ~IsValidForPartyDialog("Korgan")~ THEN @3798
== MINSCJ IF ~IsValidForPartyDialog("Minsc")~ THEN @3800
== HAERDAJ IF ~IsValidForPartyDialog("HaerDalis")~ THEN @3802
== KELDORJ IF ~IsValidForPartyDialog("Keldorn")~ THEN @3804
== MAZZYJ IF ~IsValidForPartyDialog("Mazzy")~ THEN @3806
== ANOMENJ IF ~IsValidForPartyDialog("Anomen")~ THEN @3808
END BIMOEN2 225MRarrebutifori

APPEND BIMOEN2
IF ~~ THEN BEGIN 225MRarrebutifori
	SAY @3457
	IF ~~ THEN REPLY @3458 DO ~SetGlobal("TalkingAboutMusic","GLOBAL",4)~ GOTO 230arrebutifori
	IF ~~ THEN REPLY @5198 DO ~SetGlobal("TalkingAboutMusic","GLOBAL",4)~ GOTO 230arrebutifori // = ~How come you've been able to learn so much? You didn't spend much time alone, I recall.~
	IF ~~ THEN REPLY @3459 DO ~SetGlobal("TalkingAboutMusic","GLOBAL",4)~ GOTO 231arrebutifori
	IF ~Class(Player1,BARD)~ THEN REPLY @5199 DO ~SetGlobal("TalkingAboutMusic","GLOBAL",4)~ GOTO 231arrebutifori // = ~Imoen, I would have welcome a "partner in arms" very gladly... we could have been a great duo. Why did you hide this from me?~
	IF ~!Class(Player1,BARD)~ THEN REPLY @5200 DO ~SetGlobal("TalkingAboutMusic","GLOBAL",4)~ GOTO 226arrebutifori // = ~Imoen, please take no offense, but I don't like music at all... I'd beg you that you stopped playing.~
	IF ~~ THEN REPLY @3460 DO ~SetGlobal("TalkingAboutMusic","GLOBAL",4)~ GOTO 226arrebutifori
END

IF ~~ THEN BEGIN 226arrebutifori
	SAY @3461 
	IF ~~ THEN REPLY @3462 GOTO 229arrebutifori
	IF ~!Class(Player1,BARD)~ THEN REPLY @3463 GOTO 228arrebutifori
	IF ~~ THEN REPLY @3464 GOTO 227arrebutifori
END

IF ~~ THEN BEGIN 227arrebutifori
	SAY @3465
	=
	@3466
	=
	@3467
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	RestParty()~ 
	EXIT
END

IF ~~ THEN BEGIN 228arrebutifori
	SAY @3468
	IF ~~ THEN GOTO 228caquitaarrebutifori
	IF ~!NumInPartyGT(2)~ THEN GOTO 228caoaarrebutifori
END

IF ~~ THEN BEGIN 228caquitaarrebutifori
	SAY @3469
	IF ~~ THEN GOTO 228lalalaarrebutifori
END

IF ~~ THEN BEGIN 228caoaarrebutifori
	SAY @5201 // = ~Oh well, if ya don't like it there's no point in going on playing... show's over then!~
	IF ~~ THEN GOTO 228lalalaarrebutifori
END

IF ~~ THEN BEGIN 228lalalaarrebutifori
	SAY @3470
	IF ~Global("ImoenRomanceActive","GLOBAL",1)~ THEN DO ~SetGlobal("Everythingwentfine","GLOBAL",1)
	ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe3")~ EXIT
	IF ~Global("ImoenRomanceActive","GLOBAL",4)~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	RestParty()~ EXIT
END

IF ~~ THEN BEGIN 229arrebutifori
	SAY @3471 
	IF ~~ THEN REPLY @3472 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 230arrebutifori
	IF ~~ THEN REPLY @5198 GOTO 230arrebutifori // = ~How come you've been able to learn so much? You didn't spend much time alone, I recall.~
	IF ~~ THEN REPLY @3473 GOTO 231arrebutifori
END

IF ~~ THEN BEGIN 230arrebutifori
	SAY @3474
	=
	@3475
	=
	@3476
	IF ~~ THEN REPLY @3477 GOTO 231arrebutifori
	IF ~~ THEN REPLY @5202 GOTO 234arrebutifori
	IF ~~ THEN REPLY @3478 GOTO 232arrebutifori
	IF ~~ THEN REPLY @3479 GOTO 234arrebutifori
	IF ~~ THEN REPLY @3480 DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 233aarrebutifori
END

IF ~~ THEN BEGIN 231arrebutifori
	SAY @3481
	=
	@3482
	=
	@3483
	IF ~~ THEN REPLY @3484 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 234arrebutifori
	IF ~~ THEN REPLY @5202 GOTO 234arrebutifori
	IF ~~ THEN REPLY @3485 GOTO 232arrebutifori
	IF ~~ THEN REPLY @3486 DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 233aarrebutifori
END

IF ~~ THEN BEGIN 232arrebutifori
	SAY @3487
	=
	@3488
	IF ~~ THEN REPLY @3489 GOTO 234arrebutifori
	IF ~~ THEN REPLY @3490 GOTO 237arrebutifori
END
END

APPEND PLAYER1
IF ~~ THEN BEGIN 233aarrebutifori
	SAY @3491
	=
	@3492
	IF ~~ THEN REPLY @3493 EXTERN BIMOEN2 233arrebutifori
	IF ~~ THEN REPLY @3494 EXTERN BIMOEN2 234arrebutifori
	IF ~~ THEN REPLY @3495 EXTERN BIMOEN2 232arrebutifori
END
END

APPEND BIMOEN2
IF ~~ THEN BEGIN 233arrebutifori
	SAY @3496
	=
	@3497
	=
	@3498
	=
	@3499
	IF ~NumInPartyGT(2)~ THEN GOTO 233aocaoarrebutifori
	IF ~!NumInPartyGT(2)~ THEN GOTO 233aoaoaarrebutifori
END

IF ~~ THEN BEGIN 233aocaoarrebutifori
	SAY @3500
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	RestParty()~
	EXIT
END

IF ~~ THEN BEGIN 233aoaoaarrebutifori
	SAY @3501
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	RestParty()~
	EXIT
END

IF ~~ THEN BEGIN 234arrebutifori
	SAY @3502 
	=
	@3503
	IF ~~ THEN GOTO 235arrebutifori
END

IF ~~ THEN BEGIN 235arrebutifori
	SAY @3504 =	@3505 = @3506 = @3507 = @3508 = @3509 = @3510 =	@3511 = @3512 = @3513
	IF ~~ THEN GOTO 235bisarrebutifori
END
END

CHAIN BIMOEN2 235bisarrebutifori
@3514
== JAHEIRAJ IF ~IsValidForPartyDialog("Jaheira")~ THEN @3783
== AERIEJ IF ~IsValidForPartyDialog("Aerie")~ THEN @3786
== NALIAJ IF ~IsValidForPartyDialog("Nalia")~ THEN @3790
== JANJ IF ~IsValidForPartyDialog("Jan")~ THEN @3795
== VICONIJ IF ~IsValidForPartyDialog("Viconia")~ THEN @3793
== EDWINJ IF ~IsValidForPartyDialog("Edwin")~ THEN @3797
== KORGANJ IF ~IsValidForPartyDialog("Korgan")~ THEN @3799
== MINSCJ IF ~IsValidForPartyDialog("Minsc")~ THEN @3801
== HAERDAJ IF ~IsValidForPartyDialog("HaerDalis")~ THEN @3803
== KELDORJ IF ~IsValidForPartyDialog("Keldorn")~ THEN @3805
== MAZZYJ IF ~IsValidForPartyDialog("Mazzy")~ THEN @3807
== ANOMENJ IF ~IsValidForPartyDialog("Anomen")~ THEN @3809
END BIMOEN2 236MRarrebutifori


APPEND BIMOEN2
IF ~~ THEN BEGIN 236MRarrebutifori
	SAY @3515
	IF ~~ THEN REPLY @3516 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 237arrebutifori
	IF ~~ THEN REPLY @3517 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 238arrebutifori
	IF ~~ THEN REPLY @3518 GOTO 239arrebutifori
	IF ~~ THEN REPLY @559 GOTO 240arrebutifori
	IF ~~ THEN REPLY @3519 GOTO 241arrebutifori
	IF ~~ THEN REPLY @3520 GOTO 242arrebutifori
	IF ~~ THEN REPLY @3521 GOTO 243arrebutifori
END

IF ~~ THEN BEGIN 237arrebutifori
	SAY @3522
	=
	@3523
	IF ~~ THEN GOTO 244arrebutifori
END

IF ~~ THEN BEGIN 238arrebutifori
	SAY @3524
	=
	@3525
	IF ~~ THEN GOTO 244arrebutifori
END

IF ~~ THEN BEGIN 239arrebutifori
	SAY @3526
	=
	@3527
	IF ~~ THEN GOTO 244arrebutifori
END

IF ~~ THEN BEGIN 240arrebutifori
	SAY @3528
	IF ~~ THEN GOTO 244arrebutifori
END

IF ~~ THEN BEGIN 241arrebutifori
	SAY @3529
	=
	@3530
	IF ~~ THEN GOTO 244arrebutifori
END

IF ~~ THEN BEGIN 242arrebutifori
	SAY @3531
	IF ~~ THEN GOTO 227arrebutifori
END

IF ~~ THEN BEGIN 243arrebutifori
	SAY @3532
	=
	@3533
	IF ~~ THEN GOTO 244arrebutifori
END
END

CHAIN BIMOEN2 244arrebutifori
@3534 // = ~(The night goes on in a friendly, cheerful mood, Imoen's music gradually allowing other topics surface.)~
== BIMOEN2 IF ~NumInPartyGT(2)~ THEN @5203 // = ~(Indeed, her music seems to have instilled a spirit of companionship in the hearts of those in your party that had previously been absent.)~
== BIMOEN2 IF ~NumInPartyGT(2)~ THEN @3535
== BIMOEN2 IF ~NumInPartyGT(2)~ THEN @5204 // = ~(Topics wander from reminiscence of the past to future plans until the fire is reduced to embers, always avoiding the present. For tonight, Irenicus and Bodhi are replaced by mundane stories, heated discussions or lighthearted jokes, making all the tension and worry about your present situation to go away.)~
== BIMOEN2 IF ~NumInPartyGT(2)~ THEN @5205 // = ~(Finally, the time to rest comes, and everyone retires to their respective bedroll. You see Imoen prepares hers a little away from the rest... then she lies on her back and just stays there, gazing the stars until she falls asleep.)~
== BIMOEN2 IF ~!NumInPartyGT(2)~ THEN @5206 // = ~(Soon enough Imoen is laughing lightheartedly while remembering stories from happier times in Candlekeep, and you spend the night talking about past and future alike until the fire is reduced to embers, always avoiding the present.)~
== BIMOEN2 IF ~!NumInPartyGT(2)~ THEN @5207 // = ~(For tonight, Irenicus and Bodhi are replaced by mundane stories and resilient jokes, making all the tension about your present situation to go away.)~
== BIMOEN2 IF ~!NumInPartyGT(2)~ THEN @5208 // = ~(Somehow you end up lying on the turf resting on your backs, talking about anything while you gaze the countless stars that populate the firmament, until she falls asleep.)~
END BIMOEN2 244endarrebutifori

APPEND BIMOEN2
IF ~~ THEN BEGIN 244endarrebutifori
	SAY @3536
	IF ~~ THEN DO ~SG("ImoenRomanceActive",4) ActionOverride("Imoen2",SetDialog("IMOEN2J")) RestParty()~ EXIT
	IF ~Global("ImoenRomanceActive","GLOBAL",1) G("HadImoenDreamRomance2",1)~ THEN DO ~SetGlobal("Everythingwentfine","GLOBAL",1)
	ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe3")~ EXIT
	IF ~OR(2) Global("ImoenRomanceActive","GLOBAL",4) !G("HadImoenDreamRomance2",1)~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	RestParty()~ EXIT
END



// *** Act 4 ***

IF WEIGHT #-900 ~Global("TalkingAboutMusic","GLOBAL",6)~ THEN BEGIN 245arrebutifori
	SAY @3537 
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO 245petarrebutifori
	END

IF ~~ THEN BEGIN 245petarrebutifori
	SAY @3538
	IF ~~ THEN EXTERN PLAYER1 HaveSex1
END

IF ~~ THEN BEGIN 246MRarrebutifori
	SAY @3539
	=
	@3540
	IF ~~ THEN REPLY @3541 GOTO 247arrebutifori
	IF ~~ THEN REPLY @3542 GOTO 253arrebutifori
	IF ~~ THEN REPLY @3543 GOTO 253arrebutifori
	IF ~~ THEN REPLY @3544 GOTO 252arrebutifori
	IF ~~ THEN REPLY @3545 GOTO 250arrebutifori
END

IF ~~ THEN BEGIN 247arrebutifori
	SAY @3546
	IF ~~ THEN REPLY @3547 GOTO 248arrebutifori
	IF ~~ THEN REPLY @3548 GOTO 253arrebutifori
	IF ~~ THEN REPLY @3543 GOTO 253arrebutifori
	IF ~~ THEN REPLY @3549 GOTO 252arrebutifori
	IF ~~ THEN REPLY @3550  GOTO 250arrebutifori
END

IF ~~ THEN BEGIN 248arrebutifori
	SAY @3551
	=
	@3552
	IF ~~ THEN REPLY @3553 GOTO 249arrebutifori
	IF ~~ THEN REPLY @3554 GOTO 253arrebutifori
	IF ~~ THEN REPLY @3555 GOTO 253arrebutifori
	IF ~~ THEN REPLY @3556 GOTO 252arrebutifori
	IF ~~ THEN REPLY @3550 GOTO 250arrebutifori
END

IF ~~ THEN BEGIN 249arrebutifori
	SAY @3557
	IF ~~ THEN REPLY @3558 GOTO 254arrebutifori
	IF ~~ THEN REPLY @3559 GOTO 254arrebutifori
	IF ~~ THEN REPLY @3560 GOTO 252arrebutifori
	IF ~~ THEN REPLY @3561 GOTO 251arrebutifori
END

IF ~~ THEN BEGIN 250arrebutifori
	SAY @3562
	=
	@3563 
	=
	@3564
	IF ~~ THEN REPLY @3565 GOTO 253arrebutifori
	IF ~~ THEN REPLY @3566 GOTO 253arrebutifori
	IF ~~ THEN REPLY @3567 GOTO 252arrebutifori
	IF ~~ THEN REPLY @3568 GOTO 251arrebutifori
END

IF ~~ THEN BEGIN 251arrebutifori
	SAY @3569
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("TalkingAboutMusic","GLOBAL",7)~ EXIT
END

IF ~~ THEN BEGIN 252arrebutifori
	SAY @3570
	IF ~~ THEN REPLY @3565 GOTO 253arrebutifori
	IF ~~ THEN REPLY @3566 GOTO 253arrebutifori
	IF ~~ THEN REPLY @3568 GOTO 241arrebutifori
END

IF ~~ THEN BEGIN 253arrebutifori
	SAY @3571
	=
	@3572
	IF ~~ THEN REPLY @3573 GOTO 257arrebutifori
	IF ~~ THEN REPLY @3574 GOTO 257arrebutifori
	IF ~~ THEN REPLY @3575 GOTO 255arrebutifori
	IF ~~ THEN REPLY @3576 GOTO 256arrebutifori
END

IF ~~ THEN BEGIN 254arrebutifori
	SAY @3577
	IF ~~ THEN GOTO 253arrebutifori
END

IF ~~ THEN BEGIN 255arrebutifori
	SAY @3578
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("TalkingAboutMusic","GLOBAL",7)~ EXIT
END

IF ~~ THEN BEGIN 256arrebutifori
	SAY @3579
	IF ~~ THEN REPLY @3580 GOTO 257arrebutifori
	IF ~~ THEN REPLY @3581 GOTO 257arrebutifori
	IF ~~ THEN REPLY @3582 GOTO 255arrebutifori
END

IF ~~ THEN BEGIN 257arrebutifori
	SAY @3583
	IF ~~ THEN DO ~SetGlobal("TalkingAboutMusic","GLOBAL",7)
	ClearAllActions()
	StartCutSceneMode()
	StartCutScene("LoveMe4")
	~ EXIT
END


// *** Act 5 ***

IF ~~ THEN BEGIN 258MRarrebutifori
	SAY @3584 
	IF ~~ THEN REPLY @3585 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~  GOTO 271arrebutifori
	IF ~~ THEN REPLY @3586 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 270arrebutifori
	IF ~~ THEN REPLY @3587 GOTO 265arrebutifori
	IF ~~ THEN REPLY @3588 GOTO 260arrebutifori
	IF ~~ THEN REPLY @3589 GOTO 259arrebutifori
END

IF ~~ THEN BEGIN 259arrebutifori
	SAY @3590
	=
	@3591
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 260arrebutifori
	SAY @3592 
	IF ~~ THEN REPLY @3593 GOTO 261arrebutifori
	IF ~~ THEN REPLY @3594 GOTO 261arrebutifori
	IF ~~ THEN REPLY @3595 GOTO 263arrebutifori
END

IF ~~ THEN BEGIN 261arrebutifori
	SAY @3596
	=
	@3597
	=
	@3598
	IF ~~ THEN REPLY @3599 GOTO 262arrebutifori
	IF ~~ THEN REPLY @3600 GOTO 264arrebutifori
END

IF ~~ THEN BEGIN 262arrebutifori
	SAY @3601
	=
	@3602
	=
	@3603
	IF ~GlobalGT("KindnessCounter","GLOBAL",20)~ THEN GOTO 262unoarrebutifori
	IF ~!GlobalGT("KindnessCounter","GLOBAL",20)~ THEN GOTO 262dosarrebutifori
END

IF ~~ THEN BEGIN 262dosarrebutifori
	SAY @3604
	=
	@3605
	=
	@3606
	=
	@3607
	=
	@3608
	=
	@3609
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("ImDemon")~ EXIT
END


IF ~~ THEN BEGIN 262unoarrebutifori
	SAY @3610
	=
	@3611
	=
	@3612
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("ImLeaves")~ EXIT
END
	
IF ~~ THEN BEGIN 263arrebutifori
	SAY @3613
	=
	@3614
	IF ~~ THEN REPLY @3615 GOTO 263aarrebutifori
	IF ~~ THEN REPLY @3616 GOTO 263barrebutifori
END

IF ~~ THEN BEGIN 263aarrebutifori
	SAY @3617
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	ReputationInc(-5) ActionOverride(Player1,ApplySpellRES("SPMRACNE",Player1)) 
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN 263barrebutifori
	SAY @3618
	IF ~~ THEN DO ~LeaveParty()
	ReputationInc(-5) ActionOverride(Player1,ApplySpellRES("SPMRACCE",Player1)) 
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN 264arrebutifori
	SAY @3619
	=
	@3614
	IF ~~ THEN REPLY @3615 GOTO 263aarrebutifori
	IF ~~ THEN REPLY @3616 GOTO 263barrebutifori
END

IF ~~ THEN BEGIN 265arrebutifori
	SAY @3620 
	=
	@3621
	IF ~~ THEN REPLY @3622 GOTO 269arrebutifori
	IF ~~ THEN REPLY @3623 GOTO 268arrebutifori
	IF ~~ THEN REPLY @3624 GOTO 267arrebutifori
	IF ~~ THEN REPLY @3625 GOTO 266arrebutifori
END

IF ~~ THEN BEGIN 266arrebutifori
	SAY @3626
	IF ~~ THEN REPLY @3593 GOTO 261arrebutifori
	IF ~~ THEN REPLY @3594 GOTO 261arrebutifori
	IF ~~ THEN REPLY @3595 GOTO 263arrebutifori
END

IF ~~ THEN BEGIN 267arrebutifori
	SAY @3627
	=
	@3628
	=
	@3629
	=
	@3630
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 268arrebutifori
	SAY @3631
	=
	@3632
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN 269arrebutifori
	SAY @3633
	=
	@3634
	=
	@3635
	IF ~~ THEN REPLY @3636 GOTO 267arrebutifori
	IF ~~ THEN REPLY @3637 GOTO 268arrebutifori
END

IF ~~ THEN BEGIN 270arrebutifori
	SAY @3638
	=
	@3639
	=
	@3640
	IF ~~ THEN GOTO 271arrebutifori
END

IF ~~ THEN BEGIN 271arrebutifori
	SAY @3641
	=
	@3642
	=
	@3643
	=
	@3644
	=
	@3645
	=
	@3646
	=
	@3647
	=
	@3648 
	IF ~~ THEN REPLY @3649 GOTO 275arrebutifori
	IF ~~ THEN REPLY @3650 GOTO 274arrebutifori
	IF ~~ THEN REPLY @3651 EXTERN PLAYER1 MRSEX276arrebutifori
	IF ~~ THEN REPLY @3652 GOTO 273arrebutifori
	IF ~~ THEN REPLY @3653 GOTO 272arrebutifori
END

IF ~~ THEN BEGIN  272arrebutifori
	SAY @3654
	=
	@3655
	=
	@3656
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 273arrebutifori
	SAY @3657
	=
	@3658
	=
	@3659
	=
	@3660
	=
	@3661
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 274arrebutifori
	SAY @3662
	=
	@3663
	=
	@3661
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 275arrebutifori
	SAY @3664
	=
	@3665
	=
	@3660
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN MRSEX276sarrebutifori
	SAY @3666
	=
	@3667
	=
	@3668
	IF ~GlobalGT("KindnessCounter","GLOBAL",-1)
	!GGT("KindnessCounter",13)~ THEN REPLY @3669 GOTO 277arrebutifori
	IF ~GlobalGT("KindnessCounter","GLOBAL",11)
	   Gender(Player1,MALE)~ THEN REPLY @3670 GOTO 278aarrebutifori
	IF ~GlobalGT("KindnessCounter","GLOBAL",11)
	   Gender(Player1,FEMALE)~ THEN REPLY @3670 GOTO 278barrebutifori
	IF ~GlobalGT("KindnessCounter","GLOBAL",22)~ THEN REPLY @3673 GOTO 280arrebutifori
	IF ~GlobalGT("KindnessCounter","GLOBAL",17)
	   Gender(Player1,MALE)~ THEN REPLY @3671 GOTO 279aarrebutifori
	IF ~GlobalGT("KindnessCounter","GLOBAL",17)
	   Gender(Player1,FEMALE)~ THEN REPLY @3672 GOTO 279barrebutifori
	IF ~Gender(Player1,MALE)~ THEN REPLY @3674 GOTO 281aarrebutifori
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @3674 GOTO 281barrebutifori 
END

IF ~~ THEN BEGIN 277arrebutifori
	SAY @3675 = @3676 = @3677 = @3678 = @3679 = @3680
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 278aarrebutifori
	SAY @3681
	=
	@3682
	=
	@3683
	=
	@3684
	=
	@3685
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 278barrebutifori
	SAY @3681
	=
	@3682
	=
	@3686
	=
	@3684
	=
	@3687
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 279aarrebutifori
SAY @3688 = @3689 = @3690 = @3691 = @3692 = @3693 = @213 = @3694
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 279barrebutifori
SAY @3688= @3689 = @3690 = @3691 = @3695 = @3696 = @213 = 3694
IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 280arrebutifori
SAY @3688 = @3689 = @3690 =@3691 = @3697 = @3698 = @3699
IF ~~ THEN DO ~ClearAllActions()
StartCutSceneMode()
StartCutScene("LoveMe5")~
EXIT
END
	
IF ~~ THEN BEGIN 281aarrebutifori
	SAY @3700
	=
	@3701
	=
	@3702
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN 281barrebutifori
	SAY @3703
	=
	@3701
	=
	@3704
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
	SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

 

// *** Act 6: The messy interlude ***


IF WEIGHT #-900 ~Global("IAmNotThatSureMR","GLOBAL",2)~ THEN BEGIN 282arrebutifori
	SAY @3705
	=
	@3706
	=
	@3707
	=
	@3708
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",2)~ GOTO 282fixedarrebutifori
END

IF ~~ THEN BEGIN 282fixedarrebutifori
	SAY @3709
	=
	@3710 
	IF ~~ THEN DO ~SetDialog("IMOEN2J")
	SetGlobal("MessyReplyMR","GLOBAL",1)
	SetGlobal("IAmNotThatSureMR","GLOBAL",3)
	RunAwayFromNoInterrupt(Player1,30)~
	EXIT
END
END

// ***  Final Act: Love Is All that Matters ***



 APPEND PLAYER1
	IF 
~Global("InnerThoughtMR","GLOBAL",0)
		Global("ImoenReconciliation","GLOBAL",2)~ THEN BEGIN ImoenIsReady
		SAY @3711
		=
		@3712
		=
		@3713
		=
		@3714
		=
		@3715
		IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))
		SetGlobal("InnerThoughtMR","GLOBAL",1)
		SetGlobal("ImoenReconciliation","GLOBAL",3)~
		EXIT
	END
END

// *********************************************************************************************









// ***Some interactions in Irenicus' Dungeon***

APPEND IMOEN2J
IF ~Global("BeenInHere1","GLOBAL",2)
	AreaCheck("AR0603")
	!StateCheck(Player1,STATE_SLEEPING)~ THEN BEGIN MR0 
	SAY @225 
	IF ~~ THEN REPLY @3717 DO ~SG("ImoenRomanceActive",4) SetGlobal("BeenInHere1","GLOBAL",3)~ GOTO MR1
	IF ~~ THEN REPLY @3718 DO ~SG("ImoenRomanceActive",4) SetGlobal("BeenInHere1","GLOBAL",3)~ GOTO MR1
END

 IF ~~ THEN BEGIN MR1 
SAY @3719 
 	IF ~~ THEN REPLY @3720 DO ~SetGlobal("KindnessCounter","GLOBAL",1)~ GOTO MR2
	IF ~IsValidForPartyDialog("Jaheira")~ THEN REPLY @3721 DO ~SetGlobal("KindnessCounter","GLOBAL",1)~ GOTO MR2
	IF ~~ THEN REPLY @5214 DO ~SetGlobal("KindnessCounter","GLOBAL",1)~ GOTO MR2new // = ~(Just hug her supportingly.)~
	IF ~~ THEN REPLY @3722 GOTO MR5b
	IF ~~ THEN REPLY @3723 GOTO MR8
END

IF ~~ THEN BEGIN MR2new
	SAY @5215 // = ~(As you hug her you feel Imoen is trembling slightly. She must be making true efforts to keep calm and be useful in your escape.)~
	=
	@5216 // = ~<CHARNAME>, I... some-- something is inside my head, I can feel it... It's no normal ache, it's something like... piercing my very mind... like small needles in the back of my head, or a knife cutting slowly into my brain, painfully stabbing my thoughts... I don't know what he did, <CHARNAME>, but it sure is killing me...~
	IF ~~ THEN REPLY @3725 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO MR3
	IF ~~ THEN REPLY @3726 GOTO MR3
	IF ~~ THEN REPLY @3727 GOTO MR6
	IF ~~ THEN REPLY @3728 GOTO MR8
END


 IF ~~ THEN BEGIN MR2 
	SAY @3724
	IF ~~ THEN REPLY @3725 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO MR3
	IF ~~ THEN REPLY @3726 GOTO MR3
	IF ~~ THEN REPLY @3727 GOTO MR6
	IF ~~ THEN REPLY @3728 GOTO MR8
END

 IF ~~ THEN BEGIN MR3 
	SAY @3729 
	IF ~~ THEN GOTO MR4
END

 IF ~~ THEN BEGIN MR4 
	SAY @3730 = @5217 // = ~It's just too much for me to stand... do it for me... please?~
	IF ~~ THEN REPLY @3731 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO MR5a
	IF ~~ THEN REPLY @3732 GOTO MR5c
	IF ~~ THEN REPLY @3733 GOTO MR5b
	IF ~~ THEN REPLY @5218 GOTO MR8 // = ~You are becoming a burden, Imoen. If you can't be useful to me, get lost.~
END

 IF ~~ THEN BEGIN MR5a
	SAY @3734 
	IF ~~ THEN EXIT
END 

 IF ~~ THEN BEGIN MR5b
	SAY @3735 
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("KindnessCounter","GLOBAL",0)~ 
	EXIT
END 

IF ~~ THEN BEGIN MR5c
	SAY @5219 // = ~(Imoen sighs) Alright... it's better than nothing...~
	IF ~~ THEN EXIT
END


 
 IF ~~ THEN BEGIN MR6 
	SAY @3736 
	IF ~~ THEN GOTO MR7
END

 IF ~~ THEN BEGIN MR7 
	SAY @3737 
	IF ~~ THEN EXIT
END

 IF ~~ THEN BEGIN MR8 
	SAY @3738 
	IF ~~ THEN GOTO MR9
END

 IF ~~ THEN BEGIN MR9 
	SAY @3739
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) IncrementGlobal("KindnessCounter","GLOBAL",-2) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END


// ***************************************************************************************


IF ~Global("ExitingDialogWithImoen","GLOBAL",1)
	!Global("ImoenRomanceActive","GLOBAL",3)
	!StateCheck(Player1,STATE_SLEEPING)
	~ THEN BEGIN 10MR // from:
	SAY @3740 
	IF ~~ THEN DO ~SetGlobal("ExitingDialogWithImoen","GLOBAL",2)~ GOTO 11MR
END
 
 IF ~~ THEN BEGIN 11MR 
	SAY @3741
	=
	@3742
	IF ~~ THEN GOTO 12MR
END

 IF ~~ THEN BEGIN 12MR
	SAY @3743
	IF ~Gender(Player1,MALE)~ THEN REPLY @3744 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 13aMR
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @3744 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO 13bMR
	IF ~~ THEN REPLY @3745 GOTO 16MR
	IF ~~ THEN REPLY @3746 GOTO 17MR
END 
 
 IF ~~ THEN BEGIN 13aMR
	SAY @3747
	=
	@3748
	IF ~~ THEN GOTO 14aMR
END

 IF ~~ THEN BEGIN 13bMR
	SAY @3749
	=	
	@3748
	IF ~~ THEN GOTO 14bMR
END

 IF ~~ THEN BEGIN 14aMR
	SAY @3750
	IF ~~ THEN GOTO 15aMR
END

 IF ~~ THEN BEGIN 14bMR
	SAY @3750
	IF ~~ THEN GOTO 15bMR
END

 IF ~~ THEN BEGIN 15aMR
	SAY @3751
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 15bMR
	SAY @3752 
	IF ~~ THEN EXIT
END


 IF ~~ THEN BEGIN 16MR
	SAY @3753 
	=
	@3754 
	IF ~~ THEN EXIT
END

 IF ~~ THEN BEGIN 17MR
	SAY @3755 
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)
	SetGlobal("KindnessCounter","GLOBAL",0)~ EXIT
END
END

// *********************************************************************************************

// ***Misc Appending***





APPEND MINSCJ
IF ~~ THEN BEGIN Mirrabbo
	SAY @3763
	IF ~~ THEN EXTERN BIMOEN2 31MRarrebutifori
END
END

APPEND ~VICONIJ~
	IF ~~ THEN BEGIN Mirrabb1
	SAY @3764
	IF ~~ THEN EXTERN BIMOEN2 Mirrabb2arrebutifori
	END

	IF ~~ THEN BEGIN Mirrabb3
	SAY @3765
	IF ~~ THEN EXTERN BIMOEN2 Mirrabb4arrebutifori
	END
END

APPEND ~PLAYER1~
 IF ~~ THEN BEGIN MR170
	SAY @3766
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("BIMOEN2"))~ GOTO MR170pet
	END

IF ~~ THEN BEGIN MR170pet
	SAY @3767
	IF ~~ THEN REPLY @3768 GOTO MR173
	IF ~~ THEN REPLY @3769 GOTO MR172
	IF ~~ THEN REPLY @3770 EXTERN BIMOEN2 171MRarrebutifori
 END

 IF ~~ THEN BEGIN MR173
	SAY @3771
	IF ~~ THEN REPLY @3772 EXTERN BIMOEN2 176MRarrebutifori
	IF ~~ THEN REPLY @3773 EXTERN BIMOEN2 176aarrebutifori
	IF ~~ THEN REPLY @3774 EXTERN BIMOEN2 175MRarrebutifori
	IF ~~ THEN REPLY @3775 EXTERN BIMOEN2 174MRarrebutifori
	IF ~~ THEN REPLY @3776 GOTO MR172
 END
 
 IF ~~ THEN BEGIN MR172
	SAY @3777
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
 END

 IF ~Global("ImoenDream1MR","GLOBAL",1)~
 	THEN BEGIN STIM11
	SAY @3778
	=
	@3779
	IF ~~ THEN EXTERN IMDREAM MRDR0
 END

 IF ~~ THEN BEGIN STIM12
	SAY @3780
	IF ~~ THEN EXTERN IMDREAM MRDR1
 END
END



// *** Inflection point appending *** 


APPEND ~JAHEIRAJ~
	IF ~~ THEN BEGIN JaheiraCabrona
	SAY @3781
	IF ~IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ InterMR2
	IF ~!IsValidForPartyDialog("Aerie")
	
	IsValidForPartyDialog("Cernd")~ THEN EXTERN CERNDJ InterMR4 
	IF ~!IsValidForPartyDialog("Aerie")
	
	!IsValidForPartyDialog("Cernd")
	IsValidForPartyDialog("Nalia")~ THEN EXTERN NALIAJ InterMR5 
	IF ~!IsValidForPartyDialog("Aerie")
	
	!IsValidForPartyDialog("Cernd")
	!IsValidForPartyDialog("Nalia")~ THEN EXTERN BIMOEN2 134arrarrebutifori
END
END

APPEND ~AERIEJ~
	IF ~~ THEN BEGIN InterMR2
		SAY @3784
		IF ~
		IsValidForPartyDialog("Cernd")~ THEN EXTERN CERNDJ InterMR4 
		IF ~
		!IsValidForPartyDialog("Cernd")
		IsValidForPartyDialog("Nalia")~ THEN EXTERN NALIAJ InterMR5 
		IF ~
		!IsValidForPartyDialog("Cernd")
		!IsValidForPartyDialog("Nalia")~ THEN EXTERN BIMOEN2 134arrarrebutifori
	END
END

APPEND ~CERNDJ~
	IF ~~ THEN BEGIN InterMR4
		SAY @3787
		IF ~IsValidForPartyDialog("Nalia")~ THEN EXTERN NALIAJ InterMR5 
		IF ~!IsValidForPartyDialog("Nalia")~ THEN EXTERN BIMOEN2 134arrarrebutifori
	END
END

APPEND ~NALIAJ~
	IF ~~ THEN BEGIN InterMR5
		SAY @3788
		IF ~~ THEN EXTERN BIMOEN2 134arrarrebutifori
	END
END

APPEND ~VICONIJ~
	IF ~~ THEN BEGIN OffenseMirrabbo
		SAY @3791
		IF ~~ THEN EXTERN BIMOEN2 208MRarrebutifori
	END
END

APPEND PLAYER1
	IF ~~ THEN BEGIN HaveSex1
	SAY @3810
	=
	@3811
	IF ~~ THEN EXTERN BIMOEN2 246MRarrebutifori
	END

	IF ~Global("TalkingAboutMusic","GLOBAL",8)~ THEN BEGIN ChaseIm
	SAY @3812
	=
	@3813
	=
	@3814
	=
	@3815
	IF ~~ THEN DO ~SetGlobal("TalkingAboutMusic","GLOBAL",9)~ EXTERN BIMOEN2 258MRarrebutifori
	END

	IF ~Global("SexSelfTalkMR","GLOBAL",1)~ THEN BEGIN MRSEX276arrebutifori
	SAY @3816
	=
	@3817
	=
	@3818
	=
	@3819
	=
	@3820
	IF ~~ THEN EXTERN BIMOEN2 MRSEX276sarrebutifori
	END

	IF ~Global("IAmNotThatSureMR","GLOBAL",1)~ THEN BEGIN WhataMess
		SAY @3821 
		=
		@3822
		IF ~~ THEN DO ~SetGlobal("HadSexMessyInterlude","GLOBAL",1)
		ClearAllActions()
		StartCutSceneMode()
		StartCutScene("LoveMe5a")~ EXIT
	END
END


// *********************************************************************************

// *** Imoen's friendship ***


APPEND AERIEJ
	IF WEIGHT #720
~Global("ImFriendMR","GLOBAL",1)~ THEN BEGIN IFMR1
	SAY @3823
	IF ~~ THEN DO ~SetGlobal("ImFriendMR","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ EXTERN IMOEN2J IFMR2
END

CHAIN2 IMOEN2J IFMR2
@3824 == @3825 == @3826 == @3827 == @3828 = @3829 == @3830 == @3831 == @3832 == @3833 = @3834
END AERIEJ IFMR3

IF ~~ THEN BEGIN IFMR3
	SAY @3835 =	@3836	= @3837
	IF ~~ THEN EXIT
END
END

// ******************************************************************

APPEND IMOEN2J
 IF  WEIGHT #721
~Global("ImFriendMR","GLOBAL",3)~ THEN BEGIN IFMR4
	SAY @3838
	IF ~~ THEN DO ~SetGlobal("ImFriendMR","GLOBAL",4) ActionOverride(Player1,SetDialog("Player1"))~ EXTERN AERIEJ IFMR5
END

IF ~~ THEN BEGIN SUMR7b2
	SAY @3839
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN SUMR7b13
	SAY @3840
	IF ~~ THEN GOTO SUMR7b
END

CHAIN2 AERIEJ IFMR5
@3841 == @3842 == @3843 = @3844 == @3845 == @3846 = @3847 == @3848 == @3849 == @3850 == @3851 = @3852 == @3853 = @3854 == @3855 = @3856
== @3857 = @3858 = @3859 =@3860 == @3861 == @3862 == @3863 == @3864 = @3865 == @3866 = @3653 = @3867 == @3868 
END AERIEJ IFMR6 
END

APPEND AERIEJ
IF ~~ THEN BEGIN IFMR6
	SAY @3869
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J")) ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 IFMR7
END
END

APPEND PLAYER1
IF ~~ THEN BEGIN IFMR7
	SAY @3870 = @3871 = @3872 = @3873
	IF ~~ THEN EXIT
END
END

// *****************************************************************

APPEND AERIEJ
IF WEIGHT #722
~Global("ImFriendMR","GLOBAL",5)~ THEN BEGIN IFMR8
	SAY @3874 = @3875
	IF ~~ THEN DO ~SetGlobal("ImFriendMR","GLOBAL",6) ActionOverride(Player1,SetDialog("Player1"))~ EXTERN IMOEN2J IFMR9
END

CHAIN2 IMOEN2J IFMR9
@3876 == @3877 = @3878 == @3879 = @3880 = @3881 == @3882 = @3883 == @3884 == @3885 == @3886 == @3887 = @3888 = @3889 == @3890 == @3891 
== @3892 == @3893 = @3894
END IMOEN2J IFMR10
END 

APPEND IMOEN2J
IF ~~ THEN BEGIN IFMR10
	SAY @3895
	IF ~~ THEN EXTERN PLAYER1 IFMR11
END
END

APPEND PLAYER1
IF ~~ THEN BEGIN IFMR11
	SAY @3896 = @3897
	IF ~~ THEN EXIT
END
END

// ******************************************************************************

APPEND IMOEN2J 
IF WEIGHT #723
~OR(2) G("NoImoenFriendshipMR",5) Global("ImFriendMR","GLOBAL",7)~ THEN BEGIN IFMR12
	SAY @3898
	IF ~G("ImFriendMR",7)~ THEN DO ~SetGlobal("ImFriendMR","GLOBAL",8) ActionOverride(Player1,SetDialog("Player1"))~ EXTERN AERIEJ IFMR13
	IF ~G("NoImoenFriendshipMR",5)~ THEN DO ~SetGlobal("NoImoenFriendshipMR","GLOBAL",6) ActionOverride(Player1,SetDialog("Player1"))~ EXTERN AERIEJ IFMR13
END

CHAIN2 AERIEJ IFMR13
@3899 == @3900 = @3901 == @3902 == @3903 == @3904 == @3905 == @3906 == @3907 == @3908
END IMOEN2J IFMR14

IF ~~ THEN BEGIN IFMR14
	SAY @3909
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("CutImAe1")~
	EXIT
END

IF ~~ THEN BEGIN IFMR25
	SAY @3910 
	=
	@3911
	IF ~~ THEN EXTERN PLAYER1 IFMR26
END

IF ~~ THEN BEGIN IFMR28
	SAY @3912
	IF ~~ THEN EXTERN AERIEJ IFMR29
END

IF ~~ THEN BEGIN IFMR33
	SAY @3913 = @3914	= @3915 = @3916
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN IFMR33new
	SAY @5058 // ~(When Aerie begins to clean it, Imoen approaches, smiles winking at you, and gives you a brief hug.)~
	=
	@3914
	=
	@3915
	=
	@3916
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN IFMR34
	SAY @3917
	=
	@3918
	=
	@3914
	=
	@3919
	=
	@3920
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN IFMR31
	SAY @3921
	IF ~~ THEN EXTERN AERIEJ IFMR35
END
END

APPEND AERIEJ
IF ~Global("ImFriendMR","GLOBAL",8)~ THEN BEGIN IFMR14
	SAY @3922
	IF ~~ THEN REPLY @3923 DO ~SetGlobal("ImFriendMR","GLOBAL",9)~ GOTO IFMR16
	IF ~~ THEN REPLY @3924 DO ~SetGlobal("ImFriendMR","GLOBAL",9)~ GOTO IFMR15
	IF ~~ THEN REPLY @3925 DO ~SetGlobal("ImFriendMR","GLOBAL",9)~ GOTO IFMR15
END

IF ~~ THEN BEGIN IFMR15
	SAY @3926
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO IFMR17
END

IF ~~ THEN BEGIN IFMR16
	SAY @3927
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO IFMR17
END

IF ~~ THEN BEGIN IFMR17
	SAY @3928
	=
	@3929
	=
	@3930
	=
	@3931
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO IFMR17caoa
END

IF ~~ THEN BEGIN IFMR17caoa
   SAY @3932
	IF ~~ THEN REPLY @3933 DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 IFMR18
	IF ~~ THEN REPLY @3934 DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 IFMR18
	IF ~~ THEN REPLY @3935 DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 IFMR18
	IF ~~ THEN REPLY @3936 DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO IFMR19
	IF ~~ THEN REPLY @3937 DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO IFMR19
END

IF ~~ THEN BEGIN IFMR19
	SAY @3938
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 IFMR20
END

IF ~~ THEN BEGIN IFMR21
	SAY @3939
	IF ~~ THEN GOTO IFMR23
END

IF ~~ THEN BEGIN IFMR22
	SAY @3940
	IF ~~ THEN GOTO IFMR23
END
END

CHAIN AERIEJ IFMR23
@3941 
== PLAYER1 IF ~CheckStatGT(Player1,9,INT)~ THEN @3942
== PLAYER1 IF ~CheckStatGT(Player1,9,INT)~ THEN @3943
== PLAYER1 IF ~CheckStatGT(Player1,9,INT)~ THEN @3944
== PLAYER1 IF ~!CheckStatGT(Player1,9,INT) CheckStatGT(Player1,5,INT)~ THEN @5236 // = ~(You hurriedly open your money bag. Seeing again this dark purple substance, you take a bit of it in your hand. Strangely enough, these slimy, thin filaments smell of blueberry syrup...)~
== PLAYER1 IF ~!CheckStatGT(Player1,9,INT) CheckStatGT(Player1,5,INT)~ THEN @5237 // = ~(You don't really understand what is happening, but you suspect *something* as you raise your head to look at Aerie again.)~
== PLAYER1 IF ~!CheckStatGT(Player1,9,INT) CheckStatGT(Player1,5,INT)~ THEN @5238 // = ~(Imoen is standing beside her now. She has many things in her hands... that look somewhat familiar.)~
== PLAYER1 IF ~!CheckStatGT(Player1,5,INT)~ THEN @5239 // = ~Grargh! (You grunt, but can't quite remember why. Confused, you look at your hand to see it is holding that thing where you put the shiny things. However, they should be making the funny *clink* *clink* they use to do when you touch the bag, but, strangely, they aren't...)~
== PLAYER1 IF ~!CheckStatGT(Player1,5,INT)~ THEN @5240 // = ~(Fearing they might be dead, you manage to open the bag after the titanic effort of figuring out how to do it. The smell of yummy blueberries overwhelms you when you look inside.)~
== PLAYER1 IF ~!CheckStatGT(Player1,5,INT)~ THEN @5241 // = ~Wee! (Happy as only you can be, you take a bit of the dark purple substance in your hand and introduce it into your mouth, full of expectancy. You find out in delight that it tastes of delicious blueberry syrup as you look up to the pretty elven girl and the funny red-head, Imoen.)~
== PLAYER1 IF ~!CheckStatGT(Player1,5,INT)~ THEN @5242 // = ~(You beam a smile at them, your teeth stained in violet) Yummy!~
END AERIEJ IFMR24

APPEND AERIEJ
IF ~~ THEN BEGIN IFMR24
	SAY @3945
	=
	@3946
	IF ~~ THEN EXTERN IMOEN2J IFMR25
END

IF ~~ THEN BEGIN IFMR27
	SAY @3947
	=
	@3948
	IF ~~ THEN EXTERN IMOEN2J IFMR28
END

IF ~~ THEN BEGIN IFMR29
	SAY @3949
	=
	@3950
	IF ~Gender(Player1,MALE)~ THEN REPLY @3951 GOTO IFMR30
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @3951 GOTO IFMR30new
	IF ~~ THEN REPLY @3952 EXTERN IMOEN2J IFMR31
	IF ~~ THEN REPLY @3953 GOTO IFMR32
END

IF ~~ THEN BEGIN IFMR30
	SAY @3954
	=
	@3955
	IF ~~ THEN EXTERN IMOEN2J IFMR33
	IF ~Gender(Player1,FEMALE)~ THEN EXTERN IMOEN2J IFMR33new
END

IF ~~ THEN BEGIN IFMR30new
	SAY @5059 // ~Heheheh, that's a relief, I really feared you'd get mad at us! (She hugs you in a thankful gesture.)~
	=
	@3955
	IF ~~ THEN EXTERN IMOEN2J IFMR33
	IF ~Gender(Player1,FEMALE)~ THEN EXTERN IMOEN2J IFMR33new
END


IF ~~ THEN BEGIN IFMR32
	SAY @3956
	IF ~~ THEN EXTERN IMOEN2J IFMR34
END

IF ~~ THEN BEGIN IFMR35
	SAY @3957
	=
	@3958
	IF ~~ THEN EXTERN IMOEN2J IFMR33
	IF ~Gender(Player1,FEMALE)~ THEN EXTERN IMOEN2J IFMR33new
END
END


APPEND PLAYER1
IF ~~ THEN BEGIN IFMR20
	SAY @3959
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO IFMR18
END

IF ~~ THEN BEGIN IFMR18
	SAY @3960
	=
	@3961
	IF ~~ THEN REPLY @3962 EXTERN AERIEJ IFMR22
	IF ~~ THEN REPLY @3963 EXTERN AERIEJ IFMR21
	IF ~CheckStatGT(Player1,15,WIS)~ THEN REPLY @3964 EXTERN AERIEJ IFMR24
	IF ~~ THEN REPLY @3965 EXTERN AERIEJ IFMR23
END

IF ~~ THEN BEGIN IFMR26
	SAY @3966
	IF ~~ THEN REPLY @3967 EXTERN AERIEJ IFMR27
	IF ~~ THEN REPLY @3968 EXTERN AERIEJ IFMR27
	IF ~~ THEN REPLY @3969 EXTERN AERIEJ IFMR27
	IF ~~ THEN REPLY @3970 EXTERN AERIEJ IFMR27
	IF ~~ THEN REPLY @3971 EXTERN AERIEJ IFMR27
END
END


// *********************************************************************************************

APPEND IMOEN2J
IF WEIGHT #724
~Global("ImFriendMR","GLOBAL",10)~ THEN BEGIN IFMR36
	SAY @3972
	IF ~~ THEN DO ~SetGlobal("ImFriendMR","GLOBAL",11)
			   ActionOverride(Player1,SetDialog("Player1"))~ EXTERN AERIEJ IFMR37
END

CHAIN2 AERIEJ IFMR37
@3973 == @3974 == @3975 == @3976 == @3977 = @3978 = @3979 = @3980 = @3981 == @3982 == @3983 == @3984 == @3985 == @3986 = @3987 == @3988
= @3989
END IMOEN2J IFMR38

IF ~~ THEN BEGIN IFMR38
	SAY @3990
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END
END

// *****************************************************************************

APPEND PLAYER1
IF WEIGHT #725
~Global("ImFriendMR","GLOBAL",12)~ THEN BEGIN IFMR39
	SAY @3991
	=
	@3992
	=
	@3993
	IF ~~ THEN REPLY @3994 DO ~SetGlobal("ImFriendMR","GLOBAL",13) ActionOverride(Player1,SetDialog("Player1"))~ GOTO IFMR42
	IF ~~ THEN REPLY @3995 DO ~SetGlobal("ImFriendMR","GLOBAL",13) ActionOverride(Player1,SetDialog("Player1"))~ GOTO IFMR41
	IF ~~ THEN REPLY @5243 DO ~SetGlobal("ImFriendMR","GLOBAL",13) ActionOverride(Player1,SetDialog("Player1"))~ GOTO IFMR40new // = ~(You couldn't care less of what they are talking about. You walk away from them so you won't get to hear any of their pointless small talk.)~
	IF ~~ THEN REPLY @3996 DO ~SetGlobal("ImFriendMR","GLOBAL",13) ActionOverride(Player1,SetDialog("Player1"))~ GOTO IFMR40
END

IF ~~ THEN BEGIN IFMR40new
	SAY @5244 // = ~(Just when you hear another soft giggle you get as far from them as you can. They keep talking, not noticing your attitude at all.)~
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END
	

IF ~~ THEN BEGIN IFMR40
	SAY @3997
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN IFMR41
	SAY @3998
	IF ~~ THEN EXTERN IMOEN2J IFMR41a
END

IF ~~ THEN BEGIN IFMR41c
	SAY @3999
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END

IF ~~ THEN BEGIN IFMR42
	SAY @4000
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN AERIEJ IFMR43
END

IF ~~ THEN BEGIN IFMR50
	SAY @4001 = @4002
	IF ~~ THEN REPLY @5245 GOTO mady1 // = ~(What you have heard already is more than enough. Do the wise thing and stop breaking their privacy.)~
	IF ~~ THEN REPLY @5246 EXTERN AERIEJ mady2 // = ~(Curiosity overpowers your common sense. You stay at the same distance to see if you can hear more.)~ 
	IF ~~ THEN REPLY @5247 EXTERN AERIEJ mady3 // = ~(You feel rather offended from the way Imoen has told your intimacies and secrets to Aerie) Imoen, I feel betrayed. How dare you tell her all that?~
	IF ~~ THEN REPLY @5248 EXTERN AERIEJ mady3 // = ~(You feel so moved from her words that you must say something) Imoen, my love... you make me very happy too. I would die without you...~
	IF ~~ THEN REPLY @5249 EXTERN AERIEJ mady3 // = ~(You feel so aroused from her words that you must say something) Baby, you make me so hot when you talk like that... I love you so much, let's have some action together right now!~
	IF ~~ THEN REPLY @5250 EXTERN IMOEN2J mady4 // = ~(Her words make your most private fantasies take control of your tongue) Heheh, Aerie, you only have to ask... a threesome with you two would be a dream come true, and I know Imoen wouldn't mind at all, she is into girls too...~
END

IF ~~ THEN BEGIN mady1
	SAY @4003 = @4004
	IF ~~ THEN DO ~ActionOverride("Imoen2",SetDialog("IMOEN2J"))~ EXIT
END
END

CHAIN AERIEJ mady2
@5251 // = ~... But-- but doesn't that hurt...?~
== IMOEN2J @5252 // = ~Hurt...? (Imoen laughs softly) Oh Aerie, yer too innocent for the-- huh!? (You hadn't noticed they had changed positions. Imoen is now facing you directly... and *looking at you* directly) BUT WHAT THE...!?~
== AERIEJ @5253 // = ~(Aerie turns to find out what is wrong, and notices you looking at them. Your sixth sense for danger is booming inside your head already) Eeek!~
END IMOEN2J madychain

CHAIN IMOEN2J madychain
@5254 // = ~<CHARNAME>!!! HOW LONG HAVE YOU BEEN THERE!?~
== AERIEJ @5255 // = ~(Aerie has blushed brightly already) <PRO_HESHE> has listened to everything we have said!~
== IMOEN2J @5256 // = ~I can't believe you sneaked behind us to snoop in our *private* talk, you nosey-parker!!~
== AERIEJ @5257 // = ~<PRO_HESHE>... heard me asking you all that...~
== IMOEN2J @5258 // = ~You-- you heard me say... (Imoen's eyes burn. She is piercing you with her glare.)~
END IMOEN2J mady2a

APPEND IMOEN2J
IF ~~ THEN BEGIN mady2a
	SAY @5259 // = ~Something to say before I WHACK YOUR HEAD!?~
	IF ~~ THEN REPLY @5260 GOTO madykiss // = ~I, err... I love you?~
	IF ~~ THEN REPLY @5261 GOTO madykiss // = ~But Imoen, I was just too curious about what you two talked about! Forgive me, please!~
	IF ~~ THEN REPLY @5262 GOTO madykiss // = ~(Think quickly!) Yes: I don't regret at all what I just did, for hearing all you told her has made me immensely happy, and I don't care if now you kick my butt; it was worthwhile.~
	IF ~~ THEN REPLY @5263 GOTO madykiss // = ~It is *I* who should "whack your head"! It seems you don't have any respect for our relationship, telling everything about it to Aerie!~
	IF ~~ THEN REPLY @5264 GOTO madykiss // = ~Hahah, try if you want! Let's see who whacks who!~
	IF ~~ THEN REPLY @5265 GOTO madykiss // = ~Wait, I, uh... I... LOOK THERE! (Run away before it's too late!)~
END
END

CHAIN IMOEN2J madykiss
@5266 // = ~(Your words only manage to enrage her even more. Moving EXTREMELY fast, she runs to you and jumps over you, with such wild, unnatural strength that she makes you fall to the ground. She doesn't care about where you might fall or who might be seeing you two.)~
= @5267 // = ~(It hurts to land on your back, specially since all of her weight is added to the fall. Imoen doesn't seem to care at all about that: she sits astride your hips and leans over you, probably ready to beat some common sense and manners into your head.)~
= @5268 // = ~(Then, she takes your nape with both hands, and forcefully pulls your head toward hers. She roughly links her lips to yours, intensely kissing your mouth with an ardor never experienced before. Her tongue fights to slip past your lips, achieving this goal almost immediately. Her agitated breath is all you can hear, her heart all you can feel, as you taste her sweet saliva in delight.)~
= @5269 // = ~(She stops the kiss as violently as she started it, releasing your head and sitting straight. Imoen looks into your eyes and smiles mischievously; then she stands up without a word, and goes to Aerie's side, who looks at her really confused.)~
= @5270 // = ~(She has left you there lying on the ground, still choking for breath... with a faint feeling of emptiness and longing for more, missing her presence both in your mouth and heart.)~
= @5271 // = ~(Imoen really knows how to make her pushishments truly painful.)~ 
EXIT

CHAIN AERIEJ mady3
@5272 // = ~(Both women jump when they hear your voice, and turn to look in your direction simultaneously.)~
= @5273 // = ~(The elven girl opens her eyes wide when she understands what has happened) Eeek!~
== IMOEN2J @5274 // = ~Huh!? (As for Imoen, you can see the signs of anger building up on her face already...)~
END IMOEN2J madychain

CHAIN IMOEN2J mady4
@5272 
== AERIEJ @5275 // = ~(Aerie, thinking of what you have just said, seems horrorized) Eeek!!~
== IMOEN2J @5276 // = ~(As for Imoen, she stares at you with flames in her wide-opened eyes) JUST WHAT DID YOU SAY!?~
== AERIEJ @5277 // = ~<PRO_HESHE> has heard everything we have been talking about!~
== IMOEN2J IF ~Gender(Player1,MALE)~ THEN @5278 // = ~HOW LONG HAVE YOU BEEN THERE, YOU PERVERTED BASTARD!?~
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5610 // = ~HOW LONG HAVE YOU BEEN THERE, YOU PERVERTED BITCH!?~
END AERIEJ mady5

APPEND AERIEJ
IF ~~ THEN BEGIN mady5
	SAY @5279 // = ~Oh my OH MY! <PRO_HESHE> wants to lay me!!~
	IF ~~ THEN REPLY @5280 GOTO mady6 // = ~No, no, you misunderstood, not you; BOTH of you at the same time, which is different!!~
	IF ~~ THEN REPLY @5281 GOTO mady7 // = ~OH come on girls, you know I was joking! Geez, you two go mad too easily...~
	IF ~~ THEN REPLY @5282 GOTO mady6 // = ~Don't act innocent like that, I know you'd love to join my games with Imoen!~
	IF ~~ THEN REPLY @5283 GOTO mady7 // = ~Please, please forgive my thoughtless words... I don't know why I said that, please forgive me...~
	IF ~~ THEN REPLY @5284 EXTERN IMOEN2J mady8 // = ~Uh-oh... (This is getting very dangerous. You didn't think they'd take it like this... running is a wise option!)~
END

IF ~~ THEN BEGIN mady6
SAY @5285 // = ~EEK!!~
IF ~~ THEN EXTERN IMOEN2J mady7a
END

IF ~~ THEN BEGIN mady7
SAY @5286 // = ~you... you...! (Aerie is at a loss of words.)~
IF ~~ THEN EXTERN IMOEN2J mady7a
END
END

APPEND IMOEN2J
IF ~~ THEN BEGIN mady8
	SAY @5287 // = ~NOT THAT FAST!!~
	IF ~~ THEN GOTO mady9
END

IF ~~ THEN BEGIN mady7a
	SAY @5288 // = ~(Imoen is staring at you. Her eyes burn as she virtually obliterates you with her gaze. Nothing good can come out of this.)~
	IF ~~ THEN GOTO mady9
END
END

CHAIN IMOEN2J mady9
@5289 // = ~(Without any other word, and moving EXTREMELY fast, she runs to you and jumps over you with such wild, unnatural strength that she makes you fall to the ground. She doesn't care about where you might fall or who might be seeing you two.)~
= @5267 = @5268 = @5269 = @5270
= @5290 // = ~(Imoen seems to know that sometimes you don't think before talking. And she really knows how to make her pushishments truly painful.)~ 
== AERIEJ IF ~Gender(Player1,MALE)~ THEN @5291 // = ~(From your position you can see a troubled Aerie whisper to her) Umm, Imoen... why did he say that? Why did he say that "you are into girls"??~
== IMOEN2J IF ~Gender(Player1,MALE)~ THEN @5292 // = ~(Imoen glances nervously at the elf, and laughs. You recognize a forced laugh when you hear it) 'Cause he's a pervert that's why...! He's too dumb sometimes to see what should and shouldn't be said.~
== AERIEJ IF ~Gender(Player1,MALE)~ THEN @5293 // = ~(Aerie doesn't seem very satisfied by Imoen's reply, but she decides to leave the topic aside for now and keep silence, still looking at her suspiciously. She knows Imoen will tell her sooner or later, anyway.)~
== IMOEN2J IF ~Gender(Player1,MALE)~ THEN @5294 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300)~ // = ~(With a last assassin glare at you, your loved one takes Aerie's arm and proceeds to ignore you completely. Looks like she isn't done punishing you...)~
EXIT

APPEND IMOEN2J
IF ~~ THEN BEGIN IFMR41a
	SAY @4005
	IF ~~ THEN EXTERN AERIEJ IFMR41b
END

IF ~~ THEN BEGIN SUMR7d
	SAY @4006
	IF ~~ THEN REPLY @4007 GOTO SUMR7e
	IF ~~ THEN REPLY @1038 EXIT
END

IF ~~ THEN BEGIN IFMR45a
	SAY @4008
	IF ~Gender(Player1,MALE)~ THEN EXTERN AERIEJ IFMR47
	IF ~Gender(Player1,FEMALE)~ THEN EXTERN AERIEJ IFMR47b
END

IF ~~ THEN BEGIN IFMR45b
	SAY @4009
	IF ~~ THEN EXTERN AERIEJ IFMR46
END

IF ~~ THEN BEGIN IFMR48
	SAY @4010
	IF ~~ THEN EXTERN AERIEJ IFMR49
END

CHAIN2 AERIEJ IFMR49
@4011 = @4012 == @4013 == @4014 == @4015 == @4016 == @4017 == @4018 == @4019 == @4020 == @4021 == @4022 = @4023 
END PLAYER1 IFMR50
END

APPEND AERIEJ
IF ~~ THEN BEGIN IFMR41b
	SAY @4024
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 IFMR41c
END

IF ~~ THEN BEGIN IFMR43
	SAY @4025
	IF ~~ THEN EXTERN IMOEN2J IFMR44
END

CHAIN2 IMOEN2J IFMR44
@4026 == @4027 = @4028 = @4029 == @4030 == @4031 == @4032 == @4033 == @4034 == @4035 == @4036 == @4037 == @4038 = @4039 = @4040 = @4041
END AERIEJ IFMR45

IF ~~ THEN BEGIN IFMR45
	SAY @4042
	IF ~!Global("HaerDalisRomanceActive","GLOBAL",2)~ THEN EXTERN IMOEN2J IFMR45a
	IF ~Global("HaerDalisRomanceActive","GLOBAL",2)~ THEN EXTERN IMOEN2J IFMR45b
END

IF ~~ THEN BEGIN IFMR46
	SAY @4043
	=
	@4044
	IF ~~ THEN EXTERN IMOEN2J IFMR45a
END

IF ~~ THEN BEGIN IFMR47
	SAY @4045
	IF ~~ THEN EXTERN IMOEN2J IFMR48
END

IF ~~ THEN BEGIN IFMR47b
	SAY @4046
	IF ~~ THEN EXTERN IMOEN2J IFMR48
END	
END




// ***********************************************************************



// *** ABOUT THE GIFT ***


APPEND PLAYER1
IF WEIGHT #750
~Global("RingSellImoenMR","GLOBAL",1)~ THEN BEGIN RIMR1pr
	SAY @4047
	=
	@4048
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN MRWOMER RIMR2
END

IF ~~ THEN BEGIN RIMR3a
	SAY @4049
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("MrWoCut1")~ EXIT
END

IF ~~ THEN BEGIN RIMR3b
	SAY @4050
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("MrWoCut1")~ EXIT
END

IF ~~ THEN BEGIN RIMR3c
	SAY @4051
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("MrWoCut1")~ EXIT
END

IF ~~ THEN BEGIN RIMRargh
	SAY @4052
	IF ~~ THEN EXTERN MRWOMER RIMRArgh2
END

IF ~~ THEN BEGIN RIMRargh5
	SAY @4053
	IF ~~ THEN DO ~TakePartyGold(200)~ GOTO RIMRargh7
END

IF ~~ THEN BEGIN RIMRargh6
	SAY @4054
	IF ~~ THEN DO ~TakePartyGold(200)~ GOTO RIMRargh7
END

IF ~~ THEN BEGIN RIMRargh7
	SAY @4055
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("MRWoCut2")~ EXIT
END

IF ~~ THEN BEGIN RIMRargh9
	SAY @4056
	IF ~~ THEN EXTERN MRWOMER RIMRargh10
END
END

APPEND IMOEN2J
	IF ~~ THEN BEGIN RIMR5
	SAY @4057
	=
	@4058
	IF ~~ THEN EXTERN MRWOMER RIMR6
	END

	IF ~~ THEN BEGIN RIMR7
	SAY @4059
	=
	@4060
	=
	@4061
	=
	@4062
	IF ~~ THEN EXTERN MRWOMER RIMR8
	END

	IF ~~ THEN BEGIN RIMR9
	SAY @4063
	IF ~~ THEN REPLY @4064 EXTERN MRWOMER RIMR10
	IF ~~ THEN REPLY @4065 GOTO RIMR10c
	IF ~OR(10)
	Global("AerieRomanceActive","GLOBAL",2)
	Global("JaheiraRomanceActive","GLOBAL",2)
	Global("ViconiaRomanceActive","GLOBAL",2)
	Global("NaliaRomanceActive","GLOBAL",2)
	Global("TashiaRomanceActive","GLOBAL",2)
	Global("AnomenRomanceActive","GLOBAL",2)
	Global("J#KelseyRomanceActive","GLOBAL",2)
        Global("EdwinRomanceActive","GLOBAL",2)
        Global("ChrystaRomanceActive","GLOBAL",2)
        Global("SimeRomanceActive","GLOBAL",2)~ THEN REPLY @4066 GOTO RIMR10b
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @4067 GOTO RIMR10a
	END

	IF ~~ THEN BEGIN RIMR10a
	SAY @4068
	=
	@4069
	IF ~~ THEN REPLY @4070 EXTERN MRWOMER RIMR10
	IF ~~ THEN REPLY @4071 GOTO RIMR10melt
	IF ~~ THEN REPLY @4072 GOTO RIMR10Bugga
	END

	IF ~~ THEN BEGIN RIMR10b
	SAY @4068
	=
	@4073
	IF ~~ THEN EXTERN MRWOMER RIMR10
	END
	
	IF ~~ THEN BEGIN RIMR10c
	SAY @4074
	=
	@4075
	IF ~~ THEN EXTERN MRWOMER RIMR10
	END

	IF ~~ THEN BEGIN RIMR10melt
	SAY @4076
	=
	@4077
	IF ~~ THEN EXTERN MRWOMER RIMR10 
	END

	IF ~~ THEN BEGIN RIMR10Bugga
	SAY @4078
	IF ~~ THEN GOTO RIMRAnyway
	END

	IF ~~ THEN BEGIN RIMR11
	SAY @4079
	IF ~~ THEN EXTERN MRWOMER RIMR12
	END

	IF ~~ THEN BEGIN RIMR13a
	SAY @4080
	IF ~~ THEN GOTO RIMRbesides
	END

	IF ~~ THEN BEGIN RIMR13b
	SAY @4081
	IF ~~ THEN GOTO RIMRbesides
	END

	IF ~~ THEN BEGIN RIMR13c
	SAY @4082
	IF ~~ THEN GOTO RIMRbesides
	END
	
	IF ~~ THEN BEGIN RIMR13d
	SAY @4083
	IF ~~ THEN GOTO RIMRbesides
	END

	IF ~~ THEN BEGIN RIMRbesides
	SAY @4084
	IF ~~ THEN GOTO RIMRStealSequence
	END

	IF ~~ THEN BEGIN RIMRAnyway
	SAY @4085
	IF ~~ THEN GOTO RIMRStealSequence
	END

	IF ~~ THEN BEGIN RIMRStealSequence
	SAY @4086
	=
	@4087
	=
	@4088
	=
	@4089
	IF ~~ THEN REPLY @4090 GOTO RIMRStealSequence2
	IF ~~ THEN REPLY @4091 GOTO RIMRStealSequence2
	IF ~OR(10)
	Global("AerieRomanceActive","GLOBAL",2)
	Global("JaheiraRomanceActive","GLOBAL",2)
	Global("ViconiaRomanceActive","GLOBAL",2)
	Global("NaliaRomanceActive","GLOBAL",2)
	Global("TashiaRomanceActive","GLOBAL",2)
	Global("AnomenRomanceActive","GLOBAL",2)
	Global("J#KelseyRomanceActive","GLOBAL",2)
        Global("EdwinRomanceActive","GLOBAL",2)
        Global("ChrystaRomanceActive","GLOBAL",2)
        Global("SimeRomanceActive","GLOBAL",2)~ THEN REPLY @4092 GOTO RIMRStealSequence2
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @4093 GOTO RIMRStealSequence2
	IF ~~ THEN REPLY @4094 GOTO RIMRStealSequence2
	IF ~~ THEN REPLY @4095 GOTO RIMRStealSequence2
	END

	IF ~~ THEN BEGIN RIMRStealSequence2
	SAY @4096
	IF ~~ THEN DO ~ActionOverride(Player1,GiveItemCreate("MRIMRIN2","Imoen2",0,0,0))
	ActionOverride(Player1,SetDialog("Player1"))
	~ GOTO RIMRcaquita
	END

	IF ~~ THEN BEGIN RIMRcaquita
	SAY @4097
	IF ~~ THEN DO ~ActionOverride("Imoen2",FillSlot(SLOT_GAUNTLETS))
	ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 RIMRargh	
	END
	
	IF ~~ THEN BEGIN RIMRargh3
	SAY @4098
	=
	@4099
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 RIMRargh5
	END

	IF ~~ THEN BEGIN RIMRargh4
	SAY @4100
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 RIMRargh6
	END
	
IF  WEIGHT #100 ~Global("RingSellImoenMR","GLOBAL",4)~ THEN BEGIN RIMRargh8
	SAY @2530
	IF ~~ THEN DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO RIMRargh8aral
END

IF ~~ THEN BEGIN RIMRargh8aral
	SAY @4101
	IF ~~ THEN REPLY @719 DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 RIMRargh9
	IF ~~ THEN REPLY @4102 DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 RIMRargh9
	IF ~~ THEN REPLY @4103 DO ~ActionOverride(Player1,SetDialog("Player1"))~ EXTERN PLAYER1 RIMRargh9
	END 

	IF ~~ THEN BEGIN RIMRargh11
	SAY @4104
	=
	@4105
	=
	@4106
	=
	@4107
	IF ~NumInPartyGT(2)~ THEN GOTO RIMRhope
	IF ~!NumInPartyGT(2)~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("MRWoCut3")~ EXIT
	END

	IF ~~ THEN BEGIN RIMRhope
	SAY @4108
	IF ~~ THEN DO ~ClearAllActions()
	StartCutSceneMode()
	StartCutScene("MRWoCut3")~ EXIT
	END

	IF WEIGHT #750
~Global("RingSellImoenMR","GLOBAL",5)~ THEN BEGIN RIMR15
	SAY @4109
	IF ~~ THEN DO ~SetGlobal("RingSellImoenMR","GLOBAL",7) ActionOverride(Player1,SetDialog("Player1"))~ GOTO RIMR16
	END

	IF ~~ THEN BEGIN RIMR16
	SAY @4110
	IF ~~ THEN GOTO RIMR17
	IF ~IsValidForPartyDialog("Keldorn")~ THEN EXTERN KELDORJ RIMR16cha1
	IF ~IsValidForPartyDialog("Mazzy")~ THEN EXTERN MAZZYJ RIMR16cha2
	IF ~IsValidForPartyDialog("Jaheira")~ THEN EXTERN JAHEIRAJ RIMR16cha3
	IF ~IsValidForPartyDialog("Aerie")~ THEN EXTERN AERIEJ RIMR16cha4
	IF ~IsValidForPartyDialog("Anomen")~ THEN EXTERN ANOMENJ RIMR16cha5
	IF ~IsValidForPartyDialog("Edwin")~ THEN EXTERN EDWINJ RIMR16cha6
	IF ~IsValidForPartyDialog("Korgan")~ THEN EXTERN KORGANJ RIMR16cha7
	END

CHAIN2 KELDORJ RIMR16cha1
@4161
== 
@4162
== 
@4163
END IMOEN2J RIMR17
	
CHAIN2 MAZZYJ RIMR16cha2
@4161
==
@4164
== 
@4165
END IMOEN2J RIMR17

CHAIN2 JAHEIRAJ RIMR16cha3
@4161
== 
@4166
== 
@4163
END IMOEN2J RIMR17

CHAIN2 AERIEJ RIMR16cha4
@4167
== 
@4168
== 
@4169
== 
@4170
END IMOEN2J RIMR17

CHAIN2 ANOMENJ RIMR16cha5
@4161
== 
@4171
== 
@4165
END IMOEN2J RIMR17

CHAIN2 EDWINJ RIMR16cha6
@4172
== 
@4173
== 
@4174
== 
@4175
END IMOEN2J RIMR17

CHAIN2 KORGANJ RIMR16cha7
@4176
== 
@4177
== 
@4178
== 
@4179
END IMOEN2J RIMR17

	IF ~~ THEN BEGIN SUMR7b14
	SAY @4111
	IF ~~ THEN GOTO SUMR7b
	END

	IF ~~ THEN BEGIN RIMR17
	SAY @4112
	=
	@4113
	=
	@4114
	IF ~~ THEN REPLY @4115 GOTO RIMR23
	IF ~~ THEN REPLY @4116 GOTO RIMR22
	IF ~~ THEN REPLY @4117 GOTO RIMR21
	IF ~~ THEN REPLY @4118 GOTO RIMR20
	IF ~~ THEN REPLY @4119 GOTO RIMR19
	IF ~~ THEN REPLY @4120 GOTO RIMR18
	END

	IF ~~ THEN BEGIN RIMR18
	SAY @4121
	IF ~~ THEN REPLY @4122 GOTO RIMR23
	IF ~~ THEN REPLY @575 GOTO RIMR18a
	END

	IF ~~ THEN BEGIN RIMR18a
	SAY @4123
	=
	@4124
	=
	@4125
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	EscapeArea()~ EXIT
	END 

	IF ~~ THEN BEGIN RIMR19
	SAY @4126
	=
	@4127
	IF ~~ THEN GOTO RIMR21
	END

	IF ~~ THEN BEGIN RIMR20
	SAY @4128
	=
	@4129
	IF ~~ THEN GOTO RIMR21
	END

	IF ~~ THEN BEGIN RIMR22
	SAY @4130
	=
	@4131
	=
	@4132
	=
	@4133
	IF ~~ THEN REPLY @4134 GOTO RIMR22a
	IF ~~ THEN REPLY @4135 GOTO RIMR22a
	IF ~~ THEN REPLY @4136 GOTO RIMR22a
	END

	IF ~~ THEN BEGIN RIMR22a
	SAY @4129
	IF ~~ THEN GOTO RIMR21
	END

	IF ~~ THEN BEGIN RIMR23
	SAY @4137
	=
	@4138
	IF ~~ THEN REPLY @4139 GOTO RIMR21
	IF ~~ THEN REPLY @5295 GOTO RIMR18a // = ~If that is so, then leave at once. I won't have a cheap thief with no morals in my group. Go away, now.~
	END

	IF ~~ THEN BEGIN RIMR21
	SAY @4140
	IF ~~ THEN REPLY @4141 GOTO RIMR28
	IF ~~ THEN REPLY @4142 GOTO RIMR28
	IF ~Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @4143 GOTO RIMR27
	IF ~OR(10)
	Global("AerieRomanceActive","GLOBAL",2)
	Global("JaheiraRomanceActive","GLOBAL",2)
	Global("ViconiaRomanceActive","GLOBAL",2)
	Global("NaliaRomanceActive","GLOBAL",2)
	Global("TashiaRomanceActive","GLOBAL",2)
	Global("AnomenRomanceActive","GLOBAL",2)
	G("ValygarRomanceActive",2)
	G("SimeRomanceActive",2)
	G("ChrystaRomanceActive",2)
	Global("J#KelseyRomanceActive","GLOBAL",2)~ THEN REPLY @4144 GOTO RIMR26
	IF ~~ THEN REPLY @4145 GOTO RIMR25
	IF ~~ THEN REPLY @4146 GOTO RIMR24
	END

	IF ~~ THEN BEGIN RIMR24
	SAY @4147
	=
	@4148
	=
	@4149
	=
	@4150
	IF ~~ THEN EXIT
	END

	IF ~~ THEN BEGIN RIMR25
	SAY @4151
	=
	@4150
	IF ~~ THEN EXIT
	END

	IF ~~ THEN BEGIN RIMR26
	SAY @4152
	=		
	@4149
	=
	@4150
	IF ~~ THEN EXIT
	END

	IF ~~ THEN BEGIN RIMR27
	SAY @4153
	=
	@4154
	=
	@4155
	=
	@4156
	=
	@4150
	IF ~~ THEN EXIT
	END

	IF ~~ THEN BEGIN RIMR28
	SAY @4157
	=
	@4158
	=
	@4159
	=
	@4160
	IF ~~ THEN EXIT
	END
END


	





// *** Imoen's extended kick out ***

REPLACE IMOEN2P
IF ~Global("KickedOut","LOCALS",1)
Gender(Player1,MALE)
!Global("ImoenRomanceActive","GLOBAL",2)~ THEN BEGIN 0 // from:
  SAY #49241 /* ~It's good to see you again, little brother.  Ha!  I rather enjoy calling you that.  So, you ready to go?  I'd prefer to travel with you, if I could.~ [IMOEN77A] */
  IF ~~ THEN REPLY #49270 /* ~I would be happy to have you join me.~ */ GOTO 2
  IF ~~ THEN REPLY #49271 /* @4184 */ GOTO 1
END

IF ~Gender(Player1,MALE)
!Global("ImoenRomanceActive","GLOBAL",2)
~ THEN BEGIN 4 // from:
  SAY #49276 /* ~All right, no problem here, little brother.  You sure you want me to go?~ [IMOEN79A] */
  IF ~~ THEN REPLY #49277 /* ~I think it best.~ */ GOTO 5
  IF ~~ THEN REPLY #49279 /* ~No, stay with me.~ */ GOTO 2
END

IF ~Global("KickedOut","LOCALS",1)
!Global("ImoenRomanceActive","GLOBAL",2)
Gender(Player1,FEMALE)~ THEN BEGIN 6 // from:
  SAY #61451 /* ~It's good to see you again, little sister.  Ha!  I rather enjoy calling you that.  So, you ready to go?  I'd prefer to travel with you, if I could.~ [IMOEN77B] */
  IF ~~ THEN REPLY #61453 /* ~I would be happy to have you join me.~ */ GOTO 2
  IF ~~ THEN REPLY #61454 /* @4184 */ GOTO 1
END

IF ~Gender(Player1,FEMALE)
!Global("ImoenRomanceActive","GLOBAL",2)
~ THEN BEGIN 7 // from:
  SAY #61452 /* ~All right, no problem here, little sister.  You sure you want me to go?~ [IMOEN79B] */
  IF ~~ THEN REPLY #61455 /* ~I think it best.~ */ GOTO 5
  IF ~~ THEN REPLY #61456 /* ~No, stay with me.~ */ GOTO 2
END
END

APPEND IMOEN2P
IF ~Global("KickedOut","LOCALS",1)
Global("ImoenRomanceActive","GLOBAL",2)~ THEN BEGIN 0MR // from:
  SAY @4180
=
@4181
  IF ~~ THEN REPLY @4182 GOTO 2MR
  IF ~~ THEN REPLY @4183 GOTO 1MR
  IF ~~ THEN REPLY @4184 GOTO 1MR
END

IF ~~ THEN BEGIN 1MR
  SAY @4185
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 2MR 
  SAY @4186
  IF ~~ THEN DO ~SetGlobal("KickedOut","LOCALS",0)
JoinParty()~ EXIT
END

IF ~Global("ImoenRomanceActive","GLOBAL",2)
~ THEN BEGIN 4MR
  SAY @4187
  IF ~~ THEN REPLY @4188 GOTO 5MR
  IF ~~ THEN REPLY @4189 DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ GOTO 4aMR	
  IF ~~ THEN REPLY @4190 GOTO 2
END

IF ~~ THEN BEGIN 5MR
  SAY @4191
  IF ~~ THEN DO ~SetGlobal("KickedOut","LOCALS",1)
EscapeAreaMove("ar0406",504,1493,0)~ EXIT
END

IF ~~ THEN BEGIN 4aMR
  SAY @4192
	=
	@4193
	=
	@4194
	=
	@4195
	=
	@4196
	IF ~~ THEN DO ~GivePartyAllEquipment()
	ReputationInc(-2) ActionOverride(Player1,ApplySpellRES("SPMRACNE",Player1)) 
	EscapeArea()~ EXIT
END
END



APPEND IMOEN2J

// ***Imoen's replies to Wound-talk***


IF ~~ THEN BEGIN MRH1
	SAY @4197
	=
	@4198
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRH2
	SAY @4199
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRH3
	SAY @4200
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRH4
	SAY @4201
	=
	@4202
	IF ~~ THEN REPLY @4203 EXIT
END

IF ~~ THEN BEGIN MRH5
	SAY @4204
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRH6
	SAY @4205
	IF ~~ THEN REPLY @4206 GOTO MRH6a
END

IF ~~ THEN BEGIN MRH6a
	SAY @4207
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRH7
	SAY @4208
	=
	@4209
	IF ~~ THEN REPLY @4210 EXIT
END

IF ~~ THEN BEGIN MRH8
	SAY @4211
	=
	@4212
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRH9
	SAY @4213
	=
	@4214
	IF ~~ THEN REPLY @4215 EXIT
END

IF ~~ THEN BEGIN MRH10
	SAY @4216
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRH11
	SAY @4217
	IF ~~ THEN REPLY @4218 GOTO MRH11a
END

IF ~~ THEN BEGIN MRH11a
	SAY @4219
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRH12
	SAY @4220
	=
	@4221
	=
	@4222
	=
	@4223
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN BEGIN MRH14
	SAY @4224
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN FIXMRDialogueExitMR
	SAY @4225
	IF ~~ THEN EXIT
END


// ***Messy Interlude bad replies***

IF ~~ THEN BEGIN FIXMRPrivateMR
	SAY @4226
	=
	@4227
	=
	@4228
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN FIXMRMessyReplyMR1
	SAY @4229
	=
	@4230
	IF ~~ THEN DO ~SetGlobal("MessyReplyMR","GLOBAL",2)~ 
	EXIT
END

IF ~~ THEN BEGIN FIXMRMessyReplyMR1NYACHA
	SAY @5336 // = ~(Imoen rolls her eyes, tapping her foot impatiently) And I think yer too dumb for your own good. Stop wasting time talkin' to me and stake the damn coffin, you dumb ass! You know, take this pointy wooden thing, plunge it through her ravenous heart so I can finally have my bloody soul back!!~
	= @5337 // ~(Once she has said this, Imoen notices she has been a little harsh on you. She seems about to apologize, but in the last moment she just looks away and huffs.)~
	IF ~~ THEN EXIT
END



// ***Speaking about Imoen's Dreams***

IF ~~ THEN BEGIN FIXMR1
	SAY @4231
	=
	@4232
	IF ~~ THEN REPLY @4233 GOTO FIXMR1bueno
	IF ~~ THEN REPLY @4234 EXIT
	IF ~~ THEN REPLY @1026 GOTO FIXMR1malo
END

IF ~~ THEN BEGIN SUMR7b3
	SAY @4235
	IF ~~ THEN GOTO SUMR7b
END

IF ~~ THEN BEGIN FIXMR1malo
	SAY @4236
	=
	@4237
	=
	@401
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN FIXMR1bueno
	SAY @4238 
	IF ~~ THEN DO ~SetGlobal("10YearsTriggerMR","GLOBAL",1)
	SetGlobal("WeWillTalkAboutIt","GLOBAL",2)~ GOTO FIXMR1bueno1
END

IF ~~ THEN BEGIN FIXMR1bueno1
	SAY @4239
	IF ~~ THEN REPLY @4240 GOTO FIXMR4
	IF ~~ THEN REPLY @4241 GOTO FIXMR5
	IF ~~ THEN REPLY @4242 GOTO FIXMR2
	IF ~~ THEN REPLY @4243 GOTO FIXMR2
	IF ~~ THEN REPLY @4244 GOTO FIXMR3
END

IF ~~ THEN BEGIN FIXMR2
	SAY @4245 
	IF ~~ THEN REPLY @4246 GOTO FIXMR6
	IF ~~ THEN REPLY @4247 GOTO FIXMR7
	IF ~~ THEN REPLY @4248 GOTO FIXMR8
END

IF ~~ THEN BEGIN FIXMR3
	SAY @4249
	IF ~~ THEN DO ~SetGlobal("FirstAttemptMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN FIXMR3new
	SAY @5297 // = ~(She raises an eyebrow at your sudden change of mind, but ends shruging. She seems relieved and disappointed at the same time) Whatever...~
	IF ~~ THEN DO ~SetGlobal("FirstAttemptMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN FIXMR4
	SAY @4250
	IF ~~ THEN REPLY @4251 GOTO FIXMR9
	IF ~~ THEN REPLY @4252 DO ~SetGlobal("KissGlobalMR","LOCALS",1)~ GOTO FIXMR5
	IF ~CheckStatGT(Player1,12,WIS)~ THEN REPLY @5617 GOTO FIXMR5new // = ~Nothing more...? What were you expecting me to say?~
	IF ~~ THEN REPLY @5298 GOTO FIXMR3new // = ~Actually, don't mind me at all. We can talk about it later...~
END

IF ~~ THEN BEGIN FIXMR5
	SAY @4253
	IF ~~ THEN REPLY @4251 GOTO FIXMR9
	IF ~CheckStatGT(Player1,12,WIS)~ THEN REPLY @5299 GOTO FIXMR5new // = ~Hmm, why do you ask? You seem too eager to know that...~
	IF ~~ THEN REPLY @4254 GOTO FIXMR2
END

IF ~~ THEN BEGIN FIXMR5new
	SAY @5300 // = ~Eh...? No, nothing, just curious, that's all... only a kiss, huh?~
	IF ~~ THEN REPLY @5301 GOTO FIXMR9 // = ~Yes, nothing more.~
	IF ~!Global("KissGlobalMR","LOCALS",1)~ THEN REPLY @4252 DO ~SetGlobal("KissGlobalMR","LOCALS",1)~ GOTO FIXMR5
	IF ~CheckStatGT(Player1,16,WIS)~ THEN REPLY @5302 GOTO FIXMR5new2 // = ~You are lying... you want to know about something, I read it in your eyes.~
	IF ~~ THEN REPLY @5303 GOTO FIXMR5new3 // = ~Hmmm... is something troubling you, Imoen?~
	IF ~~ THEN REPLY @5304 GOTO FIXMR6 // = ~Alright, you got me there... after kissing we undressed each other and had non-stop sex!~
END

IF ~~ THEN BEGIN FIXMR5new2
	SAY @5305 // = ~That's why I'm asking, you DOPE! If I ask it's 'cause I wanna know something, dontcha think!?~
	IF ~~ THEN REPLY @5306 GOTO FIXMR5new3 // = ~And now you avoid my question acting upset. What is troubling you, Imoen?~
	IF ~~ THEN REPLY @5307 GOTO FIXMR9 // = ~You have a point there... no, nothing more happened.~
	IF ~~ THEN REPLY @5308 DO ~SetGlobal("PressedMR","LOCALS",2)~ GOTO FIXMR6 // = ~Very well, if you want to know so bad... after kissing, we tore each other's clothes off and had sex until the dream ended!~
	IF ~~ THEN REPLY @5298 GOTO FIXMR3new // = ~Actually, don't mind me at all. We can talk about it later...~
END

IF ~~ THEN BEGIN FIXMR5new3
	SAY @5309 // = ~(Imoen rolls her eyes) Okay, alright, yer too smart for me, there's something troubling me, sure...~
	= @5310 // = ~It troubles me that *stupid <CHARNAME> won't answer the stupid question*, THAT's what's troubling me!!~
	IF ~~ THEN REPLY @5311 GOTO FIXMR9 // = ~Hey no need to get upset, heh... no, nothing more happened.~
	IF ~~ THEN REPLY @5312 GOTO FIXMR9 // = ~Hmpf... don't insult me for worrying about you, Imoen. If you really want to know, no, nothing happened.~
	IF ~CheckStatGT(Player1,16,WIS)~ THEN REPLY @5313 DO ~IncrementGlobal("KindnessCounter","GLOBAL",3) SetGlobal("PressedMR","LOCALS",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO FIXMR5new4 // = ~Imoen, *please*! I am very serious, I only want to know what is troubling you, that simple... you have me worried.~
	IF ~~ THEN REPLY @5308 DO ~SetGlobal("PressedMR","LOCALS",2)~ GOTO FIXMR6 // = ~Very well, if you want to know so bad... after kissing, we tore each other's clothes off and had sex until the dream ended!~
	IF ~~ THEN REPLY @5314 GOTO FIXMR3new // = ~Hmm, maybe we should leave it for later, when you calm down a little.~
END
END

CHAIN IMOEN2J FIXMR5new4
@5315 DO ~SetGlobal("Hadconversation1","GLOBAL",1) ActionOverride(Player1,SetDialog("Player1"))~ // = ~Just-- just why wontcha drop that off!? There's nothing trobling me, nothing!~
= @5316 // = ~Ya think yer too smart huh!? I don't hide a thing from you, leave me to go, I don't need yer stupid worry, leave me alone!~
= @5317 // = ~(She steps away from you so you won't keep bothering her, making clear she is very upset. Too upset indeed. You know there is something in Imoen's mind that worries her, although she doesn't seem prepared to share it just now.)~
== PLAYER1 @5318 // = ~(You know Imoen well enough to be sure that she will, in due time. And wise enough to know that she wouldn't appreciate that you pressed her further.)~
EXIT

APPEND IMOEN2J
IF ~~ THEN BEGIN FIXMR6
	SAY @4255 = @4256
	IF ~~ THEN REPLY @4251 DO ~SetGlobal("10YearsTriggerMR","GLOBAL",1)~ GOTO FIXMR9
	IF ~!Global("PressedMR","LOCALS",2) CheckStatGT(Player1,16,WIS)~ THEN REPLY @5319 GOTO FIXMR5new2 // = ~Just why are you so insistent? I think you want to know about something in particular, I read it in your eyes.~
	IF ~!Global("PressedMR","LOCALS",2)~ THEN REPLY @5303 GOTO FIXMR5new3 // = ~Hmmm... is something troubling you, Imoen?~
	IF ~~ THEN REPLY @5298 GOTO FIXMR3new // = ~Actually, don't mind me at all. We can talk about it later...~
END

IF ~~ THEN BEGIN FIXMR7
	SAY @4257
	=
	@4258
	IF ~~ THEN REPLY @4251 DO ~SetGlobal("KissGlobalMR","LOCALS",1) SetGlobal("10YearsTriggerMR","GLOBAL",1)~ GOTO FIXMR9
	IF ~CheckStatGT(Player1,12,WIS)~ THEN REPLY @5299 DO ~SetGlobal("KissGlobalMR","LOCALS",1) SetGlobal("10YearsTriggerMR","GLOBAL",1)~ GOTO FIXMR5new // = ~Hmm, why do you ask? You seem too eager to know that...~
	IF ~~ THEN REPLY @4254 DO ~SetGlobal("KissGlobalMR","LOCALS",1) SetGlobal("10YearsTriggerMR","GLOBAL",1)~ GOTO FIXMR2
END // 269

IF ~~ THEN BEGIN FIXMR8
	SAY @4259
	=
	@4260
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN FIXMR9
	SAY @4261
	IF ~~ THEN DO ~SG("10YearsTriggerMR",1)~ GOTO FIXMR9a
END

IF ~~ THEN BEGIN FIXMR9a
	SAY @4262
	IF ~OR (2) Global("PressedMR","LOCALS",1) Global("PressedMR","LOCALS",2)~ THEN REPLY @5320 DO ~IncrementGlobal("KindnessCounter","GLOBAL",3) SetGlobal("PressedMR","LOCALS",1)~ GOTO FIXMR5new4 // = ~No, no, now you will tell me why you wanted to know precisely *that*. Please, Imoen, I want to know what is troubling you, that simple... you have me worried.~
	IF ~~ THEN REPLY @4263 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO FIXMR10
	IF ~~ THEN REPLY @4264 GOTO FIXMR11
	IF ~~ THEN REPLY @4265 GOTO FIXMR3
END

IF ~~ THEN BEGIN FIXMR10
	SAY @4266
	IF ~~ THEN GOTO FIXMR12
END

IF ~~ THEN BEGIN FIXMR11
	SAY @4267
	IF ~~ THEN GOTO FIXMR12
END

IF ~~ THEN BEGIN FIXMR12
   SAY @4268
   IF ~~ THEN REPLY @4269 GOTO FIXMR13
   IF ~~ THEN REPLY @4270 GOTO FIXMR14
   IF ~~ THEN REPLY @4271 GOTO FIXMR15
   IF ~~ THEN REPLY @4272 GOTO FIXMR17
END

IF ~~ THEN BEGIN FIXMR13
   SAY @4273
   IF ~~ THEN GOTO FIXMR16
END

IF ~~ THEN BEGIN SUMR7c
   SAY @4274
   IF ~~ THEN REPLY @362 GOTO SUMR7d
   IF ~~ THEN REPLY @1038 EXIT
END

IF ~~ THEN BEGIN FIXMR14
   SAY @4275
   IF ~~ THEN DO ~SetGlobal("ufffMR","GLOBAL",1) SetGlobal("ufarMR","GLOBAL",1)~ GOTO FIXMR16caquita
END

IF ~~ THEN BEGIN FIXMR16caquita
   SAY @4279 = @4280 = @4281 = @4282
   IF ~~ THEN GOTO FIXMR19
END


IF ~~ THEN BEGIN FIXMR15
   SAY @4276
   IF ~~ THEN REPLY @5329 GOTO FIXMR15pet
   IF ~~ THEN REPLY @5330 GOTO FIXMR15pet
   IF ~~ THEN REPLY @5331 GOTO FIXMR15pet
   IF ~~ THEN REPLY @5332 GOTO FIXMR15pet
   IF ~~ THEN REPLY @5333 GOTO FIXMR15pet
   IF ~~ THEN REPLY @5334 GOTO FIXMR15pet
END

IF ~~ THEN BEGIN FIXMR15pet
   SAY @4277
   IF ~~ THEN REPLY @4278 DO ~SG("ImoenRomanceActive",3)~ EXIT
END

IF ~~ THEN BEGIN FIXMR16
   SAY @4279 = @4280 = @4281 = @4282
   IF ~!Global("ufarMR","GLOBAL",1)~ THEN GOTO FIXMR18
   IF ~Global("ufarMR","GLOBAL",1)~ THEN GOTO FIXMR19
END

IF ~~ THEN BEGIN FIXMR17
   SAY @4283 = @4284
   IF ~~ THEN REPLY @4269 GOTO FIXMR13
   IF ~~ THEN REPLY @4270 GOTO FIXMR14
   IF ~~ THEN REPLY @4285 GOTO FIXMR15
END

IF ~~ THEN BEGIN FIXMR18
   SAY @1129 = @4286
   IF ~!Global("ufffMR","GLOBAL",1) !Global("ufffMR","LOCALS",1)~ THEN REPLY @4287 DO ~SetGlobal("ufffMR","LOCALS",1)~ GOTO FIXMR21
   IF ~~ THEN REPLY @4288 GOTO FIXMR22
   IF ~~ THEN REPLY @4289 GOTO FIXMR23
END

IF ~~ THEN BEGIN FIXMR19
	SAY @4290
	IF ~~ THEN GOTO FIXMR20
END

IF ~~ THEN BEGIN FIXMR20
	SAY @4291
	=
	@4292
	=
 	@4293
	=
	@4294
	IF ~~ THEN GOTO FIXMR18caquita
END

IF ~~ THEN BEGIN FIXMR18caquita
   SAY @1129 = @4286
   IF ~~ THEN REPLY @4288 GOTO FIXMR22
   IF ~~ THEN REPLY @4289 GOTO FIXMR23
END


IF ~~ THEN BEGIN FIXMR21
	SAY @2691
	=
	@4295
	IF ~~ THEN GOTO FIXMR20
END

IF ~~ THEN BEGIN FIXMR22
	SAY @4296
	IF ~~ THEN REPLY @4297 GOTO FIXMR24
	IF ~~ THEN REPLY @4298 GOTO FIXMR23
END

IF ~~ THEN BEGIN FIXMR23
	SAY @4299
	IF ~~ THEN DO ~SetGlobal("Hadconversation1","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN FIXMR24
	SAY @4300 = @5335 = @4301 = @4302
	IF ~~ THEN REPLY @4303 DO ~IncrementGlobal("KindnessCounter","GLOBAL",1)~ GOTO FIXMR25
	IF ~~ THEN REPLY @4304 GOTO FIXMR23
	IF ~~ THEN REPLY @4305 GOTO FIXMR26
END

IF ~~ THEN BEGIN FIXMR25 // 400
	SAY @4306
	=
	@4307
	=
	@4308
	=
	@453 
	IF ~~ THEN DO ~SetGlobal("Hadconversation1","GLOBAL",1)~ EXIT
END


IF ~~ THEN BEGIN FIXMR26
	SAY @4309
	=
	@4310
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END
END


// *** Solving the Messy Interlude ***

APPEND IMOEN2J
IF ~~ THEN BEGIN FIXMR27
	SAY @4311
	IF ~~ THEN DO ~SetGlobal("HadSexMessyInterlude","GLOBAL",2) SetGlobal("InnerThoughtMR","GLOBAL",2) SetGlobal("ImoenMerchantMR","GLOBAL",1)~ GOTO md1
END

IF ~~ THEN BEGIN md1
	SAY @5388 // = ~There's... nothing to talk about, <CHARNAME>...~
	IF ~~ THEN REPLY @4312 GOTO FIXMR28
	IF ~~ THEN REPLY @4313 GOTO FIXMR35
	IF ~~ THEN REPLY @5389 GOTO md2 // = ~Stop lying to yourself, Imoen! We must do something about it, dammit!~
	IF ~~ THEN REPLY @2782 GOTO FIXMR29
	IF ~CheckStatGT(Player1,15,CHR)~ THEN REPLY @5390 GOTO md3a // = ~Very well. Tell me that you don't love me, and I will forget about that thing which "didn't happen".~
	IF ~!CheckStatGT(Player1,15,CHR)~ THEN REPLY @5390 GOTO md3b // = ~Very well. Tell me that you don't love me, and I will forget about that thing which "didn't happen".~
	IF ~~ THEN REPLY @4314 GOTO FIXMR31
END

IF ~~ THEN BEGIN md2
	SAY @5391 // = ~(Imoen knits her brows slightly, drawing tiny creases on her forehead) Hey, if you're gonna get aggressive about this, better if we just forget about it, alright?~
	IF ~~ THEN REPLY @5392 GOTO md2a // = ~But it's all *your* fault! You seduced me with your impressive looks, your astounding intelligence and your charming personality!~
	IF ~~ THEN REPLY @5393 GOTO FIXMR35 // = ~No, no Imoen, don't take me the wrong way... it's only that it pains me so much to see us like this, we must talk about what *is* happening, please...~
	IF ~~ THEN REPLY @5394 GOTO FIXMR29 // = ~No! I love you Imoen, I love your every thought, your voice, every one of your words and gestures...~
	IF ~~ THEN REPLY @5395 GOTO FIXMR31 // = ~That I don't get aggressive?? Fuck you, Imoen!~
END

IF ~~ THEN BEGIN md2a
	SAY @5452 // = ~(Imoen's cheeks are growing red) That *I* seduced you!? Who was here the "I-understand-ya-Imoen" <PRO_GIRLBOY>? Who understood my every whine, and put up with all of my practical jokes?~
	= @5453 // = ~Who chased me through the forest soaked in freezing water to leap over me at the first opportunity, and who pinned me to the ground and pushed <PRO_HISHER> tongue inside my mouth without any warning!?~
	= @5454 // = ~It's *YOU* who's been trying to seduce me all this time!!~
	IF ~CheckStatGT(Player1,9,INT)~ THEN REPLY @5455 GOTO md2b // = ~Hah, I think you're too big headed for me indeed, Imoen! Besides, WHO of the two of us said "I'll agree to whatever you decide" and who said "LET'S-FORGET-ABOUT-EVERYTHING" and "I-CAN'T-DENY-IT-ANYMORE", huh!?~
	IF ~CheckStatGT(Player1,11,CHR)~ THEN REPLY @5396 GOTO md2e  // = ~Fine, well, whatever. Believe what you want, talking some sense into you is like saying "Hey Minsc, did you know Boo can't really talk?"... useless AND *dangerous*.~
	IF ~~ THEN REPLY @5397 GOTO FIXMR35 // = ~Fine, fine... look Imoen, it doesn't matter who seduced who. If we don't talk of what is happening between us both, I think I'll go insane.~
	IF ~~ THEN REPLY @5611 GOTO md2ashit // = ~Hmpf, you're too big headed for my taste. It's been a mistake, you win, let's be friends again.~
	IF ~Gender(Player1,MALE)~ THEN REPLY @5398 GOTO md2ashit2 // = ~Yes, YES I did, I only wanted to have my way with you, and now I've done it you are nothing but another harlot I have spent a night with.~
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @5399 GOTO md2ashit2 // = ~Yes, YES I did, I only wanted a taste of you, and now I've had it you are nothing but another wench in my account.~
	IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5609  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup // = ~Forget about me, Imoen. Find yourself a duergar like the one that screwed your virginity out of you.~
END

IF ~~ THEN BEGIN md2ashit
	SAY @5400 // = ~We *both* win, <CHARNAME>...~
	IF ~~ THEN GOTO FIXMR37a
	IF ~Gender(Player1,FEMALE)~ THEN GOTO FIXMR37b
END
END

CHAIN IMOEN2J md2ashit2
@5401 // = ~(Her blush goes to crimson in seconds. Her eyes are opened wide, and stares at you with despise and anger.)~
== IMOEN2J IF ~Gender(Player1,MALE)~ THEN @5402 // = ~I-- I KNEW IT!! You rotten BASTARD, you used me, you just wanted to get inside me and now you toss me aside!!~
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5403 // = ~I-- I KNEW IT!! You nymphomaniac gutter SLUT, you used me, you just wanted to spread my legs before you and now you toss me aside!!~
== IMOEN2J @5404 // = ~(Imoen seems about to leap at you and attack you, such is the hatred she is feeling now) I would... I would have...!~
== IMOEN2J IF ~Gender(Player1,MALE)~ THEN @5405 // = ~BASTARD!!~
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5406 // = ~You DIRTY WHORE!!~
== IMOEN2J @5407  DO ~LeaveParty() EscapeArea()~ // = ~(With this, she turns from you and runs away. With all of her equipment, you notice.)~
EXIT

CHAIN IMOEN2J youfuckeditup
@5408 // = ~(Your words strike Imoen's face like a rough blow to her cheek. She looks at you blankly; her knees buckle and slowly staggers backwards.)~
DO ~SG("CruelBastardMR",1) StartCutSceneMode() CutSceneId("Imoen2") StartRainNow() RunAwayFrom(Player1,15) FaceObject(Player1) SmallWait(15) RunAwayFrom(Player1,15) FaceObject(Player1) SmallWait(15) RunAwayFrom(Player1,15) FaceObject(Player1) SmallWait(15) Wait(2) StartDialog("IMOEN2J",Player1) EndCutSceneMode()~
EXIT

CHAIN IF WEIGHT #551 ~G("CruelBastardMR",1)~ THEN IMOEN2J oeartmnaoerny
@5409 // = ~(As your cruelty echoes inside her head, her legs fail her and she is forced to sit on the ground. The rain that suddenly has started to fall saturates her clothes and hair, but she doesn't seem to care about her surroundings anymore.)~
= @5410 // = ~I... I... (Imoen stares at the floor, but her thoughts are much farther than that. You have managed to shatter to smithereens all of the walls and barriers she had created to sink those memories into the deepest corner of her mind. And now they are returning to her... with full force.)~
END IMOEN2J youfuckeditup2

APPEND IMOEN2J
IF ~~ THEN BEGIN youfuckeditup2
SAY @5411 // = ~(As the rain soaks through her clothes, she begins to shiver more and more wildly. Probably not only from the cold ambiance but from your even colder words. Perhaps you have gone too far...)~
IF ~~ THEN REPLY @5412 GOTO yfiu6 // = ~(You knew she was too weak. She has proven to you that she is not worthy of your attention; you leave her there to rot.)~
IF ~~ THEN REPLY @5413 GOTO yfiu5 // = ~(You didn't want to be that cruel. It slipped out of your mouth without control, and now you regret it. You approach to her) Imoen...? I'm very sorry...~
IF ~~ THEN REPLY @5414 GOTO yfiu4 // = ~(Although it was a little too much, you are not going to apologise. You get closer to her to make her stand up) Move out girl, don't be so weak and get over yourself.~
IF ~Gender(Player1,MALE)~ THEN REPLY @5415 GOTO yfiu3 // = ~(She is a perfect target now, helpless and weak as you like them. You have always wanted to rape Imoen; now, away from anyone who might hear, is your opportunity.)~
IF ~Gender(Player1,FEMALE)~ THEN REPLY @5416 GOTO yfiu3 // = ~(She is a perfect target now, helpless and weak as you like them. You have always wanted to force Imoen into sex with you; now, away from anyone who might hear, is your opportunity.)~
END

IF ~~ THEN BEGIN yfiu3
SAY @5417 // = ~(Imoen doesn't move at all as you approach her with lustful eyes. You see her entire body tremble, her hair falling over her face obscuring your view of her expression. You lick your lips in anticipation.)~
IF ~~ THEN GOTO yfiudeath
END

IF ~~ THEN BEGIN yfiu4
   SAY @5418 // = ~(Imoen doesn't move at all as you approach her with the intention of lifting her from the ground. You see her entire body tremble, her hair falling over her face obscuring your view of her expression; it is a truly pathetic sight.)~
IF ~~ THEN GOTO yfiudeath
END

IF ~~ THEN BEGIN yfiu5
   SAY @5419 // = ~(Imoen doesn't move at all as you approach her with the intention of apologizing. You see her entire body tremble, her hair falling over her face obscuring your view of her expression; she looks like a shadow of the person she once was.)~
IF ~~ THEN GOTO yfiudeath
END
END

CHAIN IMOEN2J yfiu6
@5420 // = ~(Imoen doesn't move at all; you see her entire body tremble, her hair falling over her face, obscuring your view of her expression. It's such a pathetic sight that you turn your back to her, leaving her there sitting on the swamped terrain.)~
== PLAYER1 @5421 // = ~(As you begin to move away from her, you feel movement behind you. There is a hand in your shoulder now; Imoen's hand, probably. You irritatedly turn to tell her to stay there and never bother you again.)~
= @5422 // = ~(You begin to talk, but no words can come out of your mouth. As soon as you are facing her you feel a piercing pain in your throat, and your lungs refuse to take in air anymore. Something is flooding your mouth. It tastes of blood.)~
== PLAYER1 IF ~!Class(Player1,MONK) OR(8) Class(Player1,FIGHTER) Class(Player1,CLERIC) Class(Player1,PALADIN) Class(Player1,FIGHTER_CLERIC) Class(Player1,FIGHTER_THIEF) Class(Player1,DRUID) Class(Player1,CLERIC_THIEF) Class(Player1,FIGHTER_DRUID) !Kit(Player1,KENSAI)~ THEN
@5423 // = ~(The pain is overwhelming as you look down to your neck to see what is causing such an intense torture. There is the hilt of a dagger proturding out of your skin, right between the joints of your armour. In your confused state, you realize it is still in the grasp of a pale hand. It is Imoen's hand.)~
== PLAYER1 IF ~!Class(Player1,MONK) !Kit(Player1,BERSERKER) !Kit(Player1,WIZARDSLAYER) !Class(Player1,CLERIC) !Class(Player1,PALADIN) !Class(Player1,FIGHTER_CLERIC) !Class(Player1,FIGHTER_THIEF) !Class(Player1,DRUID) !Class(Player1,CLERIC_THIEF) !Class(Player1,FIGHTER_DRUID)~ THEN
@5424 // = ~(The pain is overwhelming as you look down to your neck to see what is causing such an intense torture. There is the hilt of a dagger proturding out of your skin; blood is damping your clothes. Grasping the dagger there is a pale hand. It is Imoen's hand.)~
== PLAYER1 IF ~Class(Player1,MONK)~ THEN @5424 // = ~(The pain is overwhelming as you look down to your neck to see what is causing such an intense torture. There is the hilt of a dagger proturding out of your skin; blood is damping your clothes. Grasping the dagger there is a pale hand. It is Imoen's hand.)~
== PLAYER1 @5425 // = ~(As your vision blurs and your legs grow weaker, you manage to see Imoen's face. She is looking at you, without hatred or anger. There is no emotion in her features; she simply stares at you, her gaze blank, her body motionless.)~
= @5426 DO ~Kill(Player1)~ // = ~(Her fingers seem to spend an eternity in releasing the dagger one by one, leaving it deep inside your throat. The last image you see is of her looking at the blood that stains her hand as it fades with the falling rain. The random reminiscence of her giggling lightheartedly at one of your jokes, some place inside of Candlekeep, accompanies you as fall into darkness... forever.)~
EXIT

CHAIN IMOEN2J yfiudeath
@5427 // = ~(You approach her, and put a hand on her shoulder. Then, you feel a piercing pain in your throat. You try to talk, but you can utter no word. Your lungs refuse to take in air anymore. Something is flooding your mouth. It tastes of blood.)~
== PLAYER1 IF ~!Class(Player1,MONK) OR(8) Class(Player1,FIGHTER) Class(Player1,CLERIC) Class(Player1,PALADIN) Class(Player1,FIGHTER_CLERIC) Class(Player1,FIGHTER_THIEF) Class(Player1,DRUID) Class(Player1,CLERIC_THIEF) Class(Player1,FIGHTER_DRUID) !Kit(Player1,KENSAI)~ THEN
@5423
== PLAYER1 IF ~!Class(Player1,MONK) !Kit(Player1,BERSERKER) !Kit(Player1,WIZARDSLAYER) !Class(Player1,CLERIC) !Class(Player1,PALADIN) !Class(Player1,FIGHTER_CLERIC) !Class(Player1,FIGHTER_THIEF) !Class(Player1,DRUID) !Class(Player1,CLERIC_THIEF) !Class(Player1,FIGHTER_DRUID)~ THEN
@5424
== PLAYER1 IF ~Class(Player1,MONK)~ THEN @5424
== PLAYER1 @5425 = @5426 DO ~Kill(Player1)~ EXIT



APPEND IMOEN2J
IF ~~ THEN BEGIN md2b
   SAY @5456 // = ~I-- uh... (Imoen's face turns bright red. She is at a loss of words, but only for a moment. Immediately, she is yelling at you) You-- you said that after telling me I was the only thing for you in the world!! Any foolish girl like MYSELF would fall for that, ANY!~
   = @5428 // = ~Admit it, you were just trying to get in my panties all the time! All that kindness, you and your naughty incestuous thoughts, plotting to see me naked gasping before you!~
   IF ~~ THEN REPLY @5429 DO ~SG("PlayingMR",1)~ GOTO md2f // = ~(You can't resist it, you love to annoy her) Frankly, Imoen, once with you was more than enough!~
   IF ~~ THEN REPLY @5430 DO ~SG("PlayingMR",2)~ GOTO md2f // = ~(You can't resist the urge of telling her the truth) Frankly, Imoen, I regret about that... once with you was more than enough!~
   IF ~~ THEN REPLY @5431 GOTO md2e // = ~Heh heh... our first quarrel and we're not even together... *yet*! (wink at her.)~
   IF ~~ THEN REPLY @5432 GOTO md2d // = ~All those feelings were spontaneous, Imoen... I plotted nothing. What happened in the woods was only what had to happen sooner or later, I am sure about it.~
   IF ~~ THEN REPLY @5433 GOTO md2c // = ~So what if it's like that, Imoen!? I admit it, I've always wanted you and me to be together and love each other. You can't blame me for that...~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5434 GOTO FIXMR37a // = ~You think too much of yourself, Imoen! Look, let's forget about it. Friends?~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5435 GOTO FIXMR37b // = ~You think too much of yourself, Imoen! Look, let's forget about it. Friends?~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5436 GOTO md2ashit2 // = ~I ADMIT IT IMOEN! I only wanted to have my way with you, and now I've done it you are nothing but another harlot I have spent a night with.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5437 GOTO md2ashit2 // = ~I ADMIT IT IMOEN! I only wanted a taste of you, and now I've had it you are nothing but another wench in my account.~
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5609  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup
END

IF ~~ THEN BEGIN md2c
   SAY @5438 // = ~That you... (Imoen looks surprised. She didn't expect you would say something like that. Her "playful" annoyance is slowly turning into a real one.)~
   = @5439 // = ~Does that mean that you listened to me only in the hopes of *having your way with me*!?~
   IF ~~ THEN REPLY @5440 GOTO md2ashit2 // = ~Yes! It was the only way to get you on your back!~
   IF ~~ THEN REPLY @5441 GOTO md2c1 // = ~No, Imoen, of course not. I listened to you because I love you more than my own life. I'd die for you, there are no words to describe how I've felt towards you all these years...~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5434 GOTO FIXMR37a // = ~You think too much of yourself, Imoen! Look, let's forget about it. Friends?~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5435 GOTO FIXMR37b // = ~You think too much of yourself, Imoen! Look, let's forget about it. Friends?~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5436 GOTO md2ashit2 // = ~I ADMIT IT IMOEN! I only wanted to have my way with you, and now I've done it you are nothing but another harlot I have spent a night with.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5437 GOTO md2ashit2 // = ~I ADMIT IT IMOEN! I only wanted a taste of you, and now I've had it you are nothing but another wench in my account.~
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5609  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup
END

IF ~~ THEN BEGIN md2c1
   SAY @5442 // = ~(Puzzlement and embarrassment clearly show on her face now) You... you've loved me all these years...? Does that mean that... even-- even in Candlekeep...?~
   IF ~~ THEN REPLY @5443 GOTO md2c2 // = ~Hopelessly in love. From the first time I saw you and you told me "Heya, who are you? I'm Imoen"...~
   IF ~~ THEN REPLY @5444 GOTO md2c2 // = ~It... grew gradually once we left there. Having you torn away from me and carried to Spellhold was the most horrible torture I've had to endure in my whole life...~
   IF ~~ THEN REPLY @5445 GOTO md2c2 // = ~It began when we were in Irenicus' dungeon, since you got me out of my cell... I was so worried about you, I couldn't get you out of my mind, especially after the dreams...~
   IF ~~ THEN REPLY @5614 GOTO md2c2 // = ~You... you stole my heart when you opened yourself to me after rescuing you... I found that I felt much more than simple caring for you, Imoen...~
   IF ~~ THEN REPLY @5446 GOTO md2c2 // = ~Sorry, I meant since that morning in the elven encampment... it feels to me like an eternity since I last touched your lips...~
END

IF ~~ THEN BEGIN md2c2
   SAY @5447 // = ~Oh...~
   = @5448 // = ~I... I don't know what to say, I... (Imoen looks troubled and confused. She would have never imagined you longed for her heart in such way; and you would like to think she doesn't want to admit she feels the same way now towards you.)~
   = @5449 // = ~(She speaks in a whisper) <CHARNAME>...~
   IF ~~ THEN GOTO md2e1
END

IF ~~ THEN BEGIN md2d
   SAY @5450 // = ~Hmpf, well I'm not that sure! Two bhaalspawn aren't supposed to do what we did, <CHARNAME>! It's plainly wrong, it's disgusting!~
   = @5451 // = ~We're siblings dammit! We committed incest, *INCEST*!!~
   IF ~~ THEN REPLY @5461 GOTO md2e4 // = ~Imoen, you can say it was incest if you want, I can even agree with you on that. But it was no mistake, we did nothing wrong... if love is "something wrong", then... I can't imagine what can be right.~
   IF ~~ THEN REPLY @5462 GOTO md2e3 // = ~But... I love you Imoen!~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4346 GOTO FIXMR37a // = ~(Speak seriously) Oh no, I never thought of it that way! Get away from me! We must find a way atone for this sin!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4346 GOTO FIXMR37b // = ~(Speak seriously) Oh no, I never thought of it that way! Get away from me! We must find a way atone for this sin!~
  IF ~Gender(Player1,MALE)~ THEN REPLY @4347 GOTO FIXMR38a // = ~(Slap yourself in the forehead sarcastically) Holy shit that's true! Get away from me, we are impure, let's ask the gods for mercy!~
  IF ~Gender(Player1,FEMALE)~ THEN REPLY @4347 GOTO FIXMR38b // = ~(Slap yourself in the forehead sarcastically) Holy shit that's true! Get away from me, we are impure, let's ask the gods for mercy!~
   IF ~Global("JokedAlreadyMR","GLOBAL",0)~ THEN REPLY @5463 DO ~SetGlobal("JokedAlreadyMR","GLOBAL",1)~ GOTO md2e2 // = ~Oh, "Incest" is such a strong word... let's call it "deep relationship among siblings", eh? (chuckle.)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4349 GOTO FIXMR39a // = ~We may be BhaalSpawn, but that doesn't mean we are "regular" siblings, Imoen. Our mothers weren't the same, neither were our families. Only our father is common to both of us; and he wasn't really a "father", but a deity...~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4349 GOTO FIXMR39b // = ~We may be BhaalSpawn, but that doesn't mean we are "regular" siblings, Imoen. Our mothers weren't the same, neither were our families. Only our father is common to both of us; and he wasn't really a "father", but a deity...~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4350 GOTO FIXMR41a // = ~Imoen, that's simply not true. We are Bhaalspawn, yes; however, you don't seem to know the way Bhaal planted his seeds.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4350 GOTO FIXMR41b // = ~Imoen, that's simply not true. We are Bhaalspawn, yes; however, you don't seem to know the way Bhaal planted his seeds.~
  IF ~Gender(Player1,MALE)~ THEN REPLY @5464 GOTO FIXMR37a // = ~Maybe... maybe you are right, Imoen. We are bhaalspawn... your words have wisdom. Let us stay friends...~
  IF ~Gender(Player1,FEMALE)~ THEN REPLY @5464 GOTO FIXMR37b // = ~Maybe... maybe you are right, Imoen. We are bhaalspawn... your words have wisdom. Let us stay friends...~
END

IF ~~ THEN BEGIN md2e
   SAY @5457 // = ~(Imoen huffs. She fights it, she *really* fights it, but can't prevent a smile from forming on her lips) You think yer funny dontcha?~
   = @5458 // = ~Look <CHARNAME>, I know what yer tryin' to do, but I won't just laugh and say "yer right, let's make love like there's no tomorrow"... this is a very serious issue.~
   IF ~~ THEN DO ~SG("JokedAlreadyMR",1)~ GOTO md2e1
END

IF ~~ THEN BEGIN md2e1
   SAY @5459 // = ~What we did was wrong. It-- it was a huge mistake, the biggest in our lives after leaving Candlekeep. We should have stayed like friends, we crossed a dangerous line, <CHARNAME>...~
   = @5460 // = ~I mean... we're bhaalspawn. We're siblings... you know how's it called what we did, right? It's *incest*. We committed INCEST, <CHARNAME>!~
   IF ~~ THEN REPLY @5461 GOTO md2e4 // = ~Imoen, you can say it was incest if you want, I can even agree with you on that. But it was no mistake, we did nothing wrong... if love is "something wrong", then... I can't imagine what can be right.~
   IF ~~ THEN REPLY @5462 GOTO md2e3 // = ~But... I love you Imoen!~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4346 GOTO FIXMR37a // = ~(Speak seriously) Oh no, I never thought of it that way! Get away from me! We must find a way atone for this sin!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4346 GOTO FIXMR37b // = ~(Speak seriously) Oh no, I never thought of it that way! Get away from me! We must find a way atone for this sin!~
  IF ~Gender(Player1,MALE)~ THEN REPLY @4347 GOTO FIXMR38a // = ~(Slap yourself in the forehead sarcastically) Holy shit that's true! Get away from me, we are impure, let's ask the gods for mercy!~
  IF ~Gender(Player1,FEMALE)~ THEN REPLY @4347 GOTO FIXMR38b // = ~(Slap yourself in the forehead sarcastically) Holy shit that's true! Get away from me, we are impure, let's ask the gods for mercy!~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4349 GOTO FIXMR39a // = ~We may be BhaalSpawn, but that doesn't mean we are "regular" siblings, Imoen. Our mothers weren't the same, neither were our families. Only our father is common to both of us; and he wasn't really a "father", but a deity...~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4349 GOTO FIXMR39b // = ~We may be BhaalSpawn, but that doesn't mean we are "regular" siblings, Imoen. Our mothers weren't the same, neither were our families. Only our father is common to both of us; and he wasn't really a "father", but a deity...~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4350 GOTO FIXMR41a // = ~Imoen, that's simply not true. We are Bhaalspawn, yes; however, you don't seem to know the way Bhaal planted his seeds.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4350 GOTO FIXMR41b // = ~Imoen, that's simply not true. We are Bhaalspawn, yes; however, you don't seem to know the way Bhaal planted his seeds.~
  IF ~Gender(Player1,MALE)~ THEN REPLY @5464 GOTO FIXMR37a // = ~Maybe... maybe you are right, Imoen. We are bhaalspawn... your words have wisdom. Let us stay friends...~
  IF ~Gender(Player1,FEMALE)~ THEN REPLY @5464 GOTO FIXMR37b // = ~Maybe... maybe you are right, Imoen. We are bhaalspawn... your words have wisdom. Let us stay friends...~
END
END

CHAIN IMOEN2J md2f
@5465 // = ~WHAT!? (Imoen's eyes widen until they look as big as saucers. It seems now you have managed to hurt her pride...) Well it didn't seem that way with all of your moans and gasps and sighs! We did it on an' on 'til we fell asleep exhausted, I'm not going to believe--~
== IMOEN2J IF ~G("PlayingMR",1)~ THEN @5466 // = ~(Imoen stops talking and bites her lower lip in embarrassment what she hears herself. If there was a bit of her blood that wasn't concentrated in her face yet, now it is... especially when she notices your playful smile.)~
== IMOEN2J IF ~G("PlayingMR",2)~ THEN @5467 // = ~(Imoen stops talking and bites her lower lip in embarrassment what she hears herself. If there was a bit of her blood that wasn't concentrated in her face yet, now it is...)~
END IMOEN2J md2f1

APPEND IMOEN2J 
IF ~~ THEN BEGIN md2f1
   SAY @5468 // = ~Ya think yer funny dontcha!? Ya must find it a helluva lotta hilarious to lose my love, ya sure do!~
   IF ~CheckStatGT(Player1,9,INT)~ THEN REPLY @5469 DO ~SG("JokedAlreadyMR",1)~ GOTO md2f3 // = ~Ah, so you finally admit that you love me!~
   IF ~~ THEN REPLY @5470 DO ~SG("JokedAlreadyMR",1)~ GOTO md2c // = ~No, no Imoen! It was only a joke, look I... I couldn't live without you... I always wanted this to happen, Imoen...~
   IF ~~ THEN REPLY @5471 DO ~SG("JokedAlreadyMR",1)~ GOTO md2f2 // = ~Heheh, well just look at ourselves. We are having our first quarrel, and we are not even together... YET.~
   IF ~~ THEN REPLY @5338 DO ~SG("JokedAlreadyMR",1)~ GOTO ewoadsmfoakmtoaimtory
   IF ~Gender(Player1,MALE)~ THEN REPLY @4404 DO ~SG("JokedAlreadyMR",1)~ GOTO FIXMR42aaa
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4404 DO ~SG("JokedAlreadyMR",1)~ GOTO FIXMR42bbb
END

IF ~~ THEN BEGIN md2f2
   SAY @5597 // = ~(Imoen huffs. She fights it, she *really* fights it, but can't prevent a smile from forming on her lips.)~
   = @5458
   IF ~~ THEN DO ~SG("JokedAlreadyMR",1)~ GOTO md2e1
END

IF ~~ THEN BEGIN md2f3
   SAY @5472 // = ~What!? N-- no, uh, I-- I mean, yeah, but...~
   IF ~~ THEN REPLY @5473 DO ~SG("ILoveYouMR",1)~ GOTO md2f3b // = ~(She finally said it. She really loves you, there is nothing more to be said: interrupting her, you take her in your arms and kiss her lips with all of your passion.)~
   IF ~Gender(Player1,MALE) CheckStatGT(Player1,16,INT)~ THEN REPLY @4406 GOTO FIXMR41aaa
   IF ~Gender(Player1,FEMALE) CheckStatGT(Player1,16,INT)~ THEN REPLY @4406 GOTO FIXMR41bbb
   IF ~Gender(Player1,MALE) !CheckStatGT(Player1,16,INT) CheckStatGT(Player1,7,INT)~ THEN REPLY @5341 GOTO FIXMR41aaa
   IF ~Gender(Player1,FEMALE) !CheckStatGT(Player1,16,INT) CheckStatGT(Player1,7,INT)~ THEN REPLY @5341 GOTO FIXMR41bbb
   IF ~~ THEN REPLY @5339 GOTO md2f3a // = ~Imoen, I love you, and nothing you can say or do will change that.~
   IF ~~ THEN REPLY @5474 DO ~SG("JokedAlreadyMR",1)~ GOTO md2f2 // = ~(Just let her continue while you amusedly look at her embarrassment.)~
   IF ~~ THEN REPLY @5338 GOTO ewoadsmfoakmtoaimtory
   IF ~Gender(Player1,MALE)~ THEN REPLY @5340 GOTO FIXMR42aaa
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5340 GOTO FIXMR42bbb
END

IF ~~ THEN BEGIN md2f3a
   SAY @5475 // = ~(Imoen's face turns somber. For some reason, what you just said has managed to sadden her) <CHARNAME>...~
   IF ~~ THEN DO ~SG("JokedAlreadyMR",1)~ GOTO dondelasdanlastoman
END
END

CHAIN IMOEN2J md2f3b
@5476 // = ~(Before she can say another thing, and while she isn't expecting it, you slip your arms around her figure and caress her lips with yours, trying to tell her without words how much you love her.)~
= @5477 // = ~(Although her muscles tensed when she first felt you around her, soon she is kissing you back, giving in to her yearning as she wraps her arms around your neck and her tongue shyly tries to slips past your lips.)~
== IMOEN2J IF ~Gender(Player1,MALE)~ THEN @5478 // = ~(She finds her own hand going down your chest, past your stomach and with the intention of going further. And when she realizes what she is doing, her eyes pop open, you feel her tongue hurriedly retreat to her mouth, her fingers leave your hair, her skin tears away from yours... she pushes you back with desperation, even roughly.)~
== IMOEN2J IF ~Gender(Player1,FEMALE)~ THEN @5479 // = ~(She finds her own hand resting on your left breast, squeezing it gently as the other goes down your back, around your waist and with the intention of going further. And when she realizes what she is doing, her eyes pop open, you feel her tongue hurriedly retreat to her mouth, her fingers stop their caresses, her skin tears away from yours... she pushes you back with desperation, even roughly.)~
== IMOEN2J @5480 // = ~(Her lips tremble, she seems horrified. Or, more precisely... terrified) No, no <CHARNAME>, NO!!  No matter how good it feels it's still wrong, WRONG!! I'm not going to fall into incest, I'm not!~
END IMOEN2J nbx

APPEND IMOEN2J
IF ~~ THEN BEGIN md3b
   SAY @5482 // = ~(Imoen blinks twice and recoils, surprised by your request) I, uh... (She looks at you, but intentionally avoids your gaze as she bites her lower lip. She appears to be having difficulties...)~
   = @5483 // = ~I... I don't, err... (the words seem to refuse to come out of her mouth. Imoen closes her eyes, ordering her thoughts. After taking a deep breath, she opens them again with determination) I... I don't love you.~
   = @5484 // = ~(Her voice is dry, doubtful but insistant at the same time) Let's... f-- forget about it. There's... nothing between you and me.~
   IF ~~ THEN REPLY @5485 GOTO md3b2 // = ~(Although shoked, you told her that you would not bother her again if she said it) I... see. Very well then... let's be friends and nothing more, Imoen.~
   IF ~CheckStatGT(Player1,13,WIS)~ THEN REPLY @5486 DO ~SG("ILoveYouMR",1)~ GOTO md3b3 // = ~(She lies. She couldn't look into your eyes, she almost couldn't utter it at all) Imoen... now please look into my eyes, and repeat it... only then shall I believe you.~
   IF ~~ THEN REPLY @5615 GOTO md3b1 // = ~Don't be stupid, stop lying to yourself, Imoen!!~
   IF ~~ THEN REPLY @5616 GOTO FIXMR29 // = ~But... but *I* do love you, Imoen...!~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5487 GOTO md2ashit2 // = ~You bitch! Better that way, because I only wanted to have my way with you, and now I've done it you are nothing but another harlot I have spent a night with!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5488 GOTO md2ashit2 // = ~You bitch! Better that way, because I only wanted a taste of you, and now I've had it you are nothing but another wench in my account!~
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5489  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup // = ~Then forget about me, Imoen. Find yourself a duergar like the one that screwed your virginity out of you.~
END

IF ~~ THEN BEGIN md3b1
   SAY @5490 // = ~You... you said you'd leave me in peace! (Imoen knits her brows, drawing tiny creases on her forehead) If you're gonna get aggressive about it, then you can go forgetting about all of this for real, alright?~
   IF ~~ THEN REPLY @5392 GOTO md2a
   IF ~~ THEN REPLY @5393 GOTO FIXMR35
   IF ~~ THEN REPLY @5394 GOTO FIXMR29
   IF ~~ THEN REPLY @5395 GOTO FIXMR31
END

IF ~~ THEN BEGIN md3b2
   SAY @5491 // = ~I... (Imoen didn't really expect you would respect her words. She nods once, a slight, very sad smile on her lips, and a heavy burden seems to have been removed from her back all of sudden) Thanks for keeping up to your word, <CHARNAME>...~
   = @4316 IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN md3b3
   SAY @5492 // = ~You... you said you'd leave me in peace! (Imoen knits her brows, drawing tiny creases on her forehead; her eyes linger for a very brief moment on yours, but look away immediately) Whatcha need, hearing it from the town criers, want me to write it with huge letters on a wall!?~
   = @5493 // = ~(She sounds annoyed, her gaze goes everywhere in her surroundings, but keeps avoiding your pupils) "Look into my eyes", "Look into my eyes", pfft... whatcha think, that I can't do it? You silly jerk, of course I can do it... why couldn't I? There's nothing in your eyes that isn't already in your ugly face!~
   = @5494 // = ~What's this obsession about eyes anyway? Ya have some fetish with them, I'm sure, another reason in my favor! Ya'll end up pokin' my eyes out an' playing with them like they were marbles! No, no way I'm looking at your perverted eyes, I won't be doin' it, I won't...~
   = @5495 // = ~(Imoen stops talking, realizing how silly she sounds. She lowers her head and closes her eyes, sighing deeply. You notice her breath trembles as she exhales) Then let's get done with it, alright? (Her eyelashes flash up, and she drills her resolute gaze into your irises.)~
   = @5496 // = ~<CHARNAME>, I don't love you. I do not love you, I've never loved you and never will, and... and you are a fool for... for believing that... that I'd... th-- that I would-- (Her voice breaks, her gaze can no longer meet yours and goes to the ground in frustration. Annoyance, mixed with desperation, builds up inside her until she can't hold it anymore.)~
   IF ~~ THEN GOTO md3acaquita
END

IF ~~ THEN BEGIN md3a
   SAY @5482 = @5497 // = ~I... I don't, err... (the words seem to refuse to come out of her mouth. Imoen closes her eyes, ordering her thoughts. After taking a deep breath, she opens them again with determination... and then they meet yours.)~
   = @5498 // = ~I d-- don't... I... (She tries, but can't go on. She witnesses the hope, the love and frankness that radiates from the depths of your crystaline eyes. She sees your sincere expression and feels your longing for her wamth, your concern for her worries, your yearning for her love... and her will breaks.)~
IF ~~ THEN GOTO md3acaquita
END

IF ~~ THEN BEGIN md3acaquita
   SAY @5499 // = ~Just... just why do you do this to me!? (Her eyes are beginning to get teary) Why can't you hate me, why won't you leave me alone and find yourself someone better than me!? Don't you see that I don't want this...? I... I never wanted this to happen, I never wanted to feel like this...~
   = @5500 // = ~It's... it's not fair... I don't deserve this, it's not fair... it's not fair, <CHARNAME>!~
   IF ~~ THEN DO ~SG("ILoveYouMR",1)~ GOTO nbx
END

IF ~~ THEN BEGIN nbx
   SAY @5481 // = ~Look, I love you, alright? I can't deny it, I-- I really feel that way... but it doesn't matter! I can forget about that, I can overcome it, I can an' I *will*! Incest among bhaalspawn is far out of bounds, we made a *huge* mistake!~
   IF ~CheckStatGT(Player1,14,INT)~ THEN REPLY @5501 GOTO nbx3 // = ~You love me! My precious Imoen, joy overwhelms my senses... (take her hand) this is a blissful dream come true!
   IF ~!CheckStatGT(Player1,14,INT)~ THEN REPLY @5502 GOTO nbx3 // = ~You love me! This is such a great moment... (take her hand) I am so happy, Imoen!
   IF ~CheckStatGT(Player1,14,WIS)~ THEN REPLY @5503 GOTO nbx2 // = ~A... mistake? Is the happiness I felt that morning in the woods a mistake, Imoen...? Is this incredible bond we share a simple error? I don't think so...~
   IF ~!CheckStatGT(Player1,14,WIS)~ THEN REPLY @5504 GOTO nbx2 // = ~I would never think the happiness I feel when you say "I love you" is a mistake, Imoen...~
   IF ~~ THEN REPLY @5462 GOTO nbx1 // = ~But... I love you Imoen!~
   IF ~Global("JokedAlreadyMR","GLOBAL",0)~ THEN REPLY @5463 DO ~SetGlobal("JokedAlreadyMR","GLOBAL",1)~ GOTO md2e2 // = ~Oh, "Incest" is such a strong word... let's call it "deep relationship among siblings", eh? (chuckle.)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5505 GOTO FIXMR41a // = ~Incest? Imoen, you are wrong. We are bhaalspawn, yes; however, you don't seem to know the way Bhaal planted his seeds.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5505 GOTO FIXMR41b
   IF ~Gender(Player1,MALE)~ THEN REPLY @5464 GOTO FIXMR37a // = ~Maybe... maybe you are right, Imoen. We are bhaalspawn... your words have wisdom. Let us stay friends...~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5464 GOTO FIXMR37b
   IF ~Gender(Player1,MALE)~ THEN REPLY @5487 GOTO md2ashit2
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5488 GOTO md2ashit2
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5489  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup
END

IF ~~ THEN BEGIN nbx1
   SAY @5506 // = ~Ar'ya *daft* or something, haventcha heard me yet!? That doesn't matter, <CHARNAME>! We can live without it. *I* can, and yer much stronger than me. I'm not going to get myself involved in an incestuous relationship just for a silly, stupid, pointless... ridiculous... feeling...~
   = @5507 // = ~Let's... let's forget about it... let's be friends... we can overcome it, just ignore it until it disappears... I know it will, <PRO_BROTHERSISTER>.~
   = @5508 // = ~(Imoen steps away from you. She can't hide her tears as she leaves your side... seemingly forever.)~
   IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1) RunAwayFrom(Player1,150)~ EXIT
END

IF ~~ THEN BEGIN nbx2
   SAY @5509 // = ~(Imoen raises her voice, her frustration increasing as she sees you are making this much more difficult for her than she had expected) It is! It's a mistake, it's wrong to feel so happy about it, <CHARNAME>!~
   IF ~~ THEN GOTO nbx4
END

IF ~~ THEN BEGIN nbx3
   SAY @5510 // = ~<CHARNAME>!! Are you *daft* or something, haventcha heard me yet!? It doesn't matter! How happy it makes you or me doesn't change a thing!~
   = @5511 // = ~(Imoen can hardly restrain herself from shouting at you, her frustration increasing as she sees you are making this much more difficult for her than she first thought.)~
   IF ~~ THEN GOTO nbx4
END

IF ~~ THEN BEGIN nbx4
   SAY @5512 // = ~Can't you see we're committing *INCEST*!? It's... it's so gross!~
   IF ~!CheckStatGT(Player1,10,INT)~ THEN REPLY @5513 GOTO nbx4b // = ~It makes you happy. It makes me happy. I don't get your point, Imoen.~
   IF ~CheckStatGT(Player1,10,INT)~ THEN REPLY @5514 GOTO nbx4b // = ~Our love brings happiness to us both... I simply can't understand why you care so much about this "incest" issue.~
   IF ~~ THEN REPLY @5515 GOTO nbx4a // = ~But *why* is it gross, Imoen? Just because some pointless prejudices. We're not even siblings anyway, we were just raised like that.~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5516 GOTO FIXMR41a // = ~That we both are bhaalspawn doesn't mean that I am your <PRO_BROTHERSISTER>... let me explain to you...~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5516 GOTO FIXMR41b
   IF ~Gender(Player1,MALE)~ THEN REPLY @5464 GOTO FIXMR37a // = ~Maybe... maybe you are right, Imoen. We are bhaalspawn... your words have wisdom. Let us stay friends...~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5464 GOTO FIXMR37b
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5489  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup
END

IF ~~ THEN BEGIN nbx4a
   SAY @5517 // = ~It's... it's gross 'cause I've always felt like a little sister to you, you were someone I could care for and worry about, and admire, and be friends with but... but not, y-- y'know...~
   IF ~~ THEN GOTO nbx5
END

IF ~~ THEN BEGIN nbx4b
   SAY @5518 // = ~But, but don't you see that we're not supposed to feel like this for each other!? It's simply not right!! I've always felt like a little sister to you, you were someone I could care for and worry about, and admire, and be friends with but... but not, y-- y'know...~
   IF ~~ THEN GOTO nbx5
END

IF ~~ THEN BEGIN nbx5
   SAY @5519 // = ~I... never ever thought that I'd... I'd fall in love with you... (Imoen looks lost in her thoughts. Suddenly she reacts and snaps back to reality, preventing herself from following this thread of thought.)~
   = @5520 // = ~But that doesn't change the fact that we are bhaalspawn, <CHARNAME>! And that's an even *worse* type of incest!~
   = @5521 // = ~It scares me... what if the very *gods* disapprove of such a relationship? What if our blood makes us go insane, or, or become suicidal or whatever if we continue on this path!?~
   = @5522 // = ~I... (Imoen blushes and opts to fall silent, noticing she is not making sense. She seems so desperate in her search of reasons to deny her feelings, that she tries to use any possible argument.)~
   IF ~~ THEN REPLY @5523 GOTO nbx6 // = ~Imoen, you can't find a reason for us to not be together, simply because there isn't one... let us love each other, please...~
   IF ~~ THEN REPLY @5524 GOTO nbx6j2 // = ~You are right, the sky will crack open and the gods will come and burn us to ashes for our blasphemy (roll your eyes) They couldn't care less about us mortals, Imoen!~
   IF ~~ THEN REPLY @5525 GOTO nbx6j // = ~I am sure the slayer loves you as much as me, Imoen (Wink at her.)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5526 GOTO FIXMR37a // = ~Oh... oh my you are right! We will burn in the nine hells, we must atone for our sins!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5526 GOTO FIXMR37a // = ~Oh... oh my you are right! We will burn in the nine hells, we must atone for our sins!~
   IF ~~ THEN REPLY @5527 GOTO nbxbro // = ~You are right after all, Imoen... we should just be friends. We have gone too far...~
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5489  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup
END

IF ~~ THEN BEGIN nbxbro
   SAY @5528 // = ~(Imoen just sighs, very deeply. She nods once, a slight, very sad smile on her lips, and a heavy burden seems to have been removed from her back all of sudden.)~
   = @5529 // = ~Thank you <CHARNAME>... thank you... (She simply hugs you, and leaves your side. You perceive a very slight sniffling before she is out of your hearing range...)~
   IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1) RunAwayFrom(Player1,150)~ EXIT
END

IF ~~ THEN BEGIN nbx6j
   SAY @5530 // = ~(She purses her lips; she doesn't seem pleased to hear you joke about such things right now.)~
   IF ~~ THEN GOTO nbx6
END

IF ~~ THEN BEGIN nbx6j2
   SAY @5531 // = ~(She purses her lips; she doesn't seem so sure about that, since you are not only mortals, but bhaalspawn.)~
   IF ~~ THEN GOTO nbx6
END

IF ~~ THEN BEGIN nbx6
   SAY @5598 // = ~(She eyes you from time to time, nervous, her breath erratic. She is scared. She Bites her lower lip again, and staring to the ground she finally whispers what she can't hold anymore... what is *really* tormenting her.)~
   = @5599 // = ~What if... what if you hurt me...?~
   IF ~~ THEN REPLY @5600 GOTO nbxfin // = ~(You just smile, as you know there is nothing more to say now. Words can't express what only a tight embrace will make her understand.)~
   IF ~~ THEN REPLY @5601 GOTO nbxprefin // = ~Hurt... you...? Why would I hurt you, when you are everything to me...? I'd die for you, let alone keep you from any harm...~
   IF ~~ THEN REPLY @5602 GOTO nbxprefin // = ~That's it, fear for getting into a closer relationship? All of the incest thing... was just to avoid getting emotionally dependant on me?~
   IF ~~ THEN REPLY @5603 GOTO nbxprefin2 // = ~(Smile lovingly) If I ever hurt you, you have my permission to kick my butt a thousand times. I won't complain, honest!~
   IF ~~ THEN REPLY @5604 GOTO nbxbro // = ~Yes... yes I see what you mean, we won't be able to stay together... we should just be friends. We have gone too far...~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5605 GOTO md2ashit2 // = ~Hurt you, bitch!? And what if I tell you that I only wanted to have my way with you, and now I've done it you are nothing but another harlot I have spent a night with!?~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5606 GOTO md2ashit2 // = ~Hurt you, bitch!? And what if I tell you that I only wanted a taste of you, and now I've had it you are nothing but another wench in my account!?~
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5607  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup // = ~Hurt you? Forget about me, you weak whore. Find yourself a duergar like the one that screwed your virginity out of you.~
END

IF ~~ THEN BEGIN nbxprefin
   SAY @5608 // = ~(Tears are beginning to well up in her eyes) I... I was just... (Imoen is trembling. Her contrite expression reflects her inner suffering as her look alternates from the ground to you.)~
   IF ~~ THEN REPLY @5532 GOTO nbxfin // = ~(You won't keep torturing you both with meaningless words. You tightly embrace her, to comfort both her aching heart and your own and tell her with your contact how much you need her.)~
   IF ~~ THEN REPLY @5543 GOTO tortureimoen // = ~(She seems about to say something important, so you respect her turn to talk and let her finish.)~
   IF ~~ THEN REPLY @5533 GOTO nbxfin2 // = ~(Smiling, you approach her and gently lift her chin so she looks directly at you. Without a word, you slowly lean forward and softly, tenderly kiss her lips...)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5534 GOTO nbxfin3 // = ~(Smiling, you approach Imoen and kneel before her. You take her quivering hand and, kissing her fingers while staring into the sea of her eyes, you speak) Marry me, Imoen. Let's love each other forever to the end of time.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5556 GOTO nbxfin3 // = ~(Smiling, you approach Imoen and kneel before her. You take her quivering hand and, kissing her fingers while staring into the sea of her eyes, you speak) Stay with me, Imoen. Let's love each other forever to the end of time.~
   IF ~~ THEN REPLY @5535 GOTO nbxcrazedmonkey // = ~(Smiling, you approach her and gently take her chin, making her look at you. Without a word, you roughly slap her face with all of your strength in the hope of making her fall to the ground.)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5536 GOTO md2ashit2 // = ~You were just being a bitch that is! I only wanted to have my way with you anyway; now I've done it you are nothing but another harlot I have spent a night with!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5537 GOTO md2ashit2 // = ~You were just being a bitch that is! I only wanted a taste of you anyway; now I've had it you are nothing but another wench in my account!?~
END

IF ~~ THEN BEGIN nbxprefin2
   SAY @5538 // = ~(Imoen's stark look unexpectedly breaks and a hint of a smirk plays across her face; she lowers her head as she slowly shakes it from side to side. She sniffles once, and her smile fades as she remembers why you have just told her that. She glances at you again.)~
   IF ~~ THEN GOTO nbxprefin
END

IF ~~ THEN BEGIN nbxcrazedmonkey
   SAY @5539 // = ~(Your completely unexpected blow connects with her left cheekbone, and Imoen drops to the ground uttering a quiet moan. Suddenly, it starts raining.)~
   IF ~~ THEN DO ~SG("CruelBastardMR",4) StartCutSceneMode() CutSceneId("Imoen2") StartRainNow() FaceObject(Player1) PlayDead(150) Wait(4) StartDialog("IMOEN2J",Player1) EndCutSceneMode()~
EXIT
END
END

CHAIN IF WEIGHT #551 ~G("CruelBastardMR",4)~ THEN IMOEN2J erytu
@5540 // = ~(She lies on the ground, motionless. The rain that suddenly has started to fall saturates her clothes and hair.)~
END IMOEN2J youfuckeditup2other

APPEND IMOEN2J
IF ~~ THEN BEGIN youfuckeditup2other
SAY @5541 // = ~(As the water soaks through her attire, she begins to shiver more and more wildly, although she still seems to be unconscious. Perhaps you have gone too far...)~
IF ~~ THEN REPLY @5412 GOTO yfiu6
IF ~~ THEN REPLY @5542 GOTO yfiu5 // = ~(You didn't want to be such a brute. You don't know what happened in your mind; You approach to her) Imoen...? I'm very sorry, please talk to me...~
IF ~~ THEN REPLY @5414 GOTO yfiu4
IF ~Gender(Player1,MALE)~ THEN REPLY @5415 GOTO yfiu3
IF ~Gender(Player1,FEMALE)~ THEN REPLY @5416 GOTO yfiu3
END

IF ~~ THEN BEGIN tortureimoen
   SAY @5544 // = ~(She swallows heavily and sniffles once more) I was... trying... I just wanted... t-- to... (Imoen warily glances at you as coherent words refuse to come out of her shaking lips.)~
   IF ~~ THEN REPLY @5532 GOTO nbxfin // = ~(You won't keep torturing you both with meaningless words. You tightly embrace her, to comfort both her aching heart and your own and tell her with your contact how much you need her.)~
   IF ~~ THEN REPLY @5545 GOTO tortureimoen2 // = ~(You keep waiting; she only needs time to order her thoughts.)~
   IF ~~ THEN REPLY @5533 GOTO nbxfin2 // = ~(Smiling, you approach her and gently lift her chin so she looks directly at you. Without a word, you slowly lean forward and softly, tenderly kiss her lips...)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5534 GOTO nbxfin3 // = ~(Smiling, you approach Imoen and kneel before her. You take her quivering hand and, kissing her fingers while staring into the sea of her eyes, you speak) Marry me, Imoen. Let's love each other forever to the end of time.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5556 GOTO nbxfin3 // = ~(Smiling, you approach Imoen and kneel before her. You take her quivering hand and, kissing her fingers while staring into the sea of her eyes, you speak) Stay with me, Imoen. Let's love each other forever to the end of time.~
   IF ~~ THEN REPLY @5535 GOTO nbxcrazedmonkey // = ~(Smiling, you approach her and gently take her chin, making her look at you. Without a word, you roughly slap her face with all of your strength in the hope of making her fall to the ground.)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5536 GOTO md2ashit2 // = ~You were just being a bitch that is! I only wanted to have my way with you anyway; now I've done it you are nothing but another harlot I have spent a night with!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5537 GOTO md2ashit2 // = ~You were just being a bitch that is! I only wanted a taste of you anyway; now I've had it you are nothing but another wench in my account!?~
END

IF ~~ THEN BEGIN tortureimoen2
   SAY @5546 // = ~I, uh... I... (Imoen bites her lip once again; she seems about to ask you something, but decides not to do it at the last moment. She is cold, or it appears so from her uncontrollable trembling.)~
   IF ~~ THEN REPLY @5532 GOTO nbxfin // = ~(You won't keep torturing you both with meaningless words. You tightly embrace her, to comfort both her aching heart and your own and tell her with your contact how much you need her.)~
   IF ~CheckStatGT(Player1,9,WIS)~ THEN REPLY @5547 GOTO tortureimoen3 // = ~(Pressing her is the last thing you want to do, so you keep waiting for her to calm down and finish her sentence.)~
   IF ~!CheckStatGT(Player1,9,WIS)~ THEN REPLY @5547 GOTO tortureimoen3b // = ~(Pressing her is the last thing you want to do, so you keep waiting for her to calm down and finish her sentence.)~
   IF ~~ THEN REPLY @5533 GOTO nbxfin2 // = ~(Smiling, you approach her and gently lift her chin so she looks directly at you. Without a word, you slowly lean forward and softly, tenderly kiss her lips...)~
   IF ~~ THEN REPLY @5534 GOTO nbxfin3 // = ~(Smiling, you approach Imoen and kneel before her. You take her quivering hand and, kissing her fingers while staring into the sea of her eyes, you speak) Marry me, Imoen. Let's love each other forever to the end of time.~
   IF ~~ THEN REPLY @5535 GOTO nbxcrazedmonkey // = ~(Smiling, you approach her and gently take her chin, making her look at you. Without a word, you roughly slap her face with all of your strength in the hope of making her fall to the ground.)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5536 GOTO md2ashit2 // = ~You were just being a bitch that is! I only wanted to have my way with you anyway; now I've done it you are nothing but another harlot I have spent a night with!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5537 GOTO md2ashit2 // = ~You were just being a bitch that is! I only wanted a taste of you anyway; now I've had it you are nothing but another wench in my account!?~
END

IF ~~ THEN BEGIN tortureimoen3
   SAY @5548 // = ~(She holds her left elbow with her right hand, and shifts her weight from one foot to the other, not knowing what to do. You can tell she feels embarrassed, as if waiting for something... and your inner self knows well what it is.)~
   = @5551 // = ~(Imoen is still uneasily looking at you... better to do something already.)~
   IF ~~ THEN REPLY @5532 GOTO nbxfin // = ~(You won't keep torturing you both with meaningless words. You tightly embrace her, to comfort both her aching heart and your own and tell her with your contact how much you need her.)~
   IF ~~ THEN REPLY @5533 GOTO nbxfin2 // = ~(Smiling, you approach her and gently lift her chin so she looks directly at you. Without a word, you slowly lean forward and softly, tenderly kiss her lips...)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5534 GOTO nbxfin3 // = ~(Smiling, you approach Imoen and kneel before her. You take her quivering hand and, kissing her fingers while staring into the sea of her eyes, you speak) Marry me, Imoen. Let's love each other forever to the end of time.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5556 GOTO nbxfin3 // = ~(Smiling, you approach Imoen and kneel before her. You take her quivering hand and, kissing her fingers while staring into the sea of her eyes, you speak) Stay with me, Imoen. Let's love each other forever to the end of time.~
   IF ~~ THEN REPLY @5535 GOTO nbxcrazedmonkey // = ~(Smiling, you approach her and gently take her chin, making her look at you. Without a word, you roughly slap her face with all of your strength in the hope of making her fall to the ground.)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5536 GOTO md2ashit2 // = ~You were just being a bitch that is! I only wanted to have my way with you anyway; now I've done it you are nothing but another harlot I have spent a night with!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5537 GOTO md2ashit2 // = ~You were just being a bitch that is! I only wanted a taste of you anyway; now I've had it you are nothing but another wench in my account!?~
END

IF ~~ THEN BEGIN tortureimoen3b
   SAY @5552 // = ~(She holds her left elbow with her right hand, and shifts her weight from one foot to the other, not knowing what to do. You can tell she feels embarrassed, as if waiting for something... you don't understand what.)
   = @5553 // = ~(You feel a bump on the back of your head, as if someone has just slapped you, and suddenly you hear a subtle whisper in your ear, full of wisdom and love.)~
   = @5549 // = ~(*Can't you see all she needs is a hug? Go embrace her, you idiot! You both will feel better.*)~
   = @5550 // = ~(It might only be your imagination, but you recognize a voice from your childhood in it... maybe Gorion's, although it is not likely that Gorion would call you "idiot"...)~
   = @5551 // = ~(Imoen is still uneasily looking at you... better to do something already.)~
   IF ~~ THEN REPLY @5532 GOTO nbxfin // = ~(You won't keep torturing you both with meaningless words. You tightly embrace her, to comfort both her aching heart and your own and tell her with your contact how much you need her.)~
   IF ~~ THEN REPLY @5533 GOTO nbxfin2 // = ~(Smiling, you approach her and gently lift her chin so she looks directly at you. Without a word, you slowly lean forward and softly, tenderly kiss her lips...)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5534 GOTO nbxfin3 // = ~(Smiling, you approach Imoen and kneel before her. You take her quivering hand and, kissing her fingers while staring into the sea of her eyes, you speak) Marry me, Imoen. Let's love each other forever to the end of time.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5556 GOTO nbxfin3 // = ~(Smiling, you approach Imoen and kneel before her. You take her quivering hand and, kissing her fingers while staring into the sea of her eyes, you speak) Stay with me, Imoen. Let's love each other forever to the end of time.~
   IF ~~ THEN REPLY @5535 GOTO nbxcrazedmonkey // = ~(Smiling, you approach her and gently take her chin, making her look at you. Without a word, you roughly slap her face with all of your strength in the hope of making her fall to the ground.)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @5536 GOTO md2ashit2 // = ~You were just being a bitch that is! I only wanted to have my way with you anyway; now I've done it you are nothing but another harlot I have spent a night with!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @5537 GOTO md2ashit2 // = ~You were just being a bitch that is! I only wanted a taste of you anyway; now I've had it you are nothing but another wench in my account!?~
END

IF ~~ THEN BEGIN nbxfin
   SAY @5630 // = ~(It feels like an eternity until you hold Imoen in your arms. Your gentle embrace is rewarded by the softness of her skin, the warmth of her quivering body. She simply lets you envelop her and hold her close, without moving at all.)~ [MRImRom6]
   = @5631 // = ~(You sense her anguish grow, her shoulders trembling in your embrace as she sniffles once and again, until she can't restrain her weeping anymore. Her arms wrapping themselves around you, squeezing you desperately tight, she lets her sorrow flow unreigned as she quietly bursts into tears.)~
   IF ~~ THEN GOTO nbxf
   END
   
   IF ~~ THEN BEGIN nbxf
   SAY @5554 // = ~(Imoen holds you so close to herself that breathing is becoming difficult, but it is still a very pleasant feeling. After a delicious moment of caressing her hair as she cries on you, you hear her whisper under her breath in faltering words between sob after sob.)~
   = @5555 // = ~Forgive me... please... please forgive me... I was... so scared... forgive me... (She cuddles against you all she can, rubbing her nose against your skin) Forgive me...~
   IF ~~ THEN REPLY @5557 GOTO nbxf1 // = ~(Just start kissing her in this ecstatic state.)~
   IF ~~ THEN REPLY @5558 GOTO nbxf1 // = ~There's nothing to forgive, my love... nothing... (You feel your own tears wet your face as you start kissing her.)~
   IF ~~ THEN REPLY @5559 GOTO nbxf2 // = ~(Continue caressing her, telling her to calm down, that you are there, that you love her...)~
   IF ~~ THEN REPLY @5560 GOTO nbxf2 // = ~Forgive? I don't understand, what are you talking about?~
   IF ~~ THEN REPLY @5561 GOTO youbastard // = ~(How have you come this far? You finally realize you don't want such a relationship, but you don't want to hurt Imoen either. You push her away very gently, but firmly.)~
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5562 GOTO diebastard // = ~(Now is your chance to humiliate her: you roughly push her away) You whore, what do you think I am, a duergar like the one that took your virginity away?
END

IF ~~ THEN BEGIN diebastard
SAY @5592 // = ~(You see with satisfaction when you push her away that your words strike Imoen's teary face like a rough blow to her cheek. She looks at you blankly, her mouth open in disbelief; her knees buckle and shee slowly staggers backwards.)~
IF ~~ THEN DO ~SG("CruelBastardMR",1) StartCutSceneMode() CutSceneId("Imoen2") StartRainNow() RunAwayFrom(Player1,30) FaceObject(Player1) RunAwayFrom(Player1,30) FaceObject(Player1) Wait(4) StartDialog("IMOEN2J",Player1) EndCutSceneMode()~
EXIT
END

IF ~~ THEN BEGIN youbastard
   SAY @5563 // = ~(Imoen looks confused behind her tears when you push her away from you. She doesn't understand why she can't touch you anymore, until her gaze stops in your eyes...)~
   = @5564 // = ~(What lies inside them is enough to tell her what is happening. Her mouth drops open, her lower lip trembling again as fear grows in her expression.)~
   = @5565 // = ~No... no, don't do this to me...! (after giving in to her most intimate yearning, receiving this disappointment from you is like a slap to her fair cheek. There is nothing you can say now...)~
   = @5566 // = ~No...! (She takes a few steps back from you, looking at you horrified. Then, covering her face in despair, she runs away while crying helplessly before you can do a thing.)~
   = @5567 // = ~(Maybe it is better this way... there was no future for the two of you together.)~
   IF ~~ THEN DO ~GivePartyAllEquipment() LeaveParty() EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN nbxfin2
   SAY @5568 // = ~(It feels like an eternity as your mouths converge, until your lips finally are linked. At first she doesn't react, just standing motionless as you warmly stroke her lips with yours, infusing them with all the love and adoration you posess for her.) [MRImRom6]
   = @5569 // = ~(Just when you think it might not be enough for her to respond to your caresses, you taste a salty substance on your upper lip... a tear. Imoen's tear...)~
   = @5570 // = ~(And now you sense how her anguish grows, her shoulders tremble, her sniffles increase their frequency, until she can't restrain her weeping anymore. Her arms wrapping themselves around you, squeezing you desperately tight, she lets her sorrow flow unreigned as she quietly embraces you and bursts into tears.)~
   IF ~~ THEN GOTO nbxf
END

IF ~~ THEN BEGIN nbxfin3
   SAY @5571 // = ~(Looking at you kissing her long, slender and agile fingers she can't help but smile as she wipes her nose with her free hand's sleeve) You... you silly... (She sniffles again, takes your hand and pulls you toward her, making you stand so you will be able to embrace her.)~
   = @5572 // = ~(She lets you envelop her body with your arms, resting her head on your shoulder. You sense her anguish grow, her shoulders trembling in your embrace as she sniffles once and again, until she can't restrain her weeping anymore.)~
   = @5573 // = ~(Her arms wrapping themselves around you, squeezing you desperately tight, she lets her sorrow flow unreigned as she quietly bursts into tears.)~
   IF ~~ THEN GOTO nbxf
END

IF ~~ THEN BEGIN nbxf1
   SAY @5574 // = ~(Tightening even more your embrace, you start to kiss her tears away like you did in her dreams, first her forehead, then her eyelids, her cheeks and nose...)~
   = @5575 // = ~(You reach her lips, and for a moment everything stands still. Your foreheads united, your eyes closed, the only thing you can feel is how her quickened breath flows over your skin as it comes out of her half-open mouth. Time seems to stop as her trembling lips slowly, hesitantly move to meet yours.)~
   IF ~~ THEN GOTO nbxfinalyajoder
END

IF ~~ THEN BEGIN nbxf2
   SAY @5576 // = ~(Imoen just burrows herself further into your arms. She stops whispering, replacing her words with kisses... her eyes closed, she gives you a soft kiss on your neck, and goes up following your jaw line, placing another tender buss there. Then your chin is blessed by her gentle lips, and she opens her teary eyes to look into yours.)~
   = @5577 // = ~(For a moment, everything stays still. The only thing you can feel is how her quickened breath strokes your skin as it comes out of her half-open mouth. She gathers the courage to move, and the dance of lights that her irises reflect is mesmerizing as her trembling lips slowly, hesitantly motion to meet yours.)~
   IF ~~ THEN GOTO nbxfinalyajoder
END
END

CHAIN IMOEN2J nbxfinalyajoder
@5578 // = ~(With a final impulse born from her most intimate yearning, your mouths melt. Entangling her fingers in your hair, she continues to push you against her body, her other hand firmly, excruciatingly pulling your waist close. Her skin is a blanket that covers your entire being, her essence a gift from heavens that occupies all of your senses.)~
== IMOEN2J IF ~!Race(Player1,HUMAN)~ THEN @5579 // = ~(As her timid tongue shyly tries to slip past your lips it is as if nothing else exists, just you and her in an everlasting kiss: everything that surrounds you shrinks to nothingness... all of your worries disappear, to leave only human and <PRO_RACE> united as one. Just Imoen and <CHARNAME>.)~
== IMOEN2J IF ~Race(Player1,HUMAN)~ THEN @5580 // = ~(As her timid tongue shyly tries to slip past your lips it is as if nothing else exists, just you and her in an everlasting kiss: everything that surrounds you shrinks to nothingness... all of your worries disappear, to leave only two humans united as one. Just Imoen and <CHARNAME>.)~
== IMOEN2J @5581 // = ~(She can't restrain anoher sniffle, and slowly, painfully, you both come back to real world. Still embraced, she looks into your eyes, hers still tear-filled, with a look that speaks a thousand words, and without saying anything she rests her head on you...)~
END IMOEN2J nbxfinalyajoder2

APPEND IMOEN2J
IF ~~ THEN BEGIN nbxfinalyajoder2
   SAY @5582 // = ~(... and begins to cry again. You feel her tremble in your arms, her sobs rising from the depths of her soul straight to your ears.)~
   IF ~~ THEN REPLY @5583 GOTO FIXMR49 // = ~(Kiss her head understandingly while tightening even more your embrace.)~
   IF ~~ THEN REPLY @5584 GOTO FIXMR49 // = ~Imoen...? Are you okay...? Did I do... something wrong...?~
   IF ~~ THEN REPLY @5585 GOTO FIXMR49 // = ~Oh, not again! What now??~
END

IF ~~ THEN BEGIN md2e2
   SAY @5586 // = ~<CHARNAME>!! How-- how can you joke with a thing like this, can't you see it's a very serious issue!? If that's how much you care about losing my love, then...~
   IF ~CheckStatGT(Player1,9,INT)~ THEN REPLY @5469 DO ~SG("JokedAlreadyMR",1)~ GOTO md2f3 // = ~Ah, so you finally admit that you love me!~
   IF ~~ THEN REPLY @5470 DO ~SG("JokedAlreadyMR",1)~ GOTO md2c // = ~No, no Imoen! It was only a joke, look I... I couldn't live without you... I always wanted this to happen, Imoen...~
   IF ~~ THEN REPLY @5471 DO ~SG("JokedAlreadyMR",1)~ GOTO md2f2 // = ~Heheh, well just look at ourselves. We are having our first quarrel, and we are not even together... YET.~
   IF ~~ THEN REPLY @5338 DO ~SG("JokedAlreadyMR",1)~ GOTO ewoadsmfoakmtoaimtory
   IF ~Gender(Player1,MALE)~ THEN REPLY @4404 DO ~SG("JokedAlreadyMR",1)~ GOTO FIXMR42aaa
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4404 DO ~SG("JokedAlreadyMR",1)~ GOTO FIXMR42bbb
END

IF ~~ THEN BEGIN md2e3
   SAY @5587 // = ~(The sadness in Imoen's eyes is heart-piercing) That doesn't matter, <CHARNAME>... it doesn't matter when it comes to beings like us.~
   = @4319
   IF ~~ THEN REPLY @4320 GOTO FIXMR30
   IF ~~ THEN REPLY @4321 GOTO FIXMR30
   IF ~~ THEN REPLY @4322 GOTO FIXMR30
END

IF ~~ THEN BEGIN md2e4
   SAY @5588 // = ~Love... (Imoen looks away, her contrite expression such, that even the angels in the heavens would play a sad song upon their harps as tears stream downs their cheeks in her presence. Melancholy in her eyes, she holds her left elbow with her right hand and looks up at you again) How... how has it come to this, <CHARNAME>...?~
   = @5589 // = ~D-- don't you see that we're not supposed to feel like this for each other!? It's simply not right!! I've always felt like a little sister to you, you were someone I could care for and worry about, and admire, and be friends with but... but not, y-- y'know...~
   = @5590 // = ~(Her voice drops to a mere whisper) I never wanted something like this to happen... it's not fair... I didn't want to feel... to feel this for you...~
   IF ~~ THEN REPLY @5612 GOTO FIXMR44a // = ~(Hold her hand) Imoen... I'd have never expected we would come to this point... but since I had those dreams, every day I see you more like a woman, and less like my little sister...~
   IF ~~ THEN REPLY @5613 GOTO FIXMRUndesMR // = ~(She seems about to say something important. You patiently wait to let her finish expressing her feelings when she is able to.)~
   IF ~~ THEN REPLY @4434 GOTO md2e3
   IF ~~ THEN REPLY @4435 GOTO FIXMRMRexit
END

IF ~~ THEN BEGIN FIXMR28
	SAY @4315 = @4316
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN FIXMR29
	SAY @4317
 IF ~~ THEN GOTO dondelasdanlastoman
END
 
IF ~~ THEN BEGIN dondelasdanlastoman
   SAY @4318 = @4319
	IF ~~ THEN REPLY @4320 GOTO FIXMR30
	IF ~~ THEN REPLY @4321 GOTO FIXMR30
	IF ~~ THEN REPLY @4322 GOTO FIXMR30
END

IF ~~ THEN BEGIN FIXMR30
	SAY @4323
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN FIXMR31
	SAY @4324 = @4325
	IF ~~ THEN REPLY @4326 GOTO FIXMR33
	IF ~~ THEN REPLY @4327 GOTO FIXMR32
END

IF ~~ THEN BEGIN FIXMR32
	SAY @4328
	IF ~~ THEN GOTO FIXMR32nomonk
	IF ~Class(Player1,MONK)~ THEN GOTO FIXMR32monk
END

IF ~~ THEN BEGIN FIXMR32nomonk
	SAY @4329
	IF ~~ THEN GOTO FIXMR32nextone
END

IF ~~ THEN BEGIN FIXMR32monk
	SAY @5296 // = ~You're just too STUPID to understand those around you, aren't you? You can't see further your hands and that "ki" you use, everything else means nothing but "things to kill" and "things that bleed".~
	IF ~~ THEN GOTO FIXMR32nextone
END

IF ~~ THEN BEGIN FIXMR32nextone
	SAY @4330 = @4331 = @4332
	IF ~~ THEN DO ~GivePartyAllEquipment()
	LeaveParty()
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN FIXMR33
	SAY @4333
	IF ~~ THEN REPLY @4327 GOTO FIXMR32
	IF ~~ THEN REPLY @4334 GOTO FIXMR34
END

IF ~~ THEN BEGIN FIXMR34
	SAY @4335
	IF ~~ THEN REPLY @4336 GOTO FIXMR32
	IF ~Gender(Player1,MALE)~ THEN REPLY @4337 GOTO FIXMR36a
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @4337 GOTO FIXMR36b
END

IF ~~ THEN BEGIN FIXMR35
	SAY @4338 = @4339 = @4340 = @4341 = @4342
	IF ~Gender(Player1,MALE)~ THEN REPLY @4343 GOTO FIXMR36a
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @4343 GOTO FIXMR36b
	IF ~~ THEN REPLY @4312 GOTO FIXMR28
	IF ~~ THEN REPLY @4344 GOTO FIXMR29
	IF ~~ THEN REPLY @4314 GOTO FIXMR31
END

IF ~~ THEN BEGIN FIXMR36a
	SAY @4345
   IF ~~ THEN REPLY @5461 GOTO md2e4 // = ~Imoen, you can say it was incest if you want, I can even agree with you on that. But it was no mistake, we did nothing wrong... if love is "something wrong", then... I can't imagine what can be right.~
   IF ~~ THEN REPLY @5462 GOTO md2e3 // = ~But... I love you Imoen!~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4346 GOTO FIXMR37a // = ~(Speak seriously) Oh no, I never thought of it that way! Get away from me! We must find a way atone for this sin!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4346 GOTO FIXMR37b // = ~(Speak seriously) Oh no, I never thought of it that way! Get away from me! We must find a way atone for this sin!~
  IF ~Gender(Player1,MALE)~ THEN REPLY @4347 GOTO FIXMR38a // = ~(Slap yourself in the forehead sarcastically) Holy shit that's true! Get away from me, we are impure, let's ask the gods for mercy!~
  IF ~Gender(Player1,FEMALE)~ THEN REPLY @4347 GOTO FIXMR38b // = ~(Slap yourself in the forehead sarcastically) Holy shit that's true! Get away from me, we are impure, let's ask the gods for mercy!~
   IF ~Global("JokedAlreadyMR","GLOBAL",0)~ THEN REPLY @5463 DO ~SetGlobal("JokedAlreadyMR","GLOBAL",1)~ GOTO md2e2 // = ~Oh, "Incest" is such a strong word... let's call it "deep relationship among siblings", eh? (chuckle.)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4349 GOTO FIXMR39a // = ~We may be BhaalSpawn, but that doesn't mean we are "regular" siblings, Imoen. Our mothers weren't the same, neither were our families. Only our father is common to both of us; and he wasn't really a "father", but a deity...~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4349 GOTO FIXMR39b // = ~We may be BhaalSpawn, but that doesn't mean we are "regular" siblings, Imoen. Our mothers weren't the same, neither were our families. Only our father is common to both of us; and he wasn't really a "father", but a deity...~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4350 GOTO FIXMR41a // = ~Imoen, that's simply not true. We are Bhaalspawn, yes; however, you don't seem to know the way Bhaal planted his seeds.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4350 GOTO FIXMR41b // = ~Imoen, that's simply not true. We are Bhaalspawn, yes; however, you don't seem to know the way Bhaal planted his seeds.~
  IF ~Gender(Player1,MALE)~ THEN REPLY @5464 GOTO FIXMR37a // = ~Maybe... maybe you are right, Imoen. We are bhaalspawn... your words have wisdom. Let us stay friends...~
  IF ~Gender(Player1,FEMALE)~ THEN REPLY @5464 GOTO FIXMR37b // = ~Maybe... maybe you are right, Imoen. We are bhaalspawn... your words have wisdom. Let us stay friends...~
END

IF ~~ THEN BEGIN FIXMR37a
	SAY @4351 = @4352
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN  BEGIN FIXMR38a
	SAY @4353
   IF ~~ THEN REPLY @4354 GOTO FIXMR39a
   IF ~~ THEN REPLY @5461 GOTO md2e4
   IF ~~ THEN REPLY @4355 GOTO FIXMR40a
END

IF ~~ THEN BEGIN FIXMR39a
	SAY @4356
	IF ~~ THEN GOTO FIXMR43a
END

IF ~~ THEN BEGIN FIXMR40a
	SAY @4357 = @4358 = @4359 = @4360 = @4361
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN BEGIN FIXMR41a
	SAY @4362
	IF ~CheckStatGT(Player1,13,WIS) !G("ILoveYouMR",1)~ THEN REPLY @4363 GOTO FIXMR41aa
	IF ~G("ILoveYouMR",1)~ THEN REPLY @4363 GOTO mynewstatewoooo
	IF ~~ THEN REPLY @4364 GOTO FIXMR41ASS
	IF ~~ THEN REPLY @4365 GOTO FIXMR38a
END

IF ~~ THEN BEGIN mynewstatewoooo
   SAY @4371
   IF ~~ THEN REPLY @4368 GOTO mynewstatewoooo2
   IF ~~ THEN REPLY @5591 GOTO mynewstatewoooo2 // = ~I don't really remember where I read it. Don't worry about that, just know that it is true, I am positive.~
   IF ~~ THEN REPLY @5593 GOTO mynewstatewoooo2 // = ~It doesn't really matter... our love is all that matters to me right now.~
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5594  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup // = ~(This is a great chance to hurt and humiliate her) The duergar who screwed the virginity out of you told me, you filthy little whore!~
END

IF ~~ THEN BEGIN mynewstatewoooo2
   SAY @5595 // = ~(Imoen keeps silent, thinking about what you have just said. After a while she mutters to herself.)~
   IF ~~ THEN GOTO md2e4
END

IF ~~ THEN BEGIN FIXMR41ASS
	SAY @4366 = @4367
	IF ~~ THEN REPLY @4368 GOTO FIXMR41stupid1
	IF ~Gender(Player1,MALE)~ THEN REPLY @4369 GOTO FIXMR41stupid2a
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @4369 GOTO FIXMR41stupid2b
	IF ~~ THEN REPLY @4370 GOTO FIXMR41aaa
END


IF ~~ THEN BEGIN FIXMR41aa
	SAY @4371
	IF ~~ THEN REPLY @4368 GOTO FIXMR41aaa
	IF ~~ THEN REPLY @5591 GOTO FIXMR41aaa // = ~I don't really remember where I read it. Don't worry about that, just know that it is true, I am positive.~
	IF ~~ THEN REPLY @4372 GOTO FIXMR42a
	IF ~~ THEN REPLY @4370 GOTO FIXMR41aaa
END

IF ~~ THEN BEGIN SUMR7h
	SAY @4373
	IF ~~ THEN REPLY @4374 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b
	IF ~Global("PinkyMR","GLOBAL",5)~ THEN REPLY @4375 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b1
	IF ~Global("PinkyMR","GLOBAL",10)~ THEN REPLY @4376 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b2
	IF ~Global("PinkyMR","GLOBAL",15)~ THEN REPLY @4377 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b3
	IF ~Global("PinkyMR","GLOBAL",20)~ THEN REPLY @4378 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b4
	IF ~Global("PinkyMR","GLOBAL",25)~ THEN REPLY @4379 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b5
	IF ~Global("PinkyMR","GLOBAL",30)~ THEN REPLY @4380 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b6
	IF ~Global("PinkyMR","GLOBAL",35)~ THEN REPLY @4381 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b7
	IF ~Global("PinkyMR","GLOBAL",40)~ THEN REPLY @4382 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b8
	IF ~Global("PinkyMR","GLOBAL",45)~ THEN REPLY @4383 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b9
	IF ~Global("PinkyMR","GLOBAL",50)~ THEN REPLY @4384 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b10
	IF ~Global("PinkyMR","GLOBAL",65)~ THEN REPLY @4385 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b11
	IF ~Global("PinkyMR","GLOBAL",100)~ THEN REPLY @4386 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b12
	IF ~Global("PinkyMR","GLOBAL",125)~ THEN REPLY @4387 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b13
	IF ~Global("PinkyMR","GLOBAL",130)~ THEN REPLY @4388 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b14
	IF ~Global("PinkyMR","GLOBAL",140)~ THEN REPLY @4389 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b15
	IF ~Global("PinkyMR","GLOBAL",145)~ THEN REPLY @4390 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b16
	IF ~Global("PinkyMR","GLOBAL",150)~ THEN REPLY @4376 DO ~IncrementGlobal("PinkyMR","GLOBAL",1)~ GOTO SUMR7b17
	IF ~Global("PinkyMR","GLOBAL",155)~ THEN REPLY @4391 GOTO SUMR7b18
	IF ~!Global("PinkyMR","GLOBAL",100)~ THEN REPLY @1038 EXIT
	IF ~Global("PinkyMR","GLOBAL",100)~ THEN REPLY @1038 GOTO SUMR7bfool
END

IF ~~ THEN BEGIN FIXMR41stupid1
	SAY @4392 = @4393 = @4394 = @4395
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN BEGIN FIXMR41stupid2a
	SAY @4396 = @4397 = @4398
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN BEGIN FIXMR41stupid2b
	SAY @4396 = @4399 = @4398
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN BEGIN FIXMR41aaa
	SAY @4400
	=
	@4401
	IF ~~ THEN GOTO FIXMR43a
END

IF ~~ THEN BEGIN FIXMR42a
   SAY @4402
   IF ~CheckStatGT(Player1,8,INT)~ THEN REPLY @4403 DO ~SG("JokedAlreadyMR",1)~ GOTO FIXMR42aa
   IF ~~ THEN REPLY @5470 DO ~SG("JokedAlreadyMR",1)~ GOTO md2c // = ~No, no Imoen! It was only a joke, look I... I couldn't live without you... I always wanted this to happen, Imoen...~
   IF ~~ THEN REPLY @5338 DO ~SG("JokedAlreadyMR",1)~ GOTO ewoadsmfoakmtoaimtory // = ~I was only joking, Imoen. You are right after all... we just can't be together.~
   IF ~~ THEN REPLY @4404 DO ~SG("JokedAlreadyMR",1)~ GOTO FIXMR42aaa
END

IF ~~ THEN BEGIN ewoadsmfoakmtoaimtory
	SAY @4399 = @4398
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN BEGIN FIXMR42aa
	SAY @4405
	IF ~CheckStatGT(Player1,16,INT)~ THEN REPLY @4406 GOTO FIXMR41aaa // = ~(You change your expression completely, talking absolutely seriously now. The risk of losing her clenches your heart) Imoen, please listen to me... you have grown to become the first of my worries, my thoughts, my joys. You are my life, what I feel for you is beyond words. Losing you would be... more devastating than it was losing my soul, for *you* are the spirit that endows me with all I have ever desired...~
	IF ~!CheckStatGT(Player1,16,INT) CheckStatGT(Player1,7,INT)~ THEN REPLY @5341 GOTO FIXMR41aaa // = ~(You become completely serious now, you can't risk losing her) Listen to me Imoen, please. I am very worried about losing you. You're the happiness and joy in my life; you're the only thing I can think about lately. Losing you would be... worse than losing my soul. I think I could live without my soul, but I can't live without you...~
	IF ~~ THEN REPLY @5339 GOTO FIXMR29 // = ~Imoen, I love you, and nothing you can say or do will change that.~
	IF ~~ THEN REPLY @5338 GOTO ewoadsmfoakmtoaimtory // = ~I was only joking, Imoen. You are right after all... we just can't be together.~
	IF ~~ THEN REPLY @5340 GOTO FIXMR42aaa // = ~Forget about it. I find you weaker by every word you say; you are just a whore with which I did what I pleased, and nothing more.~
END

IF ~~ THEN BEGIN FIXMR42aaa
	SAY @4407 = @4408 = @4409
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN FIXMR36b
	SAY @4410
   IF ~~ THEN REPLY @5461 GOTO md2e4 // = ~Imoen, you can say it was incest if you want, I can even agree with you on that. But it was no mistake, we did nothing wrong... if love is "something wrong", then... I can't imagine what can be right.~
   IF ~~ THEN REPLY @5462 GOTO md2e3 // = ~But... I love you Imoen!~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4346 GOTO FIXMR37a // = ~(Speak seriously) Oh no, I never thought of it that way! Get away from me! We must find a way atone for this sin!~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4346 GOTO FIXMR37b // = ~(Speak seriously) Oh no, I never thought of it that way! Get away from me! We must find a way atone for this sin!~
  IF ~Gender(Player1,MALE)~ THEN REPLY @4347 GOTO FIXMR38a // = ~(Slap yourself in the forehead sarcastically) Holy shit that's true! Get away from me, we are impure, let's ask the gods for mercy!~
  IF ~Gender(Player1,FEMALE)~ THEN REPLY @4347 GOTO FIXMR38b // = ~(Slap yourself in the forehead sarcastically) Holy shit that's true! Get away from me, we are impure, let's ask the gods for mercy!~
   IF ~Global("JokedAlreadyMR","GLOBAL",0)~ THEN REPLY @5463 DO ~SetGlobal("JokedAlreadyMR","GLOBAL",1)~ GOTO md2e2 // = ~Oh, "Incest" is such a strong word... let's call it "deep relationship among siblings", eh? (chuckle.)~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4349 GOTO FIXMR39a // = ~We may be BhaalSpawn, but that doesn't mean we are "regular" siblings, Imoen. Our mothers weren't the same, neither were our families. Only our father is common to both of us; and he wasn't really a "father", but a deity...~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4349 GOTO FIXMR39b // = ~We may be BhaalSpawn, but that doesn't mean we are "regular" siblings, Imoen. Our mothers weren't the same, neither were our families. Only our father is common to both of us; and he wasn't really a "father", but a deity...~
   IF ~Gender(Player1,MALE)~ THEN REPLY @4350 GOTO FIXMR41a // = ~Imoen, that's simply not true. We are Bhaalspawn, yes; however, you don't seem to know the way Bhaal planted his seeds.~
   IF ~Gender(Player1,FEMALE)~ THEN REPLY @4350 GOTO FIXMR41b // = ~Imoen, that's simply not true. We are Bhaalspawn, yes; however, you don't seem to know the way Bhaal planted his seeds.~
  IF ~Gender(Player1,MALE)~ THEN REPLY @5464 GOTO FIXMR37a // = ~Maybe... maybe you are right, Imoen. We are bhaalspawn... your words have wisdom. Let us stay friends...~
  IF ~Gender(Player1,FEMALE)~ THEN REPLY @5464 GOTO FIXMR37b // = ~Maybe... maybe you are right, Imoen. We are bhaalspawn... your words have wisdom. Let us stay friends...~
END

IF ~~ THEN BEGIN FIXMR37b
	SAY @4414
	=
	@4352
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN  BEGIN FIXMR38b
	SAY @4353
	IF ~~ THEN REPLY @4354 GOTO FIXMR39b
   IF ~~ THEN REPLY @5461 GOTO md2e4
	IF ~~ THEN REPLY @4355 GOTO FIXMR40b
END

IF ~~ THEN BEGIN FIXMR39b
	SAY @4415
	IF ~~ THEN GOTO FIXMR43b
END

IF ~~ THEN BEGIN FIXMR40b
	SAY @4416 = @4358 = @4359 = @4417 = @4361
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END

IF ~~ THEN BEGIN FIXMR41b
	SAY @4362
	IF ~!G("ILoveYouMR",1) CheckStatGT(Player1,13,WIS) ~ THEN REPLY @4418 GOTO FIXMR41bb
	IF ~G("ILoveYouMR",1)~ THEN REPLY @4363 GOTO mynewstatewoooo
	IF ~~ THEN REPLY @4364 GOTO FIXMR41ASSb
	IF ~~ THEN REPLY @4365 GOTO FIXMR38b
END

IF ~~ THEN BEGIN FIXMR41ASSb
	SAY @4366 = @4367
        IF ~~ THEN REPLY @4368 GOTO FIXMR41stupid1b
	IF ~~ THEN REPLY @4369 GOTO FIXMR41stupid2x
	IF ~~ THEN REPLY @4370 GOTO FIXMR41bbb
END


IF ~~ THEN BEGIN FIXMR41bb
	SAY @4371
	IF ~~ THEN REPLY @4368 GOTO FIXMR41bbb
	IF ~~ THEN REPLY @5591 GOTO FIXMR41bbb // = ~I don't really remember where I read it. Don't worry about that, just know that it is true, I am positive.~
	IF ~~ THEN REPLY @4372 GOTO FIXMR42b
	IF ~~ THEN REPLY @4370 GOTO FIXMR41bbb
END // 700

IF ~~ THEN BEGIN FIXMR41stupid1b
	SAY @4419 = @4420 = @4398 = @4395
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN FIXMR41stupid2x
	SAY @4421 = @4399 = @4422
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN FIXMR41bbb
	SAY @4423 = @4424 = @4425
	IF ~~ THEN GOTO FIXMR43b
END

IF ~~ THEN BEGIN FIXMR42b
   SAY @4402
   IF ~CheckStatGT(Player1,8,INT)~ THEN REPLY @4403 DO ~SG("JokedAlreadyMR",1)~ GOTO FIXMR42bb
   IF ~~ THEN REPLY @5470 DO ~SG("JokedAlreadyMR",1)~ GOTO md2c // = ~No, no Imoen! It was only a joke, look I... I couldn't live without you... I always wanted this to happen, Imoen...~
   IF ~~ THEN REPLY @5338 DO ~SG("JokedAlreadyMR",1)~ GOTO ewoadsmfoakmtoaimtory // = ~I was only joking, Imoen. You are right after all... we just can't be together.~
   IF ~~ THEN REPLY @4426 DO ~SG("JokedAlreadyMR",1)~ GOTO FIXMR42bbb
END

IF ~~ THEN BEGIN FIXMR42bb
	SAY @4405
	IF ~CheckStatGT(Player1,16,INT)~ THEN REPLY @4406 GOTO FIXMR41bbb // = ~(You change your expression completely, talking absolutely seriously now. The risk of losing her clenches your heart) Imoen, please listen to me... you have grown to become the first of my worries, my thoughts, my joys. You are my life, what I feel for you is beyond words. Losing you would be... more devastating than it was losing my soul, for *you* are the spirit that endows me with all I have ever desired...~
	IF ~!CheckStatGT(Player1,16,INT) CheckStatGT(Player1,7,INT)~ THEN REPLY @5341 GOTO FIXMR41bbb // = ~(You become completely serious now, you can't risk losing her) Listen to me Imoen, please. I am very worried about losing you. You're the happiness and joy in my life; you're the only thing I can think about lately. Losing you would be... worse than losing my soul. I think I could live without my soul, but I can't live without you...~
	IF ~~ THEN REPLY @5339 GOTO FIXMR29 // = ~Imoen, I love you, and nothing you can say or do will change that.~
	IF ~~ THEN REPLY @5338 GOTO ewoadsmfoakmtoaimtory // = ~I was only joking, Imoen. You are right after all... we just can't be together.~
	IF ~~ THEN REPLY @5340 GOTO FIXMR42bbb // = ~Forget about it. I find you weaker by every word you say; you are just a whore with which I did what I pleased, and nothing more.~
END

IF ~~ THEN BEGIN FIXMR42bbb
	SAY @4428 = @4408 = @4409
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN FIXMR43a
	SAY @4429 = @4430 = @4431
	IF ~~ THEN REPLY @4432 GOTO FIXMR44a
	IF ~~ THEN REPLY @4433 GOTO FIXMRUndesMR
	IF ~~ THEN REPLY @4434 GOTO FIXMR29
	IF ~~ THEN REPLY @4435 GOTO FIXMRMRexit
END

IF ~~ THEN BEGIN FIXMRMRexit
	SAY @4436
	=
	@4437
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END
 
IF ~~ THEN BEGIN FIXMRUndesMR
	SAY @4438
	IF ~~ THEN REPLY @4432 GOTO FIXMR44a
	IF ~~ THEN REPLY @4434 GOTO FIXMR29
	IF ~~ THEN REPLY @4435 GOTO FIXMRMRexit
END

IF ~~ THEN BEGIN FIXMR44a
	SAY @453
	IF ~~ THEN REPLY @4440 GOTO FIXMR46a
	IF ~~ THEN REPLY @4439 GOTO FIXMR45a
END

IF ~~ THEN BEGIN FIXMR45a
	SAY @4441
	=
	@4442
	IF ~~ THEN REPLY @4443 GOTO FIXMR47
	IF ~~ THEN REPLY @4444 GOTO FIXMRMRexit
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5596  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup // = ~(Finally she is at your mercy; now is your chance to hurt her) I am sure you felt much better when that duergar screwed the virginity out of you, you filthy little whore!~
END

IF ~~ THEN BEGIN FIXMR46a
	SAY @4445
	=
	@4446
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END
// 800
IF ~~ THEN BEGIN FIXMR43b
	SAY @4447
	=
	@4430
	=
	@4431
	IF ~~ THEN REPLY @4432 GOTO FIXMR44b
	IF ~~ THEN REPLY @4448 GOTO FIXMRUndesMRb
	IF ~~ THEN REPLY @4434 GOTO FIXMR29
	IF ~~ THEN REPLY @4435 GOTO FIXMRMRexit
END

IF ~~ THEN BEGIN FIXMRUndesMRb
	SAY @4438
	IF ~~ THEN REPLY @4432 GOTO FIXMR44b
	IF ~~ THEN REPLY @4434 GOTO FIXMR29
	IF ~~ THEN REPLY @4435 GOTO FIXMRMRexit
END

IF ~~ THEN BEGIN FIXMR44b
	SAY @453
	IF ~~ THEN REPLY @4440 GOTO FIXMR46b
	IF ~~ THEN REPLY @4439 GOTO FIXMR45b
END

IF ~~ THEN BEGIN FIXMR45b
	SAY @4441
	=
	@4442
	IF ~~ THEN REPLY @4449 GOTO FIXMR47
	IF ~~ THEN REPLY @4444 GOTO FIXMRMRexit
   IF ~Alignment(Player1,MASK_EVIL)~ THEN REPLY @5596  DO ~ActionOverride(Player1,SetDialog("Player1"))~ GOTO youfuckeditup // = ~(Finally she is at your mercy; now is your chance to hurt her) I am sure you felt much better when that duergar screwed the virginity out of you, you filthy little whore!~
END

IF ~~ THEN BEGIN FIXMR46b
	SAY @4445
	=
	@4446
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",4) SetGlobal("NoReturnMR","GLOBAL",1)~
	EXIT
END


IF ~~ THEN BEGIN FIXMR47
	SAY @4450
	=
	@4451
	=
	@4452
	IF ~Race(Player1,HUMAN)~ THEN REPLY @4453 GOTO FIXMR48
	IF ~!Race(Player1,HUMAN)~ THEN REPLY @4453 GOTO FIXMR48b
	IF ~~ THEN REPLY @4454 GOTO FIXMRMRexit
END

IF ~~ THEN BEGIN FIXMR48b
	SAY @4455 = @4456 = @4457 = @4458 = @4459 = @4460
	IF ~~ THEN REPLY @4461 GOTO FIXMR49
	IF ~~ THEN REPLY @4462 GOTO FIXMR49
	IF ~~ THEN REPLY @4463 GOTO FIXMR49
END

IF ~~ THEN BEGIN FIXMR48
	SAY @4455 = @4456 = @4465 = @4466 = @4467 = @4460
	IF ~~ THEN REPLY @4461 GOTO FIXMR49
	IF ~~ THEN REPLY @4462 GOTO FIXMR49
	IF ~~ THEN REPLY @4463 GOTO FIXMR49
END

IF ~~ THEN BEGIN FIXMR49
	SAY @4468 = @4469 = @4470 = @4471 = @4472 = @4473
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",2)
	SetGlobal("WeAreTogetherAtLastMR","GLOBAL",1)
	RealSetGlobalTimer("LUVIMOENMR","GLOBAL",400) ~ EXIT
END


// *** Imoen's Blurry Past ***

IF ~~ THEN BEGIN YIMR1
	SAY @4474 
	IF ~~ THEN REPLY @4475 GOTO YIMR2
END

IF ~~ THEN BEGIN YIMR2
	SAY @4476
	=
	@4477 
	IF ~~ THEN REPLY @4478 GOTO YIMR6
	IF ~~ THEN REPLY @4479 GOTO YIMR5
	IF ~~ THEN REPLY @4480 GOTO YIMR4
	IF ~~ THEN REPLY @4481 GOTO YIMR3
	IF ~~ THEN REPLY @4482 GOTO YIMRsorry
END

IF ~~ THEN BEGIN YIMRsorry
	SAY @4483
	=
	@4484
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN YIMR3
	SAY @4485
	=
	@4484
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN YIMR4
	SAY @4486
	=
	@4484
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN YIMR5
	SAY @4487
	IF ~~ THEN GOTO YIMR7
END

IF ~~ THEN BEGIN YIMR6
	SAY @4488
	IF ~~ THEN GOTO YIMR7
END

IF ~~ THEN BEGIN YIMR7
	SAY @4489
	IF ~~ THEN REPLY @4490 GOTO YIMR9
	IF ~~ THEN REPLY @4491 GOTO YIMR10
	IF ~~ THEN REPLY @4492 GOTO YIMR4
	IF ~~ THEN REPLY @4493 GOTO YIMR8
END

IF ~~ THEN BEGIN YIMR8
	SAY @4494
	=
	@4484
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN YIMR9
	SAY @4495
	IF ~~ THEN REPLY @4491 GOTO YIMR10
	IF ~~ THEN REPLY @4492 GOTO YIMR4
	IF ~~ THEN REPLY @4493 GOTO YIMR8
END

IF ~~ THEN BEGIN YIMR10
	SAY @4496
	=
	@4497
	IF ~~ THEN REPLY @4498 GOTO YIMR12
	IF ~~ THEN REPLY @4499 GOTO YIMR12
	IF ~~ THEN REPLY @4500 GOTO YIMR4
	IF ~~ THEN REPLY @4501 GOTO YIMR8
	IF ~~ THEN REPLY @4502 GOTO YIMR11
END

IF ~~ THEN BEGIN YIMR11
	SAY @4503
	IF ~~ THEN GOTO YIMRsorry
END

IF ~~ THEN BEGIN YIMR12
	SAY @4504
	=
	@4505
	IF ~~ THEN REPLY @4506 GOTO YIMR14
	IF ~~ THEN REPLY @4507 GOTO YIMR15
	IF ~~ THEN REPLY @4508 GOTO YIMR13
	IF ~~ THEN REPLY @4509 GOTO YIMR11
	IF ~~ THEN REPLY @4510 GOTO YIMR8
END

IF ~~ THEN BEGIN YIMR13
	SAY @4511
	=
	@4512
	=
	@4484
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN YIMR14
	SAY @4513
	IF ~~ THEN REPLY @4507 GOTO YIMR15
	IF ~~ THEN REPLY @4508 GOTO YIMR13
	IF ~~ THEN REPLY @4509 GOTO YIMR11
	IF ~~ THEN REPLY @4514 GOTO YIMR8
END

IF ~~ THEN BEGIN YIMR15
	SAY @4515
	IF ~~ THEN REPLY @4516 GOTO YIMR16
	IF ~~ THEN REPLY @4517 GOTO YIMR16
	IF ~~ THEN REPLY @4518 GOTO YIMR13
	IF ~~ THEN REPLY @4519 GOTO YIMR11
	IF ~~ THEN REPLY @4520 GOTO YIMR8
END
	
IF ~~ THEN BEGIN YIMR16
	SAY @4521
	=
	@4522
	IF ~~ THEN REPLY @4523 GOTO YIMR18
	IF ~~ THEN REPLY @4524 GOTO YIMR18
	IF ~~ THEN REPLY @4525 GOTO YIMR18
	IF ~~ THEN REPLY @4526 GOTO YIMR17
END

IF ~~ THEN BEGIN YIMR17
	SAY @4527
	IF ~~ THEN GOTO YIMR8
END

IF ~~ THEN BEGIN YIMR18
	SAY @4528
	IF ~~ THEN REPLY @4529 GOTO YIMR19
	IF ~CheckStatGT(Player1,13,CHR)~ THEN REPLY @4530 GOTO YIMR20
	IF ~!CheckStatGT(Player1,13,CHR)~ THEN REPLY @4531 GOTO YIMR21
	IF ~~ THEN REPLY @4532 GOTO YIMR17
END

IF ~~ THEN BEGIN YIMR19
	SAY @4533
	IF ~~ THEN REPLY @4534 GOTO YIMR24
	IF ~CheckStatGT(Player1,13,CHR)~ THEN REPLY @4535 GOTO YIMR20
	IF ~!CheckStatGT(Player1,13,CHR)~ THEN REPLY @4536 GOTO YIMR21
	IF ~~ THEN REPLY @4532 GOTO YIMR17
END

IF ~~ THEN BEGIN YIMR20
	SAY @4537
	=
	@4538
	=
	@4539
	IF ~~ THEN REPLY @4540 GOTO YIMR23
	IF ~~ THEN REPLY @4541 GOTO YIMR23
	IF ~~ THEN REPLY @4542 GOTO YIMR22
	IF ~~ THEN REPLY @4543 GOTO YIMR24
END

IF ~~ THEN BEGIN YIMR21
	SAY @4544
	=
	@4545
	=
	@4546
	=
	@4547
	=
	@4548
	=
	@4549
	=
	@4550
	=
	@4551
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN YIMR22
	SAY @4552
	=
	@4553
	=
	@4554
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN YIMR23
	SAY @4555
	=
	@4556
	=
	@4557
	=
	@4558
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN YIMR24
	SAY @4559
	=
	@4557
	=
	@4558
	IF ~~ THEN EXIT
END
END

// ***************************Dream Comments with party members*************************** flalala


// ***Jaheira***

APPEND JAHEIRAJ
 IF ~~ THEN BEGIN MRDC2
	SAY @4563
	IF ~~ THEN EXIT
 END

 IF ~~ THEN BEGIN MRDC3
	SAY @4564
	IF ~~ THEN REPLY @4565 GOTO MRDC6
	IF ~~ THEN REPLY @4566 GOTO MRDC7
	IF ~~ THEN REPLY @4567 GOTO MRDC5
	IF ~~ THEN REPLY @4568 GOTO MRDC4
 END

 IF ~~ THEN BEGIN MRDC4
	SAY @4569
	IF ~~ THEN GOTO MRDC8
 END

 IF ~~ THEN BEGIN MRDC5
	SAY @4570
	IF ~~ THEN GOTO MRDC8
 END

 IF ~~ THEN BEGIN MRDC6
	SAY @4571
	IF ~~ THEN GOTO MRDC11
 END

 IF ~~ THEN BEGIN MRDC7
	SAY @4572
	IF ~~ THEN GOTO MRDC11
 END

 IF ~~ THEN BEGIN MRDC8
	SAY @4573
	IF ~~ THEN REPLY @4574 GOTO MRDC10
	IF ~~ THEN REPLY @4575 GOTO MRDC9 // 97
END 

IF ~~ THEN BEGIN MRDC9
	SAY @4576
	=
	@4577
	=
	@4578
	=
	@4579
	=
	@4580
	IF ~~ THEN DO ~SetGlobal("JaheiraRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN MRDC10
	SAY @4581
	=
	@4582
	=
	@4583
	IF ~~ THEN GOTO MRDC11
END // 121

IF ~~ THEN BEGIN MRDC11
	SAY @4584
	IF ~~ THEN REPLY @4585 GOTO MRDC17
	IF ~~ THEN REPLY @4586 GOTO MRDC14
	IF ~~ THEN REPLY @4587 GOTO MRDC12
	IF ~~ THEN REPLY @4588 GOTO MRDC13
END

IF ~~ THEN BEGIN MRDC12
	SAY @4589
	=
	@4590
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC13
	SAY @4591
	=
	@4592
	=
	@4593
	IF ~~ THEN REPLY @4594 GOTO MRDC14
	IF ~~ THEN REPLY @4595 GOTO MRDC12
	IF ~~ THEN REPLY @4596 GOTO MRDC17
END

IF ~~ THEN BEGIN MRDC14
	SAY @4597
	IF ~~ THEN REPLY @4598 GOTO MRDC15
	IF ~~ THEN REPLY @4587 GOTO MRDC12
END

IF ~~ THEN BEGIN MRDC15
	SAY @4599
	IF ~~ THEN REPLY @4600 GOTO MRDC17
	IF ~~ THEN REPLY @4601 GOTO MRDC16
	IF ~~ THEN REPLY @4602 GOTO MRDC12
END

IF ~~ THEN BEGIN MRDC16
	SAY @4603
	=
	@4604
	=
	@4605
	=
	@4606
	=
	@4607
	=
	@4608
	=
	@4609 
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC17
	SAY @4610
	=
	@4611
	=
	@4612
	=
	@4613
	=
	@4614
	IF ~~ THEN REPLY @4615 DO ~SetGlobal("JaheiraRomanceActive","GLOBAL",3)~ GOTO MRDC22
	IF ~~ THEN REPLY @4616 GOTO MRDC21
	IF ~~ THEN REPLY @4617 GOTO MRDC20
	IF ~~ THEN REPLY @4618 GOTO MRDC19
	IF ~~ THEN REPLY @4619 GOTO MRDC18
	IF ~~ THEN REPLY @4620 GOTO MRDC9
END

IF ~~ THEN BEGIN MRDC18
	SAY @4621
	=
	@4622
	=
	@4623
	IF ~~ THEN DO ~SetGlobal("JaheiraRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN MRDC19
	SAY @4624
	=
	@4625
	IF ~~ THEN GOTO MRDCFinish
END

IF ~~ THEN BEGIN MRDC20
	SAY @4626
	IF ~~ THEN GOTO MRDCFinish
END

IF ~~ THEN BEGIN MRDC21
	SAY @4627
	IF ~~ THEN GOTO MRDCFinish
END

IF ~~ THEN BEGIN MRDC22
	SAY @4628
	=
	@4629
	IF ~~ THEN GOTO MRDCFinish
END

IF ~~ THEN BEGIN MRDCFinish
	SAY @4630
	=
	@4631
	IF ~~ THEN EXIT
END
END



// ***Viconia***


APPEND VICONIJ
IF WEIGHT #999
~Global("MRDC7Thing","GLOBAL",1)~ THEN BEGIN MRDC8
	SAY @225
	IF ~~ THEN DO ~SetGlobal("MRDC7Thing","GLOBAL",2) ActionOverride(Player1,SetDialog("Player1"))~ GOTO MRDC8pet
	END



IF ~~ THEN BEGIN MRDC1a
	SAY @4634
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC2
	SAY @4635
	IF ~~ THEN REPLY @4636 GOTO MRDC5
	IF ~~ THEN REPLY @4637 GOTO MRDC6
	IF ~~ THEN REPLY @4638 GOTO MRDC7 // 221
	IF ~~ THEN REPLY @4639 GOTO MRDC3
	IF ~~ THEN REPLY @4640 GOTO MRDC4
END

IF ~~ THEN BEGIN MRDC3
	SAY @4641
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC4
	SAY @4642
	=
	@4643
	IF ~~ THEN DO ~SetGlobal("ViconiaRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN MRDC5
	SAY @4644
	=
	@4645
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC6
	SAY @4644
	=
	@4646
	IF ~~ THEN REPLY @4647 GOTO MRDC4
	IF ~~ THEN REPLY @4648 GOTO MRDC10
	IF ~~ THEN REPLY @4649 GOTO MRDC11 // 290
	IF ~~ THEN REPLY @4650 GOTO MRDC9
END

IF ~~ THEN BEGIN MRDC9 
	SAY @4651
	IF ~~ THEN REPLY @4652 GOTO MRDC4
	IF ~~ THEN REPLY @4648 GOTO MRDC10
	IF ~~ THEN REPLY @4653 GOTO MRDC11 // 299
END

IF ~~ THEN BEGIN MRDC10
	SAY @4654
	IF ~~ THEN GOTO MRDC12
END

IF ~~ THEN BEGIN MRDC11
	SAY @4655
	=
	@4656
	IF ~~ THEN GOTO MRDC12
END

IF ~~ THEN BEGIN MRDC12
	SAY @4657
	IF ~~ THEN REPLY @4658 GOTO MRDC15
	IF ~CheckStatGT(Player1,11,WIS)~ THEN REPLY @4659 GOTO MRDC16
	IF ~~ THEN REPLY @4660 GOTO MRDC14
	IF ~~ THEN REPLY @4661 GOTO MRDC13
END

IF ~~ THEN BEGIN MRDC13
	SAY @4662
	=
	@4663
	=
	@4664
	IF ~~ THEN DO ~SetGlobal("ViconiaRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN MRDC14
	SAY @4665
	=
	@4666
	=
	@4667
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC15
	SAY @4668
	=
	@4669
	=
	@4670
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC16
	SAY @4671
	=
	@4672
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC7
	SAY @4673
	=
	@4674
	=
	@453
	=
	@4675
	=
	@4676
	IF ~~ THEN DO ~RealSetGlobalTimer("MRDC7timer","GLOBAL",300)~ EXIT
END

IF ~~ THEN BEGIN MRDC8pet
	SAY @4677
	IF ~~ THEN REPLY @4678 GOTO MRDC18
	IF ~~ THEN REPLY @4679 GOTO MRDC19 // 375
	IF ~~ THEN REPLY @4680 GOTO MRDC17
	IF ~~ THEN REPLY @4681 GOTO MRDC4
END

IF ~~ THEN BEGIN MRDC17
	SAY @4682
	=
	@4683
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC18
	SAY @4684
	IF ~~ THEN REPLY @4679 GOTO MRDC19
	IF ~~ THEN REPLY @4680 GOTO MRDC17
	IF ~~ THEN REPLY @4685 GOTO MRDC4
END

IF ~~ THEN BEGIN MRDC19
	SAY @4686
	IF ~~ THEN REPLY @4687 GOTO MRDC26
	IF ~~ THEN REPLY @4688 GOTO MRDC21
	IF ~~ THEN REPLY @4689 GOTO MRDC20
	IF ~~ THEN REPLY @4690 GOTO MRDC17
END

IF ~~ THEN BEGIN MRDC20
	SAY @4691
	=
	@4692
	=
	@4693
	=
	@4694
	IF ~~ THEN GOTO MRDC12
END

IF ~~ THEN BEGIN MRDC21
	SAY @4695
	IF ~~ THEN REPLY @4696 GOTO MRDC22
	IF ~~ THEN REPLY @4697 GOTO MRDC22
	IF ~~ THEN REPLY @4698 GOTO MRDC23
	IF ~~ THEN REPLY @4699 GOTO MRDC24
	IF ~~ THEN REPLY @4700 GOTO MRDC4
END

IF ~~ THEN BEGIN MRDC22
	SAY @4701
	=
	@4702
	=
	@4703
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC23
	SAY @4704
	=
	@4705
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC24
	SAY @4706
	=
	@4707
	IF ~~ THEN REPLY @4708 GOTO MRDC25
	IF ~~ THEN REPLY @4709 GOTO MRDC25
	IF ~~ THEN REPLY @4710 GOTO MRDC25
END

IF ~~ THEN BEGIN MRDC25
	SAY @4711
	IF ~~ THEN DO ~SetGlobal("ViconiaRomanceActive","GLOBAL",3)~
	EXIT
END

IF ~~ THEN BEGIN MRDC26
	SAY @4712
	IF ~~ THEN REPLY @4713 GOTO MRDC21
	IF ~~ THEN REPLY @4714 GOTO MRDC28
	IF ~~ THEN REPLY @4715 GOTO MRDC21
	IF ~~ THEN REPLY @4716 GOTO MRDC11
	IF ~~ THEN REPLY @4717 GOTO MRDC27
END

IF ~~ THEN BEGIN MRDC27
	SAY @4718
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC28
	SAY @4719
	IF ~~ THEN REPLY @4720 GOTO MRDC21
	IF ~~ THEN REPLY @4721 GOTO MRDC11
	IF ~~ THEN REPLY @4722 GOTO MRDC27
END
END


// *** SPEAKING ABOUT THE DREAMS WITH COMPANIONS ***

// ***Aerie***

APPEND AERIEJ


IF ~~ THEN BEGIN MRDC1a
	SAY @4725
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC2
	SAY @4726
	=
	@4727
	IF ~~ THEN REPLY @4728 GOTO MRDC3
	IF ~~ THEN REPLY @4729 GOTO MRDC3
	IF ~~ THEN REPLY @4730 GOTO MRDC3
	IF ~~ THEN REPLY @4731 GOTO MRDC1a
END

IF ~~ THEN BEGIN MRDC3
	SAY @4732
	IF ~~ THEN REPLY @4733 GOTO MRDC11
	IF ~~ THEN REPLY @4734 GOTO MRDC13
	IF ~Gender(Player1,MALE)~ THEN REPLY @4735 GOTO MRDC5
	IF ~Gender(Player1,FEMALE)~ THEN REPLY @4735 GOTO MRDC5b
	IF ~~ THEN REPLY @4736 GOTO MRDC4
	IF ~~ THEN REPLY @4737 GOTO MRDC1a
END

IF ~~ THEN BEGIN MRDC4
	SAY @4738
	=
	@4739
	IF ~~ THEN REPLY @4740 GOTO MRDC10
	IF ~~ THEN REPLY @4741 GOTO MRDC9
	IF ~~ THEN REPLY @4742 GOTO MRDC8
	IF ~~ THEN REPLY @4743 GOTO MRDC7
	IF ~InParty("Viconia")~ THEN REPLY @4744 GOTO MRDC6
	IF ~!InParty("Viconia")~ THEN REPLY @4744 GOTO MRDC6b
END

IF ~~ THEN BEGIN MRDC5
	SAY @4738
	=
	@4745
	IF ~~ THEN REPLY @4740 GOTO MRDC10
	IF ~~ THEN REPLY @4741 GOTO MRDC9
	IF ~~ THEN REPLY @4742 GOTO MRDC8
	IF ~~ THEN REPLY @4746 GOTO MRDC7
	IF ~InParty("Viconia")~ THEN REPLY @4747 GOTO MRDC6
	IF ~!InParty("Viconia")~ THEN REPLY @4747 GOTO MRDC6b
END

IF ~~ THEN BEGIN MRDC5b
	SAY @4738
	=
	@4748
	IF ~~ THEN REPLY @4740 GOTO MRDC10
	IF ~~ THEN REPLY @4741 GOTO MRDC9
	IF ~~ THEN REPLY @4742 GOTO MRDC8
	IF ~~ THEN REPLY @4749 GOTO MRDC7
	IF ~InParty("Viconia")~ THEN REPLY @4747 GOTO MRDC6
	IF ~!InParty("Viconia")~ THEN REPLY @4747 GOTO MRDC6b
END

IF ~~ THEN BEGIN MRDC6
	SAY @4750
	=
	@4751
	=
	@4752
	=
	@4753
	IF ~~ THEN DO ~SetGlobal("AerieRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN MRDC6b
	SAY @4750
	=
	@4754
	=
	@4755
	=
	@4753
	IF ~~ THEN DO ~SetGlobal("AerieRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN MRDC7
	SAY @4750
	=
	@4756
	=
	@4757
	=
	@4753
	IF ~~ THEN DO ~SetGlobal("AerieRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN MRDC8
	SAY @4750
	=
	@4758
	=
	@4755
	=
	@4753
	IF ~~ THEN DO ~SetGlobal("AerieRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN MRDC9
	SAY @4759
	=
	@4760
	IF ~~ THEN GOTO MRDC13
END

IF ~~ THEN BEGIN MRDC10
	SAY @4759
	=
	@4760
	IF ~~ THEN GOTO MRDC11
END

IF ~~ THEN BEGIN MRDC11
	SAY @4761
	=
	@4762
	IF ~~ THEN REPLY @4763 GOTO MRDC13
	IF ~~ THEN REPLY @4714 GOTO MRDC12
	IF ~~ THEN REPLY @4764 GOTO MRDC11d
	IF ~~ THEN REPLY @4765 GOTO MRDC11c
	IF ~~ THEN REPLY @4766 GOTO MRDC11b
	IF ~~ THEN REPLY @4767 GOTO MRDC11a
END

IF ~~ THEN BEGIN MRDC11a
	SAY @4768
	=
	@4769
	=
	@4770
	IF ~~ THEN DO ~SetGlobal("AerieRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN MRDC11b
	SAY @4771
	IF ~~ THEN REPLY @4772 GOTO MRDC13
	IF ~~ THEN REPLY @4773 GOTO MRDC12 
	IF ~~ THEN REPLY @4764 GOTO MRDC11d
	IF ~~ THEN REPLY @4765 GOTO MRDC11c
	IF ~~ THEN REPLY @4774 GOTO MRDC1a
END

IF ~~ THEN BEGIN MRDC11c
	SAY @4775
	=
	@4776
	IF ~~ THEN REPLY @4777 GOTO MRDC11e
	IF ~~ THEN REPLY @4742 GOTO MRDC8
	IF ~~ THEN REPLY @4746 GOTO MRDC7
	IF ~InParty("Viconia")~ THEN REPLY @4747 GOTO MRDC6
	IF ~!InParty("Viconia")~ THEN REPLY @4747 GOTO MRDC6b
END

IF ~~ THEN BEGIN MRDC11d
	SAY @4778
	=
	@4776
	IF ~~ THEN REPLY @4777 GOTO MRDC11e
	IF ~~ THEN REPLY @4742 GOTO MRDC8
	IF ~~ THEN REPLY @4743 GOTO MRDC7
	IF ~InParty("Viconia")~ THEN REPLY @4779 GOTO MRDC6
	IF ~!InParty("Viconia")~ THEN REPLY @4779 GOTO MRDC6b
END

IF ~~ THEN BEGIN MRDC11e
	SAY @4780
	=
	@4781
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC12
	SAY @4782
	=
	@4783
	=
	@4784
	=
	@4785
	IF ~~ THEN REPLY @4786 GOTO MRDC12b
	IF ~~ THEN REPLY @4787 GOTO MRDC13
	IF ~~ THEN REPLY @4788 GOTO MRDC12a
	IF ~~ THEN REPLY @4789 GOTO MRDC11d
	IF ~~ THEN REPLY @4790 GOTO MRDC11c
	IF ~~ THEN REPLY @4791 GOTO MRDC11a
END

IF ~~ THEN BEGIN MRDC12a
	SAY @4792
	=
	@4793
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC12b
	SAY @4794
	=
	@4795
	IF ~~ THEN REPLY @4796 GOTO MRDC13
	IF ~~ THEN REPLY @4797 GOTO MRDC12a
	IF ~~ THEN REPLY @4789 GOTO MRDC11d
	IF ~~ THEN REPLY @4790 GOTO MRDC11c
END

IF ~~ THEN BEGIN MRDC13
	SAY @4798
	=
	@4799
	=
	@4800
	IF ~~ THEN REPLY @4801 GOTO MRDC17
	IF ~~ THEN REPLY @4802 GOTO MRDC16
	IF ~~ THEN REPLY @4803 GOTO MRDC15
	IF ~~ THEN REPLY @4804 GOTO MRDC15
	IF ~~ THEN REPLY @4805 GOTO MRDC14
END

IF ~~ THEN BEGIN MRDC14
	SAY @4806
	=
	@4807	
	=
	@4808
	=
	@4809
	IF ~~ THEN DO ~GivePartyAllEquipment()
	ReputationInc(-2) ActionOverride(Player1,ApplySpellRES("SPMRACNE",Player1)) 
	LeaveParty()
	EscapeArea()~
	EXIT
END

IF ~~ THEN BEGIN MRDC15
	SAY @4810
	=
	@4811
	IF ~~ THEN DO ~SetGlobal("AerieRomanceActive","GLOBAL",3)~ EXIT
END

IF ~~ THEN BEGIN MRDC16
	SAY @2691
	=
	@4812
	=
	@4813
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRDC17
	SAY @4814
	=
	@4813
	IF ~~ THEN EXIT
END
END


// ******************************************************************************************************************
// 900
// *** Talking directly to Imoen ***



APPEND IMOEN2J
IF WEIGHT #999
~HPPercentGT("Imoen2",95)
!Global("ImoenRomanceActive","GLOBAL",3)
!IsGabber("Imoen2")
GlobalGT("Chapter","GLOBAL",1)~
THEN BEGIN SelfIni0
	SAY @4815
	IF ~IsGabber(Player1) 
		Global("ImoenRomanceActive","GLOBAL",3) 
		Global("NormalApologyMR","GLOBAL",1)~ THEN REPLY @4816 DO ~SetGlobal("NormalApologyMR","GLOBAL",2)~ GOTO Apology1
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	IsGabber(Player1)
	    Global("DreamTalk22MR","GLOBAL",0) 
	    Global("HadImoenDreamRomance2","GLOBAL",1)~ THEN REPLY @4817 DO ~SetGlobal("DreamTalk22MR","GLOBAL",1)~ GOTO FIXMR1
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	    Global("DreamTalk22MR","GLOBAL",0) 
    	    IsGabber(Player1)
	    Global("HadImoenDreamRomance2","GLOBAL",1)~ THEN REPLY @4818 DO ~SetGlobal("DreamTalk22MR","GLOBAL",1)~ GOTO FIXMR2
	IF ~Global("FirstAttemptMR","GLOBAL",1)~ THEN REPLY @4819 DO ~SetGlobal("FirstAttemptMR","GLOBAL",2)~ GOTO FIXMR1
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
            Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO FIXMR27

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
            Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO takemesomewheregreen2

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
            !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO takemesomewheregreen
     
     	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player2) OR(5) AreaType(CITY) IsValidForPartyDialog(Player3)
            IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
            THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player3) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player4) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player5) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player6) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("10YearsImoenMR","GLOBAL",1)
    	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4821 DO ~SetGlobal("10YearsImoenMR","GLOBAL",2)~ GOTO YIMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR0
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR2
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR3
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR4
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR5
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    !Global("GotMadAlreadyMR","GLOBAL",1)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    CombatCounter(0)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    !Global("DoNotRepeatSpellholdMR","GLOBAL",1)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) SetGlobal("GotMadAlreadyMR","GLOBAL",1) SetGlobal("DoNotRepeatSpellholdMR","GLOBAL",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR6
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR7
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR8
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    Gender(Player1,MALE)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR9
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    Gender(Player1,FEMALE)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR9fem
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR10
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300)~ GOTO LUVMR11
	IF ~Global("SlayerDreamMR","GLOBAL",1)
    	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4823 DO ~SetGlobal("SlayerDreamMR","GLOBAL",2) SetGlobal("AskVoiceMR","GLOBAL",1)~ GOTO SLMR1
	IF ~Global("SlayerDreamMR","GLOBAL",1)
    	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4823 DO ~SetGlobal("SlayerDreamMR","GLOBAL",2) SetGlobal("AskVoiceMR","GLOBAL",1)~ GOTO SLMR1annoyed
	IF ~Global("AskVoiceMR","GLOBAL",1)
    	    IsGabber(Player1)~ THEN REPLY @4824 DO ~SetGlobal("AskVoiceMR","GLOBAL",2)~ GOTO VOMR1
	IF ~~ THEN REPLY @4825 GOTO MRScriptFix
	IF ~Global("MessyReplyMR","GLOBAL",1)
	    !Global("InnerThoughtMR","GLOBAL",1)
	!AreaCheck("AR0801")
	!AreaCheck("AR0803")
	!Dead("C6BODHI")
    	    IsGabber(Player1)~ THEN REPLY @4820 GOTO FIXMRMessyReplyMR1
		IF ~OR(2) G("MessyReplyMR",1) G("MessyReplyMR",2)
	    !Global("InnerThoughtMR","GLOBAL",1)
	!AreaCheck("AR0801")
	!AreaCheck("AR0803")
	Dead("C6BODHI")
	!G("BodhiDead",1)
    	    IsGabber(Player1)~ THEN REPLY @4820 GOTO FIXMRMessyReplyMR1NYACHA
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
    	    IsGabber(Player1)
	     Global("AskSoulMR","GLOBAL",1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",3)
    	    IsGabber(Player1)
	    Global("AskSoulMR","GLOBAL",1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1annoyed
	IF ~Global("AskSoulMR","GLOBAL",3)
    	    IsGabber(Player1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1again
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",2)
	!Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4827 GOTO SUMR1
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	OR(2)
	Global("ImoenRomanceActive","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",4)
	!Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4828 GOTO SUMR1b
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4827 GOTO SUMR1c
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	OR(2)
	Global("ImoenRomanceActive","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",4)
	Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4828 GOTO SUMR1c
	IF ~~ THEN REPLY @4829 GOTO FIXMRDialogueExitMR
	IF ~!HPPercentGT(Player1,90)
    	    IsGabber(Player1)
	     HPPercentGT(Player1,70)~ THEN GOTO WTMR14
	IF ~!HPPercentGT(Player1,70)
    	    IsGabber(Player1)
	     HPPercentGT(Player1,35)~ THEN GOTO WTMR13
	IF ~!HPPercentGT(Player1,35)
    	    IsGabber(Player1)
	     HPPercentGT(Player1,8)~ THEN GOTO WTMR12
	IF ~!HPPercentGT(Player1,8)
    	    IsGabber(Player1)
~ THEN GOTO WTMR11
 END

IF ~~ THEN BEGIN SUMR7f
	SAY @4830
	IF ~Global("PinkyMR","GLOBAL",0)~ THEN REPLY @4831 GOTO SUMR7g
	IF ~GlobalGT("PinkyMR","GLOBAL",0)~ THEN REPLY @4831 GOTO SUMR7g2
	IF ~~ THEN REPLY @1038 EXIT
END


IF ~~ THEN BEGIN SelfIniAWT
	SAY @4832
	=
	@4833
	IF ~IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)
	Global("NormalApologyMR","GLOBAL",1)~ THEN REPLY @4816 DO ~SetGlobal("NormalApologyMR","GLOBAL",2)~ GOTO Apology1
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	IsGabber(Player1)
	    Global("DreamTalk22MR","GLOBAL",0) 
	    Global("HadImoenDreamRomance2","GLOBAL",1)~ THEN REPLY @4817 DO ~SetGlobal("DreamTalk22MR","GLOBAL",1)~ GOTO FIXMR1
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	    Global("DreamTalk22MR","GLOBAL",0) 
    	    IsGabber(Player1)
	    Global("HadImoenDreamRomance2","GLOBAL",1)~ THEN REPLY @4818 DO ~SetGlobal("DreamTalk22MR","GLOBAL",1)~ GOTO FIXMR2
	IF ~Global("FirstAttemptMR","GLOBAL",1)~ THEN REPLY @4819 DO ~SetGlobal("FirstAttemptMR","GLOBAL",2)~ GOTO FIXMR1
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
            Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO FIXMR27

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
            Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO takemesomewheregreen2

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
            !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO takemesomewheregreen
     
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player2) OR(5) AreaType(CITY) IsValidForPartyDialog(Player3)
            IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
            THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player3) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player4) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player5) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player6) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("10YearsImoenMR","GLOBAL",1)
    	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4821 DO ~SetGlobal("10YearsImoenMR","GLOBAL",2)~ GOTO YIMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR0
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR2
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR3
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR4
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR5
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    !Global("GotMadAlreadyMR","GLOBAL",1)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    CombatCounter(0)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    !Global("DoNotRepeatSpellholdMR","GLOBAL",1)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) SetGlobal("GotMadAlreadyMR","GLOBAL",1) SetGlobal("DoNotRepeatSpellholdMR","GLOBAL",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR6
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR7
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR8
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    Gender(Player1,MALE)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR9
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    Gender(Player1,FEMALE)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR9fem
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR10
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300)~ GOTO LUVMR11
	IF ~Global("SlayerDreamMR","GLOBAL",1)
    	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4823 DO ~SetGlobal("SlayerDreamMR","GLOBAL",2) SetGlobal("AskVoiceMR","GLOBAL",1)~ GOTO SLMR1
	IF ~Global("SlayerDreamMR","GLOBAL",1)
    	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4823 DO ~SetGlobal("SlayerDreamMR","GLOBAL",2) SetGlobal("AskVoiceMR","GLOBAL",1)~ GOTO SLMR1annoyed
	IF ~Global("AskVoiceMR","GLOBAL",1)
    	    IsGabber(Player1)~ THEN REPLY @4824 DO ~SetGlobal("AskVoiceMR","GLOBAL",2)~ GOTO VOMR1
	IF ~~ THEN REPLY @4825 GOTO MRScriptFix
	IF ~Global("MessyReplyMR","GLOBAL",1)
 	    !Global("InnerThoughtMR","GLOBAL",1)
	!AreaCheck("AR0801")
	!Dead("C6BODHI")
	!AreaCheck("AR0803")
   	    IsGabber(Player1)~ THEN REPLY @4820 GOTO FIXMRMessyReplyMR1
		IF ~GGT("MessyReplyMR",0)
	    !Global("InnerThoughtMR","GLOBAL",1)
	!AreaCheck("AR0801")
	!AreaCheck("AR0803")
	Dead("C6BODHI")
	!G("BodhiDead",1)
    	    IsGabber(Player1)~ THEN REPLY @4820 GOTO FIXMRMessyReplyMR1NYACHA
IF ~!Global("ImoenRomanceActive","GLOBAL",3)
    	    IsGabber(Player1)
	     Global("AskSoulMR","GLOBAL",1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",3)
    	    IsGabber(Player1)
	    Global("AskSoulMR","GLOBAL",1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1annoyed
	IF ~Global("AskSoulMR","GLOBAL",3)
    	    IsGabber(Player1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1again
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",2)
	!Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4827 GOTO SUMR1
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	OR(2)
	Global("ImoenRomanceActive","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",4)
	!Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4828 GOTO SUMR1b
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4827 GOTO SUMR1c
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	OR(2)
	Global("ImoenRomanceActive","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",4)
	Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4828 GOTO SUMR1c
	IF ~~ THEN REPLY @4829 GOTO FIXMRDialogueExitMR
END

IF ~~ THEN BEGIN SelfIniAWT2
	SAY @4835
	IF ~IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)
	Global("NormalApologyMR","GLOBAL",1)~ THEN REPLY @4816 DO ~SetGlobal("NormalApologyMR","GLOBAL",2)~ GOTO Apology1
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	IsGabber(Player1)
	    Global("DreamTalk22MR","GLOBAL",0) 
	    Global("HadImoenDreamRomance2","GLOBAL",1)~ THEN REPLY @4817 DO ~SetGlobal("DreamTalk22MR","GLOBAL",1)~ GOTO FIXMR1
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	    Global("DreamTalk22MR","GLOBAL",0) 
    	    IsGabber(Player1)
	    Global("HadImoenDreamRomance2","GLOBAL",1)~ THEN REPLY @4818 DO ~SetGlobal("DreamTalk22MR","GLOBAL",1)~ GOTO FIXMR2
	IF ~Global("FirstAttemptMR","GLOBAL",1)~ THEN REPLY @4819 DO ~SetGlobal("FirstAttemptMR","GLOBAL",2)~ GOTO FIXMR1
 	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
            Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO FIXMR27

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
            Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO takemesomewheregreen2

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
            !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO takemesomewheregreen
     
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player2) OR(5) AreaType(CITY) IsValidForPartyDialog(Player3)
            IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
            THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player3) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player4) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player5) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player6) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("10YearsImoenMR","GLOBAL",1)
    	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4821 DO ~SetGlobal("10YearsImoenMR","GLOBAL",2)~ GOTO YIMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR0
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR2
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR3
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR4
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR5
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    !Global("GotMadAlreadyMR","GLOBAL",1)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    CombatCounter(0)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    !Global("DoNotRepeatSpellholdMR","GLOBAL",1)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) SetGlobal("GotMadAlreadyMR","GLOBAL",1) SetGlobal("DoNotRepeatSpellholdMR","GLOBAL",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR6
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
    	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR7
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR8
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    Gender(Player1,MALE)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR9
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    Gender(Player1,FEMALE)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR9fem
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR10
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300)~ GOTO LUVMR11
	IF ~Global("SlayerDreamMR","GLOBAL",1)
    	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4823 DO ~SetGlobal("SlayerDreamMR","GLOBAL",2) SetGlobal("AskVoiceMR","GLOBAL",1)~ GOTO SLMR1
	IF ~Global("SlayerDreamMR","GLOBAL",1)
    	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4823 DO ~SetGlobal("SlayerDreamMR","GLOBAL",2) SetGlobal("AskVoiceMR","GLOBAL",1)~ GOTO SLMR1annoyed
	IF ~Global("AskVoiceMR","GLOBAL",1)
    	    IsGabber(Player1)~ THEN REPLY @4824 DO ~SetGlobal("AskVoiceMR","GLOBAL",2)~ GOTO VOMR1
	IF ~~ THEN REPLY @4825 GOTO MRScriptFix
	IF ~Global("MessyReplyMR","GLOBAL",1)
 	    !Global("InnerThoughtMR","GLOBAL",1)
	!AreaCheck("AR0801")
	!Dead("C6BODHI")
	!AreaCheck("AR0803")
   	    IsGabber(Player1)~ THEN REPLY @4820 GOTO FIXMRMessyReplyMR1
		IF ~OR(2) G("MessyReplyMR",1) G("MessyReplyMR",2)
	    !Global("InnerThoughtMR","GLOBAL",1)
	!AreaCheck("AR0801")
	!AreaCheck("AR0803")
	Dead("C6BODHI")
	!G("BodhiDead",1)
    	    IsGabber(Player1)~ THEN REPLY @4820 GOTO FIXMRMessyReplyMR1NYACHA
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
    	    IsGabber(Player1)
	     Global("AskSoulMR","GLOBAL",1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",3)
    	    IsGabber(Player1)
	    Global("AskSoulMR","GLOBAL",1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1annoyed
	IF ~Global("AskSoulMR","GLOBAL",3)
    	    IsGabber(Player1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1again
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",2)
	!Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4827 GOTO SUMR1
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	OR(2)
	Global("ImoenRomanceActive","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",4)
	!Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4828 GOTO SUMR1b
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4827 GOTO SUMR1c
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
    	    IsGabber(Player1)
	OR(2)
	Global("ImoenRomanceActive","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",4)
	Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4828 GOTO SUMR1c
	IF ~~ THEN REPLY @4829 GOTO FIXMRDialogueExitMR
END


IF WEIGHT #999
~HPPercentLT("Imoen2",96)
 !IsGabber("Imoen2")
     HPPercentGT("Imoen2",70)
!Global("ImoenRomanceActive","GLOBAL",3)
GlobalGT("Chapter","GLOBAL",1)~
THEN BEGIN SelfIni1
	SAY @4815 // 1000
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	    IsGabber(Player1)
	    Global("DreamTalk22MR","GLOBAL",0) 
	    Global("HadImoenDreamRomance2","GLOBAL",1)~ THEN REPLY @4836 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
            Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4837 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4837 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4837 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4837 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4837 GOTO MRH13

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
            Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO MRH13

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
            !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO MRH13

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player2) OR(5) AreaType(CITY) IsValidForPartyDialog(Player3)
            IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
            THEN REPLY @4837 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player3) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4837 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player4) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4837 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player5) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4837 GOTO MRH13
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player6) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4837 GOTO MRH13
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	    CombatCounter(0)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @4838 GOTO MRH13 // 1051
	IF ~Global("MessyReplyMR","GLOBAL",1)
	    !Global("InnerThoughtMR","GLOBAL",1)
	!AreaCheck("AR0801")
	!AreaCheck("AR0803")
	    IsGabber(Player1)~ THEN REPLY @4837 GOTO MRH13
		IF ~OR(2) G("MessyReplyMR",1) G("MessyReplyMR",2)
	    !Global("InnerThoughtMR","GLOBAL",1)
	!AreaCheck("AR0801")
	!AreaCheck("AR0803")
	Dead("C6BODHI")
	!G("BodhiDead",1)
    	    IsGabber(Player1)~ THEN REPLY @4820 GOTO MRH13
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4839 GOTO MRH13
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4839 GOTO MRH13
	IF ~Global("AskSoulMR","GLOBAL",1)
	    IsGabber(Player1)~ THEN REPLY @4840 GOTO MRH13
	IF ~~ THEN REPLY @4841 GOTO MRH13
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",2)
	!Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4827 GOTO SUMR1
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	OR(2)
	Global("ImoenRomanceActive","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",4)
	!Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4828 GOTO SUMR1b
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4827 GOTO SUMR1c
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	OR(2)
	Global("ImoenRomanceActive","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",4)
	Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4828 GOTO SUMR1c
	IF ~~ THEN REPLY @4829 GOTO FIXMRDialogueExitMR
	IF ~!HPPercentGT(Player1,90)
	    IsGabber(Player1)
	     HPPercentGT(Player1,70)~ THEN GOTO WTMR14
	IF ~!HPPercentGT(Player1,70)
	    IsGabber(Player1)
	     HPPercentGT(Player1,35)~ THEN GOTO WTMR13
	IF ~!HPPercentGT(Player1,35)
	    IsGabber(Player1)
	     HPPercentGT(Player1,8)~ THEN GOTO WTMR12
	IF ~!HPPercentGT(Player1,8) 
	    IsGabber(Player1)~ THEN GOTO WTMR11
 END

IF WEIGHT #999
~HPPercentLT("Imoen2",71)
 !IsGabber("Imoen2")
     HPPercentGT("Imoen2",50)
!Global("ImoenRomanceActive","GLOBAL",3)
GlobalGT("Chapter","GLOBAL",1)~
THEN BEGIN SelfIni2
	SAY @4842
	=
	@4843
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	    IsGabber(Player1)
	    Global("DreamTalk22MR","GLOBAL",0) 
	    Global("HadImoenDreamRomance2","GLOBAL",1)~ THEN REPLY @4844 GOTO MRH8
	IF ~Global("FirstAttemptMR","GLOBAL",1)
	    IsGabber(Player1)~ THEN REPLY @4845 GOTO MRH8
	IF ~Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	    Global("InnerThoughtMR","GLOBAL",1)~ THEN REPLY @4846 GOTO MRH8
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    CombatCounter(0)
	    Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @4847 GOTO MRH9
	IF ~Global("MessyReplyMR","GLOBAL",1)
	    IsGabber(Player1)~ THEN REPLY @4846 GOTO MRH8
	IF ~~ THEN REPLY @4848 GOTO MRH10
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4849 GOTO MRH8
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4849 GOTO MRH8
	IF ~Global("AskSoulMR","GLOBAL",1)
	    IsGabber(Player1)~ THEN REPLY @4850 GOTO MRH8
	IF ~~ THEN REPLY @4851 GOTO MRH11
	IF ~~ THEN REPLY @4852 GOTO MRH12
 END

IF WEIGHT #999
~HPPercentLT("Imoen2",51)
 !IsGabber("Imoen2")
     HPPercentGT("Imoen2",30)
     GlobalGT("Chapter","GLOBAL",1)~
THEN BEGIN SelfIni3
	SAY @4853
	IF ~Global("ImoenRomanceActive","GLOBAL",1)
	    IsGabber(Player1)
	    Global("DreamTalk22MR","GLOBAL",0)~ THEN REPLY @4854 GOTO MRH3
	IF ~Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	    Global("InnerThoughtMR","GLOBAL",1)~ THEN REPLY @4855 GOTO MRH3
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    CombatCounter(0)
	    Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @4856 GOTO MRH4
	IF ~~ THEN REPLY @4857 GOTO MRH5
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4849 GOTO MRH3
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4849 GOTO MRH3
	IF ~Global("AskSoulMR","GLOBAL",1)
	    IsGabber(Player1)~ THEN REPLY @4850 GOTO MRH3
	IF ~~ THEN REPLY @4858 GOTO MRH6
	IF ~~ THEN REPLY @4859 GOTO MRH7
	IF ~HPPercentLT(Player1,51)
	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN GOTO SelfIni3wound
END

IF ~~ THEN BEGIN SelfIni3wound
	SAY @4860
	IF ~Global("ImoenRomanceActive","GLOBAL",1)
	    IsGabber(Player1)
	    Global("DreamTalk22MR","GLOBAL",0)~ THEN REPLY @4861 GOTO MRH3
	IF ~Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	    Global("InnerThoughtMR","GLOBAL",1)~ THEN REPLY @4862 GOTO MRH3
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    CombatCounter(0)
	    Global("ImoenRomanceActive","GLOBAL",2)~ THEN REPLY @4863 GOTO MRH4
	IF ~~ THEN REPLY @4864 GOTO MRH5
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4849 GOTO MRH3
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4849 GOTO MRH3
	IF ~Global("AskSoulMR","GLOBAL",1)~ THEN REPLY @4850 GOTO MRH8
	IF ~~ THEN REPLY @4865 GOTO MRH6
	IF ~~ THEN REPLY @4866 GOTO MRH7
	IF ~~ THEN REPLY @4867 GOTO MRH7new1
	IF ~~ THEN REPLY @4868 GOTO MRH7new2
	IF ~~ THEN REPLY @668 GOTO MRH7new3
END

IF ~~ THEN BEGIN MRH7new1
	SAY @4869
	=
	@4870
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRH7new2
	SAY @4871
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN MRH7new3
	SAY @4872
	IF ~~ THEN EXIT
END


IF WEIGHT #999
~HPPercentLT("Imoen2",31)
  !IsGabber("Imoen2")
    HPPercentGT("Imoen2",8)
    GlobalGT("Chapter","GLOBAL",1)~
THEN BEGIN SelfIni4
	SAY @4873
	=
	@4874
	IF ~Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	    Global("InnerThoughtMR","GLOBAL",1)~ THEN REPLY @4875 GOTO MRH2
	IF ~Global("MessyReplyMR","GLOBAL",1)
	    IsGabber(Player1)~ THEN REPLY @4875 GOTO MRH2
	IF ~~ THEN REPLY @4876 GOTO MRH2
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4877 GOTO MRH2
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4877 GOTO MRH2
	IF ~HPPercentLT(Player1,31)
	    IsGabber(Player1)~ THEN REPLY @4878 GOTO MRH2new
	IF ~~ THEN REPLY @4879 GOTO MRH2
	IF ~~ THEN REPLY @4880 GOTO MRH2
	IF ~Global("ImoenRomanceActive","GLOBAL",3)
	    IsGabber(Player1)~ THEN REPLY @4881 GOTO MRH2
	IF ~~ THEN REPLY @4882 GOTO MRH2
 END

IF ~~ THEN BEGIN MRH2new
	SAY @4883
	IF ~~ THEN EXIT
END

IF WEIGHT #999
~HPPercentLT("Imoen2",9)
!IsGabber("Imoen2")
GlobalGT("Chapter","GLOBAL",1)
~
THEN BEGIN SelfIni5
	SAY @4884
	=
	@4885
	IF ~~ THEN REPLY @4886 GOTO MRH1
	IF ~~ THEN REPLY @4887 GOTO MRH1
	IF ~HPPercentLT(Player1,9)
	    IsGabber(Player1)~ THEN REPLY @4888 GOTO MRH1
	IF ~Global("ImoenRomanceActive","GLOBAL",3)
	    IsGabber(Player1)~ THEN REPLY @4889 GOTO MRH1
	IF ~~ THEN REPLY @4890 GOTO MRH1
	IF ~~ THEN REPLY @4891 GOTO MRH1
 END

IF ~~ THEN BEGIN MRH13
	SAY @4892
	=
	@4893
	=
	@4894
	IF ~Global("ImoenRomanceActive","GLOBAL",3)
	    IsGabber(Player1)
	Global("NormalApologyMR","GLOBAL",1)~ THEN REPLY @4816 DO ~SetGlobal("NormalApologyMR","GLOBAL",2)~ GOTO Apology1
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	    IsGabber(Player1)
	    Global("DreamTalk22MR","GLOBAL",0)
	    Global("HadImoenDreamRomance2","GLOBAL",1)~ THEN REPLY @4895 DO ~SetGlobal("DreamTalk22MR","GLOBAL",1)~ GOTO FIXMR1
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	    IsGabber(Player1)
	    Global("DreamTalk22MR","GLOBAL",0)
	    Global("HadImoenDreamRomance2","GLOBAL",1)~ THEN REPLY @4896 DO ~SetGlobal("DreamTalk22MR","GLOBAL",1)~ GOTO FIXMR2
	IF ~Global("FirstAttemptMR","GLOBAL",1)~ THEN REPLY @4897 DO ~SetGlobal("FirstAttemptMR","GLOBAL",2)~ GOTO FIXMR1
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
            Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO FIXMR27
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) AreaType(WEATHER)
	    Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO FIXMR27

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
            Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen2
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO takemesomewheregreen2

	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
            !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player3) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player4) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player4) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player5)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player5) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player6)~ THEN REPLY @4820 GOTO takemesomewheregreen
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Global("InnerThoughtMR","GLOBAL",1) !AreaType(CITY) !AreaType(WEATHER)
	    !Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906")  Name("Imoen2",Player6) !IsValidForPartyDialog(Player2) !IsValidForPartyDialog(Player3) !IsValidForPartyDialog(Player4)
	    !IsValidForPartyDialog(Player5)~ THEN REPLY @4820 GOTO takemesomewheregreen
     
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player2) OR(5) AreaType(CITY) IsValidForPartyDialog(Player3)
            IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
            THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player3) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player4) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player5) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player5) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player6) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("HadSexMessyInterlude","GLOBAL",1) IsGabber(Player1) Name("Imoen2",Player6) OR(5) AreaType(CITY) IsValidForPartyDialog(Player2)
    	   IsValidForPartyDialog(Player3) IsValidForPartyDialog(Player4) IsValidForPartyDialog(Player5) Global("InnerThoughtMR","GLOBAL",1)~
           THEN REPLY @4820 GOTO FIXMRPrivateMR
	IF ~Global("10YearsImoenMR","GLOBAL",1)
	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4899 DO ~SetGlobal("10YearsImoenMR","GLOBAL",2)~ GOTO YIMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR0
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(9)
	    !TimeGT(18)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR2
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR3
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR4
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(18)
	    !TimeGT(22)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR5
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    !Global("DoNotRepeatSpellholdMR","GLOBAL",1)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) SetGlobal("GotMadAlreadyMR","GLOBAL",1) SetGlobal("DoNotRepeatSpellholdMR","GLOBAL",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR6
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR7
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    OR(7)
	    Time(23)
	    Time(0)
	    Time(1)
	    Time(2)
	    Time(3)
	    Time(4)
	    Time(5)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR8
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    Gender(Player1,MALE)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR9
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
    	    IsGabber(Player1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(WEATHER)
	    !AreaType(CITY)
	    AreaType(DAYNIGHT)
	    AreaType(OUTDOOR)
	    Gender(Player1,FEMALE)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR9fem
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    AreaType(CITY)~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR10
	IF ~Global("ImoenRomanceActive","GLOBAL",2)
	    IsGabber(Player1)
	    Global("WeAreTogetherAtLastMR","GLOBAL",1)
	    RealGlobalTimerExpired("LUVIMOENMR","GLOBAL")
	    CombatCounter(0)
	    TimeGT(5)
	    !TimeGT(9)
	    Areatype(DUNGEON)  !AreaCheck("AR2900")  !AreaCheck("AR2901")  !AreaCheck("AR2902")  !AreaCheck("AR2903")  !AreaCheck("AR2904")  !AreaCheck("AR2905")  !AreaCheck("AR2906") ~ THEN REPLY @4822 DO ~RealSetGlobalTimer("LUVIMOENMR","GLOBAL",300) ActionOverride(Player1,SetDialog("Player1"))~ GOTO LUVMR11
	IF ~Global("MessyReplyMR","GLOBAL",1)
	    !Global("InnerThoughtMR","GLOBAL",1)
	!AreaCheck("AR0801")
	!Dead("C6BODHI")
	!AreaCheck("AR0803")
	    IsGabber(Player1)~ THEN REPLY @4820 GOTO FIXMRMessyReplyMR1
	IF ~OR(2) G("MessyReplyMR",1) G("MessyReplyMR",2)
	    !Global("InnerThoughtMR","GLOBAL",1)
	!AreaCheck("AR0801")
	!AreaCheck("AR0803")
	Dead("C6BODHI")
	!G("BodhiDead",1)
    	    IsGabber(Player1)~ THEN REPLY @4820 GOTO FIXMRMessyReplyMR1NYACHA
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	!Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4823 DO ~SetGlobal("SlayerDreamMR","GLOBAL",2) SetGlobal("AskVoiceMR","GLOBAL",1)~ GOTO SLMR1
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4823 DO ~SetGlobal("SlayerDreamMR","GLOBAL",2) SetGlobal("AskVoiceMR","GLOBAL",1)~ GOTO SLMR1annoyed
	IF ~Global("AskVoiceMR","GLOBAL",1)
	    IsGabber(Player1)~ THEN REPLY @4824 DO ~SetGlobal("AskVoiceMR","GLOBAL",2)~ GOTO VOMR1
	IF ~!Global("ImoenRomanceActive","GLOBAL",3)
	    IsGabber(Player1)
	     Global("AskSoulMR","GLOBAL",1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1
	IF ~Global("ImoenRomanceActive","GLOBAL",3)
	    IsGabber(Player1)
	    Global("AskSoulMR","GLOBAL",1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1annoyed
	IF ~Global("AskSoulMR","GLOBAL",3)
	    IsGabber(Player1)~ THEN REPLY @4826 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1again
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",2)
	!Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4827 GOTO SUMR1
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	OR(2)
	Global("ImoenRomanceActive","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",4)
	!Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4828 GOTO SUMR1b
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	Global("ImoenRomanceActive","GLOBAL",2)
	Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4827 GOTO SUMR1c
	IF ~!Global("HadSexMessyInterlude","GLOBAL",1)
	    IsGabber(Player1)
	OR(2)
	Global("ImoenRomanceActive","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",4)
	Global("NotAgainCharnameMR","GLOBAL",1)~ THEN REPLY @4828 GOTO SUMR1c
	IF ~~ THEN REPLY @4901 GOTO MRH14
	IF ~~ THEN REPLY @4829 GOTO FIXMRDialogueExitMR
 END


IF WEIGHT #999
~HPPercentGT("Imoen2",50)
IsGabber(Player1)
!IsGabber("Imoen2")
Global("ImoenRomanceActive","GLOBAL",3)
GlobalGT("Chapter","GLOBAL",1)~
THEN BEGIN SelfIniAngry
	SAY @4902
	=
	@4903
	IF ~Global("ImoenRomanceActive","GLOBAL",3)
	Global("NormalApologyMR","GLOBAL",1)~ THEN REPLY @4816 DO ~SetGlobal("NormalApologyMR","GLOBAL",2)~ GOTO Apology1
	IF ~Global("SlayerDreamMR","GLOBAL",1)
	Global("ImoenRomanceActive","GLOBAL",3)~ THEN REPLY @4823 DO ~SetGlobal("SlayerDreamMR","GLOBAL",2)
     SetGlobal("AskVoiceMR","GLOBAL",1)~ GOTO SLMR1annoyed
	IF ~Global("ImoenRomanceActive","GLOBAL",3)
	    Global("AskSoulMR","GLOBAL",1)~ THEN REPLY @4904 DO ~SetGlobal("AskSoulMR","GLOBAL",2)~ GOTO SOMR1annoyed
	IF ~~ THEN REPLY @4905 GOTO Ignore
	IF ~~ THEN REPLY @4906 GOTO Ignore
	IF ~~ THEN REPLY @4907 GOTO Ignore
	IF ~~ THEN REPLY @4829 GOTO FIXMRDialogueExitMR
 END

IF WEIGHT #999
~HPPercentGT("Imoen2",50)
!IsGabber(Player1)
!IsGabber("Imoen2")
G("ImoenRomanceActive",3)
GlobalGT("Chapter","GLOBAL",1)~
THEN BEGIN SelfIniAngryNotPlayer1
	SAY @4915 // Sorry, <GABBER>, but I'm not really in the mood for talking right now... (You see Imoen glance in your direction and frown pursing her lips.)
	=
	@4916 // some other time, alright? When I'm not this pissed off...
	IF ~~ THEN EXIT
END

IF WEIGHT #999
~HPPercentGT("Imoen2",50)
IsGabber("Imoen2")
GlobalGT("Chapter","GLOBAL",1)~ THEN BEGIN imoenselftalks
SAY @5056 // ~D'you want something from me, Imoen? No, Imoen. Aright Imoen! Oh you are SO wise, Imoen!~
IF ~~ THEN EXIT
END

IF WEIGHT #999
~!HPPercentGT("Imoen2",50)
IsGabber("Imoen2")
GlobalGT("Chapter","GLOBAL",1)~ THEN BEGIN imoenselftalks
SAY @5057 // ~I don't like being hurt, Imoen... you're right, me neither, Imoen...! We always agree with each other, Imoen.~
IF ~~ THEN EXIT
END


IF ~~ THEN BEGIN Ignore
	SAY @4908
	IF ~~ THEN EXIT
END
END


// This dialogue is obsolete now. It was a force talk for Aerie to break the romance whenever the player wanted. It is not proof readed and is hard coded. Feel free to uncomment it so you will see it in the game, but ONLY if you don't have the flirt packs installed.
APPEND AERIEJ
	IF WEIGHT #999
~!Global("PhaereFixMRAe","GLOBAL",1)~ 
	THEN BEGIN MRDC1
	SAY @4723
	IF ~Global("AerieMR","GLOBAL",1)~ THEN REPLY ~Nothing... just to tell you that I still love you, Aerie.~ GOTO BAMR3
	IF ~Global("AerieMR","GLOBAL",1)~ THEN REPLY ~Aerie... I don't know how to put this. The fact is that, well... I think our relationship is a mistake.~ GOTO BAMR1
	IF ~Global("AerieMR","GLOBAL",1)~ THEN REPLY ~I think loving a pathetic wingless Avariel was the most stupid mistake I've ever made. We are over, girl, go whine somewhere else.~ GOTO BAMR2
	IF ~Global("HadImoenDreamRomance2","GLOBAL",1)
	Global("WeTalkedOfItAlready","LOCALS",0)~ THEN REPLY @4724 DO ~SetGlobal("WeTalkedOfItAlready","LOCALS",1) ActionOverride(Player1,SetDialog("Player1"))~ GOTO MRDC2
	IF ~~ THEN REPLY @4562 GOTO MRDC1a
 END

IF ~~ THEN BEGIN BAMR1
	SAY ~I, ah... w-what? You... you are not serious, are you...?~
	IF ~~ THEN REPLY ~I am. It's... the best for the group, and for us... please, don't be upset... I still appreciate you too much to see you leave, please stay with me, as my friend...~ GOTO BAMR4
	IF ~~ THEN REPLY ~OF COURSE I am, you STUPID WENCH!! Are you so PATHETIC and WEAK that you can't understand it!? I hate your WHINES, I hate YOU!!~ GOTO BAMR2
END

IF ~~ THEN BEGIN BAMR2
	SAY ~(Aerie gasps, taking a step back. Her pointy ears virtually bleed from your cruel words, that have crossed through her brain like a destructive lightning, absolutely unexpected, utmostly painful.)~
	=
	~(Her eyes are wetting already against her will; her lips tremble. Breathing heavily, she is unable to utter a word for a while; what you have just told her, even if you weren't really serious, blocking her reasoning.)~
	=
	~(Crying, she turns around and leaves, simply unable to express with words the pain you have just caused her.)~
	IF ~IsValidForPartyDialog("Imoen2")~ THEN DO ~GivePartyAllEquipment() LeaveParty() EscapeArea() ActionOverride(Player1,SetDialog("Player1"))~ EXTERN IMOEN2J BAMR2cha
	IF ~!IsValidForPartyDialog("Imoen2")~ THEN DO ~GivePartyAllEquipment() LeaveParty() EscapeArea()~ EXIT
END


IF ~~ THEN BEGIN BAMR3
	SAY ~(Aerie blushes and smiles, looking to the ground like a teenager in love would do, saying absolutely nothing but telling you with her expression that she really appreciates your words.)~
	IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN BAMR4
	SAY ~(Aerie says nothing for a while, absolutely speechless, though this doesn't surprise her that much. Your attitude towards her has been distant lately... in her inner self she knew this would happen sooner or later, as she felt the bond between you two weakening more and more... she knew that it would be broken soon, but she is still surprised nevertheless.)~
	=
	~I... I am not stupid, <CHARNAME>... I know when something simply does not work... I... I have grown mature enough to see this... and mostly thanks to you. I would give us another chance if it was only my decision but... if you don't want it, then there's nothing left to keep between us.~
	=
	~It would be too selfish and unfair to leave you now, <CHARNAME>. But understand that... I will not be able to even look at your eyes like I am doing now in a long time...~
	=
	~I... I need some time to think... if you'll excuse me...~
	IF ~!Global("NoReturnMR","GLOBAL",1) GlobalLT("Chapter","GLOBAL",5)~ THEN DO ~SetGlobal("AerieRomanceActive","GLOBAL",3) SetGlobal("ImoenRomanceActive","GLOBAL",1)~ EXIT
END
END


APPEND IMOEN2J
IF ~~ THEN BEGIN BAMR2cha
	SAY ~Aerie, wait! No, don't leave... (Imoen looks at the elf, as her golden hair gradually gets out of sight...)~
	=
	~(Then she turns to you, and looks back to Aerie's frame once again, undecision in her face. Another quick glance... and she resists the urge to start running after the Avariel.)~
	=
	~I should leave you to rot here, you heartless bastard...~
	=
	~Goodbye, Aerie... I'll miss you...~
	IF ~~ THEN DO ~SetGlobal("ImoenRomanceActive","GLOBAL",3)~ EXIT
END
END
