BEGIN ~tersus~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @20150
  IF ~~ THEN REPLY @20153 GOTO 1
  IF ~~ THEN REPLY @20155 GOTO 7
END

IF ~~ THEN BEGIN 1
  SAY @20157
  IF ~~ THEN REPLY @20158 GOTO 2
  IF ~~ THEN REPLY @20159 DO ~SetGlobal("TersusGiveLeather","GLOBAL",1)~ GOTO 6
END

IF ~~ THEN BEGIN 2
  SAY @20160
  IF ~~ THEN REPLY @20161 GOTO 4
  IF ~~ THEN REPLY @20162 GOTO 3
END

IF ~~ THEN BEGIN 3
  SAY @20163
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 4
  SAY @20164
  IF ~~ THEN REPLY @20168 GOTO 5
END

IF ~~ THEN BEGIN 5
  SAY @20169
  IF ~~ THEN UNSOLVED_JOURNAL @310541 EXIT
END

IF ~~ THEN BEGIN 6
  SAY @20173
  IF ~~ THEN REPLY @20174 UNSOLVED_JOURNAL @310542 GOTO 4
  IF ~~ THEN REPLY @20175 GOTO 3
END

IF ~~ THEN BEGIN 7
  SAY @20176
  IF ~~ THEN REPLY @20177 GOTO 2
  IF ~~ THEN REPLY @20178 GOTO 6
END

IF ~True()~ THEN BEGIN 8
  SAY @20180
  IF ~~ THEN EXIT
END
