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

BEGIN ~PRIILMU~
//////////////////////////////////////////////////
// WARNING: this file contains non-trivial WEIGHTs
//////////////////////////////////////////////////

IF WEIGHT #1 /* Triggers after states #: 24 even though they appear after this state */
~  NumberOfTimesTalkedTo(0)
~ THEN BEGIN 0 // from:
  SAY #17000 /* ~Ah, suffer long, this unholy flesh.~ */
  IF ~~ THEN REPLY #17002 /* ~Yes, suffer long, my brother. I must go now.~ */ GOTO 1
  IF ~~ THEN REPLY #17003 /* ~Unholy flesh, is it? Yet is not flesh a thing of beauty, created in the very image of the divine?~ */ GOTO 2
  IF ~~ THEN REPLY #17004 /* ~I fear I will never understand your faith, brother. Our souls are tortured enough... Why is it that our flesh must also suffer?~ */ GOTO 3
  IF ~  InParty("eldoth")
InMyArea("eldoth")
!StateCheck("eldoth",CD_STATE_NOTVALID)
~ THEN EXTERN ~BELDOT~ 361
END

IF ~~ THEN BEGIN 1 // from: 12.0 3.1 0.0
  SAY #17001 /* ~Yes, yes. Go in pain then, child. Go in pain.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 2 // from: 0.1
  SAY #17005 /* ~The divine... heavenly thighs, the ruddy locks of Sune herself... Aye, there be a bit of the divine in each succubus, erinyes, or alu-fiend. The Nine Hells are full of good men and women burning in the very flames of their fallen passion!~ */
  IF ~~ THEN REPLY #17007 /* ~And who is Sune?~ */ GOTO 4
  IF ~~ THEN REPLY #17008 /* ~And burn they should. Love is a pure chalice not to be tainted with the poisoned wine of passion.~ */ GOTO 5
  IF ~~ THEN REPLY #17009 /* ~And are there no shades of gray?~ */ GOTO 6
  IF ~Global("X#XanPriilmu2","GLOBAL",0)
InParty("xan")
InMyArea("xan")
!StateCheck("xan",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#XanPriilmu2","GLOBAL",1)~ EXTERN ~XANJ~ 112
END

IF ~~ THEN BEGIN 3 // from: 0.2
  SAY #17006 /* ~Or is it the reverse? Our flesh is tortured because our souls are not troubled by the flesh's actions.~ */
  IF ~~ THEN REPLY #17021 /* ~And what actions might those be, priest?~ */ GOTO 7
  IF ~~ THEN REPLY #17022 /* ~In truth, I am a fan of neither rhetoric nor theology. Let me be, priest.~ */ GOTO 1
END

IF ~~ THEN BEGIN 4 // from: 2.0
  SAY #17010 /* ~Sune, Lady Firehair, the goddess of passion... I have met her in her earthly form in a... in an establishment near here...~ */
  IF ~~ THEN REPLY #17013 /* ~I have little desire to hear of your foolish fantasies.~ */ GOTO 7
  IF ~~ THEN REPLY #17014 /* ~And where might this... establishment... be?~ */ GOTO 8
  IF ~Global("X#GarPrii","GLOBAL",0)
InParty("garrick")
InMyArea("garrick")
!StateCheck("garrick",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#GarPrii","GLOBAL",1)~ EXTERN ~GARRIJ~ 94
END

IF ~~ THEN BEGIN 5 // from: 2.1
  SAY #17011 /* ~And what a sweet poison it is...~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 6 // from: 2.2
  SAY #17012 /* ~What shades of gray can you place on passion? It is a wild array of reds and violets and yellows, a heavenly kaleidoscope flesh... But think not of it, lest it tempt you to your doom.~ */
  IF ~~ THEN EXIT
  IF ~Global("X#VicPriI","GLOBAL",0)
InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#VicPriI","GLOBAL",1)~ EXTERN ~VICONJ~ 125
END

IF ~~ THEN BEGIN 7 // from: 12.1 4.0 3.0
  SAY #17015 /* ~I... But... Begone, or... or suffer the wrath of the gods upon your sinful flesh! I never spoke to you and know you not!~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 8 // from: 11.0 4.1
  SAY #17016 /* ~Ssh, you must... you must tell no one... It is called the Undercellar and I have a... a secret passage from my quarters. Would you... like to see?~ */
  IF ~~ THEN REPLY #17017 /* ~Yes, I would be most interested.~ */ GOTO 9
  IF ~~ THEN REPLY #17018 /* ~Perhaps another time.~ */ GOTO 10
END

IF ~~ THEN BEGIN 9 // from: 13.0 8.0
  SAY #17019 /* ~Come with me, then.~ */
  IF ~~ THEN DO ~ClearAllActions()
StartCutSceneMode()
StartCutScene("priilcut")
~ EXIT
END

IF ~~ THEN BEGIN 10 // from: 13.1 8.1
  SAY #17020 /* ~Yes, yes, of course... You know where to find me.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 11 // from:
  SAY #17023 /* ~There is a... a place I frequent, a woman I see...~ */
  IF ~~ THEN REPLY #17024 /* ~A place? Is it nearby?~ */ GOTO 8
  IF ~~ THEN REPLY #17025 /* ~A woman? What need has a priest for a woman?~ */ GOTO 12
END

IF ~~ THEN BEGIN 12 // from: 11.1
  SAY #17026 /* ~There is... There is nothing written against it. She gives me pain. She is my penance. What is wrong in that?~ */
  IF ~~ THEN REPLY #17028 /* ~Nothing. Nothing, brother, I merely asked.~ */ GOTO 1
  IF ~~ THEN REPLY #17029 /* ~There is plenty wrong in it, brother, and you should not need me to tell you so.~ */ GOTO 7
END

IF WEIGHT #2 /* Triggers after states #: 24 even though they appear after this state */
~  True()
~ THEN BEGIN 13 // from:
  SAY #17027 /* ~Ah, it is you, the one who took such an interest in the theological nature of the flesh and its sins. There be a passageway leading off my quarters which may allow you to investigate such sins close at hand. It, ahem, leads to a place called the Undercellar. Would you be interested in accompanying me?~ */
  IF ~~ THEN REPLY #17031 /* ~Yes, show me to the Undercellar.~ */ GOTO 9
  IF ~~ THEN REPLY #17032 /* ~The Undercellar? Perhaps another time...~ */ GOTO 10
END

IF WEIGHT #3 /* Triggers after states #: 24 even though they appear after this state */
~  False()
~ THEN BEGIN 14 // from:
  SAY #17033 /* ~Pain, oh dear sweet pain. I shall suffer your wrath and find my peace in it.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 15 // from:
  SAY #45851 /* ~Eh? Whozzat? Why, Eldoth! My boy, my boy. It has been a time, hasn't it?~ */
  IF ~~ THEN EXTERN ~BELDOT~ 362
END

IF ~~ THEN BEGIN 16 // from:
  SAY #45853 /* ~So I was. And so I did, for a time. But the Blackstaff is a cruel, hard man to run afoul of. Thus, I'm right pleased to be able to be here now.~ */
  IF ~~ THEN EXTERN ~BELDOT~ 363
END

IF ~~ THEN BEGIN 17 // from:
  SAY #45855 /* ~Oh, 'tisn't all scam, lad. My suffering's real enough.~ */
  IF ~~ THEN EXTERN ~BELDOT~ 364
END

IF ~~ THEN BEGIN 18 // from:
  SAY #45857 /* ~Sune, eh? Well, I won't deny that I am still acquainted with some... practical practitioners of the Lady's arts. Y'see, there's this place called the Undercellar, and...~ */
  IF ~~ THEN REPLY #45858 /* ~Ahem! I think these reminiscences have gone on *quite* long enough. We have a task that we must be about.~ */ DO ~SetGlobal("X#EldPriest1","GLOBAL",1)
~ GOTO 19
  IF ~  PartyHasItem("scrl3f")
!PartyHasItem("MISC78")
~ THEN REPLY #45859 /* ~The Undercellar? It is there we must go! At once!~ */ DO ~SetGlobal("X#EldPriest1","GLOBAL",1)
~ GOTO 20
  IF ~  PartyHasItem("MISC78")
~ THEN REPLY #45860 /* ~We've been there. The most interesting feature of the place is the brace of assassins we killed.~ */ DO ~SetGlobal("X#EldPriest1","GLOBAL",1)
~ GOTO 21
END

IF WEIGHT #4 /* Triggers after states #: 24 even though they appear after this state */
~  Global("X#EldPriest1","GLOBAL",1)
!Global("X#PRIELD","GLOBAL",3)
~ THEN BEGIN 19 // from: 18.0
  SAY #45861 /* ~Oooh, a proper young fogey, aren't we? Well, then, off with you, and I hope you like your suffering neat, when you find it.~ */
  IF ~~ THEN EXTERN ~BELDOT~ 365
END

IF ~~ THEN BEGIN 20 // from: 18.1
  SAY #45870 /* ~Whee! Aren't you the ardent young creature, then?~ */
  IF ~~ THEN REPLY #45871 /* ~No, no. Our enemies have set a rendezvous there. We must catch them!~ */ GOTO 22
END

IF ~~ THEN BEGIN 21 // from: 18.2
  SAY #45872 /* ~Ha! Prefer your cut-and-thrust to slap-and-tickle, eh? You'll learn in time - if you are granted time. Young Eldoth, there, would make you a good teacher.~ */
  IF ~~ THEN EXTERN ~ELDOTJ~ 66
END

IF ~~ THEN BEGIN 22 // from: 20.0
  SAY #45873 /* ~Sure, sure. One of the girls is a disguised green dragon, is it? Bet it's that new bird, Mistie, that everyone's... no. Well, I will show you a... private... entrance. But try not to wreck the place entirely, eh? I do suffer sublimely there!~ */
  IF ~~ THEN EXTERN ~ELDOTJ~ 65
END

IF ~~ THEN BEGIN 23 // from:
  SAY #45874 /* ~Find yourself the right girdle, and I *will* school you, lad. *sigh* Of course, at my age, you'd have to imagine a deal of it...~ */
  IF ~~ THEN EXIT
END

IF WEIGHT #0 ~  InParty("eldoth")
InMyArea("eldoth")
!StateCheck("eldoth",CD_STATE_NOTVALID)
Global("X#PRIELD","GLOBAL",4)
Global("X#EldPriest1","GLOBAL",1)
~ THEN BEGIN 24 // from:
  SAY #45875 /* ~Ah, returned you are. Care for the naughty jaunt, then?~ */
  IF ~~ THEN REPLY #45876 /* ~Yes, I think we should go there.~ */ GOTO 25
  IF ~~ THEN REPLY #45877 /* ~Uh... no. Forget I blundered back in here.~ */ EXIT
END

IF ~~ THEN BEGIN 25 // from: 24.0
  SAY #45878 /* ~Ah, sweet evening crowns the hottest day. This way.~ */
  IF ~~ THEN DO ~TakePartyGold(100)
SetGlobal("X#PRIELD","GLOBAL",2)
RealSetGlobalTimer("X#EldPoetPri","GLOBAL",TWO_MINUTES)
ActionOverride(Player1,LeaveAreaLUAPanic("AR0112","",[132.282],E))
ActionOverride(Player1,LeaveAreaLUA("AR0112","",[132.282],E))
ActionOverride(Player1,SetMasterArea("AR0112"))
ActionOverride(Player2,LeaveAreaLUA("AR0112","",[176.247],E))
ActionOverride(Player3,LeaveAreaLUA("AR0112","",[231.197],E))
ActionOverride(Player4,LeaveAreaLUA("AR0112","",[185.327],E))
ActionOverride(Player5,LeaveAreaLUA("AR0112","",[262.299],E))
ActionOverride(Player6,LeaveAreaLUA("AR0112","",[352.268],E))
~ EXIT
END
