BEGIN ~minern~

IF WEIGHT #10 ~Global("SpokenToEmerson","GLOBAL",0)
NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @759
  IF ~~ THEN EXIT
END

IF WEIGHT #11 ~Global("SpokenToEmerson","GLOBAL",0)
NumTimesTalkedTo(1)~ THEN BEGIN 1
  SAY @760
  IF ~~ THEN EXIT
END

IF WEIGHT #0 ~RandomNum(8,1)~ THEN BEGIN 2
  SAY @761
  IF ~~ THEN EXIT
END

IF WEIGHT #1 ~StateCheck(Myself,STATE_CHARMED)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 3
  SAY @6307
  IF ~~ THEN UNSOLVED_JOURNAL @310464 EXIT
END

IF ~~ THEN BEGIN 4
  SAY @9155
  IF ~~ THEN EXIT
END

IF WEIGHT #3 ~RandomNum(8,2)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 5
  SAY @13923
  IF ~~ THEN UNSOLVED_JOURNAL @310332 EXIT
END

IF WEIGHT #4 ~RandomNum(8,3)~ THEN BEGIN 6
  SAY @13924
  IF ~~ THEN EXIT
END

IF WEIGHT #5 ~RandomNum(8,4)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 7
  SAY @13925
  IF ~~ THEN UNSOLVED_JOURNAL @310465 EXIT
END

IF WEIGHT #6 ~RandomNum(8,5)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 8
  SAY @13926
  IF ~~ THEN UNSOLVED_JOURNAL @310465 EXIT
END

IF WEIGHT #7 ~RandomNum(8,6)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 9
  SAY @13927
  IF ~~ THEN UNSOLVED_JOURNAL @310466 EXIT
END

IF WEIGHT #8 ~RandomNum(8,7)~ THEN BEGIN 10
  SAY @13928
  IF ~~ THEN EXIT
END

IF WEIGHT #9 ~RandomNum(8,8)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 11
  SAY @13929
  IF ~~ THEN UNSOLVED_JOURNAL @310465 EXIT
END
