BEGIN ~gandol~

IF WEIGHT #4 ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @2037
  IF ~~ THEN REPLY @2038 GOTO 2
  IF ~~ THEN REPLY @2039 GOTO 2 //changed from GOTO 11 to fix journal entry
  IF ~~ THEN REPLY @2040 GOTO 1
  IF ~~ THEN REPLY @2041 GOTO 12
END

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

IF ~~ THEN BEGIN 2
  SAY @2043
  IF ~~ THEN REPLY @2044 GOTO 5
  IF ~~ THEN REPLY @2045 GOTO 3
  IF ~~ THEN REPLY @2046 GOTO 4
  IF ~~ THEN REPLY @2047 GOTO 5
  IF ~~ THEN REPLY @2048 GOTO 4
END

IF ~~ THEN BEGIN 3
  SAY @2049
  IF ~~ THEN REPLY @2077 GOTO 5
  IF ~~ THEN REPLY @2079 GOTO 4
  IF ~~ THEN REPLY @2080 GOTO 5
  IF ~~ THEN REPLY @2081 GOTO 4
END

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

IF ~~ THEN BEGIN 5
  SAY @2051
  IF ~~ THEN REPLY @2052 UNSOLVED_JOURNAL @310584 GOTO 7
  IF ~~ THEN REPLY @2053 GOTO 16
  IF ~~ THEN REPLY @2054 GOTO 6
  IF ~~ THEN REPLY @2055 GOTO 4
END

IF ~~ THEN BEGIN 6
  SAY @2056
  IF ~~ THEN REPLY @2087 GOTO 7
  IF ~~ THEN REPLY @2088 GOTO 16
  IF ~~ THEN REPLY @2089 GOTO 6
  IF ~~ THEN REPLY @2090 GOTO 4
END

IF ~~ THEN BEGIN 7
  SAY @2057
  IF ~PartyGoldGT(99)~ THEN REPLY @2058 DO ~TakePartyGold(100)~ GOTO 10
  IF ~~ THEN REPLY @2059 GOTO 17
  IF ~~ THEN REPLY @2060 GOTO 18
  IF ~~ THEN REPLY @2061 GOTO 4
  IF ~PartyGoldGT(49)
ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)~ THEN REPLY @2333 GOTO 8
  IF ~PartyGoldGT(49)
ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)~ THEN REPLY @2334 DO ~TakePartyGold(50)~ GOTO 10
END

IF ~~ THEN BEGIN 8
  SAY @2062
  IF ~~ THEN GOTO 7
END

IF ~~ THEN BEGIN 9
  SAY @2063
  IF ~~ THEN EXIT
END

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

IF ~~ THEN BEGIN 11
  SAY @2065
  IF ~~ THEN UNSOLVED_JOURNAL @310586 EXIT
END

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

IF WEIGHT #5 ~NumTimesTalkedTo(1)~ THEN BEGIN 13
  SAY @2067
  IF ~~ THEN REPLY @2068 UNSOLVED_JOURNAL @310585 GOTO 14
  IF ~~ THEN REPLY @2069 GOTO 15
  IF ~~ THEN REPLY @2070 GOTO 11
  IF ~~ THEN REPLY @2071 GOTO 4
END

IF ~~ THEN BEGIN 14
  SAY @2072
  IF ~False()~ THEN REPLY @2335 GOTO 14
  IF ~~ THEN REPLY @2336 GOTO 15
  IF ~~ THEN REPLY @2337 GOTO 11
  IF ~~ THEN REPLY @2338 GOTO 4
END

IF ~~ THEN BEGIN 15
  SAY @2073
  IF ~~ THEN REPLY @2339 GOTO 14
  IF ~False()~ THEN REPLY @2340 GOTO 15
  IF ~~ THEN REPLY @2341 GOTO 11
  IF ~~ THEN REPLY @2342 GOTO 4
END

IF ~~ THEN BEGIN 16
  SAY @2082
  IF ~~ THEN REPLY @2083 GOTO 7
  IF ~~ THEN REPLY @2084 GOTO 16
  IF ~~ THEN REPLY @2085 GOTO 6
  IF ~~ THEN REPLY @2086 GOTO 4
END

IF ~~ THEN BEGIN 17
  SAY @2091
  IF ~~ THEN REPLY @2092 GOTO 11
  IF ~~ THEN REPLY @2093 GOTO 17
  IF ~~ THEN REPLY @2094 EXIT
  IF ~~ THEN REPLY @2095 EXIT
END

IF ~~ THEN BEGIN 18
  SAY @2096
  IF ~~ THEN REPLY @2097 GOTO 10
  IF ~~ THEN REPLY @2098 GOTO 17
  IF ~~ THEN REPLY @2099 GOTO 18
  IF ~~ THEN REPLY @2100 GOTO 4
  IF ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)~ THEN REPLY @2343 GOTO 8
  IF ~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)~ THEN REPLY @2344 DO ~TakePartyGold(50)~ GOTO 10
END

IF WEIGHT #0 ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 19
  SAY @9031
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 20
  SAY @9032
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 21
  SAY @9033
  IF ~~ THEN EXIT
END

IF WEIGHT #6 ~True()~ THEN BEGIN 22
  SAY @9034
  IF ~~ THEN EXIT
END

IF WEIGHT #3 ~Dead("DICK")~ THEN BEGIN 23
  SAY @11873
  IF ~~ THEN DO ~GiveGoldForce(250)
EraseJournalEntry(@310581)
EraseJournalEntry(@310582)
EraseJournalEntry(@310583)
EraseJournalEntry(@310584)
EraseJournalEntry(@310585)
EraseJournalEntry(@310586)
EraseJournalEntry(@310588)
EscapeArea()~ SOLVED_JOURNAL @310587 EXIT
END
