BEGIN ~_HOBGO5~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @40140
  IF ~~ THEN REPLY @40141 GOTO 2
  IF ~~ THEN REPLY @40142 GOTO 1
  IF ~~ THEN REPLY @40143 GOTO 2
END

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

IF ~~ THEN BEGIN 2
  SAY @40145
  IF ~~ THEN REPLY @40146 GOTO 1
  IF ~~ THEN REPLY @40147 GOTO 3
  IF ~~ THEN REPLY @40148 GOTO 4
END

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

IF ~~ THEN BEGIN 4
  SAY @40150
  IF ~~ THEN REPLY @40151 GOTO 5
  IF ~~ THEN REPLY @40152 EXIT
END

IF ~~ THEN BEGIN 5
  SAY @40153
  IF ~~ THEN DO ~EscapeArea()~ JOURNAL @40154 EXIT
END

IF ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 6
  SAY @40155
  IF ~~ THEN JOURNAL @40156 EXIT
END

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