// creator  : weidu.exe (version 23600)
// argument : X#NATAN.DLG
// game     : .
// source   : ./override/X#NATAN.DLG
// dialog   : lang\en_us/dialog.tlk
// dialogF  : (none)

BEGIN ~X#NATAN~

IF ~  OR(2)
Global("X#CoranSuccubus","GLOBAL",13)
Global("X#CoranSuccubus","GLOBAL",17)
PartyHasItem("X#SUCRIN")
~ THEN BEGIN 0 // from:
  SAY #48566 /* ~A-ha! I can see from your faces, a bit burned and beaten, but rather self-content, that you have killed the demon... and here is her ring. Great! I am free now!~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",18)
TakePartyItem("X#SUCRIN")
~ GOTO 1
END

IF ~~ THEN BEGIN 1 // from: 0.0
  SAY #48567 /* ~I suppose you have cleaned this dungeon of treasure? *sighs* I'll go look for some other ruins. Thanks for rescuing me!~ */
  IF ~~ THEN REPLY #48568 /* ~'Thank you' does not buy meat and wine. Would not you express your gratitude in a more... materialistic way?~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",19)
~ GOTO 4
  IF ~~ THEN REPLY #48569 /* ~Wait, how were the roses involved?~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",19)
~ GOTO 5
  IF ~~ THEN REPLY #48570 /* ~Fare thee well, Natan... and stay out of trouble, will you? I may not happen along next time... ~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",19)
~ GOTO 8
END

IF ~  Global("X#CoranSuccubus","GLOBAL",16)
~ THEN BEGIN 2 // from:
  SAY #48571 /* ~What have you done?! The woman is a succubus, a demon! Long ago, a mage, who survived the fall of Ulcaster's School, invented a way to travel between the planes - those very powders. The succubus, whom he summoned to entertain him in his labors, has stolen the manual, but before she could get her claws on the powders, the mage warded the dungeon against her. Now she is free to travel between the planes... Oh, well... things happen, I guess. At least I am free from her spell now. Bloody roses!~ */
  IF ~~ THEN GOTO 3
END

IF ~~ THEN BEGIN 3 // from: 2.0
  SAY #48567 /* ~I suppose you have cleaned this dungeon of treasure? *sighs* I'll go look for some other ruins. Thanks for rescuing me!~ */
  IF ~~ THEN REPLY #48568 /* ~'Thank you' does not buy meat and wine. Would not you express your gratitude in a more... materialistic way?~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",19)
~ GOTO 4
  IF ~~ THEN REPLY #48569 /* ~Wait, how were the roses involved?~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",19)
~ GOTO 5
  IF ~~ THEN REPLY #48570 /* ~Fare thee well, Natan... and stay out of trouble, will you? I may not happen along next time... ~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",19)
~ GOTO 8
END

IF ~~ THEN BEGIN 4 // from: 7.0 3.0 1.0
  SAY #48572 /* ~I do not have any money - almost all that I have found, the succubus has taken. I have a few potions, but I hoped to sell them to sustain my living... for awhile... ~ */
  IF ~~ THEN REPLY #48573 /* ~Potions will do.~ */ GOTO 9
  IF ~~ THEN REPLY #48574 /* ~You need money more than I. Fare thee well, Natan... and stay out of troubles, will you? I may not happen along next time...~ */ GOTO 8
END

IF ~~ THEN BEGIN 5 // from: 3.1 1.1
  SAY #48575 /* ~Sorcery, that's how! I am but a thief... a good thief, <PRO_SIRMAAM>, but unaccustomed to dealing with things... unnatural. I came to Firewine for the same reason everybody does - treasure... and I saw a beautiful maiden outside the dungeon, collecting white wild roses in a small basket. She was so beautiful - it took my breath away. She could not get a flower from the very top of the bush, hanging just beyond her reach, so, naturally, I offered my help...~ */
  IF ~~ THEN GOTO 6
END

IF ~~ THEN BEGIN 6 // from: 5.0
  SAY #48576 /* ~When I grabbed for the flower, thorns sprung from the stem, and the rose turned scarlet with my blood. The terrible woman laughed and took it from me... I was enslaved. The enchantment was not perfect, and sometimes I could do things out of my free will - and that's how I came upon the notes of that mage, who summoned the succubus here in the first place, and found his magic powders. Among his other supplies, I found a potion he called Dead Water, and I sprayed it over the damned roses.~ */
  IF ~~ THEN GOTO 7
END

IF ~~ THEN BEGIN 7 // from: 6.0
  SAY #48577 /* ~The roses died, and my will was freed, but the demon was unrelenting. She said that she has time to wait... that I would either bring her the powders, or I would die in this dungeon. The rest you know... well, more or less. ~ */
  IF ~~ THEN REPLY #48578 /* ~"Thank you" does not buy meat and wine. Would not you express your gratitude in a more... materialistic way?~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",19)
~ GOTO 4
  IF ~~ THEN REPLY #48570 /* ~Fare thee well, Natan... and stay out of trouble, will you? I may not happen along next time... ~ */ DO ~SetGlobal("X#CoranSuccubus","GLOBAL",19)
~ GOTO 8
END

IF ~~ THEN BEGIN 8 // from: 7.1 4.1 3.2 1.2
  SAY #48579 /* ~Oh, I will be very cautious... Now, where did I meet that beggar who was selling a treasure map for Maztica? ~ */
  IF ~~ THEN DO ~EscapeArea()
AddexperienceParty(1000)
~ EXIT
END

IF ~~ THEN BEGIN 9 // from: 4.0
  SAY #48580 /* ~Easy come, easy go. They are yours. I must go now... life is too short to spend it on anything but adventure!~ */
  IF ~~ THEN DO ~GiveItem("POTN36",Player1)
GiveItem("POTN37",Player1)
GiveItem("POTN42",Player1)
GiveItem("POTN07",Player1)
EscapeArea()
AddexperienceParty(100)
~ EXIT
END

IF ~  Global("X#CoranSuccubus","GLOBAL",11)
~ THEN BEGIN 10 // from:
  SAY #48581 /* ~I adore Amelia...~ */
  IF ~~ THEN EXIT
END

IF ~  Global("X#CoranSuccubus","GLOBAL",7)
~ THEN BEGIN 11 // from:
  SAY #48582 /* ~The roses! Oh, by the gods, the roses! I... my will weakens by the second. Here, take this! That's what she wants! ~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",11)
TakePartyItem("X#COFRRO")
DestroyItem("X#COFRRO")
GiveItemCreate("X#CODYE1",Player1,1,0,0)
~ GOTO 12
END

IF ~~ THEN BEGIN 12 // from: 11.0
  SAY #48583 /* ~This woman... the demon... she tricked you! She will not leave, until she has the powders I gave you... I cannot say more now, but I swear that she is a being of pure evil. Please, please kill her and release me! ~ */
  IF ~~ THEN GOTO 13
END

IF ~~ THEN BEGIN 13 // from: 12.0
  SAY #48584 /* ~I must run to the Mistress' call.~ */
  IF ~  !InParty("coran")
~ THEN DO ~EscapeAreaMove("AR4500",4040,2091,SWW)
~ EXIT
  IF ~  InParty("coran")
Global("P#CoranMatch","GLOBAL",1)
!Global("X#CoranBlessed","GLOBAL",2)
~ THEN DO ~ActionOverride("natan",EscapeAreaMove("AR4500",4040,2091,SWW))
~ EXTERN ~CORANJ~ 202
  IF ~  InParty("coran")
Global("P#CoranMatch","GLOBAL",1)
Global("X#CoranBlessed","GLOBAL",2)
~ THEN DO ~ActionOverride("natan",EscapeAreaMove("AR4500",4040,2091,SWW))
~ EXTERN ~CORANJ~ 203
  IF ~  InParty("coran")
!Global("P#CoranMatch","GLOBAL",1)
GlobalLT("X#CoranBlessed","GLOBAL",2)
~ THEN DO ~ActionOverride("natan",EscapeAreaMove("AR4500",4040,2091,SWW))
~ EXTERN ~CORANJ~ 204
  IF ~  InParty("coran")
!Global("P#CoranMatch","GLOBAL",1)
Global("X#CoranBlessed","GLOBAL",2)
~ THEN DO ~ActionOverride("natan",EscapeAreaMove("AR4500",4040,2091,SWW))
~ EXTERN ~CORANJ~ 202
END

IF ~  GlobalGT("X#CoranSuccubus","GLOBAL",2)
GlobalLT("X#CoranSuccubus","GLOBAL",7)
~ THEN BEGIN 14 // from:
  SAY #48585 /* ~Hello there. Say, have you noticed a woman... the most beautiful woman you have ever seen, nearby?~ */
  IF ~  PartyHasItem("X#COWIRO")
~ THEN REPLY #48586 /* ~Yes, and I have bad news for you - she is not going to marry you, pal.~ */ GOTO 15
  IF ~~ THEN REPLY #48587 /* ~Not that I can recall.~ */ GOTO 16
  IF ~  PartyHasItem("X#COWIRO")
~ THEN REPLY #48588 /* ~So, you are the man she was promised to? Be reasonable, get out of this ghastly place, and free the woman of her vow!~ */ GOTO 17
  IF ~  PartyHasItem("X#COWIRO")
~ THEN REPLY #48589 /* ~Yes, I have seen her, and I would like to hear your side of the story.~ */ GOTO 18
END

IF ~~ THEN BEGIN 15 // from: 14.0
  SAY #48590 /* ~M-Marry? I would not marry that harpy for all the gold of Faerun... what did she say to you? Does she still have those bloody roses?~ */
  IF ~~ THEN REPLY #48591 /* ~Erm... she said that she is your betrothed, and that she was supposed to give you an answer on her sixteenth birthday by presenting you with either red or white roses. Her roses are but dust now, though. Can't you act like a grown-up and go sort your relationship out? It would make my life so much easier...~ */ GOTO 19
  IF ~~ THEN REPLY #48592 /* ~I want to hear your side of the story first.~ */ GOTO 18
  IF ~~ THEN REPLY #48593 /* ~Amelia said that you'd try to sully her name! You will die for that!~ */ GOTO 26
END

IF ~~ THEN BEGIN 16 // from: 14.1
  SAY #48594 /* ~Oh, good for you! If you see her - run for your life!~ */
  IF ~~ THEN REPLY #48595 /* ~What do you know of her?~ */ GOTO 18
  IF ~  GlobalGT("X#CoranSuccubus","GLOBAL",3)
~ THEN REPLY #48596 /* ~Well, to tell the truth, we did meet her. She said that she is your betrothed, and that she was supposed to give you an answer on her sixteenth birthday by presenting you with either red or white roses. Her roses are but dust now, though. Can't you act like a grown-up and go sort your relationship out?~ */ GOTO 19
  IF ~~ THEN REPLY #48593 /* ~Amelia said that you'd try to sully her name! You will die for that!~ */ GOTO 26
END

IF ~~ THEN BEGIN 17 // from: 14.2
  SAY #48597 /* ~What... what vow? What tale did that bitch cook up? Does she still have those bloody roses? ~ */
  IF ~~ THEN REPLY #48598 /* ~Erm... she said that she is your betrothed, and that she was supposed to give you an answer on her sixteenth birthday by presenting you with either red or white roses. Her roses are but dust now, though. Can't you act like a grown-up and go sort your relationship out? ~ */ GOTO 19
  IF ~~ THEN REPLY #48599 /* ~I want to hear your side of the story first. ~ */ GOTO 18
  IF ~~ THEN REPLY #48600 /* ~Amelia said that you'd try to sully her name! You will die for that! ~ */ GOTO 26
END

IF ~~ THEN BEGIN 18 // from: 17.1 16.0 15.1 14.3
  SAY #48601 /* ~I am but a thief... a good thief, <PRO_SIRMAAM>, but unaccustomed to deal with things... unnatural. I came to Firewine for the same reason everybody does - treasure... I saw her outside the dungeon, collecting white wild roses in a small basket. She was so beautiful; it took my breath away. She could not get a flower from the very top of the bush, hanging just beyond her reach, so naturally I offered my help...~ */
  IF ~~ THEN GOTO 21
END

IF ~~ THEN BEGIN 19 // from: 17.0 16.1 15.0
  SAY #48602 /* ~My dear <PRO_MANWOMAN>, those are all lies!~ */
  IF ~~ THEN GOTO 20
END

IF ~~ THEN BEGIN 20 // from: 19.0
  SAY #48601 /* ~I am but a thief... a good thief, <PRO_SIRMAAM>, but unaccustomed to deal with things... unnatural. I came to Firewine for the same reason everybody does - treasure... I saw her outside the dungeon, collecting white wild roses in a small basket. She was so beautiful; it took my breath away. She could not get a flower from the very top of the bush, hanging just beyond her reach, so naturally I offered my help...~ */
  IF ~~ THEN GOTO 21
END

IF ~~ THEN BEGIN 21 // from: 20.0 18.0
  SAY #48603 /* ~When I grabbed for the flower, thorns sprung from the stem and the rose turned scarlet with my blood. The terrible woman laughed and took it from me... I was enslaved. She ordered me to go into the dungeon and search for treasure for her. At first I did not know what she wanted, but sometimes I managed to fight the compulsion to adore and to obey her and search on my own for the answers.~ */
  IF ~~ THEN REPLY #48604 /* ~Go on...~ */ GOTO 22
  IF ~~ THEN REPLY #48605 /* ~So, she is some sort of an evil witch?  I'll kill her for you, if you have a coin. Oh, and spare me the rest of this awful story.~ */ GOTO 27
  IF ~~ THEN REPLY #48600 /* ~Amelia said that you'd try to sully her name! You will die for that! ~ */ GOTO 26
END

IF ~~ THEN BEGIN 22 // from: 21.0
  SAY #48606 /* ~One day I found a journal of a long-dead wizard.~ */
  IF ~~ THEN GOTO 23
END

IF ~~ THEN BEGIN 23 // from: 22.0
  SAY #48607 /* ~This man escaped from the disaster in the Ulcaster School and settled here, studying in solitude... except for a succubus that he summoned from the Abyss. She... entertained him, but also found out that he had created a set of magical powders, which, once combined, allowed the opening of gates between the planes. No summons, no ships... just powders combined in the right way... and voilą! The portal is opened. She tried to steal the mage's powders and the manual...~ */
  IF ~~ THEN GOTO 24
END

IF ~~ THEN BEGIN 24 // from: 23.0
  SAY #48608 /* ~The wizard, however, caught his demonic maiden red-handed, and she fled, carrying away the manual... but not the powders. He warded the ruins against her entry and continued living as a hermit, never bothering to recreate his notes. Among his other supplies I found a potion he called Dead Water, and I sprayed it over the damned roses.~ */
  IF ~~ THEN GOTO 25
END

IF ~~ THEN BEGIN 25 // from: 24.0
  SAY #48609 /* ~Alas, the roses died, and my will was freed, but the demon was unrelenting. She said that she has time to wait... that I will either bring her the powders, or I will die in this dungeon. I choose to die in the dungeon... better than get my life sucked out of me drop by drop by a succubus - and I have no doubt she'd do that once I give her the powders.~ */
  IF ~~ THEN REPLY #48610 /* ~Are you finished? Good. I am off to kill her then.~ */ DO ~ActionOverride("natan",DestroyItem("X#CODYE1"))
GiveItemCreate("X#CODYE2","natan",1,0,0)
~ GOTO 28
  IF ~~ THEN REPLY #48611 /* ~Maybe I can convince her to give you a break if we bring her the powder? Let me talk to her.~ */ DO ~ActionOverride("natan",DestroyItem("X#CODYE1"))
GiveItemCreate("X#CODYE2","natan",1,0,0)
~ GOTO 29
  IF ~~ THEN REPLY #48612 /* ~She said that you'd try to sully her name! You will die for that!~ */ DO ~ActionOverride("natan",DestroyItem("X#CODYE1"))
GiveItemCreate("X#CODYE2","natan",1,0,0)
~ GOTO 26
  IF ~~ THEN REPLY #48613 /* ~I think I'll just kill both of you and use the powders and manual myself.~ */ DO ~ActionOverride("natan",DestroyItem("X#CODYE1"))
GiveItemCreate("X#CODYE2","natan",1,0,0)
~ GOTO 30
  IF ~  Global("X#CoranCharmed","GLOBAL",1)
!InParty("coran")
~ THEN REPLY #48614 /* ~Amelia charmed one of my companions, as well. I guess there is little to it but to go kill her and release both you and Coran.~ */ DO ~ActionOverride("natan",DestroyItem("X#CODYE1"))
GiveItemCreate("X#CODYE2","natan",1,0,0)
~ GOTO 28
  IF ~~ THEN REPLY #48615 /* ~I would not want to be you, pal. Fear not, however, I can kill the demon and set you free... for a good coin, that is.~ */ DO ~ActionOverride("natan",DestroyItem("X#CODYE1"))
GiveItemCreate("X#CODYE2","natan",1,0,0)
~ GOTO 28
END

IF ~~ THEN BEGIN 26 // from: 30.0 25.2 21.2 17.2 16.2 15.2
  SAY #48616 /* ~So, you have fallen under her spell? Very well, let us fight. But you fight for succubus' honor! I'd rather die in battle than rot here or surrender to the demon!~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",8)
Enemy()
~ EXIT
END

IF ~~ THEN BEGIN 27 // from: 21.1
  SAY #48617 /* ~Ah, a <PRO_MANWOMAN> of actions? I see. I cannot offer you money, but in the old wizard's cache I found rare potions - I will give them to you, if you bring me proof that the demon is dead. A ring from her toe will suffice - I know that it cannot be removed from her while she is alive. Hey, do not stare at me like that! I know because I know.~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",9)
~ UNSOLVED_JOURNAL #48618 /* ~Amelia

Amelia is apparently a being of evil who has enslaved Natan. We agreed to kill Amelia and free Natan.~ */ EXIT
END

IF ~~ THEN BEGIN 28 // from: 30.2 30.1 25.5 25.4 25.0
  SAY #48617 /* ~Ah, a <PRO_MANWOMAN> of actions? I see. I cannot offer you money, but in the old wizard's cache I found rare potions - I will give them to you, if you bring me proof that the demon is dead. A ring from her toe will suffice - I know that it cannot be removed from her while she is alive. Hey, do not stare at me like that! I know because I know.~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",10)
~ UNSOLVED_JOURNAL #48619 /* ~Amelia

Amelia is apparently a succubus who is after some centuries old snuff-powders! She had enslaved Natan to find them for her. We agreed to kill Amelia and free Natan.~ */ EXIT
END

IF ~~ THEN BEGIN 29 // from: 25.1
  SAY #48620 /* ~I doubt she'd hold on to her end of the bargain. Besides, you will not really kill her - just cast her back into the Abyss, where she belongs. The Planes would be much better off without a succubus who can travel unobtrusively between them. Kill her, my good <PRO_LADYLORD>, I beg you. I cannot offer you money, but in the old wizard's cache I found rare potions - I will give them to you, if you bring me proof that the demon is dead. A ring from her toe will suffice - I know that it cannot be removed from her while she is alive. Hey, do not stare at me like that! I know because I know.~ */
  IF ~~ THEN DO ~SetGlobal("X#CoranSuccubus","GLOBAL",10)
~ UNSOLVED_JOURNAL #48619 /* ~Amelia

Amelia is apparently a succubus who is after some centuries old snuff-powders! She had enslaved Natan to find them for her. We agreed to kill Amelia and free Natan.~ */ EXIT
END

IF ~~ THEN BEGIN 30 // from: 25.3
  SAY #48621 /* ~How do you know if I carry the potions on me, or if I have hidden them somewhere? How do you know that Amelia still has the manual?~ */
  IF ~~ THEN REPLY #48622 /* ~I suppose I'll just have to trust my luck! Die, scum!~ */ GOTO 26
  IF ~~ THEN REPLY #48623 /* ~You are right. But I would not venture to kill a demon without some substantial reward to inspire my bravery...~ */ GOTO 28
  IF ~~ THEN REPLY #48624 /* ~Rats. All right, all right, I'll go kill her.~ */ GOTO 28
END
