BEGIN ~serva2~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @7420
  IF ~ReactionGT(LastTalkedToBy,HOSTILE_UPPER)~ THEN REPLY @7431 GOTO 1
  IF ~ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)~ THEN REPLY @7432 GOTO 2
  IF ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)~ THEN REPLY @7433 GOTO 3
  IF ~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)~ THEN REPLY @7434 GOTO 4
  IF ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)~ THEN REPLY @7435 GOTO 5
  IF ~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)~ THEN REPLY @7436 GOTO 6
  IF ~ReactionGT(LastTalkedToBy,HOSTILE_UPPER)~ THEN REPLY @7437 GOTO 7
  IF ~ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)~ THEN REPLY @7438 GOTO 8
END

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

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

IF ~~ THEN BEGIN 3
  SAY @7423
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

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

IF ~~ THEN BEGIN 5
  SAY @7425
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 6
  SAY @7426
  IF ~~ THEN EXIT
END

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

IF ~~ THEN BEGIN 8
  SAY @7428
  IF ~~ THEN REPLY @7439 GOTO 9
  IF ~~ THEN REPLY @7440 GOTO 9
  IF ~~ THEN REPLY @7441 GOTO 9
  IF ~~ THEN REPLY @7442 GOTO 10
  IF ~~ THEN REPLY @7443 GOTO 9
END

IF ~~ THEN BEGIN 9
  SAY @7429
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 10
  SAY @7430
  IF ~~ THEN EXIT
END

IF ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 11
  SAY @7444
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 12
  SAY @9087
  IF ~~ THEN EXIT
END
