;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Murder Plots and Clues ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define *clue-poster-messages* (list (echos "[IMAGE: penguin]" :n " Viva la penguinistas! Join the People's Proletarian" "Democratic Linux Revolutionary Liberation Front at") (echos "Sun Microsystems Infosession:" :n " See why large websites prefer Sun over Microsoft operating" "systems. Reception to follow at") (echos "Hate Windows?" :n " Come to the Macintosh Users Group meeting, 9pm,") (echos "FRIENDS OF THE SULTAN OF BRUNEI" :n " Recently, Bill Gates has surpassed the Sultan of Brunei" "as the richest man in the world. However, if we all" "contribute $100 to his cause, we can restore him to" "his rightful place as the richest man in the world." "The Sultan of Brunei is a kind and benevolent ruler," "and has given himself to many humanitarian causes." "Help correct this injustice of economics and come to" "the meeting tonight at"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Eli is the murderer (make-a-murder chr:eli (list (make :question "Where were you at 10pm?" :answer (echos "10pm? I was in the 5th floor lounge asleep on the couch." "I dozed off about 8 and didn't wake up till about 11:30." "I finally woke up because I had this really wicked itch," "right here... I haven't been getting much sleep lately," "you know. So many bugs in Swindle.")) #f) ; use vanilla question chr:jeff (list (make :question "Where were you at 10pm?" :answer (echos "At 10pm I was just on my way to the consulting room from" "the lab. Eli and I had just fixed a bug in Swindle about" "10 minutes earlier, and we had just posted the new" "release, so I had a little free time and went down to see" "if Walter needed any help.")) #f) ; use vanilla question chr:brandon (list (make :question "Where were you at 10pm?" :answer (echos "About 10pm I stopped by the lounge on the 5th floor to see" "if anybody was around. I thought maybe someone from the" "212 staff might still be there and we could work on the" "game, but the place was completely empty. So I went back" "down to the lab.")) #f)) ; use vanilla question ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Ralph is the murderer (make-a-murder chr:ralph (list (make :question "Where were you at 10pm?" :answer (echos "I was down in the basement getting a Coke from the Coke" "machine.")) (make :question "Did you see anything unusual this evening?" :answer (echos "Come to think of it, about 9pm I saw Dexter sneaking" "around carrying something. I couldn't tell what it was" "because he was trying to hide it in his pants. He had" "this wild look in his eyes, like he was on a mission or" "something."))) chr:jeff (list (make :question "Where were you at 10 pm?" :answer (echos "Err. Umm. I was down in the basement talking to the Coke" "machine repair guy. He was fixing the coke machine that" "Dexter broke yesterday. He bashed it with a lead pipe" "after it ate his money. It was disturbed. The repair guy" "didn't finish till 11 pm, but I was sooooo thirsty, I just" "had to wait.")) #f) ; use vanilla question chr:brandon (list #f ; use vanilla question (make :question "Did you see anything unusual this evening?" :answer (echos "If you call Dexter passed out on the floor of his office" "strange, I guess that qualifies. He starting tossing back" "shots of Cuervo Gold around 7pm like there was no" "tomorrow. He'd polished off the whole bottle by 8. He" "even swallowed the worm. Yuck. I passed by his office" "about 9pm and he was lying there catatonic.")))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Eli is the murderer (make-a-murder chr:eli (list (make :question "Where were you at 10pm?" :answer (echos "I was over in the supercomputer center in Rhodes. I had" "been there all day and all evening waiting for the" "supercomputer to finish evaluating ((lambda (x) (x x))" "(lambda (x) (x x))). It's too complicated for these" "[Hebrew expletive] Dell machines. They can't handle it.")) #f) ; use a vanilla question chr:dexter (list (make :question "Where were you at 10pm?" :answer (echos "I was playing Final Fantasy VIII in my office. The" "supercomputer has been down since last Wednesday so I" "couldn't get any research done. Something about methane" "gas seeping up from under the floor in the machine room." "They couldn't find the source, but maybe that cow I've" "seen wandering around had something to do with it.")) #f) ; use a vanilla question chr:ada (list (make :question "Where were you at 10pm?" :answer (echos "I was on my way home after spending the day with Eli. We" "just talked and talked about anything and everything, on" "and on into the evening. He is my big cuddly bear and I" "do so adore him.")) #f)) ; use a vanilla question ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Dexter is the murderer (make-a-murder chr:dexter (list (make :question "Where were you at 10pm?" :answer (echos "About 10pm I was in the men's room on the 5th floor. I" "had actually been there for a couple hours. I often sit" "in there and do research. It's where I've produced some" "of my best results.")) (make :question "Did you see anything unusual this evening?" :answer (echos "Yes, come to think of it, I noticed when the lights went" "back on I saw Eli running out the door looking furtively" "over his shoulder, holding something in his hand. I" "couldn't tell what it was. Some kind of blunt object" "maybe."))) chr:eli (list (make :question "Where were you at 10pm?" :answer (echos "I was in my office the whole evening. I was adding" "multiple inheritance to the colored cubes so they could" "inherit colors from each other.")) #f) ; use a vanilla question chr:brandon (list #f ; use a vanilla question (make :question "Did you see anything unusual this evening?" :answer (echos "Yes, I noticed that they had the 5th floor men's room" "blocked because one of the toilets exploded this morning." "Something about methane gas in the pipes. Luckily no one" "was in there at the time. Could have been ugly. They" "finished cleaning up the mess and reopened the room about" "11pm.")))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Jeff is the murderer (make-a-murder chr:jeff (list (make :question "Where were you at 10pm?" :answer (echos "At 10pm I was down in B17 trying out the new ethernet" "connections. They're cool--you can plug in your laptop" "right at your seat. I was down there for about an hour" "playing with it.")) (make :question "Did you see anything unusual this evening?" :answer "Nothing more unusual than usual.")) chr:brandon (list (make :question "Where were you at 10pm?" :answer (echos "About 10pm I was down in the basement getting a Coke from" "the vending machine. Oh, I also stopped by the B17 room" "to check out the progress. It's going to look really" "nice. Each seat will have its own ethernet connection," "but the cables haven't been installed yet. They're all" "piled up against the wall.")) #f) ; use a vanilla question chr:ralph (list #f ; use a vanilla question (make :question "Did you see anything unusual this evening?" :answer (echos "Nothing too unusual, except maybe down in the basement. I" "took a shortcut through B17 and tripped over a bunch of" "wires lying against the wall. I guess this is supposed" "to be some kind of sculpture, since the lights and" "electrical sockets are already working. I thought it was" "really strange for a piece of artwork though.")))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;; Brandon is the murderer (make-a-murder chr:brandon (list (make :question "Where were you at 10pm?" :answer (echos "Let's see, 10pm...ahh, now I remember. I was down in the" "consulting room with Emmanuel. I dropped by to keep him" "company since no students were showing up.")) #f) ; use a vanilla question chr:jeff (list (make :question "Where were you at 10pm?" :answer (echos "I was in the Upson lounge watching a movie with Emmanuel," "\"Silence of the Lambdas\". It's about this guy who eats" "himself.")) #f) ; use a vanilla question chr:eli (list #f ; use a vanilla question (make :question "Did you see anything unusual this evening?" :answer (echos "Yeah, I passed by the Upson lounge about 10 o'clock and" "saw Emmanuel and Jeff in there watching this movie, and no" "one was talking. That's pretty unusual."))))