BEGIN ~gregor~

IF ~True()~ THEN BEGIN 0
  SAY @20095
  IF ~~ THEN REPLY @20097 GOTO 1
  IF ~~ THEN REPLY @20104 GOTO 2
END

IF ~~ THEN BEGIN 1
  SAY @20099
  IF ~~ THEN REPLY @20136 GOTO 6
  IF ~~ THEN REPLY @20139 GOTO 4
END

IF ~~ THEN BEGIN 2
  SAY @20105
  IF ~~ THEN REPLY @20109 GOTO 3
  IF ~~ THEN REPLY @20110 GOTO 4
END

IF ~~ THEN BEGIN 3
  SAY @20111
  IF ~~ THEN REPLY @20114 GOTO 6
  IF ~~ THEN REPLY @20124 GOTO 7
END

IF ~~ THEN BEGIN 4
  SAY @20125
  IF ~~ THEN REPLY @20151 GOTO 7
  IF ~~ THEN REPLY @20152 GOTO 6
END

IF ~~ THEN BEGIN 5
  SAY @20141
  IF ~~ THEN REPLY @20144 GOTO 7
  IF ~~ THEN REPLY @20145 GOTO 6
END

IF ~~ THEN BEGIN 6
  SAY @20147
  IF ~~ THEN DO ~Enemy()~ JOURNAL @310378 EXIT
END

IF ~~ THEN BEGIN 7
  SAY @20154
  IF ~~ THEN DO ~EscapeArea()~ JOURNAL @310378 EXIT
END
