# Nostalgia Quiz Walk
Team up with someone you don't know well and go a trip down memory lane of pop/nerd culture.
For each question, write down the letter of the correct answer. When you have answered all $NumberOfQuestions questions, reorder the letters to form a word.
There is a prize for each team that hands in a correct answer.
=><=
(link-reveal-goto:"Begin!", "Question")[($nextQuestion:)]($insertImage:"zak.jpg")
(if: $ShowQuestions)[
In Zak McKracken and the Alien Mind Benders you play the intrepid reporter Zak McKracken in a quest to stop space aliens from reducing everyone's IQ to single digits.
Which item(s) do you need to distract the stewardess long enough for you to pick up the oxygen mask and the spare seat cushion in the airplane?
](set: $Options to (dm:
"P", "Sushi in a fish bowl",
"U", "Egg",
"T", "Egg and toilet paper",
"O", "Egg and spam"
))($insertImage:"hannibal.jpg")
(if: $ShowQuestions)[
Colonel John "Hannibal" Smith is the leader of the A-Team who appeared on the TV series The A-Team. He was played by actor George Peppard.
What is Hannibal's catchphrase?
](set: $Options to (dm:
"I", "I love it when a plan comes together!",
"C", "I need a ride and ammunition!",
"E", "Nuffin like a good cigar!",
"T", "There is always a way!"
))# Puzzle
You have answered:
(for: each _question, ...(range:1, $NumberOfQuestions))[
(link-reveal-goto: "Question " + (str:_question),"Question")[(set:$CurrentQuestion to _question)] : (if: $Answers contains (str:_question))[(print:(str:_question) of $Answers)](else:)[?]]
### Word
Reorder to form the correct word.
=><=
|Word>[
{
(for: each _question, ...$CurrentOrder) [
(if: $Answers contains (str:_question))[
(if:_question is $CurrentQuestion)[
(if:1<($currentIndex:))[
(link-repeat:"<")[($moveLeft:)(rerun:?Word)]
]
(print:(str:_question) of $Answers)
(if:($currentIndex:)<$CurrentOrder's length)[
(link-repeat:">")[($moveRight:)(rerun:?Word)]
]
](else:)[
(link-reveal: (str:_question) of $Answers)[(set:$CurrentQuestion to _question)(rerun:?Word)]
]
]
(else:)[
?
]
]
}
<==
(if:($correctWord:))[You found the correct word!(rerun:?Options)]
(else-if: ($showHint:))[(display:"Hint")]
]
|Options>[
<==
|=
(link-goto: "Back", "Question")
=|=
=><=
[[Credits]]
=|
==>
(if:($correctWord:))[ (link-goto: "Prize", "Congratulations") ](else:)[Prize]
|==|
]# Question $CurrentQuestion
(display: "Question "+ (str:$CurrentQuestion))
### Answers
|Options>[(for: each _name, ...(dm-names:$Options)) [
(link-repeat:_name)[(set: $Answers to it + (dm: (str:$CurrentQuestion),_name))(rerun:?Options)] : (print:_name of $Options)(if:$Answers contains (str:$CurrentQuestion))[(if: (str:$CurrentQuestion) of $Answers is _name )[ (your answer)]]
]
]
<==
|=
(if:$CurrentQuestion > 1)[(link-reveal-goto:"Previous", "Question")[($previousQuestion:)]](else:)[Previous]
=|=
=><=
[[Puzzle]]
=|
==>
(if:$CurrentQuestion < $NumberOfQuestions)[(link-reveal-goto:"Next", "Question")[($nextQuestion:)]](else:)[Next]
|==|
{
(set: $ShowQuestions to TRUE)
(set: $Answers to (dm:))
(set: $CurrentQuestion to 0)
(set: $CurrentOrder to (shuffled:...(range:1,$NumberOfQuestions)))
(set: $HintCountDown to 10)
(set: $previousQuestion to (macro: [
(set: $CurrentQuestion to it - 1)
(if: $CurrentQuestion < 0)[(set: $CurrentQuestion to 0)]
(output:)[]
]))
(set: $nextQuestion to (macro: [
(set: $CurrentQuestion to it + 1)
(if: $CurrentQuestion > $NumberOfQuestions)[(set: $CurrentQuestion to $NumberOfQuestions)]
(output:)[]
]))
(set: $moveLeft to (macro: [
(set: _index to 0)
(for: each _i, ...(range:1, $NumberOfQuestions))[
(if: $CurrentQuestion is $CurrentOrder's (_i))[
(set:_index to _i)
]
]
(set: _other to $CurrentOrder's (_index - 1))
(set: _result to (a:))
(if:_index > 2)[
(set: _result to it + (subarray:$CurrentOrder, 1, _index - 2))
]
(set: _result to it + (a:$CurrentQuestion, _other))
(if:_index<$CurrentOrder's length)[
(set: _result to it + (subarray:$CurrentOrder, _index + 1, $CurrentOrder's length) )
]
(set: $CurrentOrder to _result)
(set: $HintCountDown to it - 1)
(output:)[]
]))
(set: $moveRight to (macro: [
(set: _index to 0)
(for: each _i, ...(range:1, $NumberOfQuestions))[
(if: $CurrentQuestion is $CurrentOrder's (_i))[
(set:_index to _i)
]
]
(set: _other to $CurrentOrder's (_index + 1))
(set: _result to (a:))
(if:_index > 1)[
(set: _result to it + (subarray:$CurrentOrder, 1, _index - 1))
]
(set: _result to it + (a:_other, $CurrentQuestion))
(if:_index < -1 + $CurrentOrder's length)[
(set: _result to it + (subarray:$CurrentOrder, _index + 2, $CurrentOrder's length) )
]
(set: $CurrentOrder to _result)
(set: $HintCountDown to it - 1)
(output:)[]
]))
(set: $currentIndex to (macro: [
(set: _index to 0)
(for: each _i, ...(range:1, $NumberOfQuestions))[
(if: $CurrentQuestion is $CurrentOrder's (_i))[
(set:_index to _i)
]
]
(output-data: _index)
]))
(set: $correctWord to (macro:[
(set: _word to "")
(for: each _question, ...$CurrentOrder)[
(if: $Answers contains (str: _question))[
(set: _word to it + (str:_question) of $Answers)
]
]
(output-data: _word is $PuzzleWord)
]))
(set: $showHint to (macro: [
(output-data:
($HintCountDown < 0) and
((dm-entries:$Answers)'s length is $NumberOfQuestions)
)
]))
(set: $insertImage to (macro: str-type _name, [
(output-data:
"<p align=center><img width=\"90%\" border=1 src=\"" + $ImageUrl + _name + "\" /></p>")
]))
}{
(set: $NumberOfQuestions to 10)
(set: $ImageUrl to "http://thoughtfulgames.com/fredecon/images/")
(set: $PuzzleWord to "FANTASTIC!")
}($insertImage:"mr-t.jpg")
(if: $ShowQuestions)[
Sergeant "B.A." Baracus played by Mr. T, is a fictional character and one of the main protagonists of the 1980s action-adventure television series The A-Team.
What is the meaning of "B.A." (according to the pilot episode)?
](set: $Options to (dm:
"T", "Bad Ass",
"A", "Born Again",
"N", "Bad Attitude",
"K", "British Airways",
))
($insertImage:"airwolf.jpg")
(if: $ShowQuestions)[
In the tv series Airwolf, the former test pilot Stringfellow Hawke flew the gunship Airwolf, a supersonic armed helicopter disguised as a civilian vehicle, very fast in low altitude over scenic wilderness. Also, Hawke refused to wear underwear. His co-pilot Santini was played by Ernest Borgnine, known from such classics as The Wild Bunch and Ice Station Zebra.
The gunship was stolen from "The Firm" in the pilot episode. What is the code name of the recurring one-eyed deputy director of The Firm dressed in white?
](set: $Options to (dm:
"W", "Angel",
"O", "Optimus",
"L", "Dundee",
"F", "Archangel"
))($insertImage:"knight-rider.jpg")
(if: $ShowQuestions)[
In Knight Rider, David Hasselhoff battles the forces of evil with the help of an indestructible and intelligent supercar named KITT. The visual design of the front of the car deliberately took inspiration from another tv series from a few years earlier.
What tv series?
](set: $Options to (dm:
"F", "Back to the Future",
"A", "Battlestar Galactica",
"S", "Dynasty",
"T", "Doctor Who"
))($insertImage:"backtothefuture.jpg")
(if: $ShowQuestions)[
In the movie series Back to the Future, the teenager Marty McFly travels back in time in a custom built DeLorean. The flux capacitor invented by Doc Brown, opens a worm hole for a limited amount of time when the car reaches a certain speed.
What speed is necessary to achieve for the car to travel in time?
](set: $Options to (dm:
"B", "77mph",
"A", "78mph",
"C", "88mph",
"K", "100mph"
))($insertImage:"transformers.png")
(if: $ShowQuestions)[
In Transformers, fictional extraterrestrial species of sentient self-configuring modular robotic lifeforms use Earth as battleground for their civil war. The bad guys are the Decepticons, headed up by Megatron. The good guys are the Autobots.
What is the name of the leader of the Autobots?
](set: $Options to (dm:
"R", "Archangel",
"O", "Hannibal Prime",
"B", "Maximus Prime",
"T", "Optimus Prime"
))($insertImage:"civ2.png")
(if: $ShowQuestions)[
Just... one more turn. Countless hours were sunk into playing the video game Civilization in many teenage homes. The player is tasked with leading an entire human civilization over the course of several millennia by controlling various areas such as urban development, exploration, government, trade, research, and military. The game can be won by conquering all other civilizations or by winning the space race by reaching the star system of Alpha Centauri.
Which of the following Wonders of the World increases the movement rate of naval units?
](set: $Options to (dm:
"L", "Colossus",
"A", "Magellan's Expedition",
"P", "Pyramids",
"H", "Stone Henge"
))($insertImage:"dnd.jpg")
(if: $ShowQuestions)[
Tabletop RPGs conquered Scandinavia in the 80ies, especially the game Dungeons and Dragons advertised by rumours of satanism and suicide presumably endangering its practitioners. Teenagers all over the world lived out the American Dream as they killed monsters, looted dungeons and argued about whose turn it was to pay for the pizza.
One popular film from that decade featured kids playing the game. What movie is that?
](set: $Options to (dm:
"D", "Back to the Future",
"!", "E.T.",
"&", "Gremlins",
"2", "Willow"
))($insertImage:"dundee.jpg")
(if: $ShowQuestions)[
Crocodile Dundee is a 1986 action comedy film set in the Australian Outback and in New York City. It stars Paul Hogan as the weathered Mick Dundee.
In the movie, the American feature writer Sue travels to Walkabout Creek, a small hamlet in the Northern Territory of Australia, to meet Michael J. "Crocodile" Dundee, a bushman reported to have lost half a leg to a saltwater crocodile before crawling hundreds of miles to safety. On arrival in Walkabout Creek, she cannot locate Dundee, but she is entertained at the local pub by Dundee's business partner.
What is the name of Dundee's business partner?
](set: $Options to (dm:
"A", "Richard Mason",
"U", "Optimus Prime",
"S", "Walter Reilly",
"T", "Hannibal Smith"
))=><=
# Credits
### Questions
Frederik Jensen
Copyright 2022
### Images
Images are used without permission under fair use clause.
### Quiz Walk Creator
Frederik Jensen
Copyright 2023
For more quiz walks visit <a href="https://thoughtfuldane.com">ThoughtfulDane</a>.
(link-reveal-goto:"Restart Quiz", "Start")[(restart:)]
Hint: The word begins with (str: $PuzzleWord's 1st).You have completed the Nostalgia Quiz Walk!
Share with all your friends!# Congratulations!
(display:"Prize")
=><=
[[Credits]]