BEGIN ~hobgo5~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @5096
  IF ~~ THEN REPLY @5097 GOTO 2
  IF ~~ THEN REPLY @5098 GOTO 1
  IF ~~ THEN REPLY @5099 GOTO 2
END

IF ~~ THEN BEGIN 1
  SAY @5100
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 2
  SAY @5101
  IF ~~ THEN REPLY @5102 GOTO 1
  IF ~~ THEN REPLY @5103 GOTO 3
  IF ~~ THEN REPLY @5104 GOTO 4
END

IF ~~ THEN BEGIN 3
  SAY @5105
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 4
  SAY @5106
  IF ~~ THEN REPLY @5107 GOTO 5
  IF ~~ THEN REPLY @5108 EXIT
END

IF ~~ THEN BEGIN 5
  SAY @5109
  IF ~~ THEN DO ~EscapeArea()~ UNSOLVED_JOURNAL @310427 EXIT
END

IF ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 6
  SAY @6259
  IF ~~ THEN UNSOLVED_JOURNAL @310428 EXIT
END

IF ~~ THEN BEGIN 7
  SAY @6260
  IF ~~ THEN EXIT
END
