// creator  : weidu.exe (version 23100)
// argument : X#AMELIA.DLG
// game		 : .
// source	 : ./override/X#AMELIA.DLG
// dialog	 : ./DIALOG.TLK
// dialogF  : (none)

BEGIN ~X#AMELIA~

IF ~  Global("X#CoranSuccubus","GLOBAL",11)
~ THEN BEGIN 0 // from:
  SAY #102012 /* ~My pet here told me that you have the item I require - the powders. Hand it over, <CHARNAME>... ~ */
  IF ~  Global("P#KnowBhaal","GLOBAL",1)
~ THEN REPLY #102013 /* ~I want to know the truth, before I announce my decision.~ */ GOTO 2
  IF ~  !Global("P#KnowBhaal","GLOBAL",1)
~ THEN REPLY #102013 /* ~I want to know the truth, before I announce my decision.~ */ GOTO 1
  IF ~~ THEN REPLY #102014 /* ~Of course, of course.~ */ GOTO 4
  IF ~~ THEN REPLY #102015 /* ~Of course, of course. But you should release your captives and give us something...~ */ GOTO 5
  IF ~  !InParty("coran")
Global("X#CoranCharmed","GLOBAL",1)
~ THEN REPLY #102016 /* ~You took my companion captive, and you are telling me to be a good <PRO_GIRLBOY> and trade with you! I say the time is ripe for swords. ~ */ GOTO 6
  IF ~  !InParty("coran")
Global("X#CoranCharmed","GLOBAL",1)
Gender(Player1,MALE)
~ THEN REPLY #102017 /* ~I will give you the powders in exchange for my companion... and a bit of a reward.~ */ GOTO 8
  IF ~  !InParty("coran")
Global("X#CoranCharmed","GLOBAL",1)
Gender(Player1,FEMALE)
~ THEN REPLY #102017 /* ~I will give you the powders in exchange for my companion... and a bit of a reward.~ */ GOTO 7
END

IF ~~ THEN BEGIN 1 // from: 0.1
  SAY #102018 /* ~What is the truth, mortal? Look in the mirror, <CHARNAME>, and you will see yet another young <RACE>... and that is the truth about you, of course. Yet there is another truth, the one that cannot be seen in the mirror - and it is a frightful one. Look at me as if you were a mirror - do not ask for the hidden truth. I am but a girl in need and I earned the item you hold.~ */
  IF ~~ THEN GOTO 3
END

IF ~~ THEN BEGIN 2 // from: 0.0
  SAY #102019 /* ~What is the truth, mortal? Not so long ago, you were but a young <RACE>... and now you've grown tail feathers befit to a child of Murder. Are you happier for that? Are you any different? Here is truth about me: I am a girl in need, who earned the item you hold. Give it to me, and I shall release the pathetic Primer...~ */
  IF ~~ THEN GOTO 3
END

IF ~~ THEN BEGIN 3 // from: 2.0 1.0
  SAY #102020 /* ~Give it to me, and I shall release the pathetic thieves...~ */
  IF ~~ THEN REPLY #102021 /* ~*sigh* I do not want to stand here all day and bandy words with you. Here are the powders and suit your words - release the thief, or I will cut you down!~ */ GOTO 9
  IF ~  !Global("P#KnowBhaal","GLOBAL",1)
~ THEN REPLY #102022 /* ~Frightful truth? What do you know about me, Amelia? Please, tell me, and the powders shall be yours!~ */ GOTO 10
  IF ~  !InParty("coran")
Global("X#CoranCharmed","GLOBAL",1)
Gender(Player1,MALE)
~ THEN REPLY #102023 /* ~Hmmm... you nearly convinced me... Release my companion, and a bit of a reward, added in the bargain, might just do the trick.~ */ GOTO 8
  IF ~  !InParty("coran")
Global("X#CoranCharmed","GLOBAL",1)
Gender(Player1,MALE)
~ THEN REPLY #102023 /* ~Hmmm... you nearly convinced me... Release my companion, and a bit of a reward, added in the bargain, might just do the trick.~ */ GOTO 7
  IF ~~ THEN REPLY #102024 /* ~Your elusive wordiness proves that you are a villain, and I shall give you the same answer I give to every villain I meet. DIE!~ */ GOTO 6
END

IF ~~ THEN BEGIN 4 // from: 0.2
  SAY #102025 /* ~I have it! I have it! Fare thee well, you, stupid primer!~ */
  IF ~~ THEN DO ~StartCutSceneMode()
TakePartyItem("X#CODYE1")
TakePartyItem("X#CODYE2")
SetGlobal("X#CoranSuccubus","GLOBAL",15)
ActionOverride("coran",EscapeArea())
GiveItemCreate("X#COAMUL",Player1,1,0,0)
EscapeArea()
ActionOverride("natan",EscapeArea())
AddexperienceParty(6400)
EndCutSceneMode()
~ EXIT
END

IF ~~ THEN BEGIN 5 // from: 9.0 7.0 0.3
  SAY #102026 /* ~I have it! I have it! Here, take this necklace. What is a trinket, compared to freedom?~ */
  IF ~~ THEN DO ~StartCutSceneMode()
TakePartyItem("X#CODYE1")
TakePartyItem("X#CODYE2")
SetGlobal("X#CoranSuccubus","GLOBAL",16)
GiveItemCreate("X#COAMUL",Player1,1,0,0)
EscapeArea()
AddexperienceParty(6400)
EndCutSceneMode()
~ EXIT
END

IF ~~ THEN BEGIN 6 // from: 3.4 0.4
  SAY #102027 /* ~Then today is the day you die, silly mortal!~ */
  IF ~~ THEN DO ~TakePartyItem("X#CODYE1")
TakePartyItem("X#CODYE2")
SetGlobal("X#CoranSuccubus","GLOBAL",17)
Polymorph(ELEMENTAL_FIRE)
Enemy()
ActionOverride("coran",Enemy())
ActionOverride("natan",Enemy())
AddexperienceParty(5000)
~ EXIT
END

IF ~~ THEN BEGIN 7 // from: 3.3 0.6
  SAY #102028 /* ~'Twas pleasure doing business with you, girl.~ */
  IF ~~ THEN GOTO 5
END

IF ~~ THEN BEGIN 8 // from: 3.2 0.5
  SAY #102029 /* ~'Twas a pleasure doing business with you... But I am afraid that you are not getting enough out of this deal, my hero. Allow me to add the sweetest kiss, a kiss you shall never forget, to the payment...~ */
  IF ~~ THEN REPLY #102030 /* ~Now, that's a lovely way to seal the bargain!~ */ GOTO 12
  IF ~~ THEN REPLY #102031 /* ~My father, Gorion, taught me never to kiss strange women! Here are the powders, and suit your words - release the thieves, quickly!~ */ GOTO 13
END

IF ~~ THEN BEGIN 9 // from: 3.0
  SAY #102032 /* ~I doubt that you could, but I wish to be away from this plane.~ */
  IF ~~ THEN GOTO 5
END

IF ~~ THEN BEGIN 10 // from: 3.1
  SAY #102033 /* ~*she smiles viciously* It's a deal.~ */
  IF ~~ THEN GOTO 11
END

IF ~~ THEN BEGIN 11 // from: 10.0
  SAY #102034 /* ~The frightful truth is that you are only a demi-<RACE>... the second blood that flows trough your veins is powerful and dark... Now, I must go. Follow me, my pets.~ */
  IF ~~ THEN DO ~StartCutSceneMode()
TakePartyItem("X#CODYE1")
TakePartyItem("X#CODYE2")
SetGlobal("X#CoranSuccubus","GLOBAL",15)
ActionOverride("coran",LeaveParty())
ActionOverride("coran",SetLeavePartyDialogueFile())
ActionOverride("coran",ChangeAIScript("",DEFAULT))
EscapeArea()
ActionOverride("coran",EscapeArea())
ActionOverride("natan",EscapeArea())
AddexperienceParty(6400)
EndCutSceneMode()
~ EXIT
END

IF ~~ THEN BEGIN 12 // from: 8.0
  SAY #102035 /* ~Come closer, sweetheart.~ */
  IF ~~ THEN DO ~TakePartyItem("X#CODYE1")
TakePartyItem("X#CODYE2")
SetGlobal("X#CoranSuccubus","GLOBAL",15)
Kill(Player1)
~ EXIT
END

IF ~~ THEN BEGIN 13 // from: 8.1
  SAY #102036 /* ~Phew, boring mortal, no spine, no flames... but I have no time for games. Give me the powders! Ha! I will be seeing you in the Nine Hells, <CHARNAME>! ~ */
  IF ~~ THEN DO ~StartCutSceneMode()
TakePartyItem("X#CODYE1")
TakePartyItem("X#CODYE2")
SetGlobal("X#CoranSuccubus","GLOBAL",16)
GiveItemCreate("X#COAMUL",Player1,1,0,0)
EscapeArea()
AddexperienceParty(6400)
EndCutSceneMode()
~ EXIT
END

IF ~  GlobalGT("X#CoranSuccubus","GLOBAL",7)
GlobalLT("X#CoranSuccubus","GLOBAL",11)
~ THEN BEGIN 14 // from:
  SAY #102037 /* ~You have returned. Have your hearts softened to the plea of poor Amelia? Will you help me?~ */
  IF ~  Global("X#CoranSuccubus","GLOBAL",8)
Gender(Player1,FEMALE)
OR(2)
PartyHasItem("X#CODYE1")
PartyHasItem("X#CODYE2")
~ THEN REPLY #102038 /* ~Oh, stop this comedy already, succubus. I have what you want. Will you buy it from me?~ */ GOTO 15
  IF ~  Global("X#CoranSuccubus","GLOBAL",8)
Gender(Player1,MALE)
OR(2)
PartyHasItem("X#CODYE1")
PartyHasItem("X#CODYE2")
~ THEN REPLY #102038 /* ~Oh, stop this comedy already, succubus. I have what you want. Will you buy it from me?~ */ GOTO 16
  IF ~  Global("X#CoranSuccubus","GLOBAL",8)
~ THEN REPLY #102039 /* ~I... accidentally killed him. ~ */ GOTO 17
  IF ~  Global("X#CoranSuccubus","GLOBAL",10)
~ THEN REPLY #102040 /* ~I heard Natan's side of the story, and I am inclined to believe him. I have come to banish you from the Material Plane and free the thief. Defend yourself, demon!~ */ GOTO 18
  IF ~  Global("X#CoranSuccubus","GLOBAL",9)
~ THEN REPLY #102041 /* ~Natan told me that you are evil, and I'm inclined to believe him. I let my sword do the talking, when I meet with evil critters. Die, witch!~ */ GOTO 18
  IF ~  Global("X#CoranSuccubus","GLOBAL",10)
InParty("coran")
~ THEN REPLY #102042 /* ~You were right. Natan had conjured some incomprehensible story accusing you of being a demon, of thievery, soul stealing... I wonder why he did not include a murder in the list? Rather unfair... At any rate, he is no man for you to be bonded to, so give me those roses, and I shall try to free you.~ */ GOTO 19
  IF ~  Global("X#CoranSuccubus","GLOBAL",9)
InParty("coran")
~ THEN REPLY #102043 /* ~I decided to help you, after all. Natan was trying to tell me some complicated lie, and he is clearly not a man for a fair maiden, like you, to be bonded to.~ */ GOTO 19
  IF ~  Global("X#CoranSuccubus","GLOBAL",10)
~ THEN REPLY #102044 /* ~Listen, your game is over. I will spare you, however, if you surrender the stolen manual, and swear not to hurt Natan.~ */ GOTO 20
END

IF ~~ THEN BEGIN 15 // from: 14.0
  SAY #102045 /* ~You have it? Wonderful. Here is the magical item for your troubles... Give me the powders.~ */
  IF ~  OR(2)
PartyHasItem("X#CODYE1")
PartyHasItem("X#CODYE2")
~ THEN REPLY #102046 /* ~Everyone profits from the good honest trade. Except for poor Natan, of course, but his death is inconsequential. Farewell, Amelia, have fun with the powders.~ */ DO ~TakePartyItem("X#CODYE1")
TakePartyItem("X#CODYE2")
SetGlobal("X#CoranSuccubus","GLOBAL",12)
~ GOTO 21
  IF ~~ THEN REPLY #102047 /* ~So, Natan's story was true. I cannot return him to life, but I can cleanse my group of blood wrongly spilled and avenge him. Die, demon!~ */ GOTO 22
END

IF ~~ THEN BEGIN 16 // from: 14.1
  SAY #102048 /* ~My hero! The magical item I promised you is not enough to reward such a courageous act... Let me give you a kiss you will not forget, a kiss that no mortal woman will rival...~ */
  IF ~~ THEN REPLY #102049 /* ~The item is a sufficient reward, Amelia. Everyone profits from good, honest trade, and I am not the one to mix business with pleasure. Farewell, Amelia, and have fun with the powders. ~ */ DO ~TakePartyItem("X#CODYE1")
TakePartyItem("X#CODYE2")
SetGlobal("X#CoranSuccubus","GLOBAL",12)
~ GOTO 27
  IF ~~ THEN REPLY #102050 /* ~Not so fast! One measly item and a kiss? How about you give us the manual, and we split the powders in half? A fair deal... ~ */ GOTO 22
  IF ~~ THEN REPLY #102047 /* ~So, Natan's story was true. I cannot return him to life, but I can cleanse my group of blood wrongly spilled and avenge him. Die, demon!~ */ GOTO 22
  IF ~  !InParty("coran")
~ THEN REPLY #102051 /* ~Kiss me then, beautiful, and kiss me hard. ~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",12)
Kill(Player1)
~ EXIT
  IF ~  InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
~ THEN REPLY #102051 /* ~Kiss me then, beautiful, and kiss me hard. ~ */ EXTERN ~_CORANJ~ 218
END

IF ~~ THEN BEGIN 17 // from: 14.2
  SAY #102052 /* ~You killed him? Did he... did he have a pouch with powders on him? They are mine, and I would like to have them back. I will give you a magical item in exchange... ~ */
  IF ~  OR(2)
PartyHasItem("X#CODYE1")
PartyHasItem("X#CODYE2")
~ THEN REPLY #102046 /* ~Everyone profits from the good honest trade. Except for poor Natan, of course, but his death is inconsequential. Farewell, Amelia, have fun with the powders.~ */ DO ~TakePartyItem("X#CODYE1")
TakePartyItem("X#CODYE2")
SetGlobal("X#CoranSuccubus","GLOBAL",12)
~ GOTO 21
  IF ~  !PartyHasItem("X#CODYE1")
!PartyHasItem("X#CODYE2")
~ THEN REPLY #102053 /* ~I did not find any powders, Amelia, but I can return and search for them.~ */ GOTO 26
  IF ~~ THEN REPLY #102054 /* ~Hold on... there is more to this story, then? Maybe you are evil, then... and you tricked me into killing an innocent man! I cannot return him to life, but I can cleanse my group of blood wrongly spilled and avenge him. Die, witch!~ */ GOTO 18
END

IF ~~ THEN BEGIN 18 // from: 28.1 27.3 17.2 14.4 14.3
  SAY #102055 /* ~Today is the day you die, silly mortal!~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",13)
Polymorph(ELEMENTAL_FIRE)
Enemy()
AddexperienceParty(5000)
~ EXIT
END

IF ~~ THEN BEGIN 19 // from: 14.6 14.5
  SAY #102056 /* ~How very kind of you, my <PRO_LADYLORD>... There is one more favor I request of you. Nathan has powders on his person, powders that belong to me. I need them very much... to become free. Please, bring them to me. I must have them.~ */
  IF ~~ THEN REPLY #102057 /* ~Of course, Amelia. I will bring the powders to you.~ */ GOTO 26
  IF ~~ THEN REPLY #102058 /* ~Powders? So Nathan did not lie...~ */ GOTO 20
  IF ~~ THEN REPLY #102059 /* ~You lied to me about the roses! Nathan was right about you, then!~ */ GOTO 20
END

IF ~~ THEN BEGIN 20 // from: 19.2 19.1 14.7
  SAY #102060 /* ~So, the petty thief figured it out? I underestimated him... and your companion. Alas for you that you are not biddable fools, after all. I will not allow you to roam free, knowing who I am! Today is the day you die, silly mortals!~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",13)
Polymorph(ELEMENTAL_FIRE)
Enemy()
AddexperienceParty(5000)
~ EXIT
END

IF ~~ THEN BEGIN 21 // from: 28.0 27.0 17.0 15.0
  SAY #102061 /* ~Here, take this necklace. What is a trinket, compared to freedom?~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",12)
GiveItemCreate("X#COAMUL",Player1,1,0,0)
EscapeArea()
ActionOverride("natan",DestroySelf())
AddexperienceParty(6400)
~ EXIT
END

IF ~~ THEN BEGIN 22 // from: 23.1 16.2 16.1 15.1
  SAY #102062 /* ~Mortal, you are not a biddable fool, but still you are a fool. Do you think I shall allow you roam freely, knowing who I am? Today is the day you die!~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",13)
Polymorph(ELEMENTAL_FIRE)
Enemy()
AddexperienceParty(5000)
~ EXIT
END

IF ~~ THEN BEGIN 23 // from:
  SAY #102063 /* ~Don't pay him any mind, <CHARNAME>, he is jealous...~ */
  IF ~~ THEN REPLY #102064 /* ~No! He is right! There was something dire about a succubus' kiss! Stay away from me, demon, and let's exchange goods.~ */ GOTO 24
  IF ~~ THEN REPLY #102065 /* ~Your kisses... They kill, do they not? You wanted to murder me! Die, traitorous beast!~ */ GOTO 22
  IF ~~ THEN REPLY #102066 /* ~Pay him no mind, sweetheart...~ */ GOTO 25
END

IF ~~ THEN BEGIN 24 // from: 23.0
  SAY #102067 /* ~Phew, boring mortal, no spine, no flames... Here, take this necklace. I never liked it, anyway.~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",12)
GiveItemCreate("X#COAMUL",Player1,1,0,0)
EscapeArea()
ActionOverride("natan",DestroySelf())
AddexperienceParty(6400)
~ EXIT
END

IF ~~ THEN BEGIN 25 // from: 23.2
  SAY #102068 /* ~He is nothing, darling, absolutely nothing. ~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",12)
Kill(Player1)
~ EXIT
END

IF ~~ THEN BEGIN 26 // from: 19.0 17.1
  SAY #102069 /* ~Please do, my friend, please do... I will reward you for bringing me those powders, for my freedom is in them - I feel it!~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",14)
~ EXIT
END

IF ~~ THEN BEGIN 27 // from: 16.0
  SAY #102070 /* ~I am free, at last! My hero, you deserve more than the silly trinket. Allow me to give you the sweetest kiss you shall never forget.~ */
  IF ~~ THEN REPLY #102071 /* ~That's really too much, Amelia.~ */ GOTO 21
  IF ~  !InParty("coran")
~ THEN REPLY #102072 /* ~Kiss me then, beautiful, and kiss me hard.~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",13)
Kill(Player1)
~ EXIT
  IF ~  InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
~ THEN REPLY #102072 /* ~Kiss me then, beautiful, and kiss me hard.~ */ EXTERN ~_CORANJ~ 218
  IF ~~ THEN REPLY #102073 /* ~You are free? Without restoring the roses? You know, all of this sounds odd. I'd better kill you... in case you are evil.~ */ GOTO 18
END

IF ~  Global("X#CoranSuccubus","GLOBAL",14)
OR(2)
PartyHasItem("X#CODYE1")
PartyHasItem("X#CODYE2")
~ THEN BEGIN 28 // from:
  SAY #102074 /* ~You have the powders? Wonderful. Give them to me... quickly! I am losing my patience! Here is the magical item I promised you.~ */
  IF ~~ THEN REPLY #102046 /* ~Everyone profits from the good honest trade. Except for poor Natan, of course, but his death is inconsequential. Farewell, Amelia, have fun with the powders.~ */ DO ~TakePartyItem("X#CODYE1")
TakePartyItem("X#CODYE2")
SetGlobal("X#CoranSuccubus","GLOBAL",12)
~ GOTO 21
  IF ~~ THEN REPLY #102075 /* ~Hold on... how do the powders free you? I thought those were roses you needed? Odd. Maybe you are evil, then... and you tricked me into killing an innocent man! I cannot return him to life, but I can cleanse my group of blood wrongly spilled and avenge him. Die, witch!~ */ GOTO 18
END

IF ~  Global("X#CoranSuccubus","GLOBAL",7)
~ THEN BEGIN 29 // from:
  SAY #102076 /* ~You have the roses? My heart sings with joy at this sight! Soon I shall be free. Hurry, hurry! Into the dungeon!~ */
  IF ~~ THEN GOTO 30
END

IF ~~ THEN BEGIN 30 // from: 29.0
  SAY #102077 /* ~*cough* Forgive me my hastiness, my good <PRO_LADYLORD>.~ */
  IF ~~ THEN EXIT
END

IF ~  Global("X#CoranSuccubus","GLOBAL",4)
~ THEN BEGIN 31 // from:
  SAY #102078 /* ~*She sobs*~ */
  IF ~  InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
~ THEN REPLY #102079 /* ~OK, OK, give me your stupid roses!~ */ UNSOLVED_JOURNAL #102080 /* ~Amelia

Met an odd but most beautiful woman, Amelia. She asked us to restore to life some withered roses and give them to Natan - a rogue, who apparently hides somewhere in the Firewine ruins. Amelia said that I should take these roses to the Song of the Morning Temple in Beregost, to restore them.~ */ GOTO 39
  IF ~~ THEN REPLY #102081 /* ~You have yourself a very good day, Amelia.~ */ EXIT
END

IF ~~ THEN BEGIN 32 // from: 50.0
  SAY #102082 /* ~Thank you, kind strangers, and thank you, Coran, for being so understanding. Take these roses to the temple in Beregost; ask the priest to restore them to life and once you are in the dungeon give them to Natan. He is... he was a rogue. I am afraid, however, that he is angry with me for my rejecting his love, and he may try to tell you some nonsense about me... please, do not believe him!~ */
  IF ~  CheckStatGT(Player1,15,INT)
~ THEN REPLY #102083 /* ~Your story - it sounds very suspicious to me. Rogues are not the type to ask for oaths...~ */ UNSOLVED_JOURNAL #102084 /* ~Amelia

Met an odd but most beautiful woman, Amelia. She asked us to restore to life some withered roses and give them to Natan - a rogue who apparently hides somewhere in the Firewine ruins. Amelia said that I should take these roses to the Song of the Morning Temple in Beregost to restore them.~ */ GOTO 35
  IF ~~ THEN REPLY #102085 /* ~What kind of tales, exactly?~ */ UNSOLVED_JOURNAL #102080 /* ~Amelia

Met an odd but most beautiful woman, Amelia. She asked us to restore to life some withered roses and give them to Natan - a rogue, who apparently hides somewhere in the Firewine ruins. Amelia said that I should take these roses to the Song of the Morning Temple in Beregost, to restore them.~ */ GOTO 37
  IF ~  Gender(Player1,MALE)
~ THEN REPLY #102086 /* ~If this cowardly dog tries in any way to dishonor you, my lady, he will be stopped. You have suffered enough. Here, give me those roses, and I vow to you that I shall do my best to free you.~ */ UNSOLVED_JOURNAL #102084 /* ~Amelia

Met an odd but most beautiful woman, Amelia. She asked us to restore to life some withered roses and give them to Natan - a rogue who apparently hides somewhere in the Firewine ruins. Amelia said that I should take these roses to the Song of the Morning Temple in Beregost to restore them.~ */ GOTO 39
  IF ~  Gender(Player1,FEMALE)
~ THEN REPLY #102087 /* ~Men... You tell me! Ready to invent anything, when they think that their tail was stepped on. Do not worry, sis, I'll see that he gets your roses!~ */ UNSOLVED_JOURNAL #102080 /* ~Amelia

Met an odd but most beautiful woman, Amelia. She asked us to restore to life some withered roses and give them to Natan - a rogue, who apparently hides somewhere in the Firewine ruins. Amelia said that I should take these roses to the Song of the Morning Temple in Beregost, to restore them.~ */ GOTO 39
  IF ~~ THEN REPLY #102088 /* ~Is there any other way to give the message to Natan? Perhaps a simple "I do not love you, and I will not marry you" on a scroll sealed with your signet ring? I do not really want to go to the temple.~ */ UNSOLVED_JOURNAL #102080 /* ~Amelia

Met an odd but most beautiful woman, Amelia. She asked us to restore to life some withered roses and give them to Natan - a rogue, who apparently hides somewhere in the Firewine ruins. Amelia said that I should take these roses to the Song of the Morning Temple in Beregost, to restore them.~ */ GOTO 41
END

IF ~~ THEN BEGIN 33 // from: 50.1 34.1
  SAY #102089 /* ~Woe to me! How long will I be wandering unaided, desperate, desolate... *she sobs* ~ */
  IF ~  Global("P#CoranMatch","GLOBAL",1)
~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",4)
~ UNSOLVED_JOURNAL #102090 /* ~Amelia

Met an odd but most beautiful woman, Amelia. She asked us to restore to life some withered roses and give them to Natan - a rogue, who apparently hides somewhere in the Firewine ruins. Her story sounded strange and, anyway, I had no time for delivering flowers, so I declined to help her.~ */ EXIT
  IF ~  !Global("P#CoranMatch","GLOBAL",1)
~ THEN EXTERN ~_CORANJ~ 214
END

IF ~~ THEN BEGIN 34 // from: 50.2
  SAY #102091 /* ~Would that I knew, my good <LADYLORD>. Some ward guards it against me. Whenever I want to enter, I am transferred to some far-away corner of Faerun. The last time I ended in Turmish... so I do not dare to try again.~ */
  IF ~~ THEN REPLY #102092 /* ~This is all quite wondrous and strange. We will help you, my dear woman, to the best of our abilities.~ */ GOTO 39
  IF ~~ THEN REPLY #102093 /* ~I have no time for silly tales and roses. Let's get moving, comrades.~ */ GOTO 33
  IF ~  CheckStatGT(Player1,15,INT)
~ THEN REPLY #102083 /* ~Your story - it sounds very suspicious to me. Rogues are not the type to ask for oaths...~ */ GOTO 35
END

IF ~~ THEN BEGIN 35 // from: 34.2 32.0
  SAY #102094 /* ~It is a common misconception, my good <PRO_LADYLORD>. In my fiancé's Guild all sorts of oaths were given and taken. Some even involved family members... to tie them into their schemes entirely. I was young and foolish, and found it most enticing. Alas, his charms faded with distance and time, and now I would like to have my life back... if I still can, or to die in peace. Will you help me?~ */
  IF ~~ THEN REPLY #102095 /* ~I see. Well, give me those roses, and I will try to release you from your oath.~ */ GOTO 39
  IF ~~ THEN REPLY #102096 /* ~That sounds more and more intriguing. Where are you from? I have heard of a number of Thief Guilds, and, in fact, I would like to record such an interesting custom as making a member's fiancée give a solemn vow.~ */ GOTO 43
  IF ~~ THEN REPLY #102088 /* ~Is there any other way to give the message to Natan? Perhaps a simple "I do not love you, and I will not marry you" on a scroll sealed with your signet ring? I do not really want to go to the temple.~ */ GOTO 41
END

IF ~~ THEN BEGIN 36 // from: 37.0
  SAY #102097 /* ~I see that you trust me not. Alas, I will be wandering unaided then... ~ */
  IF ~  Global("P#CoranMatch","GLOBAL",1)
~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",4)
~ UNSOLVED_JOURNAL #102090 /* ~Amelia

Met an odd but most beautiful woman, Amelia. She asked us to restore to life some withered roses and give them to Natan - a rogue, who apparently hides somewhere in the Firewine ruins. Her story sounded strange and, anyway, I had no time for delivering flowers, so I declined to help her.~ */ EXIT
  IF ~  !Global("P#CoranMatch","GLOBAL",1)
~ THEN EXTERN ~_CORANJ~ 214
END

IF ~~ THEN BEGIN 37 // from: 32.1
  SAY #102098 /* ~Oh, I do not know. It just occurred to me that Natan might be angry, and he was never a sweet-spoken man. He will lash me with his tongue, I am sure. He will call me a witch and tell other lies... only to get back at me, of course.~ */
  IF ~  CheckStatGT(Player1,15,INT)
~ THEN REPLY #102099 /* ~That sounds a bit excessive for a man rejected by his fiancée... even if he is a rogue of the worst kind. Tell me, my dear, is there a grain of truth in those tales?~ */ GOTO 36
  IF ~  Gender(Player1,MALE)
~ THEN REPLY #102086 /* ~If this cowardly dog tries in any way to dishonor you, my lady, he will be stopped. You have suffered enough. Here, give me those roses, and I vow to you that I shall do my best to free you.~ */ GOTO 39
  IF ~  Gender(Player1,FEMALE)
~ THEN REPLY #102087 /* ~Men... You tell me! Ready to invent anything, when they think that their tail was stepped on. Do not worry, sis, I'll see that he gets your roses!~ */ GOTO 39
  IF ~~ THEN REPLY #102088 /* ~Is there any other way to give the message to Natan? Perhaps a simple "I do not love you, and I will not marry you" on a scroll sealed with your signet ring? I do not really want to go to the temple.~ */ GOTO 41
END

IF ~~ THEN BEGIN 38 // from:
  SAY #102102 /* ~Oh, it's quite noble of you, my good elf. Forgive me kindly for breaking up your small fellowship.~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranCharmed","GLOBAL",1)
ActionOverride("coran",LeaveParty())
ActionOverride("coran",SetLeavePartyDialogueFile())
ActionOverride("coran",ChangeAIScript("",DEFAULT))
ActionOverride("coran",EscapeAreaMove("FW4500",4040,2091,3))
SetGlobal("X#CoranSuccubus","GLOBAL",4)
~ UNSOLVED_JOURNAL #102103 /* ~Amelia

Met an odd but most beautiful woman, Amelia. She asked us to restore to life some withered roses and give them to Natan - a rogue who apparently hides somewhere in the Firewine ruins. Her story sounded strange, and, anyway, I had no time for delivering flowers, so I declined to help her. Coran, however, ran away to help the girl. Typical.~ */ EXIT
END

IF ~~ THEN BEGIN 39 // from: 42.2 42.1 37.2 37.1 35.0 34.0 32.3 32.2 31.0
  SAY #102104 /* ~Oh, you are the most noble company I have ever met! Coran, my brave elf, will you take these awful dead roses from me?~ */
  IF ~~ THEN EXTERN ~_CORANJ~ 215
END

IF ~~ THEN BEGIN 40 // from:
  SAY #102106 /* ~Are you hurt, my poor hero? Ah, I'm so clumsy! I've scratched the most wonderful man I have ever met... you must think me so terrible. Now, allow me to bandage your wound with my handkerchief...~ */
  IF ~~ THEN REPLY #102107 /* ~Gods, have pity on me! Amelia, Coran gets hacked to pieces every other day. The scratch is nothing!~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",5)
GiveItemCreate("X#COWIRO","coran",1,0,0)
~ UNSOLVED_JOURNAL #102108 /* ~Amelia

We have encountered a maiden, apparently betrothed to a thief, who is hiding from her in the Firewine Bridge ruins. Apparently, Amelia cannot enter the ruins, but she cannot depart the area, either, until giving her fiancé a "yes" or "no" response - in the form of white and red roses, respectively. We agreed to restore to life a bunch of withered roses for her, and give it to this wretch, Natan. According to Amelia, it will set her free her from her vow.~ */ EXIT
  IF ~  Global("P#CoranMatch","GLOBAL",1)
~ THEN REPLY #102109 /* ~He has a woman to take care of his wounds, Amelia. Fare thee well.~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",5)
GiveItemCreate("X#COWIRO","coran",1,0,0)
~ UNSOLVED_JOURNAL #102108 /* ~Amelia

We have encountered a maiden, apparently betrothed to a thief, who is hiding from her in the Firewine Bridge ruins. Apparently, Amelia cannot enter the ruins, but she cannot depart the area, either, until giving her fiancé a "yes" or "no" response - in the form of white and red roses, respectively. We agreed to restore to life a bunch of withered roses for her, and give it to this wretch, Natan. According to Amelia, it will set her free her from her vow.~ */ EXIT
  IF ~  Global("P#CoranMatch","GLOBAL",1)
~ THEN REPLY #102110 /* ~There is no need. Coran, remind me to box your ears later... after I've skinned you alive.~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",5)
GiveItemCreate("X#COWIRO","coran",1,0,0)
~ UNSOLVED_JOURNAL #102108 /* ~Amelia

We have encountered a maiden, apparently betrothed to a thief, who is hiding from her in the Firewine Bridge ruins. Apparently, Amelia cannot enter the ruins, but she cannot depart the area, either, until giving her fiancé a "yes" or "no" response - in the form of white and red roses, respectively. We agreed to restore to life a bunch of withered roses for her, and give it to this wretch, Natan. According to Amelia, it will set her free her from her vow.~ */ EXIT
  IF ~~ THEN REPLY #102111 /* ~Hmm... good thing that we are going to a temple! They will have a priest at the ready, in case Coran perishes from his grievous hurts.~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",5)
GiveItemCreate("X#COWIRO","coran",1,0,0)
~ UNSOLVED_JOURNAL #102108 /* ~Amelia

We have encountered a maiden, apparently betrothed to a thief, who is hiding from her in the Firewine Bridge ruins. Apparently, Amelia cannot enter the ruins, but she cannot depart the area, either, until giving her fiancé a "yes" or "no" response - in the form of white and red roses, respectively. We agreed to restore to life a bunch of withered roses for her, and give it to this wretch, Natan. According to Amelia, it will set her free her from her vow.~ */ EXIT
  IF ~~ THEN REPLY #102112 /* ~We will take most gentle care of our ailing comrade, Amelia. I am sure he will forget this terrifying flesh wound for the pain he has now in his heart.~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",5)
GiveItemCreate("X#COWIRO","coran",1,0,0)
~ UNSOLVED_JOURNAL #102108 /* ~Amelia

We have encountered a maiden, apparently betrothed to a thief, who is hiding from her in the Firewine Bridge ruins. Apparently, Amelia cannot enter the ruins, but she cannot depart the area, either, until giving her fiancé a "yes" or "no" response - in the form of white and red roses, respectively. We agreed to restore to life a bunch of withered roses for her, and give it to this wretch, Natan. According to Amelia, it will set her free her from her vow.~ */ EXIT
  IF ~~ THEN REPLY #102113 /* ~Excuse me, whilst I gag. Just don't start reciting poetry, both of you, or I'll have your hides!~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",5)
GiveItemCreate("X#COWIRO","coran",1,0,0)
~ UNSOLVED_JOURNAL #102114 /* ~Amelia

We have encountered a maiden, apparently betrothed to a thief, who is hiding from her in the Firewine Bridge ruins. Apparently, Amelia cannot enter the ruins, but she cannot depart the area, either, until giving her fiancé a "yes" or "no" response - in the form of white and red roses, respectively. We agreed to restore to life a bunch of withered roses for he,r and give it to this wretch Natan. According to Amelia, it will set her free her from her vow.~ */ EXIT
  IF ~~ THEN REPLY #102115 /* ~*smile* I am sorry to take my smitten comrade from you, my lady, but we better get moving, if we are to free you from the curse.~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",5)
GiveItemCreate("X#COWIRO","coran",1,0,0)
~ UNSOLVED_JOURNAL #102108 /* ~Amelia

We have encountered a maiden, apparently betrothed to a thief, who is hiding from her in the Firewine Bridge ruins. Apparently, Amelia cannot enter the ruins, but she cannot depart the area, either, until giving her fiancé a "yes" or "no" response - in the form of white and red roses, respectively. We agreed to restore to life a bunch of withered roses for her, and give it to this wretch, Natan. According to Amelia, it will set her free her from her vow.~ */ EXIT
END

IF ~~ THEN BEGIN 41 // from: 37.3 35.2 32.4
  SAY #102116 /* ~No, there is no other way... it has to be the red roses...~ */
  IF ~~ THEN EXTERN ~_CORANJ~ 216
END

IF ~~ THEN BEGIN 42 // from:
  SAY #102118 /* ~No, it will not do, my dear friend. I need *these ones* restored and brought to Natan. *she sobs*~ */
  IF ~  CheckStatGT(Player1,15,INT)
~ THEN REPLY #102119 /* ~Oh? And why is that? How is one red rose different from another?~ */ GOTO 43
  IF ~~ THEN REPLY #102120 /* ~Please, do not cry. We are on our way to help you.~ */ GOTO 39
  IF ~~ THEN REPLY #102121 /* ~Well, you must know better - it's *your* curse, after all. We will go to the temple, restore the roses to life, and then we shall deliver them to Natan.~ */ GOTO 39
END

IF ~~ THEN BEGIN 43 // from: 42.0 35.1
  SAY #102122 /* ~My kind <PRO_LADYLORD>, I will gladly trade tales with you, after you deliver me from this terrible curse. *sobs* Please... help me.~ */
  IF ~~ THEN EXTERN ~_CORANJ~ 217
END

IF ~  Global("X#CoranSuccubus","GLOBAL",3)
~ THEN BEGIN 44 // from:
  SAY #102142 /* ~Roses opened too early that year.
When winds came and ice storms
The roses blooming, red and fair
Turned into monsters with thorns.~ */
  IF ~~ THEN EXTERN ~_CORANJ~ 228
END

IF ~~ THEN BEGIN 45 // from:
  SAY #102144 /* ~Coran... Coran, I do not know what I am. Probably a ghost.~ */
  IF ~~ THEN GOTO 46
END

IF ~~ THEN BEGIN 46 // from: 45.0
  SAY #102145 /* ~All I know is that I was to give an answer to the man I was promised to. He went into those dungeons in search of his fortune... and never came back. I swore to give him a red rose on my sixteenth birthday if I rejected his love, and a white one if I accepted it... and the oath brought me here. I cannot enter the place; I cannot find him... cannot give him the flowers.~ */
  IF ~~ THEN GOTO 47
END

IF ~~ THEN BEGIN 47 // from: 46.0
  SAY #102146 /* ~I wander around with a basket of withered roses - O, cruel fate!~ */
  IF ~~ THEN EXTERN ~_CORANJ~ 229
END

IF ~~ THEN BEGIN 48 // from:
  SAY #102148 /* ~Red...~ */
  IF ~~ THEN EXTERN ~_CORANJ~ 230
END

IF ~~ THEN BEGIN 49 // from:
  SAY #102150 /* ~Amelia... my name is Amelia.~ */
  IF ~~ THEN EXTERN ~_CORANJ~ 231
END

IF ~~ THEN BEGIN 50 // from:
  SAY #102152 /* ~Kind sir, I am delighted to meet a man of such exceptional gallantry and one so handsome... but your friend - <PRO_HESHE> is frowning... I would not want you to...~ */
  IF ~~ THEN REPLY #102153 /* ~We will help you, my dear woman, to the best of our abilities.~ */ GOTO 32
  IF ~~ THEN REPLY #102154 /* ~Good eye, wench. Indeed, we have no time for charity and roses.~ */ GOTO 33
  IF ~~ THEN REPLY #102155 /* ~Why can't you enter the dungeon by yourself, Amelia? ~ */ GOTO 34
END
