BEGIN ~tamah~

IF ~True()~ THEN BEGIN 0
  SAY @10641
  IF ~~ THEN REPLY @10642 GOTO 1
  IF ~~ THEN REPLY @10643 GOTO 2
  IF ~~ THEN REPLY @10667 GOTO 5
END

IF ~~ THEN BEGIN 1
  SAY @10668
  IF ~~ THEN REPLY @10875 GOTO 5
  IF ~~ THEN REPLY @10902 GOTO 2
END

IF ~~ THEN BEGIN 2
  SAY @10903
  IF ~~ THEN REPLY @10906 GOTO 5
  IF ~~ THEN REPLY @10907 GOTO 3
END

IF ~~ THEN BEGIN 3
  SAY @10908
  IF ~~ THEN REPLY @10909 GOTO 4
  IF ~~ THEN REPLY @10910 GOTO 6
END

IF ~~ THEN BEGIN 4
  SAY @10911
  IF ~~ THEN DO ~ReputationInc(-1)
EscapeArea()~ SOLVED_JOURNAL @310535 EXIT
END

IF ~~ THEN BEGIN 5
  SAY @10912
  IF ~~ THEN DO ~AddexperienceParty(300)
ReputationInc(1)
EscapeArea()~ SOLVED_JOURNAL @310536 EXIT
END

IF ~~ THEN BEGIN 6
  SAY @10913
  IF ~~ THEN DO ~EscapeArea()~ SOLVED_JOURNAL @310537 EXIT
END
