BEGIN ~mtowna~

IF WEIGHT #2 ~RandomNum(13,1)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 0
  SAY @320
  IF ~~ THEN UNSOLVED_JOURNAL @310562 EXIT
END

IF WEIGHT #3 ~RandomNum(13,2)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 1
  SAY @321
  IF ~~ THEN UNSOLVED_JOURNAL @310559 EXIT
END

IF WEIGHT #4 ~RandomNum(13,3)
GlobalLT("Chapter","GLOBAL",7)~ THEN BEGIN 2
  SAY @322
  IF ~~ THEN JOURNAL @310475 EXIT
END

IF WEIGHT #5 ~RandomNum(13,4)~ THEN BEGIN 3
  SAY @323
  IF ~~ THEN EXIT
END

IF WEIGHT #6 ~RandomNum(13,5)~ THEN BEGIN 4
  SAY @324
  IF ~~ THEN EXIT
END

IF WEIGHT #7 ~RandomNum(13,6)
!Global("OublekBounty1","GLOBAL",1)~ THEN BEGIN 5
  SAY @325
  IF ~~ THEN UNSOLVED_JOURNAL @310570 EXIT
END

IF WEIGHT #0 ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 6
  SAY @6292
  IF ~~ THEN EXIT
END

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

IF WEIGHT #8 ~RandomNum(13,7)~ THEN BEGIN 8
  SAY @17669
  IF ~~ THEN REPLY @17674 GOTO 9
  IF ~~ THEN REPLY @17675 GOTO 10
END

IF ~~ THEN BEGIN 9
  SAY @17676
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 10
  SAY @17677
  IF ~~ THEN EXIT
END

IF WEIGHT #14 ~RandomNum(13,13)~ THEN BEGIN 11
  SAY @17692
  IF ~~ THEN REPLY @17694 GOTO 12
  IF ~~ THEN REPLY @17695 GOTO 13
END

IF ~~ THEN BEGIN 12
  SAY @17700
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 13
  SAY @17702
  IF ~~ THEN EXIT
END

IF WEIGHT #9 ~RandomNum(13,8)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 14
  SAY @17976
  IF ~~ THEN EXIT
END

IF WEIGHT #10 ~RandomNum(13,9)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 15
  SAY @17978
  IF ~~ THEN EXIT
END

IF WEIGHT #11 ~RandomNum(13,10)
GlobalLT("Chapter","GLOBAL",4)~ THEN BEGIN 16
  SAY @17979
  IF ~~ THEN EXIT
END

IF WEIGHT #12 ~RandomNum(13,11)~ THEN BEGIN 17
  SAY @17987
  IF ~~ THEN EXIT
END

IF WEIGHT #13 ~RandomNum(13,12)~ THEN BEGIN 18
  SAY @17988
  IF ~~ THEN EXIT
END
