BEGIN ~ftowba~

IF WEIGHT #4 ~RandomNum(9,1)~ THEN BEGIN 0
  SAY @1630
  IF ~~ THEN EXIT
END

IF WEIGHT #0 ~Global("Chapter","GLOBAL",8)
Global("ENDOFBG1","GLOBAL",0)
ReputationLT(Player1,9)~ THEN BEGIN 1
  SAY @1631
  IF ~~ THEN EXIT
END

IF WEIGHT #1 ~Global("Chapter","GLOBAL",8)
Global("ENDOFBG1","GLOBAL",0)
ReputationGT(Player1,8)
RandomNum(2,1)~ THEN BEGIN 2
  SAY @1632
  IF ~~ THEN EXIT
END

IF WEIGHT #2 ~Global("Chapter","GLOBAL",8)
Global("ENDOFBG1","GLOBAL",0)
ReputationGT(Player1,8)
RandomNum(2,2)~ THEN BEGIN 3
  SAY @1633
  IF ~~ THEN JOURNAL @310369 EXIT
END

IF WEIGHT #12 ~RandomNum(9,9)
Global("ENDOFBG1","GLOBAL",0)~ THEN BEGIN 4
  SAY @1634
  IF ~~ THEN JOURNAL @310370 EXIT
END

IF WEIGHT #3 ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 5
  SAY @6418
  IF ~~ THEN EXIT
END

IF WEIGHT #5 ~RandomNum(9,2)~ THEN BEGIN 6
  SAY @17693
  IF ~~ THEN REPLY @17696 GOTO 7
  IF ~~ THEN REPLY @17697 GOTO 8
END

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

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

IF WEIGHT #6 ~RandomNum(9,3)~ THEN BEGIN 9
  SAY @17732
  IF ~~ THEN REPLY @17737 GOTO 10
  IF ~~ THEN REPLY @17738 GOTO 11
END

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

IF ~~ THEN BEGIN 11
  SAY @17740
  IF ~~ THEN EXIT
END

IF WEIGHT #7 ~RandomNum(9,4)~ THEN BEGIN 12
  SAY @17957
  IF ~~ THEN EXIT
END

IF WEIGHT #8 ~RandomNum(9,5)~ THEN BEGIN 13
  SAY @17958
  IF ~~ THEN EXIT
END

IF WEIGHT #9 ~RandomNum(9,6)~ THEN BEGIN 14
  SAY @17959
  IF ~~ THEN EXIT
END

IF WEIGHT #10 ~RandomNum(9,7)~ THEN BEGIN 15
  SAY @17960
  IF ~~ THEN EXIT
END

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