BEGIN ~nobl5~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @7781
  IF ~ReactionGT(LastTalkedToBy(),HOSTILE_UPPER)~ THEN REPLY @7789 GOTO 1
  IF ~ReactionLT(LastTalkedToBy(),NEUTRAL_LOWER)~ THEN REPLY @7790 GOTO 2
  IF ~~ THEN REPLY @7791 GOTO 3
  IF ~~ THEN REPLY @7792 GOTO 4
  IF ~~ THEN REPLY @7793 GOTO 7
END

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

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

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

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

IF ~NumTimesTalkedTo(1)~ THEN BEGIN 5
  SAY @7786
  IF ~~ THEN EXIT
END

IF ~True()~ THEN BEGIN 6
  SAY @7787
  IF ~~ THEN EXIT
END

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

IF ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 8
  SAY @7794
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 9
  SAY @9137
  IF ~~ THEN EXIT
END
