BEGIN ~farmbe~

IF ~RandomNum(6,1)~ THEN BEGIN 0
  SAY @373
  IF ~~ THEN JOURNAL @310560 EXIT
END

IF ~RandomNum(6,2)~ THEN BEGIN 1
  SAY @374
  IF ~~ THEN JOURNAL @310768 EXIT
END

IF ~RandomNum(6,3)~ THEN BEGIN 2
  SAY @375
  IF ~~ THEN JOURNAL @310814 EXIT
END

IF ~~ THEN BEGIN 3
  SAY @381
  IF ~~ THEN REPLY @382 JOURNAL @310769 EXIT
END

IF ~RandomNum(6,4)
!Dead("DICK")~ THEN BEGIN 4
  SAY @388
  IF ~~ THEN UNSOLVED_JOURNAL @310583 EXIT
END

IF ~RandomNum(6,5)~ THEN BEGIN 5
  SAY @396
  IF ~~ THEN JOURNAL @310770 EXIT
END

IF ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 6
  SAY @6147
  IF ~~ THEN EXIT
END

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

IF ~RandomNum(6,6)~ THEN BEGIN 8
  SAY @10100
  IF ~~ THEN EXIT
END
