BEGIN ~quenas~

IF ~Global("Baldurian","GLOBAL",2)~ THEN BEGIN 0
  SAY @10581
  IF ~~ THEN REPLY @10582 GOTO 1
  IF ~~ THEN REPLY @10585 GOTO 2
  IF ~~ THEN REPLY @10586 GOTO 3
END

IF ~~ THEN BEGIN 1
  SAY @10584
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

IF ~~ THEN BEGIN 2
  SAY @10587
  IF ~~ THEN REPLY @10609 GOTO 5
  IF ~~ THEN REPLY @10611 GOTO 3
END

IF ~~ THEN BEGIN 3
  SAY @10589
  IF ~~ THEN REPLY @10597 GOTO 1
  IF ~~ THEN REPLY @10598 GOTO 4
  IF ~~ THEN REPLY @10599 GOTO 4
  IF ~~ THEN REPLY @10600 GOTO 4
  IF ~~ THEN REPLY @10601 GOTO 4
  IF ~~ THEN REPLY @10602 GOTO 7
  IF ~~ THEN REPLY @10603 GOTO 4
  IF ~~ THEN REPLY @10604 GOTO 4
  IF ~~ THEN REPLY @10606 GOTO 7
END

IF ~~ THEN BEGIN 4
  SAY @10605
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END

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

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

IF ~~ THEN BEGIN 7
  SAY @10613
  IF ~~ THEN REPLY @10616 DO ~GiveItem("CLCK05",LastTalkedToBy)~ GOTO 9
  IF ~ReactionGT(LastTalkedToBy(),HOSTILE_UPPER)~ THEN REPLY @10617 DO ~GiveItem("CLCK05",LastTalkedToBy)~ GOTO 8
  IF ~ReactionLT(LastTalkedToBy(),NEUTRAL_LOWER)~ THEN REPLY @10622 DO ~GiveItem("CLCK05",LastTalkedToBy)~ GOTO 10
END

IF ~~ THEN BEGIN 8
  SAY @10618
  IF ~~ THEN REPLY @10624 UNSOLVED_JOURNAL @310170 GOTO 9
  IF ~~ THEN REPLY @10625 UNSOLVED_JOURNAL @310170 GOTO 1
END

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

IF ~~ THEN BEGIN 10
  SAY @10623
  IF ~~ THEN DO ~EscapeArea()~ EXIT
END
