// creator  : weidu.exe (version 23100)
// argument : DADROW23.DLG
// game		 : .
// source	 : ./DATA/DIALOG.BIF
// dialog	 : ./DIALOG.TLK
// dialogF  : (none)

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

IF WEIGHT #2 /* Triggers after states #: 6 7 even though they appear after this state */
~Gender(LastTalkedToBy,MALE)
CheckStatGT(LastTalkedToBy,13,CHR)~ THEN BEGIN 0 // from:
  SAY #57465 /* ~I welcome you to the lust chambers, male. I do so adore the presence of new blood... especially in such a handsome form, and with such battle prowess, I hear.~ */
  IF ~~ THEN GOTO 1
END

IF ~~ THEN BEGIN 1 // from: 0.0
  SAY #57467 /* ~You come from Ched Nasad.  I have heard that the Nasadrans are stuffy and conservative.  I am intrigued to see if this matter is the truth or not.~ */
  IF ~~ THEN GOTO 2
END

IF ~~ THEN BEGIN 2 // from: 1.0
  SAY #57470 /* ~Come, male.  I demand that you please me.  I have fought long in the Society for Lolth's valor, and I am in need of a reprieve for a night.~ */
  IF ~!InPartySlot(LastTalkedToBy,0)
!Name("Anomen",LastTalkedToBy)
!Name("HaerDalis",LastTalkedToBy)
!Name("Keldorn",LastTalkedToBy)
!Name("Cernd",LastTalkedToBy)
!Name("Jan",LastTalkedToBy)
!Name("Minsc",LastTalkedToBy)~ THEN REPLY #57471 /* ~I think I could handle that.~ */ GOTO 3
  IF ~!InPartySlot(LastTalkedToBy,0)
!Name("Keldorn",LastTalkedToBy)~ THEN REPLY #57472 /* ~Though you are, ah, beautiful... I am not interested.  Sorry.~ */ GOTO 4
  IF ~!InPartySlot(LastTalkedToBy,0)
!Name("Anomen",LastTalkedToBy)
!Name("HaerDalis",LastTalkedToBy)
!Name("Cernd",LastTalkedToBy)
!Name("Jan",LastTalkedToBy)
!Name("Minsc",LastTalkedToBy)~ THEN REPLY #57473 /* ~No!  I have no interested in such as you!  Do not disgust me!~ */ GOTO 5
  IF ~InPartySlot(LastTalkedToBy,0)
!Global("JaheiraRomance","GLOBAL",1)
!Global("JaheiraRomance","GLOBAL",2)
!Global("AerieRomance","GLOBAL",1)
!Global("AerieRomance","GLOBAL",2)~ THEN REPLY #57480 /* ~I think I could handle that.~ */ GOTO 3
  IF ~InPartySlot(LastTalkedToBy,0)~ THEN REPLY #57481 /* ~Though you are, ah, beautiful... I am not interested.  Sorry.~ */ GOTO 4
  IF ~InPartySlot(LastTalkedToBy,0)~ THEN REPLY #57482 /* ~No!  I have no interested in such as you!  Do not disgust me!~ */ GOTO 5
END

IF ~~ THEN BEGIN 3 // from: 2.3 2.0
  SAY #57474 /* ~You had better.  Come with me, then.  If you have companions, let them laze about in luxury while I teach you what it means to be a handsome male in Ust Natha...~ */
  IF ~~ THEN DO ~SetGlobal("sleptWithDAdrow23","GLOBAL",1)
RestParty()~ EXIT
END

IF ~~ THEN BEGIN 4 // from: 2.4 2.1
  SAY #57475 /* ~Bah!  The Nasadrans are as insipid and flaccid as I had suspected.  Begone with you, then, spineless worm.  What you are doing in the lust chambers is beyond my comprehension.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 5 // from: 2.5 2.2
  SAY #57476 /* ~You dare?!  Were this any other place than the lust chambers I would have your flesh flayed from your bones for such an insult!  Pray our paths do not cross again, worm!~ */
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF WEIGHT #0 ~Gender(LastTalkedToBy,MALE)
OR(8)
Global("sleptWithDAdrow23","GLOBAL",1)
CheckStatLT(LastTalkedToBy,14,CHR)
Global("ViconiaRomanceActive","GLOBAL",1)
Global("ViconiaRomanceActive","GLOBAL",2)
Global("AerieRomanceActive","GLOBAL",1)
Global("AerieRomanceActive","GLOBAL",2)
Global("JaheiraRomanceActive","GLOBAL",1)
Global("JaheiraRomanceActive","GLOBAL",2)~ THEN BEGIN 6 // from:
  SAY #57477 /* ~Hmmmnn... no.  I look for a male to please me, but you hold no interest to my eyes.  Move along.~ */
  IF ~~ THEN EXIT
END

IF WEIGHT #1 ~Gender(LastTalkedToBy,FEMALE)~ THEN BEGIN 7 // from:
  SAY #57479 /* ~Stand away from me, female.  I look for a competent male to please me this night, and I'll not have you crowding my space.  Begone!~ */
  IF ~~ THEN EXIT
END
