BEGIN ~bgftown2~

IF WEIGHT #2 ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @3320
  IF ~~ THEN REPLY @3329 EXIT
  IF ~~ THEN REPLY @3330 GOTO 1
  IF ~~ THEN REPLY @3331 GOTO 2
END

IF ~~ THEN BEGIN 1
  SAY @3321
  IF ~~ THEN DO ~ReputationInc(-1)~ EXIT
END

IF ~~ THEN BEGIN 2
  SAY @3325
  IF ~~ THEN REPLY @3326 UNSOLVED_JOURNAL @310556 EXIT
  IF ~~ THEN REPLY @3327 GOTO 3
END

IF ~~ THEN BEGIN 3
  SAY @3328
  IF ~~ THEN DO ~SetGlobal("HelpNashkellWoman","GLOBAL",1)~ UNSOLVED_JOURNAL @310069 EXIT
END

IF WEIGHT #3 ~Global("HelpNashkellWoman","GLOBAL",1)~ THEN BEGIN 4
  SAY @3322
  IF ~~ THEN REPLY @3323 GOTO 5
  IF ~PartyHasItem("RINGJOS")~ THEN REPLY @3324 GOTO 6
END

IF ~~ THEN BEGIN 5
  SAY @3332
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 6
  SAY @3333
  IF ~~ THEN REPLY @3334 GOTO 7
  IF ~~ THEN REPLY @3335 DO ~TakePartyItem("RINGJOS")~ GOTO 8
END

IF ~~ THEN BEGIN 7
  SAY @3336
  IF ~~ THEN DO ~SetGlobal("HelpNashkellWoman","GLOBAL",2)
EraseJournalEntry(@310069)
EraseJournalEntry(@310556)~ SOLVED_JOURNAL @310070 EXIT
END

IF ~~ THEN BEGIN 8
  SAY @3337
  IF ~~ THEN DO ~AddexperienceParty(800)
SetGlobal("HelpNashkellWoman","GLOBAL",2)
EraseJournalEntry(@310069)
EraseJournalEntry(@310556)~ SOLVED_JOURNAL @310071 EXIT
END

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

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

IF WEIGHT #4 ~True()~ THEN BEGIN 11
  SAY @1039
  IF ~~ THEN EXIT
END
