ADD_STATE_TRIGGER ~coran~ 0 ~Global("ENDOFBG1","GLOBAL",2)~ 1 3 7 8 9


APPEND ~coran~

IF WEIGHT #-4 ~NumTimesTalkedTo(0)
GlobalLT("ENDOFBG1","GLOBAL",2)
ReactionGT(LastTalkedToBy(Myself),NEUTRAL_UPPER)~ THEN BEGIN s0
  SAY @896
  IF ~~ THEN REPLY @905 GOTO s4
  IF ~~ THEN REPLY @906 GOTO s3
END

IF WEIGHT #-3 ~NumTimesTalkedTo(0)
GlobalLT("ENDOFBG1","GLOBAL",2)
ReactionLT(LastTalkedToBy(Myself),FRIENDLY_LOWER)
ReactionGT(LastTalkedToBy(Myself),HOSTILE_UPPER)~ THEN BEGIN s1
  SAY @897
  IF ~~ THEN REPLY @907 GOTO s4
  IF ~~ THEN REPLY @908 GOTO s3
END

IF WEIGHT #-2 ~NumTimesTalkedTo(0)
GlobalLT("ENDOFBG1","GLOBAL",2)
ReactionLT(LastTalkedToBy(Myself),NEUTRAL_LOWER)~ THEN BEGIN s2
  SAY @898
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN s3
  SAY @899
  IF ~~ THEN DO ~SetNumTimesTalkedTo(0)~ EXIT
END

IF ~~ THEN BEGIN s4
  SAY @900
  IF ~~ THEN REPLY @909 GOTO s5
  IF ~~ THEN REPLY @910 GOTO s6
END

IF ~~ THEN BEGIN s5
  SAY @901
  IF ~~ THEN DO ~SetGlobalTimer("Coran","GLOBAL",EIGHT_DAYS)
JoinParty()~ UNSOLVED_JOURNAL @202510 EXIT
END

IF ~~ THEN BEGIN s6
  SAY @902
  IF ~~ THEN EXIT
END

IF WEIGHT #-1 ~GlobalLT("ENDOFBG1","GLOBAL",2)~ THEN BEGIN s7
  SAY @904
  IF ~~ THEN REPLY @9669 EXIT
  IF ~~ THEN REPLY @10028 GOTO s4
END

IF ~False()~ THEN BEGIN s8
  SAY @1556
  IF ~~ THEN EXTERN ~BRIELB~ 1
END

IF ~False()~ THEN BEGIN s9
  SAY @1557
  IF ~~ THEN EXTERN ~BRIELB~ 2
END

IF ~False()~ THEN BEGIN s10
  SAY @1558
  IF ~~ THEN REPLY @1559 EXIT
  IF ~~ THEN REPLY @1560 EXTERN ~BRIELB~ 7
END

IF ~False()~ THEN BEGIN s11
  SAY @1561
  IF ~~ THEN EXTERN ~BRIELB~ 14
END

IF WEIGHT #-5 ~StateCheck(Myself,STATE_CHARMED)
GlobalLT("ENDOFBG1","GLOBAL",2)~ THEN BEGIN s12
  SAY @6112
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN s13
  SAY @6113
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN s14
  SAY @8961
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN s15
  SAY @14660
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN s16
  SAY @14679
  IF ~~ THEN EXIT
END

END
