APPEND ~xan~

IF WEIGHT #-3 ~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)
GlobalLT("ENDOFBG1","GLOBAL",2)~ THEN BEGIN s0
  SAY @272
  IF ~~ THEN REPLY @278 GOTO s5
  IF ~~ THEN REPLY @280 GOTO s4
  IF ~~ THEN REPLY @282 GOTO s2
END

IF WEIGHT #-2 ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)
ReactionGT(LastTalkedToBy,HOSTILE_UPPER)
GlobalLT("ENDOFBG1","GLOBAL",2)~ THEN BEGIN s1
  SAY @273
  IF ~~ THEN REPLY @279 GOTO s5
  IF ~~ THEN REPLY @281 GOTO s4
  IF ~~ THEN REPLY @283 GOTO s2
END

IF ~~ THEN BEGIN s2
  SAY @274
  IF ~~ THEN REPLY @284 GOTO s5
  IF ~~ THEN REPLY @285 GOTO s4
  IF ~~ THEN REPLY @286 GOTO s6
END

IF WEIGHT #-1 ~ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)
GlobalLT("ENDOFBG1","GLOBAL",2)~ THEN BEGIN s3
  SAY @275
  IF ~~ THEN DO ~TakePartyItem("SW1H13")
MoveToPoint([113.695])
EscapeAreaDestroy(90)~ EXIT
END

IF ~~ THEN BEGIN s4
  SAY @276
  IF ~~ THEN DO ~TakePartyItem("SW1H13")
MoveToPoint([113.695])
EscapeAreaDestroy(90)~ JOURNAL @310328 EXIT
END

IF ~~ THEN BEGIN s5
  SAY @277
  IF ~~ THEN DO ~JoinParty()~ JOURNAL @310329 EXIT
END

IF ~~ THEN BEGIN s6
  SAY @287
  IF ~~ THEN DO ~TakePartyItem("SW1H13")
MoveToPoint([113.695])
EscapeAreaDestroy(90)~ JOURNAL @310328 EXIT
END

IF ~~ THEN BEGIN s7
  SAY @6433
  IF ~~ THEN EXIT
END

IF WEIGHT #-4 ~StateCheck(Myself,STATE_CHARMED)
GlobalLT("ENDOFBG1","GLOBAL",2)~ THEN BEGIN s8
  SAY @6434
  IF ~~ THEN JOURNAL @310330 EXIT
END

IF ~False()~ THEN BEGIN s9
  SAY @14747
  IF ~~ THEN DO ~~ EXIT
END

IF ~False()~ THEN BEGIN s10
  SAY @14748
  IF ~~ THEN DO ~~ EXIT
END


END