BEGIN ~ftowbe~

IF WEIGHT #5 ~RandomNum(16,1)
!Global("BassilusDead","GLOBAL",2)~ THEN BEGIN 0
  SAY @380
  IF ~~ THEN UNSOLVED_JOURNAL @310561 EXIT
END

IF WEIGHT #6 ~RandomNum(16,2)~ THEN BEGIN 1
  SAY @847
  IF ~~ THEN EXIT
END

IF WEIGHT #7 ~RandomNum(16,3)~ THEN BEGIN 2
  SAY @848
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 3
  SAY @849
  IF ~~ THEN EXIT
END

IF WEIGHT #0 ~GlobalGT("Chapter","GLOBAL",3)~ THEN BEGIN 4
  SAY @850
  IF ~~ THEN EXIT
END

IF WEIGHT #8 ~RandomNum(16,4)~ THEN BEGIN 5
  SAY @851
  IF ~~ THEN EXIT
END

IF WEIGHT #9 ~RandomNum(16,5)~ THEN BEGIN 6
  SAY @852
  IF ~~ THEN EXIT
END

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

IF ~~ THEN BEGIN 8
  SAY @9058
  IF ~~ THEN EXIT
END

IF WEIGHT #10 ~RandomNum(16,6)~ THEN BEGIN 9
  SAY @15961
  IF ~~ THEN EXIT
END

IF WEIGHT #11 ~RandomNum(16,7)~ THEN BEGIN 10
  SAY @15962
  IF ~~ THEN EXIT
END

IF WEIGHT #12 ~RandomNum(16,8)~ THEN BEGIN 11
  SAY @15943
  IF ~~ THEN EXIT
END

IF WEIGHT #13 ~RandomNum(16,9)~ THEN BEGIN 12
  SAY @16035
  IF ~~ THEN EXIT
END

IF WEIGHT #18 ~RandomNum(16,16)~ THEN BEGIN 13
  SAY @17701
  IF ~~ THEN REPLY @17703 GOTO 15
  IF ~~ THEN REPLY @17704 GOTO 14
END

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

IF ~~ THEN BEGIN 15
  SAY @17707
  IF ~~ THEN EXIT
END

IF WEIGHT #14 ~RandomNum(16,10)~ THEN BEGIN 16
  SAY @17779
  IF ~~ THEN REPLY @17780 GOTO 17
  IF ~~ THEN REPLY @17781 GOTO 18
END

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

IF ~~ THEN BEGIN 18
  SAY @17786
  IF ~~ THEN EXIT
END

IF WEIGHT #15 ~RandomNum(16,11)~ THEN BEGIN 19
  SAY @17971
  IF ~~ THEN EXIT
END

IF WEIGHT #16 ~RandomNum(16,12)~ THEN BEGIN 20
  SAY @17973
  IF ~~ THEN EXIT
END

IF WEIGHT #17 ~RandomNum(16,13)~ THEN BEGIN 21
  SAY @17974
  IF ~~ THEN EXIT
END

IF WEIGHT #3 ~RandomNum(16,14)~ THEN BEGIN 22
  SAY @10924
  IF ~~ THEN EXIT
END

IF WEIGHT #4 ~RandomNum(16,15)~ THEN BEGIN 23
  SAY @10927
  IF ~~ THEN EXIT
END
