BEGIN ~BART9~

IF ~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)~ THEN BEGIN 0
  SAY @40005
  IF ~~ THEN REPLY @40001 DO ~StartStore("Inn0116",LastTalkedToBy())~ EXIT
  IF ~~ THEN REPLY @40002 DO ~~ EXIT
END

IF ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)
ReactionGT(LastTalkedToBy,HOSTILE_UPPER)~ THEN BEGIN 1
  SAY @40006
  IF ~~ THEN REPLY @40001 DO ~StartStore("Inn0116",LastTalkedToBy())~ EXIT
  IF ~~ THEN REPLY @40002 DO ~~ EXIT
END

IF ~ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)~ THEN BEGIN 2
  SAY @40007
  IF ~~ THEN REPLY @40001 EXIT
  IF ~~ THEN REPLY @40002 DO ~~ EXIT
END