BEGIN ~faldor~

IF WEIGHT #1 ~NumTimesTalkedTo(0)
GlobalLT("ENDOFBG1","GLOBAL",2)
ReactionGT(LastTalkedToBy,HOSTILE_UPPER)~ THEN BEGIN 0
  SAY @777
  IF ~~ THEN REPLY @782 UNSOLVED_JOURNAL @310412 GOTO 3
  IF ~~ THEN REPLY @783 GOTO 2
END

IF WEIGHT #2 ~NumTimesTalkedTo(0)
GlobalLT("ENDOFBG1","GLOBAL",2)
ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)~ THEN BEGIN 1
  SAY @778
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 2
  SAY @779
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 3
  SAY @780
  IF ~~ THEN DO ~JoinParty()~ UNSOLVED_JOURNAL @310413 EXIT
END

IF ~~ THEN BEGIN 4
  SAY @781
  IF ~~ THEN EXIT
END

IF WEIGHT #3 ~GlobalLT("ENDOFBG1","GLOBAL",2)~ THEN BEGIN 5
  SAY @6138
  IF ~~ THEN REPLY @10887 EXIT
  IF ~~ THEN REPLY @10888 DO ~JoinParty()~ UNSOLVED_JOURNAL @310413 EXIT
END

IF WEIGHT #0 ~StateCheck(Myself,STATE_CHARMED)
GlobalLT("ENDOFBG1","GLOBAL",2)~ THEN BEGIN 6
  SAY @6139
  IF ~~ THEN JOURNAL @310786 EXIT
END

IF ~False()~ THEN BEGIN 7
  SAY @14741
  IF ~~ THEN DO ~~ EXIT
END

IF ~False()~ THEN BEGIN 8
  SAY @14742
  IF ~~ THEN DO ~~ EXIT
END