BEGIN ~BG1X1~


IF ~NumTimesTalkedTo(0)~ THEN BEGIN INTRO
SAY @0
=
@1
IF ~~ THEN REPLY @2 GOTO LISTEN
IF ~~ THEN REPLY @3 GOTO BG1X1-1
END 

IF ~Global("BG1X1","GLOBAL",0)~ THEN BEGIN RECONSIDER
SAY @4
=
@5
IF ~~ THEN REPLY @6 GOTO WIZARD
IF ~~ THEN REPLY @7 GOTO BG1X1-1
IF ~~ THEN REPLY @2 GOTO MAZE
IF ~~ THEN REPLY @8 DO ~SetGlobal("BG1X1","GLOBAL",0)~ EXIT
END


IF ~~ THEN BEGIN LISTEN
SAY @9
IF ~~ THEN GOTO BG1X1-1
END

IF ~~ THEN BEGIN WIZARD
SAY @10
=
@11
=
@12
IF ~~ THEN DO ~SetGlobal("BG1X1","GLOBAL",1)~ GOTO WIZARD2
END

IF ~~ THEN BEGIN WIZARD2
SAY @13
IF ~~ THEN DO ~AddJournalEntry(@1783,QUEST)SetGlobal("BG1X1Quest","GLOBAL",1)~ EXIT
END



IF ~~ THEN BEGIN BG1X1-1
SAY @14
=
@15
=
@16
=
@17
=
@18
IF ~~ THEN REPLY @19 GOTO ASKPRIZE
IF ~~ THEN REPLY @6 GOTO WIZARD
IF ~~ THEN REPLY @2 GOTO MAZE
END

IF ~~ THEN BEGIN MAZE
SAY @20
=
@21
IF ~~ THEN REPLY @6 GOTO WIZARD
IF ~~ THEN REPLY @2 GOTO MAZE
IF ~~ THEN REPLY @8 DO ~SetGlobal("BG1X1","GLOBAL",0)~ GOTO pip-pip
END


IF ~~ THEN BEGIN pip-pip
SAY @22
IF ~~ THEN EXIT
END


IF ~~ THEN BEGIN ASKPRIZE
SAY @23
IF ~~ THEN REPLY @6 GOTO WIZARD
IF ~~ THEN REPLY @2 GOTO MAZE
END


IF WEIGHT #-1 ~Global("BG1X1Quest","GLOBAL",1)~ THEN BEGIN CANTDONE
SAY @24
IF ~~ THEN REPLY @25 GOTO RETURN
IF ~~ THEN REPLY @26 GOTO LIAR
END

IF ~~ THEN BEGIN LIAR
SAY @27
=
@28
=
@29
IF ~~ THEN DO ~ReputationInc(-1)~EXIT
END

IF ~~ THEN BEGIN RETURN
SAY @30
=
@31
IF ~~ THEN EXIT
END


IF WEIGHT #-1 ~Global("BG1X1Quest","GLOBAL",2)Dead("BG1X4")~ BEGIN DONE
SAY @24
IF ~~ THEN REPLY @25 GOTO RETURN
IF ~Dead("BG1X4")~ REPLY @32 GOTO VICTORY
END

IF ~~ THEN BEGIN VICTORY
SAY @33
=
@34
IF ~~ THEN DO ~EraseJournalEntry(@1783)
AddJournalEntry(@1784,QUEST_DONE)SetGlobal("BG1X1","GLOBAL",2) RealSetGlobalTimer("AuctionStartTimer","GLOBAL",200) 
GiveItemCreate("PLATNUM",[PC],250,0,0)
~ EXIT
END


IF WEIGHT #-2 ~Global("BG1X1","GLOBAL",2)RandomNum(6,1)~ THEN BEGIN NEXTTALK1a
SAY @35
=
@36
=
@37
=
@38
=
@39
IF ~~ THEN EXIT
END

IF WEIGHT #-2 ~Global("BG1X1","GLOBAL",2)RandomNum(6,2)~ THEN BEGIN NEXTTALK1b
SAY @40
=
@41
=
@42
IF ~~ THEN EXIT
END


IF WEIGHT #-2 ~Global("BG1X1","GLOBAL",2)RandomNum(6,3)~ THEN BEGIN NEXTTALK1f
SAY @43
=
@44
IF ~~ THEN EXIT
END


IF WEIGHT #-2 ~Global("BG1X1","GLOBAL",2)RandomNum(6,4)~ THEN BEGIN NEXTTALK1c
SAY @45
=
@46
=
@47
=
@48
IF ~~ THEN EXIT
END

IF WEIGHT #-2 ~Global("BG1X1","GLOBAL",2)RandomNum(6,5)~ THEN BEGIN NEXTTALK1d
SAY @49
=
@50
IF ~~ THEN EXIT
END


IF WEIGHT #-2 ~Global("BG1X1","GLOBAL",2)RandomNum(6,6)~ THEN BEGIN NEXTTALK1e
SAY @51
=
@52
IF ~~ THEN EXIT
END