BEGIN ~flam5~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @5032
  IF ~~ THEN REPLY @5033 GOTO 2
  IF ~~ THEN REPLY @5034 DO ~Enemy()~ EXIT
  IF ~~ THEN REPLY @5035 GOTO 1
END

IF ~~ THEN BEGIN 1
  SAY @5042
  IF ~~ THEN DO ~Enemy()~ EXIT
END

IF ~~ THEN BEGIN 2
  SAY @5043
  IF ~~ THEN REPLY @5061 GOTO 3
  IF ~~ THEN REPLY @5063 GOTO 4
  IF ~ReactionGT(LastTalkedToBy(),HOSTILE_UPPER)~ THEN REPLY @5064 GOTO 5
  IF ~~ THEN REPLY @5066 GOTO 6
END

IF ~~ THEN BEGIN 3
  SAY @5067
  IF ~~ THEN REPLY @5068 GOTO 17
  IF ~~ THEN REPLY @5069 DO ~Enemy()~ EXIT
END

IF ~~ THEN BEGIN 4
  SAY @5065
  IF ~~ THEN DO ~Enemy()~ EXIT
END

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

IF ~~ THEN BEGIN 6
  SAY @5073
  IF ~~ THEN REPLY @5075 GOTO 5
  IF ~~ THEN REPLY @5077 GOTO 8
  IF ~~ THEN REPLY @5081 GOTO 10
  IF ~~ THEN REPLY @5082 DO ~Enemy()~ GOTO 9
END

IF ~~ THEN BEGIN 7
  SAY @5084
  IF ~~ THEN DO ~Enemy()~ EXIT
END

IF ~~ THEN BEGIN 8
  SAY @5085
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 9
  SAY @5086
  IF ~~ THEN DO ~Enemy()~ EXIT
END

IF ~~ THEN BEGIN 10
  SAY @5087
  IF ~~ THEN REPLY @5088 GOTO 11
  IF ~~ THEN REPLY @5089 GOTO 12
  IF ~~ THEN REPLY @5090 GOTO 13
  IF ~~ THEN REPLY @5091 GOTO 14
END

IF ~~ THEN BEGIN 11
  SAY @5092
  IF ~~ THEN DO ~Enemy()~ EXIT
END

IF ~~ THEN BEGIN 12
  SAY @5093
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 13
  SAY @5094
  IF ~~ THEN DO ~Enemy()~ EXIT
END

IF ~~ THEN BEGIN 14
  SAY @5095
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 15
  SAY @6936
  IF ~~ THEN JOURNAL @310351 EXIT
END

IF ~~ THEN BEGIN 16
  SAY @9012
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 17
  SAY @14385
  IF ~~ THEN DO ~Enemy()~ EXIT
END
