IF
~InParty(Aerie)
Global("AerieRomanceVariable",GLOBAL,2)
InParty(Korgan)
~
BEGIN chocolate_mousse
SAY ~Oh, <CHARNAME>, can we have the chocolate mousse? I-I've been craving it for a while now... do you mind?~

++ ~Oh, of course. (Buy the chocolate mousse)~+ mousse
++ ~If you *must* have it... (Buy the chocolate mousse)~+ mousse
++ ~Aerie, we don't have the *money*... we're flat broke!~+ broke
++ ~Gah, cease your whining! Deal with it, I'm sure you'll survive.~+ hatehate
END


IF ~~ BEGIN mousse
SAY ~Oooh, thank you <CHARNAME>! (She smiles at you winsomely as she begins to eat the mousse, her eyes half-closed in ecstacy.)~ IF ~~ EXTERN BKORGAN korgan_chocolate


IF ~~ BEGIN broke
SAY ~I'm sure we could afford one, small chocolate mousse... (Aerie gives you a winsome look.)~
=
~Please?~

++ ~Oh, fine. (Buy the mousse).~+ mousse
++ ~No, Aerie, we really can't...~+ broke2
++ ~Aerie, no. Just no.~+ broke2
END


IF ~~ BEGIN hatehate
SAY ~I... I didn't know you felt that way, <CHARNAME>. Fine.~ IF ~~ THEN DO ~SetGlobal("AerieRomanceVariable",GLOBAL,3)~ EXIT
END


APPEND BKORGAN

IF ~~ THEN BEGIN korgan_chocolate
SAY ~