BEGIN ~mtowbe~

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

IF WEIGHT #3 ~RandomNum(32,2)
!Global("BassilusDead","GLOBAL",2)~ THEN BEGIN 1
  SAY @377
  IF ~~ THEN UNSOLVED_JOURNAL @310561 EXIT
END

IF WEIGHT #4 ~RandomNum(32,3)~ THEN BEGIN 2
  SAY @378
  IF ~~ THEN EXIT
END

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

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

IF WEIGHT #7 ~RandomNum(32,6)~ THEN BEGIN 5
  SAY @385
  IF ~~ THEN JOURNAL @310775 EXIT
END

IF WEIGHT #8 ~RandomNum(32,7)~ THEN BEGIN 6
  SAY @386
  IF ~~ THEN EXIT
END

IF WEIGHT #9 ~RandomNum(32,8)~ THEN BEGIN 7
  SAY @387
  IF ~~ THEN EXIT
END

IF WEIGHT #10 ~RandomNum(32,9)~ THEN BEGIN 8
  SAY @389
  IF ~~ THEN EXIT
END

IF WEIGHT #11 ~RandomNum(32,10)~ THEN BEGIN 9
  SAY @397
  IF ~~ THEN EXIT
END

IF WEIGHT #12 ~RandomNum(32,11)~ THEN BEGIN 10
  SAY @398
  IF ~~ THEN JOURNAL @310567 EXIT
END

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

IF WEIGHT #14 ~RandomNum(32,13)~ THEN BEGIN 12
  SAY @400
  IF ~~ THEN EXIT
END

IF WEIGHT #15 ~RandomNum(32,14)
GlobalLT("Chapter","GLOBAL",7)~ THEN BEGIN 13
  SAY @833
  IF ~~ THEN JOURNAL @310568 EXIT
END

IF WEIGHT #16 ~RandomNum(32,15)
GlobalLT("Chapter","GLOBAL",7)~ THEN BEGIN 14
  SAY @834
  IF ~~ THEN JOURNAL @310568 EXIT
END

IF WEIGHT #17 ~RandomNum(32,16)~ THEN BEGIN 15
  SAY @835
  IF ~~ THEN JOURNAL @310569 EXIT
END

IF WEIGHT #18 ~RandomNum(32,17)~ THEN BEGIN 16
  SAY @836
  IF ~~ THEN JOURNAL @310569 EXIT
END

IF ~~ THEN BEGIN 17
  SAY @837
  IF ~~ THEN EXIT
END

IF WEIGHT #19 ~RandomNum(32,18)~ THEN BEGIN 18
  SAY @838
  IF ~~ THEN EXIT
END

IF WEIGHT #20 ~RandomNum(32,19)~ THEN BEGIN 19
  SAY @839
  IF ~~ THEN EXIT
END

IF WEIGHT #21 ~RandomNum(32,20)~ THEN BEGIN 20
  SAY @840
  IF ~~ THEN EXIT
END

IF WEIGHT #22 ~RandomNum(32,21)~ THEN BEGIN 21
  SAY @841
  IF ~~ THEN EXIT
END

IF WEIGHT #23 ~RandomNum(32,22)~ THEN BEGIN 22
  SAY @842
  IF ~~ THEN EXIT
END

IF WEIGHT #24 ~RandomNum(32,23)~ THEN BEGIN 23
  SAY @843
  IF ~~ THEN EXIT
END

IF WEIGHT #25 ~RandomNum(32,24)~ THEN BEGIN 24
  SAY @844
  IF ~~ THEN EXIT
END

IF WEIGHT #26 ~RandomNum(32,25)~ THEN BEGIN 25
  SAY @845
  IF ~~ THEN EXIT
END

IF WEIGHT #27 ~RandomNum(32,26)~ THEN BEGIN 26
  SAY @846
  IF ~~ THEN EXIT
END

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

IF ~~ THEN BEGIN 28
  SAY @9045
  IF ~~ THEN EXIT
END

IF WEIGHT #28 ~RandomNum(32,27)~ THEN BEGIN 29
  SAY @15963
  IF ~~ THEN EXIT
END

IF WEIGHT #29 ~RandomNum(32,28)~ THEN BEGIN 30
  SAY @15989
  IF ~~ THEN EXIT
END

IF WEIGHT #30 ~RandomNum(32,29)~ THEN BEGIN 31
  SAY @15992
  IF ~~ THEN EXIT
END

IF WEIGHT #31 ~RandomNum(32,30)~ THEN BEGIN 32
  SAY @16034
  IF ~~ THEN EXIT
END

IF WEIGHT #32 ~RandomNum(32,31)~ THEN BEGIN 33
  SAY @17722
  IF ~~ THEN REPLY @17723 GOTO 35
  IF ~~ THEN REPLY @17724 GOTO 34
END

IF ~~ THEN BEGIN 34
  SAY @17725
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 35
  SAY @17729
  IF ~~ THEN EXIT
END

IF WEIGHT #33 ~RandomNum(32,32)~ THEN BEGIN 36
  SAY @17768
  IF ~~ THEN REPLY @17770 GOTO 37
  IF ~~ THEN REPLY @17771 GOTO 38
END

IF ~~ THEN BEGIN 37
  SAY @17772
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 38
  SAY @17773
  IF ~~ THEN EXIT
END
