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

BEGIN ~_TAMAH~

IF ~True()
~ THEN BEGIN 0 // from:
  SAY #77975 /* ~What... who are... what has happened?~ */
  IF ~~ THEN REPLY #77976 /* ~Rest yourself, you have likely been petrified for some time now.~ */ GOTO 1
  IF ~~ THEN REPLY #77977 /* ~I have rescued you. What have to you give me as payment?~ */ GOTO 2
  IF ~~ THEN REPLY #77978 /* ~My name is unimportant. All that matters is that you are free.~ */ GOTO 5
  IF ~Global("X#VicTamah","GLOBAL",0)
InParty("viconia")
InMyArea("viconia")
!StateCheck("viconia",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#VicTamah","GLOBAL",1)~ EXTERN ~_VICONJ~ 124
END

IF ~~ THEN BEGIN 1 // from: _VICONJ:125.0 _VICONJ:124.0 0.0
  SAY #77979 /* ~Petri... ? How... I remember fighting some gnolls and... and one turned to stone right before my eyes! I turned around and there was this lizard-thing... and then... and then you. I was turned to stone? For how long?~ */
  IF ~~ THEN REPLY #77980 /* ~I do not know. All that is important is that you are free now.~ */ GOTO 5
  IF ~~ THEN REPLY #77981 /* ~I do not care. I suggest you pay me for your rescue, lest you join the dead once more.~ */ GOTO 2
END

IF ~~ THEN BEGIN 2 // from: _VICONJ:125.1 _VICONJ:124.1 1.1 0.1
  SAY #77982 /* ~Rescue? But I was... I was fighting gnolls and then... I couldn't move. You have saved me? I... I suppose I should offer you something, though I don't much like your tone. I have very little to give... I suppose you want gold or jewels?~ */
  IF ~~ THEN REPLY #77983 /* ~My apologies, I should not have taken advantage of you thus. Your thanks is reward enough.~ */ GOTO 5
  IF ~~ THEN REPLY #77984 /* ~Whatever you have is deservedly mine! You would still be "dead" without me!~ */ GOTO 3
END

IF ~~ THEN BEGIN 3 // from: 2.1
  SAY #77985 /* ~A valid point I suppose, though you have me at a disadvantage. I have little left in the world and nothing of value with me. In lieu of coins I will give you that which means the most to me. You may have my home, if that is what you wish.~ */
  IF ~~ THEN REPLY #77986 /* ~Yes yes yes, enough talk! Where is it?~ */ GOTO 4
  IF ~~ THEN REPLY #77987 /* ~I would not dream of it. Please, your freedom is reward enough.~ */ GOTO 6
END

IF ~~ THEN BEGIN 4 // from: 3.0
  SAY #77988 /* ~It is a lovely house next to a small lake just south of Beregost. I have no idea how long it has been deserted, though I am sure it shall suit your disposition just fine. I reluctantly thank you, and now take my leave.~ */
  IF ~~ THEN DO ~ReputationInc(-1)
EscapeArea()
~ SOLVED_JOURNAL #77989 /* ~Tamah rescued

I rescued a fighter who had allowed herself to be petrified by a basilisk.  I demanded proper payment from the fool and she has given me her house.  It is next to a lake just south of Beregost.  She has no idea how long it has been deserted.~ */ EXIT
  IF ~Global("X#BranwenTamah1","GLOBAL",0)
InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#BranwenTamah1","GLOBAL",1)~ EXTERN ~_BRANWJ~ 42
END

IF ~~ THEN BEGIN 5 // from: _VICONJ:125.2 _VICONJ:124.2 2.0 1.0 0.2
  SAY #77990 /* ~I... I thank you! You have rescued a perfect stranger and... and asked for nothing in return. Certainly a selfless act if ever I have heard of one. I shall speak well of you to anyone that asks. Thank you once again!~ */
  IF ~~ THEN DO ~AddexperienceParty(300)
ReputationInc(1)
EscapeArea()
~ SOLVED_JOURNAL #77991 /* ~Tamah rescued

I rescued a young fighter that had fallen before a basilisk.  Her gratitude was reward enough.~ */ EXIT
  IF ~Global("X#BranwenTamah2","GLOBAL",0)
InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#BranwenTamah2","GLOBAL",1)~ EXTERN ~_BRANWJ~ 45
END

IF ~~ THEN BEGIN 6 // from: 3.1
  SAY #77992 /* ~You are charitable, albeit reluctantly. I thank you for my rescue, and will not speak ill of you in my travels. Goodbye.~ */
  IF ~~ THEN DO ~EscapeArea()
~ SOLVED_JOURNAL #77993 /* ~Tamah rescued

I rescued a young fool that had fallen victim to a basilisk.  I suppose her gratitude is payment enough.~ */ EXIT
  IF ~Global("X#BranwenTamah3","GLOBAL",0)
InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#BranwenTamah3","GLOBAL",1)~ EXTERN ~_BRANWJ~ 48
END

IF ~~ THEN BEGIN 7 // from:
  SAY #98518 /* ~Have basilisks sneaked up on you also?~ */
  IF ~~ THEN DO ~ReputationInc(-1)
EscapeArea()
~ SOLVED_JOURNAL #77989 /* ~Tamah rescued

I rescued a fighter who had allowed herself to be petrified by a basilisk.  I demanded proper payment from the fool and she has given me her house.  It is next to a lake just south of Beregost.  She has no idea how long it has been deserted.~ */ EXIT
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN GOTO 9
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN EXTERN ~_BRANWJ~ 44
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN GOTO 8
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN EXTERN ~_BRANWJ~ 43
END

IF ~~ THEN BEGIN 8 // from: 7.3
  SAY #98520 /* ~That is horrible!~ */
  IF ~~ THEN DO ~ReputationInc(-1)
EscapeArea()
~ SOLVED_JOURNAL #77989 /* ~Tamah rescued

I rescued a fighter who had allowed herself to be petrified by a basilisk.  I demanded proper payment from the fool and she has given me her house.  It is next to a lake just south of Beregost.  She has no idea how long it has been deserted.~ */ EXIT
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN GOTO 9
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN EXTERN ~_BRANWJ~ 44
END

IF ~~ THEN BEGIN 9 // from: 8.1 7.1
  SAY #167 /* ~Thank you.~ */
  IF ~~ THEN DO ~ReputationInc(-1)
EscapeArea()
~ SOLVED_JOURNAL #77989 /* ~Tamah rescued

I rescued a fighter who had allowed herself to be petrified by a basilisk.  I demanded proper payment from the fool and she has given me her house.  It is next to a lake just south of Beregost.  She has no idea how long it has been deserted.~ */ EXIT
END

IF ~~ THEN BEGIN 10 // from:
  SAY #98518 /* ~Have basilisks sneaked up on you also?~ */
  IF ~~ THEN DO ~AddexperienceParty(300)
ReputationInc(1)
EscapeArea()
~ SOLVED_JOURNAL #77991 /* ~Tamah rescued

I rescued a young fighter that had fallen before a basilisk.  Her gratitude was reward enough.~ */ EXIT
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN GOTO 12
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN EXTERN ~_BRANWJ~ 47
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN GOTO 11
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN EXTERN ~_BRANWJ~ 46
END

IF ~~ THEN BEGIN 11 // from: 10.3
  SAY #98520 /* ~That is horrible!~ */
  IF ~~ THEN DO ~AddexperienceParty(300)
ReputationInc(1)
EscapeArea()
~ SOLVED_JOURNAL #77991 /* ~Tamah rescued

I rescued a young fighter that had fallen before a basilisk.  Her gratitude was reward enough.~ */ EXIT
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN GOTO 12
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN EXTERN ~_BRANWJ~ 47
END

IF ~~ THEN BEGIN 12 // from: 11.1 10.1
  SAY #167 /* ~Thank you.~ */
  IF ~~ THEN DO ~AddexperienceParty(300)
ReputationInc(1)
EscapeArea()
~ SOLVED_JOURNAL #77991 /* ~Tamah rescued

I rescued a young fighter that had fallen before a basilisk.  Her gratitude was reward enough.~ */ EXIT
END

IF ~~ THEN BEGIN 13 // from:
  SAY #98518 /* ~Have basilisks sneaked up on you also?~ */
  IF ~~ THEN DO ~EscapeArea()
~ SOLVED_JOURNAL #77993 /* ~Tamah rescued

I rescued a young fool that had fallen victim to a basilisk.  I suppose her gratitude is payment enough.~ */ EXIT
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN GOTO 15
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN EXTERN ~_BRANWJ~ 50
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN GOTO 14
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN EXTERN ~_BRANWJ~ 49
END

IF ~~ THEN BEGIN 14 // from: 13.3
  SAY #98520 /* ~That is horrible!~ */
  IF ~~ THEN DO ~EscapeArea()
~ SOLVED_JOURNAL #77993 /* ~Tamah rescued

I rescued a young fool that had fallen victim to a basilisk.  I suppose her gratitude is payment enough.~ */ EXIT
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN GOTO 15
  IF ~  InParty("branwen")
InMyArea("branwen")
!StateCheck("branwen",CD_STATE_NOTVALID)
~ THEN EXTERN ~_BRANWJ~ 50
END

IF ~~ THEN BEGIN 15 // from: 14.1 13.1
  SAY #167 /* ~Thank you.~ */
  IF ~~ THEN DO ~EscapeArea()
~ SOLVED_JOURNAL #77993 /* ~Tamah rescued

I rescued a young fool that had fallen victim to a basilisk.  I suppose her gratitude is payment enough.~ */ EXIT
END
