BEGIN ~beggna~

IF WEIGHT #2 ~RandomNum(4,1)~ THEN BEGIN 0
  SAY @354
  IF ~~ THEN JOURNAL @310354 EXIT
END

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

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

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

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