EXTEND_BOTTOM LOBAR 0
  IF ~OR(2)
Global("TalkedToHasdar1","GLOBAL",1)
Global("HaeballQuestWanted","GLOBAL",1) ~ THEN REPLY @0 EXTERN LOBAR Book
END

REPLACE LOBAR 

IF WEIGHT #2 ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)
~ THEN BEGIN 7
  SAY ~I trust everything is satisfactory?  Please don't hesitate to leave if it is not.~
  IF ~~ THEN REPLY ~Thanks. We are leaving. Bye now.~ EXIT
  IF ~ Global("TalkedToLobarMage","GLOBAL",0)
  OR(2) 
  Global("TalkedToHasdar1","GLOBAL",1) 
  Global("HaeballQuestWanted","GLOBAL",1) ~THEN REPLY @0 EXTERN LOBAR Book
END

IF WEIGHT #3 ~True()
~ THEN BEGIN 8
  SAY ~Hello again.  A pleasure having you here, to be sure.~
  IF ~~ THEN REPLY ~Thanks. We are leaving. Bye now.~ EXIT 
  IF ~Global("TalkedToLobarMage","GLOBAL",0)
OR(2)
Global("TalkedToHasdar1","GLOBAL",1)
Global("HaeballQuestWanted","GLOBAL",1) ~ THEN REPLY @0 EXTERN LOBAR Book
END
END

APPEND LOBAR

IF ~~ THEN BEGIN Book
  SAY @1
  IF ~~ THEN REPLY @2 GOTO BookOffer
  IF ~~ THEN REPLY @3 GOTO BookOffer
END

IF ~~ THEN BEGIN BookOffer
  SAY @4
  IF ~PartyGoldGT(2999)~ THEN REPLY @5 GOTO GiveGold
  IF ~PartyGoldLT(2999)~ THEN REPLY @6 GOTO NotEnough
END

IF ~~ THEN BEGIN GiveGold
  SAY @7
  IF ~~ THEN DO ~TakePartyGold(3000)
SetGlobal("TalkedToLobarMage","GLOBAL",1)~ JOURNAL @8 EXIT
END

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