BEGIN ~THEREL~

IF  ~Global("Therella","GLOBAL",2) !Dead("Dalton")
~ THEN BEGIN The10
  SAY  ~Thank you for rescuing Dalton.  He arrived back here just a few days before you did.  The tales he had to tell were quite fantastic, demon knights!  Well, it was nice seeing my son even if wasn't for long.  Here is some of my savings for your time.~
  IF ~~ THEN DO ~GiveGoldForce(300)~ GOTO The11
END

IF ~~ THEN BEGIN The11
  SAY  ~Your rescue may have been in vain, however. Dalton has set off in search of adventure again. That stupid, stupid child.~
  IF ~~ THEN DO ~SetGlobal("Therella","GLOBAL",9) ~ EXIT
END

IF ~Global("Therella","GLOBAL",9)~ THEN BEGIN The12
  SAY ~I must return to my worrying. Excuse me.~
  IF ~~ THEN EXIT
END

IF ~Global("Therella","GLOBAL",1) ~ THEN BEGIN The13
  SAY ~Please keep looking for my poor son.  I don't know how much longer I can bear to be apart from him.~
  IF ~~ THEN EXIT
END

IF ~Dead("Dalton") ~ THEN BEGIN The14
  SAY ~Have you found Dalton yet?  I so worried about my boy.~
  IF ~~ THEN REPLY ~No, he's dead.  The whiny little boy had it coming.~ GOTO The15
  IF ~~ THEN REPLY~I'm sorry Therella, there was little we could do.  Your son is dead.~ GOTO The16
END

IF ~~ THEN BEGIN The15
  SAY  ~You...you...MONSTERS!!!!~
  IF ~~ THEN DO ~EscapeArea()  ~ EXIT
END

IF ~~ THEN BEGIN The16
  SAY ~My son is dead.  But....I can't believe......it's not fair.  Why is fate so cruel?~
  IF ~~ THEN DO ~EscapeArea() ~ EXIT
END

IF ~Global("TherTalk","GLOBAL",1) Global("Therella","GLOBAL",0)~ THEN BEGIN The17
  SAY  ~You must excuse me if I've not a happy word to share this day. There has been a loss in the family, you see.~
  IF ~~ THEN REPLY  ~Worry not, lady. Is there anything that we could do to help?~  GOTO The3
  IF ~~ THEN REPLY  ~I see. We shall not bother you any longer, in that case.~  GOTO The4
  IF ~~ THEN REPLY  ~I care not for your petty problems. I have questions that need to be answered. ~  GOTO The5
END

IF ~NumTimesTalkedTo(0) ReactionGT(LastTalkedToBy(),HOSTILE_UPPER)~ THEN BEGIN The0
  SAY  ~Greetings, adventurers. You must excuse me if I've nary a happy word to share this day. There has been a loss in the family, you see.~
  IF ~~ THEN REPLY  ~Worry not, lady. Is there anything that we could do to help?~ GOTO The3
  IF ~~ THEN REPLY ~I see. We shall not bother you any longer, in that case.~  GOTO The4
  IF ~~ THEN REPLY ~I care not for your petty problems. I have questions that need to be answered. ~ GOTO The5
END

IF ~NumTimesTalkedTo(0) ReactionGT(LastTalkedToBy(),NEUTRAL_UPPER) ~ THEN BEGIN The1
  SAY  ~Noble people, I beg your forgiveness for my grim visage. There has been a disappearance in my family. I still mourn the loss.~
  IF ~~ THEN REPLY  ~Worry not, lady. Is there anything that we could do to help?~  GOTO The3
  IF ~~ THEN REPLY ~I see. We shall not bother you any longer, in that case.~ GOTO The4
  IF ~~ THEN REPLY  ~I care not for your petty problems. I have questions that need to be answered. ~  GOTO The5
END

IF ~NumTimesTalkedTo(0) ReactionLT(LastTalkedToBy(),NEUTRAL_LOWER)~ THEN BEGIN The2
  SAY  ~Please leave me be. I am in mourning.~
  IF ~~ THEN REPLY  ~Worry not, lady. Is there anything that we could do to help?~  GOTO The3
  IF ~~ THEN REPLY  ~I see. We shall not bother you any longer, in that case.~ GOTO The4
  IF ~~ THEN REPLY  ~I care not for your petty problems. I have questions that need to be answered. ~ GOTO The5
END

IF ~~ THEN BEGIN The3
  SAY  ~Unless you wish to search for my errant son, then no.~
  IF ~~ THEN REPLY  ~Tell us the tale and we might be able to help.~  GOTO The6
  IF ~~ THEN REPLY ~As you will. Good day.~  GOTO The4
END

IF ~~ THEN BEGIN The4
  SAY ~May your stay in Ulgoth's Beard be happier than mine.~
  IF ~~ THEN DO ~SetGlobal("TherTalk","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN The5
  SAY  ~I have done nothing to deserve such unkindness. Leave me to my mourning.~
  IF ~~ THEN DO ~SetGlobal("TherTalk","GLOBAL",1) ~ EXIT
END

IF ~~ THEN BEGIN The6
  SAY ~I have, or perhaps I should say had, a son named Dalton. He fell in with a crew of adventurers from Waterdeep. Dalton was always obsessed with the idea of being a hero. Alas, he has neither the brains nor the ability. Such is a mother's lot in life however, to watch her children perform acts of idiocy despite her warnings or concerns.~
  IF ~~ THEN JOURNAL  ~In Ulgoth's Beard, a woman named Therella has asked us to look for her errant son in Durlag's Tower.~  GOTO The7
END

IF ~~ THEN BEGIN The7
  SAY ~My poor boy took those acts of idiocy to the extreme. He and his thickskulled cohorts took it upon themselves to plumb the depths of Durlag's Tower. They bought a ward token from that shyster, Galkin, and made ready to leave. Though I begged and cried, Dalton still insisted on going. The band never returned. I fear that they were destroyed by the mad dwarf's machinations. That is the tale, sad but true.~
  IF ~~ THEN REPLY ~I wish I could help, but we have other concerns at present.~  GOTO The8
  IF ~~ THEN REPLY ~Rest easy, woman. We will find your son if he still lives.~ GOTO The9
  IF ~~ THEN REPLY ~He deserved his fate. Cease your pointless weeping.~  GOTO The5
END

IF ~~ THEN BEGIN The8
  SAY ~If you say so. Excuse me.~
  IF ~~ THEN DO ~SetGlobal("TherTalk","GLOBAL",1)~ EXIT
END

IF ~~ THEN BEGIN The9
  SAY ~Thank you so much. Such kindness from strangers is unheard of in this harsh life. I will await Dalton's return with breathless anticicpation.~
  IF ~~ THEN DO ~SetGlobal("Therella","GLOBAL",1) ~ EXIT
END