#
#@DOC@ Jones Soda 2.0
#~~~~~~~~~~~~~~
#
#This is a series of multiple-choice questions which appears in the given
#order when the arrival code is entered into the device (first section
#below).  You'll get the code from the label on the Jones Soda bottle.
#
#The question will appear on one "screen", and a knob click then takes you
#to the next screen, where the first line always displays "WHO AM I?" and
#the second line changes to one of four answers or "<back>" as you turn the
#knob.
#
#Each section between hash marks below is a pair of question and answers.
#Correct answers are marked with an asterisk (*).  These shouldn't appear
#on the display, obviously.
#
#After you answer each question, display "CORRECT!" or "WRONG ANSWER."  If
#correct, display the next question on the same screen.  If incorrect, a
#knob click takes you back to the main menu, and you then have to enter the
#code again and answer all questions again, in order.
#
#When you answer all questions correctly, the solution message (last
#section) is displayed.
#
#Question: after this is solved, should the arrival code change to the
#confirmation code?  That is, should entering the same code then simply
#display the solution, bypassing all the questions?  Should we allow them
#to see the questions later if they want to?
#
#

#Enter code:
CODE "JJONZZ" func_pzl_cp1_start
FPTR pzl_cp1_start


#

TEXT mode_cp1_fail mode_main_menu
"WRONG ANSWER!"
END


TEXT mode_cp1_q1 mode_cp1_a1
"It turns out I'm the"
"last of a powerful"
"alien race."
END

MENU mode_cp1_a1 "WHO AM I?"
SET mode_cp1_fail           "Aquaman"
SET mode_cp1_fail           "Brainiac 5"
SET mode_cp1_q2             "Martian Manhunter"
SET mode_cp1_fail           "Sub-Mariner"
SET mode_cp1_q1             "<back>"
END

#

TEXT mode_cp1_q2 mode_cp1_a2
"CORRECT!"
"My mother formed me"
"from a lump of magic"
"clay."
END

MENU mode_cp1_a2 "WHO AM I?"
SET mode_cp1_q3             "Wonder Woman"
SET mode_cp1_fail           "Monstress"
SET mode_cp1_fail           "Ka-Zar"
SET mode_cp1_fail           "Sandman"
SET mode_cp1_q2             "<back>"
END

#

TEXT mode_cp1_q3 mode_cp1_a3
"CORRECT!"
"I got bitten by a"
"radioactive bug."
END

MENU mode_cp1_a3 "WHO AM I?"
SET mode_cp1_fail           "Blue Beetle"
SET mode_cp1_fail           "Green Hornet"
SET mode_cp1_q4             "Spider-Man"
SET mode_cp1_fail           "Wasp"
SET mode_cp1_q3             "<back>"
END

#

TEXT mode_cp1_q4 mode_cp1_a4
"CORRECT!"
"I tried an"
"experimental drug."
END

MENU mode_cp1_a4 "WHO AM I?"
SET mode_cp1_q5             "Captain America"
SET mode_cp1_fail           "Dr. Fate"
SET mode_cp1_fail           "Mister Miracle"
SET mode_cp1_fail           "Plastic Man"
SET mode_cp1_q4             "<back>"
END

#

TEXT mode_cp1_q5 mode_cp1_a5
"CORRECT!"
"I got radioactive"
"isotope in my eyes."
END

MENU mode_cp1_a5 "WHO AM I?"
SET mode_cp1_fail           "Dr. Mid-Nite"
SET mode_cp1_q6             "Daredevil"
SET mode_cp1_fail           "Ghost Rider"
SET mode_cp1_fail           "Mandrake"
SET mode_cp1_q5             "<back>"
END

#

TEXT mode_cp1_q6 mode_cp1_a6
"CORRECT!"
"A dying alien helped"
"me accessorize."
END

MENU mode_cp1_a6 "WHO AM I?"
SET mode_cp1_fail           "Alan Scott"
SET mode_cp1_q7             "Hal Jordan"
SET mode_cp1_fail           "John Stewart"
SET mode_cp1_fail           "Guy Gardner"
SET mode_cp1_q6             "<back>"
END

#

TEXT mode_cp1_q7 mode_cp1_a7
"CORRECT!"
"I found a lamp"
"carved from the"
"Starheart.  Now,"
"even without my"
"ring, it's easy"
"being green."
END

MENU mode_cp1_a7 "WHO AM I?"
SET mode_cp1_q8             "Alan Scott"
SET mode_cp1_fail           "Hal Jordan"
SET mode_cp1_fail           "John Stewart"
SET mode_cp1_fail           "Guy Gardner"
SET mode_cp1_q7             "<back>"
END

#

TEXT mode_cp1_q8 mode_cp1_a8
"CORRECT!"
"I'm given super"
"powers by a yellow"
"sun."
END

MENU mode_cp1_a8 "WHO AM I?"
SET mode_cp1_fail           "Dr. Light"
SET mode_cp1_q9             "Superman"
SET mode_cp1_fail           "Silver Surfer"
SET mode_cp1_fail           "Starman"
SET mode_cp1_q8             "<back>"
END

#

TEXT mode_cp1_q9 mode_cp1_a9
"CORRECT!"
"I studied under the"
"Ancient One."
END

MENU mode_cp1_a9 "WHO AM I?"
SET mode_cp1_fail           "Jonah Hex"
SET mode_cp1_fail           "Dr. Occult"
SET mode_cp1_q10            "Dr. Strange"
SET mode_cp1_fail           "Phantom Stranger"
SET mode_cp1_q9             "<back>"
END

#

TEXT mode_cp1_q10 mode_cp1_a10
"CORRECT!"
"I went out for a"
"stroll on a gamma"
"testing range."
END

MENU mode_cp1_a10 "WHO AM I?"
SET mode_cp1_fail           "Black Lightning"
SET mode_cp1_fail           "Firestorm"
SET mode_cp1_fail           "Kid Quantum"
SET mode_cp1_q11            "Hulk"
SET mode_cp1_q10            "<back>"
END

#

TEXT mode_cp1_q11 mode_cp1_a11
"CORRECT!"
"I found an enchanted"
"Uru cane."
END

MENU mode_cp1_a11 "WHO AM I?"
SET mode_cp1_fail           "Metamorpho"
SET mode_cp1_fail           "Negative Man"
SET mode_cp1_q12            "Thor"
SET mode_cp1_fail           "Zatanna"
SET mode_cp1_q11            "<back>"
END

#

TEXT mode_cp1_q12 mode_cp1_a12
"CORRECT!"
"I made a serum that"
"made me small."
END

MENU mode_cp1_a12 "WHO AM I?"
SET mode_cp1_q13            "Ant-Man"
SET mode_cp1_fail           "Atom"
SET mode_cp1_fail           "Dr. Polaris"
SET mode_cp1_fail           "Hourman"
SET mode_cp1_q12            "<back>"
END

#

TEXT mode_cp1_q13 mode_cp1_a13
"CORRECT!"
"I modified the serum"
"so it would make me"
"tall."
END

MENU mode_cp1_a13 "WHO AM I?"
SET mode_cp1_fail           "Elongated Man"
SET mode_cp1_fail           "Mr. Terrific"
SET mode_cp1_q14            "Giant-Man"
SET mode_cp1_fail           "Robotman"
SET mode_cp1_q13            "<back>"
END

#

TEXT mode_cp1_q14 mode_cp1_a14
"CORRECT!"
"My best friend and"
"my girlfriend and"
"her brother went"
"into space.  Who'da"
"thought we'd get"
"bombarded by cosmic"
"rays?"
END

MENU mode_cp1_a14 "WHO AM I?"
SET mode_cp1_fail           "Human Torch"
SET mode_cp1_fail           "Invisible Woman"
SET mode_cp1_q15            "Mr. Fantastic"
SET mode_cp1_fail           "Thing"
SET mode_cp1_q14            "<back>"
END

#

TEXT mode_cp1_q15 mode_cp1_a15
"CORRECT!"
"I taught myself to"
"shoot on Starfish"
"Island."
END

MENU mode_cp1_a15 "WHO AM I?"
SET mode_cp1_fail           "Artemis"
SET mode_cp1_q16            "Green Arrow"
SET mode_cp1_fail           "Hellboy"
SET mode_cp1_fail           "Punisher"
SET mode_cp1_q15            "<back>"
END

#

TEXT mode_cp1_q16 mode_cp1_a16
"CORRECT!"
"In the year 2962, I"
"quit my pro sports"
"career to help found"
"the Legion."
END

MENU mode_cp1_a16 "WHO AM I?"
SET mode_cp1_q17            "Cosmic Boy"
SET mode_cp1_fail           "Karate Kid"
SET mode_cp1_fail           "Live Wire"
SET mode_cp1_fail           "Saturn Girl"
SET mode_cp1_q16            "<back>"
END

#

TEXT mode_cp1_q17 mode_cp1_a17
"CORRECT!"
"Two dead parents and"
"an intrusive flyer"
"inspired my"
"crime-fighting"
"career."
END

MENU mode_cp1_a17 "WHO AM I?"
SET mode_cp1_fail           "Hawkman"
SET mode_cp1_q18            "Batman"
SET mode_cp1_fail           "Robin"
SET mode_cp1_fail           "Black Canary"
SET mode_cp1_q17            "<back>"
END

#

TEXT mode_cp1_q18 mode_cp1_a18
"CORRECT!"
"I used to be a"
"vigilante vixen, but"
"now I'm a paraplegic"
"hacker."
END

MENU mode_cp1_a18 "WHO AM I?"
SET mode_cp1_fail           "Huntress"
SET mode_cp1_fail           "Batgirl"
SET mode_cp1_q19            "Oracle"
SET mode_cp1_fail           "Catwoman"
SET mode_cp1_q18            "<back>"
END

#

TEXT mode_cp1_q19 mode_cp1_a19
"CORRECT!"
"I got an adamantium"
"skeleton, bub."
END

MENU mode_cp1_a19 "WHO AM I?"
SET mode_cp1_fail           "Sabretooth"
SET mode_cp1_fail           "Lady Deathstryke"
SET mode_cp1_fail           "Omega Red"
SET mode_cp1_q20            "Wolverine"
SET mode_cp1_q19            "<back>"
END

#

TEXT mode_cp1_q20 mode_cp1_a20
"CORRECT!"
"Some grizzled old"
"wizard taught me a"
"magic acronym!"
END

MENU mode_cp1_a20 "WHO AM I?"
SET mode_cp1_fail           "Deadman"
SET mode_cp1_fail           "Vision"
SET mode_jonzz_win          "Captain Marvel"
SET mode_cp1_fail           "Spectre"
SET mode_cp1_q20            "<back>"
END

#

#if 0
TEXT mode_cp1_win POP
"CORRECT!"
"You sure know your"
"superhero origins!"
"Now go to the"
"rooftop of the San"
"Pedro Square parking"
"garage in downtown"
"San Jose and take a"
"flying leap."
END
#endif

###