BEGIN ~dalton~

IF ~Dead("DeathK")~ THEN BEGIN 0
  SAY @22697
  IF ~~ THEN REPLY @22698 GOTO 1
  IF ~~ THEN REPLY @22699 SOLVED_JOURNAL @310608 GOTO 2
  IF ~Global("Therella","GLOBAL",1)~ THEN REPLY @22700 SOLVED_JOURNAL @310609 GOTO 3
  IF ~~ THEN REPLY @22702 SOLVED_JOURNAL @310608 GOTO 5
  IF ~~ THEN REPLY @22708 SOLVED_JOURNAL @310608 GOTO 4
END

IF ~~ THEN BEGIN 1
  SAY @22701
  IF ~~ THEN REPLY @22739 SOLVED_JOURNAL @310608 GOTO 4
  IF ~~ THEN REPLY @22740 SOLVED_JOURNAL @310608 GOTO 6
  IF ~Global("Therella","GLOBAL",1)~ THEN REPLY @22741 SOLVED_JOURNAL @310609 GOTO 3
  IF ~~ THEN REPLY @22742 SOLVED_JOURNAL @310608 GOTO 2
  IF ~~ THEN REPLY @22743 SOLVED_JOURNAL @310608 GOTO 4
END

IF ~~ THEN BEGIN 2
  SAY @22703
  IF ~~ THEN DO ~SetGlobal("Therella","GLOBAL",2)
EraseJournalEntry(@310606)
EraseJournalEntry(@310607)
EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 3
  SAY @22704
  IF ~~ THEN REPLY @22705 GOTO 4
  IF ~~ THEN REPLY @22706 GOTO 4
END

IF ~~ THEN BEGIN 4
  SAY @22707
  IF ~~ THEN DO ~SetGlobal("Therella","GLOBAL",2)
EraseJournalEntry(@310606)
EraseJournalEntry(@310607)
EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 5
  SAY @22709
  IF ~~ THEN DO ~SetGlobal("Therella","GLOBAL",2)
EraseJournalEntry(@310606)
EraseJournalEntry(@310607)
EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 6
  SAY @22747
  IF ~~ THEN REPLY @22748 GOTO 4
  IF ~~ THEN REPLY @22752 GOTO 4
END
