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

BEGIN ~_SHISTA~

IF ~True()
~ THEN BEGIN 0 // from:
  SAY #78991 /* ~Leave me be, stranger. I've... work to do.~ */
  IF ~~ THEN REPLY #78992 /* ~All the other monks gave me a warm welcome. Why not you?~ */ GOTO 2
  IF ~~ THEN REPLY #78993 /* ~Do you not recognize me? It is <CHARNAME>.~ */ GOTO 3
  IF ~~ THEN REPLY #78994 /* ~Sorry to have disturbed you. I will go.~ */ GOTO 1
END

IF ~~ THEN BEGIN 1 // from: 7.1 6.1 5.1 4.2 3.0 2.1 0.2
  SAY #51184 /* ~Good riddance.~ */
  IF ~~ THEN UNSOLVED_JOURNAL #78995 /* ~Return to Candlekeep

Shistal gave me a cold welcome back.  He seemed preoccupied, and almost did not recognize me.  Very strange, but I let him go on his way.~ */ EXIT
END

IF ~~ THEN BEGIN 2 // from: 0.0
  SAY #78996 /* ~I've no interest in idle chatter. If you knew the daily routine of a monk you would understand.~ */
  IF ~~ THEN REPLY #78997 /* ~I know the routine well. I lived here for many years. It is YOU who should know ME.~ */ GOTO 5
  IF ~~ THEN REPLY #78998 /* ~My apologies. I will not disturb you further.~ */ GOTO 1
END

IF ~~ THEN BEGIN 3 // from: 0.1
  SAY #78999 /* ~Um, certainly. <CHARNAME>. I did not recognize your face. My apologies. I trust your journeys have been comfortable? The Cloakwood can be cold this time of year. If you will excuse me, I should go.~ */
  IF ~~ THEN REPLY #79000 /* ~Of course. I will not disturb you further.~ */ GOTO 1
  IF ~~ THEN REPLY #79001 /* ~How did you know I had gone to the Cloakwood?~ */ GOTO 4
END

IF ~~ THEN BEGIN 4 // from: 3.1
  SAY #79002 /* ~Eh, I have relatives in the region. Yes, they must have seen you and sent a note on your progress.~ */
  IF ~~ THEN REPLY #79003 /* ~How would they know who I was? I think you're lying.~ */ GOTO 7
  IF ~~ THEN REPLY #79004 /* ~But Shistal, you never mentioned any family before.~ */ GOTO 6
  IF ~~ THEN REPLY #79005 /* ~That must be it. Sorry to have disturbed you.~ */ GOTO 1
END

IF ~~ THEN BEGIN 5 // from: 2.0
  SAY #79006 /* ~Of course. It is just that I did not recognize your face. I am just not acquainted with all of the monks quite yet.~ */
  IF ~~ THEN REPLY #79007 /* ~I was not a monk. I think you are lying.~ */ GOTO 7
  IF ~~ THEN REPLY #79008 /* ~Sorry then. I hope I haven't distressed you. Goodbye.~ */ GOTO 1
END

IF ~~ THEN BEGIN 6 // from: 4.1
  SAY #79009 /* ~We are estranged and do not see each other often. There was no need to mention it. I really should be going now. There are things I must do.~ */
  IF ~~ THEN REPLY #79010 /* ~I think you are lying to me, Shistal. You are not the same man I knew.~ */ GOTO 7
  IF ~~ THEN REPLY #79011 /* ~Sorry to have disturbed you.~ */ GOTO 1
END

IF ~~ THEN BEGIN 7 // from: 6.0 5.0 4.0
  SAY #79012 /* ~You would do well to leave me be. I tire of this game. Take your questions and go away, monkey.~ */
  IF ~~ THEN REPLY #79013 /* ~Oh no, I have many more questions to ask. For starters, who are you really?~ */ GOTO 8
  IF ~~ THEN REPLY #79014 /* ~I did not mean to alarm you. Perhaps I was mistaken. Goodbye.~ */ GOTO 1
END

IF ~~ THEN BEGIN 8 // from: 7.0
  SAY #79015 /* ~I am your deathhhh, foolish meat!~ */
  IF ~~ THEN DO ~EraseJournalEntry(78995)
ForceSpell(Myself,DOPPLEGANGER_CHANGE_DEFAULT)
Enemy()
~ UNSOLVED_JOURNAL #79016 /* ~Return to Candlekeep

Shistal was not Shistal!  I mean... Shistal, one of the monks that I knew and lived by, was replaced by a Doppelganger!  I talked the imposter into revealing himself, but there are likely more of them around.  How will I know who is a friend and who is an enemy?~ */ EXIT
  IF ~Global("X#SHISTA8","GLOBAL",0)
InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SHISTA8","GLOBAL",1)~ GOTO 9
  IF ~Global("X#SHISTA8","GLOBAL",0)
InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SHISTA8","GLOBAL",1)~ EXTERN ~_SHARTJ~ 158
  IF ~Global("X#SHISTA8","GLOBAL",0)
InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN DO ~SetGlobal("X#SHISTA8","GLOBAL",1)~ GOTO 11
  IF ~Global("X#SHISTA8","GLOBAL",0)
InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN DO ~SetGlobal("X#SHISTA8","GLOBAL",1)~ EXTERN ~_CORANJ~ 577
END

IF ~~ THEN BEGIN 9 // from: 8.1
  SAY #103264 /* ~Hahaaaaa!~ */
  IF ~~ THEN DO ~EraseJournalEntry(78995)
ForceSpell(Myself,DOPPLEGANGER_CHANGE_DEFAULT)
Enemy()
~ UNSOLVED_JOURNAL #79016 /* ~Return to Candlekeep

Shistal was not Shistal!  I mean... Shistal, one of the monks that I knew and lived by, was replaced by a Doppelganger!  I talked the imposter into revealing himself, but there are likely more of them around.  How will I know who is a friend and who is an enemy?~ */ EXIT
END

IF ~~ THEN BEGIN 10 // from: _SHARTJ:158.1
  SAY #103264 /* ~Hahaaaaa!~ */
  IF ~~ THEN DO ~EraseJournalEntry(78995)
ForceSpell(Myself,DOPPLEGANGER_CHANGE_DEFAULT)
Enemy()
~ UNSOLVED_JOURNAL #79016 /* ~Return to Candlekeep

Shistal was not Shistal!  I mean... Shistal, one of the monks that I knew and lived by, was replaced by a Doppelganger!  I talked the imposter into revealing himself, but there are likely more of them around.  How will I know who is a friend and who is an enemy?~ */ EXIT
END

IF ~~ THEN BEGIN 11 // from: 8.3
  SAY #103262 /* ~Ssssh...~ */
  IF ~~ THEN DO ~EraseJournalEntry(78995)
ForceSpell(Myself,DOPPLEGANGER_CHANGE_DEFAULT)
Enemy()
~ UNSOLVED_JOURNAL #79016 /* ~Return to Candlekeep

Shistal was not Shistal!  I mean... Shistal, one of the monks that I knew and lived by, was replaced by a Doppelganger!  I talked the imposter into revealing himself, but there are likely more of them around.  How will I know who is a friend and who is an enemy?~ */ EXIT
  IF ~  InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
~ THEN GOTO 12
  IF ~  InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
~ THEN EXTERN ~_SHARTJ~ 159
END

IF ~~ THEN BEGIN 12 // from: 11.1 _SHARTJ:159.1
  SAY #103264 /* ~Hahaaaaa!~ */
  IF ~~ THEN DO ~EraseJournalEntry(78995)
ForceSpell(Myself,DOPPLEGANGER_CHANGE_DEFAULT)
Enemy()
~ UNSOLVED_JOURNAL #79016 /* ~Return to Candlekeep

Shistal was not Shistal!  I mean... Shistal, one of the monks that I knew and lived by, was replaced by a Doppelganger!  I talked the imposter into revealing himself, but there are likely more of them around.  How will I know who is a friend and who is an enemy?~ */ EXIT
END

IF ~~ THEN BEGIN 13 // from:
  SAY #103262 /* ~Ssssh...~ */
  IF ~~ THEN DO ~EraseJournalEntry(78995)
ForceSpell(Myself,DOPPLEGANGER_CHANGE_DEFAULT)
Enemy()
~ UNSOLVED_JOURNAL #79016 /* ~Return to Candlekeep

Shistal was not Shistal!  I mean... Shistal, one of the monks that I knew and lived by, was replaced by a Doppelganger!  I talked the imposter into revealing himself, but there are likely more of them around.  How will I know who is a friend and who is an enemy?~ */ EXIT
  IF ~  InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
~ THEN GOTO 14
  IF ~  InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
~ THEN EXTERN ~_SHARTJ~ 160
END

IF ~~ THEN BEGIN 14 // from: 13.1 _SHARTJ:160.1
  SAY #103264 /* ~Hahaaaaa!~ */
  IF ~~ THEN DO ~EraseJournalEntry(78995)
ForceSpell(Myself,DOPPLEGANGER_CHANGE_DEFAULT)
Enemy()
~ UNSOLVED_JOURNAL #79016 /* ~Return to Candlekeep

Shistal was not Shistal!  I mean... Shistal, one of the monks that I knew and lived by, was replaced by a Doppelganger!  I talked the imposter into revealing himself, but there are likely more of them around.  How will I know who is a friend and who is an enemy?~ */ EXIT
END
