if ds_list_find_index(global.KHDB,global.CurrentRoom+string(8)) = -1{
if Yap=0 MsgBox.Msg="Hello there, stranger!         #Are you ready to take a quiz with me?         #...the Quiz-meister?"

if Yap=1 {
if instance_number(ShuriBelt)>0{
MsgBox.Msg="It looks like you got a Shuriken Belt, so I'd have #to say you're ready.         #...wanna try the Vapora Quiz?          #It'll cost you 20 Ryubies to try..."
MsgBox.Question=2
MsgBox.QChoose=0
MsgBox.QTxt="Sure#No"
}else MsgBox.Msg="#...but first, you need a Shuriken Belt.       #My reward would be no good if you don't have one..."
}

if Yap=2{
if instance_number(ShuriBelt)>0{
if MsgBox.QChoose=0 {
if global.Cash>= 20 { MsgBox.Msg="#Oh, good! Now, this first question is about that lovely #princess of Sierr..."
global.Cash-=20
MsgBox.QChoose=3
}else MsgBox.Msg="Hey, this isn't enough Ryubies!         #Go mug some more monsters before taking this #lovely quiz, okay?"
} else Yap=19
MsgBox.Question=0
}else MsgBox.Msg="!"
}

if Yap=3 {
if MsgBox.QChoose=3{MsgBox.Msg="#What is Princess Sabrina's favorite thing to do when #she's not picking flowers or doing homework?"
MsgBox.QTxt = "A. Singing to little birdies#B. Daydreaming of princes#C. Reading books#D. Getting kidnapped"
MsgBox.Question=4
MsgBox.QChoose=0
}else MsgBox.Msg="!"
}

if Yap=4 {if MsgBox.QChoose=2 MsgBox.Msg="That's right! A lot of people know she's always trying #to become the best princess possible... which means #she'll grow up to be a great queen!" else Yap=17
MsgBox.Question=0
}

if Yap=5 {MsgBox.Msg="Here's the second question...           #There's a dungeon-exploring guy called Verne.         #What's the name of his mother?"
MsgBox.QTxt = "A. Fiona#B. Cherlindrea#C. Dulcinea#D. Cimorene"
MsgBox.Question=4
MsgBox.QChoose=0
}

if Yap=6 {if MsgBox.QChoose=0 MsgBox.Msg="That's right, Fiona. Some say she died because of #abusing a Fairy in the home...        #But most people are sure a Dragon attacked her." else Yap=17
MsgBox.Question=0
}

if Yap=7 {MsgBox.Msg="Here's your third question.         #What name is NOT a name of one of the Four #Witches?"
MsgBox.QTxt = "A. Tabitha#B. Cherlindrea#C. Almithea#D. Sabrina"
MsgBox.Question=4
MsgBox.QChoose=0
}

if Yap=8 {if MsgBox.QChoose=3 MsgBox.Msg="#...you knew that one already. I can't fool you there..." else Yap=17
MsgBox.Question=0
}

if Yap=9 {MsgBox.Msg="Now, fourth question...         #You've known Tiel for a long time.         #How long have you two known each other?"
MsgBox.QTxt = "A. All my life#B. Since we were kids#C. When we were in our teens#D. Quite recently"
MsgBox.Question=4
MsgBox.QChoose=0
}

if Yap=10 {if MsgBox.QChoose=1 MsgBox.Msg="#Gee... that's rather sweet.        #...Hey, I'm just saying..." else Yap=17
MsgBox.Question=0
}

if Yap=11 {MsgBox.Msg="Question number 5...        #You've been to the flower shop, right?        #How much does a Hibiscus cost?"
MsgBox.QTxt = "A. 20 Ryubies#B. 60 Ryubies#C. 80 Ryubies#D. 120 Ryubies"
MsgBox.Question=4
MsgBox.QChoose=0
}

if Yap=12 {if MsgBox.QChoose=3 MsgBox.Msg="Well, I don't know if it's really a hibiscus, but everyone #keeps calling it that...          #...but you're right!" else Yap=17
MsgBox.Question=0
}

if Yap=13 {MsgBox.Msg="Final Question!         #...You know the crystal ball in Central Town?         #What does it show, exactly?"
MsgBox.QTxt = "A. Where to go next#B. Colors of the one you love#C. A random Heart Piece#D. Nothing"
MsgBox.Question=4
MsgBox.QChoose=0
}

if Yap=14 {if MsgBox.QChoose=1 MsgBox.Msg="That's right!         #When you touch it, it will reveal the colors of the girl #you will marry, if you continue on your current path." else Yap=17
MsgBox.Question=0
}

if Yap=15 {MsgBox.Msg="For answering all my questions correctly, you'll now #be able to carry more Shurikens!        #Isn't that nice?"
ShuriBelt.ShurisMax+=30
ShuriBelt.Shuris+=30
}

if Yap=16 {MsgBox.Msg="!"
ds_list_add(global.KHDB,global.CurrentRoom+string(8))
sound_play(ItemGet)
}

if Yap=17 MsgBox.Msg="Nope! That's wrong!        #You just lost yourself 20 Ryubies.        #Oh, well."
if Yap=18 MsgBox.Msg="#If you have the courage, try out this quiz #anytime..."
if Yap=19 MsgBox.Msg="!"
} else {
if Yap=0 MsgBox.Msg="You've already got my prize.         #So, no, you can't take that quiz again.         #Sorry, kid."
if Yap=1 MsgBox.Msg="!"
}