;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Vanilla Questions ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; These questions are designed such that they don't incriminate any ;;; other character in a way that it destroys the predetermined game. (add-question chr:jeff (make :question "Where were you at 10pm?" :answer (random-elt (list (echos "I don't know... in CSUG, I think, working on this very" "disturbed computer.") "Uh... reading news. What else would I do?")))) (add-question chr:jeff (make :question "Have you seen anything unusual this evening?" :answer (random-elt (list (echos "Um... So, there's this automated perl script that" "generates haikus I saw the other day that was seriously" "disturbed...") (echos "Ah... Dion the other day. He was wearing a jacket that" "was the same color as a Sun Sparc workstation." "Sparc Dion. That's disturbed..."))))) (add-question chr:jeff (make :question "Have you eaten anything unusual today?" :answer (echos "So... I've had two peanut-butter and jelly sandwiches," "three glasses of chocolate milk, and a banana. That's" "about it."))) (add-question chr:jeff (make :question "Tell me a story, Daddy." :answer (echos "So... once upon a time there was this king. He was a good" "king, and everybody loved him. Um... they wanted to give" "him a gift, and he asked for a grain of rice. He also" "asked that every day he be given twice the number of" "grains as he recieved the day before. Imagine! That's" "the exponential function! Everyone soon starved, and the" "king had more rice than he knew what to do with. Hey, I" "can't continue... I need to go check news."))) (add-question chr:dexter (make :question "Where were you at 10pm?" :answer (random-elt (list (echos "Hmm... Where the heck was I at 10? Oh yeah..." "let's see... that was before the liter of Absolut" "but after the Jagermeister... hmmm... crap, I've" "had a lot of good shit tonight!") (echos "Doin' this!" "[He takes another swig from his bottle]"))))) (add-question chr:dexter (make :question "Have you seen anything unusual this evening?" :answer (random-elt (list (echos "Yeah, I have - it's this Kleene algebra with tests, an" "equational system for manipulating programs. And guess" "what? The universal Horn theory of *-continuous Kleene" "algebras is not finitely axiomatizable. Wow. I don't" "know what I was smoking when I thought that one up." "That must have been some pretty strong stuff.") (echos "Yesterday I saw this pink elephant with wings flying" "around, and I'm thinking to my self, crap, I'm sooo" "plastered..."))))) (add-question chr:dexter (make :question "Professor, what can I do to raise my grade in CS212?" :answer "*hic* Biggie K likes his rum and coke.")) (add-question chr:dexter (make :question (echos "Professor, I've read your algorithm for computing" "type-inferences in Lambda Calculus using partial types." "Is O(n^3) really the best possible time?") :answer (echos "How dare you challenge me! I made O'Keefe cry like a baby" "and I can do it to you, too! How about I twist that little" "pinhead of yours inside out! Ha? You'd like that, eh?" "*hic* Then maybe I could juggle your major organs for a" "few minutes, before ripping out your eyes and stuffing the" "organs in the sockets!! *incoherent mumbling* Damn" "kids..."))) (add-question chr:eli (make :question "Where were you at 10pm?" :answer "I was driving back from New York city. Such a long drive.")) (add-question chr:eli (make :question "Have you seen anything unusual this evening?" :answer (random-elt (list (echos "So, I write this thing for Swindle, and it, uh," "it expresses lambda-calculus operations in terms" "of moving these little cubes around...") (echos "So, I put Linux on this Windows CE thing, and it" "does Swindle."))))) (add-question chr:eli (make :question (echos "Eli, is it true that people in Israel eat their" "cornflakes with apple juice instead of milk?") :answer (echos "[Hebrew Expletives]! You Americans are soft, with your" "cornflake-dairy-babylike breakfast delicacies! In Israel," "we learn how to do more with less!"))) (add-question chr:eli (make :question "What program should I use for word-processing?" :answer "[Hebrew Expletives] Emacs!")) (add-question chr:eli (make :question "What program should I use for email?" :answer "[Hebrew Expletives] Emacs!")) (add-question chr:eli (make :question "What program should I use for ICQ?" :answer "[Hebrew Expletives] Emacs!")) (add-question chr:eli (make :question "Why don't you like Microsoft Office?" :answer (echos "Because programs that try to do everything are bloated," "soft, American programs. [Hebrew Expletives]!"))) (add-question chr:brandon (make :question "Where were you at 10pm?" :answer (echos "From 8 until just now I was in a session with a very" "distressed patient. You see, she vuz on zee couch and I" "vaz behind zee couch and I vaz NOT on zee couch nor vaz" "I under zee couch. She vaz telling me about zeis dream" "zat she had been suffering from recently. Zer ver zeis" "cows and zey ver mooing at zee couch in her dream and" "zee couch would stare back blankly and zen zee couch" "began to moo too! It was all so very disturbing. I" "cannot even begin to explain it to you..."))) (add-question chr:brandon (make :question "Have you seen anything unusual this evening?" :answer (echos "Yes! Zis young woman who was so very disturbed and a" "herd of cows and a couch and a footstool and zee Ottoman" "Empire... wait, no I just saw zee couch, zee cows do not" "exist, zee cows do not exist, did you hear that maniacal" "moo-laugh recently?"))) (add-question chr:brandon (make :question (echos "I don't think I'll be able to afford another semester at" "Cornell. And idea how I might go about getting some quick" "cash?") :answer (echos "In Alaska, we went to the Klondike every time we needed" "money. We'd just hop onto our dogsleds (wearing warm" "shorts, of course) and go get some gold! Ye-ha! It was very" "exciting. Sometimes we'd even get to have picnics with the" "Inuit in their Igloos. Yay! Thinking of that makes me very" "happy. It almost warms my frozen Alaskan heart!"))) (add-question chr:brandon (make :question "Brandon, how can I learn the beauty that is induction?" :answer (echos "Ah, you seek wisdom. But is there wisdom in seeking" "wisdom? Perhaps this is the wisdom that you seek, no? But" "is seeking the wisdom in seeking wisdom in seeking wisdom" "wise? The answer is that wisdom is wise. See?"))) (add-question chr:brandon (make :question "Is it true that you do accents?" :answer "Yes. I do zee Jeman, zee Frrrrensh und udder akzents!")) (add-question chr:ralph (make :question "Where were you at 10pm?" :answer "Nowhere.")) (add-question chr:ralph (make :question "Have you seen anything unusual this evening?" :answer (random-elt '("Um... no." "No, not lately.")))) (add-question chr:ralph (make :question "Can you tell me a joke?" :answer "No.")) (add-question chr:ralph (make :question "Can you tell me what you ate for dinner tonight?" :answer "No.")) (add-question chr:ada (make :question "Where were you at 10pm?" :answer (random-elt '("With Babbage. Where else would I be?" "*winks* Differencing my Engines...")))) (add-question chr:ada (make :question "Have you seen anything unusual this evening?" :answer (random-elt (list (echos "Have you seen this thing that Eli wrote up for Swindle," "that expresses lambda calculus operations visually using" "blocks?") (echos "Well, seeing Charlie - Charles Babbage, you know -" "drunk the other day was quite interesting. Actually," "we were both pretty drunk. I'm not too clear on what" "happened, except that it involved a pot of Darjeeling" "tea, a half-built Analytic Engine, and a tub of Cool" "Whip..."))))) (add-question chr:ada (make :question "Who the heck are you, and what are you doing in Upson?" :answer (echos "I was born on December 10th, 1815. I met Babbage in 1833" "and became fascinated by him. His analytical and" "difference engines were brilliant. I love a man with a" "big brain. In real life, I'm dead. But Scheme has a" "(lambda (x) (bring-to-life x)) function which has allowed" "be to hang out in Upson with you.")))