BEGIN ~housg4~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN 0
  SAY @7570
  IF ~~ THEN REPLY @7575 JOURNAL @310801 GOTO 1
  IF ~PartyGoldGT(9)~ THEN REPLY @7576 GOTO 4
  IF ~~ THEN REPLY @7577 GOTO 2
  IF ~~ THEN REPLY @7578 GOTO 7
END

IF ~~ THEN BEGIN 1
  SAY @7571
  IF ~PartyGoldGT(9)~ THEN REPLY @7579 GOTO 4
  IF ~~ THEN REPLY @7580 GOTO 7
END

IF ~~ THEN BEGIN 2
  SAY @7572
  IF ~PartyGoldGT(9)~ THEN REPLY @7581 GOTO 4
  IF ~~ THEN REPLY @7582 GOTO 7
END

IF ~~ THEN BEGIN 3
  SAY @7574
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 4
  SAY @7585
  IF ~~ THEN DO ~TakePartyGold(10)~ EXIT
END

IF ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 5
  SAY @8854
  IF ~~ THEN EXIT
END

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

IF ~~ THEN BEGIN 7
  SAY @11248
  IF ~~ THEN EXIT
END
