BEGIN ~niklos~

IF WEIGHT #2 ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @2761
  IF ~~ THEN GOTO 1
END

IF ~~ THEN BEGIN 1
  SAY @2762
  IF ~~ THEN REPLY @2763 GOTO 3
  IF ~~ THEN REPLY @2764 DO ~GivePartyGold(50)~ GOTO 8
  IF ~~ THEN REPLY @2765 GOTO 2
END

IF ~~ THEN BEGIN 2
  SAY @2766
  IF ~~ THEN REPLY @2780 DO ~GivePartyGold(50)~ GOTO 8
  IF ~~ THEN REPLY @2781 GOTO 3
  IF ~~ THEN REPLY @2782 DO ~GivePartyGold(50)~ GOTO 8
END

IF ~~ THEN BEGIN 3
  SAY @2767
  IF ~~ THEN DO ~EscapeArea()~ SOLVED_JOURNAL @310247 EXIT
END

IF ~~ THEN BEGIN 4
  SAY @2768
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 5
  SAY @2769
  IF ~~ THEN REPLY @2770 DO ~GivePartyGold(50)~ GOTO 8
  IF ~~ THEN REPLY @2771 GOTO 7
  IF ~~ THEN REPLY @2772 GOTO 6
END

IF ~~ THEN BEGIN 6
  SAY @2773
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 7
  SAY @2774
  IF ~~ THEN DO ~TakePartyGold(50)~ EXIT
END

IF ~~ THEN BEGIN 8
  SAY @2775
  IF ~~ THEN DO ~MoveToPoint([1439.1313])
OpenDoor("DOOR0151")
MoveToPoint([1456.1262])
DestroySelf()~ UNSOLVED_JOURNAL @310248 EXIT
END

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

IF WEIGHT #3 ~Global("Chapter","GLOBAL",8)~ THEN BEGIN 10
  SAY @4300
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 11
  SAY @9070
  IF ~~ THEN EXIT
END
