BEGIN ~nobl10~

IF WEIGHT #0 ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @8106
  IF ~~ THEN REPLY @8112 GOTO 1
  IF ~~ THEN REPLY @8113 GOTO 2
  IF ~~ THEN REPLY @8114 GOTO 3
END

IF ~~ THEN BEGIN 1
  SAY @8107
  IF ~~ THEN EXIT
END

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

IF ~~ THEN BEGIN 3
  SAY @8109
  IF ~~ THEN EXIT
END

IF WEIGHT #3 ~ReactionGT(LastTalkedToBy,HOSTILE_UPPER)~ THEN BEGIN 4
  SAY @8110
  IF ~~ THEN EXIT
END

IF WEIGHT #4 ~ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)~ THEN BEGIN 5
  SAY @8111
  IF ~~ THEN EXIT
END

IF WEIGHT #1 ~StateCheck(Myself,STATE_CHARMED)
HasItem("AMUL07",Myself)
Global("A6Charmed","LOCALS",0)~ THEN BEGIN 6
  SAY @8115
  IF ~~ THEN DO ~GiveItem("AMUL07",LastTalkedToBy)
SetGlobal("A6Charmed","LOCALS",1)~ EXIT
END

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