BEGIN ~mtowfr~

IF WEIGHT #3 ~RandomNum(17,1)~ THEN BEGIN 0
  SAY @853
  IF ~~ THEN EXIT
END

IF WEIGHT #4 ~RandomNum(17,2)
GlobalLT("Chapter","GLOBAL",7)~ THEN BEGIN 1
  SAY @854
  IF ~~ THEN JOURNAL @310502 EXIT
END

IF WEIGHT #5 ~RandomNum(17,3)
GlobalLT("Chapter","GLOBAL",7)~ THEN BEGIN 2
  SAY @855
  IF ~~ THEN JOURNAL @310502 EXIT
END

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

IF WEIGHT #7 ~RandomNum(17,5)~ THEN BEGIN 4
  SAY @857
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 5
  SAY @858
  IF ~~ THEN EXIT
END

IF WEIGHT #8 ~RandomNum(17,6)~ THEN BEGIN 6
  SAY @859
  IF ~~ THEN EXIT
END

IF WEIGHT #9 ~RandomNum(17,7)~ THEN BEGIN 7
  SAY @1471
  IF ~~ THEN EXIT
END

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

IF WEIGHT #11 ~RandomNum(17,9)~ THEN BEGIN 9
  SAY @1473
  IF ~~ THEN EXIT
END

IF WEIGHT #12 ~RandomNum(17,10)~ THEN BEGIN 10
  SAY @1474
  IF ~~ THEN EXIT
END

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

IF WEIGHT #14 ~RandomNum(17,12)~ THEN BEGIN 12
  SAY @3458
  IF ~~ THEN EXIT
END

IF WEIGHT #1 ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 13
  SAY @6423
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 14
  SAY @9044
  IF ~~ THEN EXIT
END

IF WEIGHT #15 ~RandomNum(17,13)~ THEN BEGIN 15
  SAY @15949
  IF ~~ THEN EXIT
END

IF WEIGHT #16 ~RandomNum(17,14)~ THEN BEGIN 16
  SAY @16036
  IF ~~ THEN EXIT
END

IF WEIGHT #17 ~RandomNum(17,15)~ THEN BEGIN 17
  SAY @16037
  IF ~~ THEN EXIT
END

IF WEIGHT #19 ~RandomNum(17,17)~ THEN BEGIN 18
  SAY @17731
  IF ~~ THEN REPLY @17733 GOTO 19
  IF ~~ THEN REPLY @17734 GOTO 20
END

IF ~~ THEN BEGIN 19
  SAY @17735
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 20
  SAY @17736
  IF ~~ THEN EXIT
END

IF WEIGHT #18 ~RandomNum(17,16)~ THEN BEGIN 21
  SAY @17756
  IF ~~ THEN REPLY @17757 GOTO 22
  IF ~~ THEN REPLY @17758 GOTO 23
END

IF ~~ THEN BEGIN 22
  SAY @17759
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 23
  SAY @17763
  IF ~~ THEN EXIT
END
