BEGIN ~ike~

IF ~True()~ THEN BEGIN 0
  SAY @21708
  IF ~~ THEN GOTO 1
END

IF ~~ THEN BEGIN 1
  SAY @21709
  IF ~~ THEN REPLY @21715 DO ~TakePartyGold(60)
SetGlobal("DURLAGness","GLOBAL",1)~ GOTO 7
  IF ~~ THEN REPLY @21716 GOTO 4
  IF ~~ THEN REPLY @21717 GOTO 6
END

IF ~~ THEN BEGIN 2
  SAY @21710
  IF ~~ THEN REPLY @21718 GOTO 7
  IF ~~ THEN REPLY @21720 GOTO 4
  IF ~~ THEN REPLY @21722 DO ~SetGlobal("DurlagBitchedOut","GLOBAL",1)~ GOTO 6
END

IF ~~ THEN BEGIN 3
  SAY @21711
  IF ~~ THEN REPLY @21719 GOTO 7
  IF ~~ THEN REPLY @21721 GOTO 4
  IF ~~ THEN REPLY @21723 DO ~SetGlobal("DurlagBitchedOut","GLOBAL",1)~ GOTO 6
END

IF ~~ THEN BEGIN 4
  SAY @21712
  IF ~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)~ THEN REPLY @21724 DO ~TakePartyGold(60)
SetGlobal("DURLAGness","GLOBAL",1)~ GOTO 7
  IF ~~ THEN REPLY @21725 DO ~SetGlobal("DurlagBitchedOut","GLOBAL",1)~ GOTO 6
  IF ~~ THEN REPLY @21726 DO ~SetGlobal("DurlagBitchedOut","GLOBAL",1)~ GOTO 5
  IF ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)
ReactionGT(LastTalkedToBy,HOSTILE_UPPER)~ THEN REPLY @21728 DO ~TakePartyGold(60)
SetGlobal("DURLAGness","GLOBAL",1)~ GOTO 7
  IF ~ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)~ THEN REPLY @21729 DO ~TakePartyGold(60)
SetGlobal("DURLAGness","GLOBAL",1)~ GOTO 7
END

IF ~~ THEN BEGIN 5
  SAY @21713
  IF ~~ THEN UNSOLVED_JOURNAL @310614 EXIT
END

IF ~~ THEN BEGIN 6
  SAY @21714
  IF ~~ THEN UNSOLVED_JOURNAL @310614 EXIT
END

IF ~~ THEN BEGIN 7
  SAY @21727
  IF ~~ THEN DO ~RevealAreaOnMap("ARD000")
SetGlobal("ike","GLOBAL",1)
EscapeArea()~ UNSOLVED_JOURNAL @310615 EXIT
END
