if ds_list_find_index(global.KHDB,global.CurrentRoom+string(8)) = -1{
if Yap=0 MsgBox.Msg="Hello, there!           #Are you ready for the final quiz, the Stratos Quiz?          #Are ya? Are ya?"

if Yap=1 {
if instance_number(ElphWand)=1 and instance_number(CherRing)=1 and instance_number(TabNecklace)=1 and instance_number(AlmStaff)=1{
MsgBox.Msg="Well, it sure looks like it...           #You're almost ready to face an evil demon...           #So, wanna take my quiz first?            #It'll only set you back 20 Ryubies..."
MsgBox.Question=2
MsgBox.QTxt="Sure#No"
MsgBox.QChoose=0
}else MsgBox.Msg="...I don't think so, kid.           #Unless you have four shiny artifacts or amulets #or things like that, I don't think you are.          #Come back when you DO have them."
}


if Yap=2{ 
if instance_number(ElphWand)=1 and instance_number(CherRing)=1 and instance_number(TabNecklace)=1 and instance_number(AlmStaff)=1{
if MsgBox.QChoose=0 {
if global.Cash>=20 {MsgBox.Msg="Here it is, the final quiz!        #The last one!        #I hope you've been studying hard..."
global.Cash-=20
MsgBox.QChoose=3
}else MsgBox.Msg="How can you take on the ultimate quiz if you #can't pay me 20 Ryubies?         #Come back when you can pay the admission fee."
} else Yap=18
MsgBox.Question=0
}else MsgBox.Msg="!"
}

if Yap=3 {
if MsgBox.QChoose=3{MsgBox.Msg="Now, let me ask a question about that Verne guy...         #What was the name of the Fairy that lived in Verne's #house?"
MsgBox.QTxt="A. Popo#B. Pipi#C. Mimi#D. Nana"
MsgBox.Question=4
MsgBox.QChoose=0
}else MsgBox.Msg="!"
}

if Yap=4 {
if MsgBox.QChoose=3 MsgBox.Msg="#That's right, Nana!           #...maybe Nana's death is what drove Verne to evil..." else Yap=17
MsgBox.Question=0
}

if Yap=5 {
MsgBox.Msg="Anyway, next question...          #Princess Sabrina loves material objects from a far-off #country...            #What country is that?"
MsgBox.QTxt="A. Kinoko#B. Arlon#C. Arlington#D. Koholint"
MsgBox.Question=4
MsgBox.QChoose=0
}

if Yap=6 {
if MsgBox.QChoose=1 MsgBox.Msg="#That's right! Everything else, I just made up!               #...except maybe one..." else Yap=17
MsgBox.Question=0}

if Yap=7 {
MsgBox.Msg="Now... Years ago, this city was built in the memory of #one influential individual.         #...who was it?"
MsgBox.QTxt="A. Laria Rikahi#B. King Katrov#C. Queen Luminesca#D. Princess Selina"
MsgBox.Question=4
MsgBox.QChoose=0
}

if Yap=8 {
if MsgBox.QChoose=2 MsgBox.Msg="That's right, the Queen!           #She was a wonder to behold when she was there.         #...well, that's how the art depicts her..." else Yap=17
MsgBox.Question=0
}

if Yap=9 {
MsgBox.Msg="Now, here's a personal question...            #How old was Tiel when she gave you that incredibly #embarrassing kiss that neither one of you want to #talk about?"
MsgBox.QTxt="A. Six#B. Thirteen#C. Eighteen#D. Hey, who told you?"
MsgBox.Question=4
MsgBox.QChoose=0
}

if Yap=10 {
if MsgBox.QChoose=1 MsgBox.Msg="#Hmm... thirteen... and from then on, you two became #just friends... for a while, anyway." else Yap=17
MsgBox.Question=0
}

if Yap=11 {
MsgBox.Msg="Next Question...            #How much does it cost to buy the Wrecking Ball?         #...last I checked, you can't get a discount..."
MsgBox.QTxt="A. 255 Ryubies#B. 367 Ryubies#C. 990 Ryubies#D. 999 Ryubies"
MsgBox.Question=4
MsgBox.QChoose=0
}

if Yap=12 {
if MsgBox.QChoose=2 MsgBox.Msg="#Yeah, rather expensive...        #Good thing I'm not letting my children have one." else Yap=17
MsgBox.Question=0
}

if Yap=13 {
MsgBox.Msg="#...now, here's the last question ever...         #Who is your true love?"
MsgBox.QTxt="A. Elsaba#B. Tiel#C. Charlotte#D. Sabrina"
MsgBox.Question=4
MsgBox.QChoose=0
}

if Yap=14 {
if global.TielLove>= global.SabLove{
if MsgBox.QChoose=1 MsgBox.Msg="#That's right... she's your true love... unless you decide #you want to go after someone else... you weirdo." else Yap=17
} else {
if MsgBox.QChoose=3 MsgBox.Msg="#That's right... she's your true love... unless you decide #you want to go after someone else... you weirdo." else Yap=17}
MsgBox.Question=0}

if Yap=15 MsgBox.Msg="Thank you for your answers! Now, I shall give you #the ability to carry more Shurikens!         #Nice doing business with you!"

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

if Yap=17 MsgBox.Msg="#D'oh! You screwed it up big time!        #Now you've gotta start ALLLLLL over again!"

if Yap=18 MsgBox.Msg="#Well, whenever you're ready, I'm ready.          #Bring it on later!"
if Yap=19 MsgBox.Msg="!"
}else{
if Yap=0 MsgBox.Msg="You beat my quiz already!        #Now, go out there and brag about it!        #...please?"
if Yap=1 MsgBox.Msg="!"
}