BEGIN ~galken~

IF ~False()~ THEN BEGIN 0
  SAY @21766
  IF ~~ THEN EXTERN ~THUG~ 0
END

IF ~False()~ THEN BEGIN 1
  SAY @21767
  IF ~~ THEN EXTERN ~THUG~ 1
END

IF ~NumTimesTalkedTo(0)
ReactionGT(LastTalkedToBy(),NEUTRAL_UPPER)~ THEN BEGIN 2
  SAY @21768
  IF ~~ THEN REPLY @21781 GOTO 7
  IF ~~ THEN REPLY @21782 GOTO 5
END

IF ~NumTimesTalkedTo(0)
ReactionGT(LastTalkedToBy(),HOSTILE_UPPER)~ THEN BEGIN 3
  SAY @21769
  IF ~~ THEN REPLY @21783 GOTO 7
  IF ~~ THEN REPLY @21784 GOTO 5
END

IF ~NumTimesTalkedTo(0)
ReactionLT(LastTalkedToBy(),NEUTRAL_LOWER)~ THEN BEGIN 4
  SAY @21770
  IF ~~ THEN REPLY @21785 GOTO 7
  IF ~~ THEN REPLY @21786 GOTO 5
END

IF ~~ THEN BEGIN 5
  SAY @21771
  IF ~~ THEN UNSOLVED_JOURNAL @310629 EXIT
END

IF ~True()~ THEN BEGIN 6
  SAY @21772
  IF ~~ THEN REPLY @21773 GOTO 7
  IF ~~ THEN REPLY @21774 GOTO 5
END

IF ~~ THEN BEGIN 7
  SAY @21775
  IF ~~ THEN REPLY @21776 GOTO 10
  IF ~~ THEN REPLY @21777 GOTO 9
  IF ~~ THEN REPLY @21778 GOTO 8
  IF ~~ THEN REPLY @21779 GOTO 5
END

IF ~~ THEN BEGIN 8
  SAY @21780
  IF ~~ THEN REPLY @21787 GOTO 5
  IF ~PartyGoldGT(899)~ THEN REPLY @21792 GOTO 10
  IF ~~ THEN REPLY @21793 GOTO 9
END

IF ~~ THEN BEGIN 9
  SAY @21788
  IF ~~ THEN REPLY @21789 GOTO 5
  IF ~PartyGoldGT(899)~ THEN REPLY @21794 GOTO 10
  IF ~~ THEN REPLY @21795 GOTO 8
  IF ~~ THEN REPLY @22906 GOTO 5
END

IF ~~ THEN BEGIN 10
  SAY @21790
  IF ~~ THEN GOTO 11
END

IF ~~ THEN BEGIN 11
  SAY @21791
  IF ~~ THEN DO ~RevealAreaOnMap("ARD000")
TakePartyGold(900)
GiveItemCreate("Misc2N",LastTalkedToBy,0,0,0)
EscapeArea()~ UNSOLVED_JOURNAL @310630 EXIT
END
