;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; World Characters ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Use a "chr:" prefix for all symbols so they are easily identified. ;;; Course Staff favorites (define chr:gershon (make :nick 'gershon :name "Gershon" :location loc:secret :description '("Eli's cat."))) ;;; Make him meow when someone gets in. (defmethod (message (g = chr:gershon) (from ) (type = 'enter) (msg )) (emote g "meows")) (define chr:konna (make :nick 'konna :name "Konna" :location loc:fields :description '("Eli got to have his cat, so Brandon gets to have his dog."))) ;;; Make her wag her tail when someone gets in. (defmethod (message (k = chr:konna) (from ) (type = 'enter) (msg )) (emote k "wags her tail")) (define chr:potato (make :nick 'potato :name "Pet Potato" :location loc:hut :description '("David's Pet Potato"))) (define chr:corpse (make :nick 'corpse :name "Corpse the Gold Fish" :location loc:toilet :description '("David once had a gold fish named corpse!"))) (define chr:amy (make :nick 'amy :name "Amy Morrisett" :location loc:upson :description '("Professor Morrisett's daughter. Be nice to her!"))) (define chr:teletubby (make :nick 'teletubby :name "Tinky-Wink the Teletubby" :location loc:earth :description '("Followed Aleksey into the Game from the Risley TV room, but" "he was able to lose it in the game."))) ;;; Knights of the Round Table (define chr:bevedere (make :nick 'bevedere :name "Sir Bevedere" :location loc:gallows :description '("Smarts just ooze of this man. Here stands a knight who" "knows what going on. He seems to be mumbling something" "about ducks..."))) (define chr:lancelot (make :nick 'lancelot :name "Sir Lancelot" :location loc:swamp :description '("A brave knight glares back at you through his visor."))) (define chr:galahad (make :nick 'galahad :name "Sir Galahad" :location loc:anthrax :description '("A young knight, Galahad doesn't appear to be as..." "experienced at all this merriment and quest-going as do some" "of the other Knights."))) (define chr:robin (make :nick 'robin :name "Sir Robin" :location loc:swamp :description '("A knight of unsurpassed bravery, many a song will have been" "sung about Sir Robin The Not Quite As Brave As Sir Lancelot," "if only he'd let them."))) ;;; General Characters (define chr:lady (make :nick 'lady :name "The Lady of the Lake" :location loc:pond :description '("A woman of unsurpassed beauty dressed the finest clothing" "you had ever seen. She semms strangely serene... almost" "mythical."))) (define chr:minstrels (make :nick 'minstrels :name "Sir Robin's Minstrels" :location loc:swamp :leader chr:robin :description '("A loud band of merry men, these guys would love nothing more" "than to get roles in \"Shakespeare in Love 2: Revenge of" "Shakespeare\". In the mean time they are quite content" "spreading unfounded legends to anyone who wants to listen"))) (define chr:god (make :nick 'god :name "GOD" :location loc:camelot :description '("An elderly canadian gentleman gently glares back at you. He" "seems serene now, but you just know He's got His finger on a" "lightning bolt or a plague or such. Perhaps it's better not" "to mess with Him."))) (define chr:tim (make :nick 'tim :name "Tim The Enchanter" :location loc:valley :description '("You've seen odder people before. Just keep repeating that" "to yourself. Oh, but not too loudly, he doesn't like to be" "interrupted."))) (define chr:roger (make :nick 'roger :name "Roger the Shrubber" :location loc:village :description '("You ask what Roger does for a living, and he says" "'Shrubberies are my trade. I am a shrubber. My name is" "'Roger the Shrubber'. I arrange, design, and sell" "shrubberies.'"))) (define chr:frank (make :nick 'frank :name "Frank The Historian" :location loc:university :description '("Do you remember how when you were a young child, you once" "saw John Cleese in drag? It's Frank's job to write down" "important things like this so that they are forever" "preserved for posterity. He's also a darned good narrator." ))) (define chr:police (make :nick 'police :name "Police" :location loc:station :description '("The fuzz." "They are busy with important detective work. Some of them" "look in an accusing manner. You suddenly feel like" "confessing that you once stole a sandwhich from your best" "friend when you were six."))) ;;; Fighters (define chr:rbg (make :nick 'rbg :name "Random Bad Guy" :location loc:town :potency 25 :description '("A man on a horse. He's only here because we ran out of" "writers, the Bunny ate them all. You feel relieved that" "there's still some senseless violence left in the world."))) (define chr:taunter (make :nick 'taunter :name "Frrrench Taunter" :location loc:french :potency 10 :description '("You are assaulted by a barrage of mangled English. I think" "he's trying to insult you... good thing you are not a" "violent person... you aren't, are you???"))) (define chr:frenchie (make :nick 'taunter :name "Frrrench Taunter" :location loc:aaaagh :potency 20 :description '("You are assaulted by a barrage of mangled English. I think" "he's trying to insult you... good thing you are not a" "violent person... you aren't, are you???"))) (define chr:zoot (make :nick 'zoot :name "Zoot" :location loc:anthrax :potency 5 :description '("A young maiden of impecable character. You are reminded of" "a young Connie Booth. She seems excited to see you."))) (define chr:bill (make :nick 'bill :name "Bill Gates" :location loc:microsoft :potency 50 :description '("He's so rich that he's totally forgotten how to program." "Now he spends all his time prophecying about the future;" "only problem is you don't know whether it's a good" "future or an apocalyptic future. You can't wait to get" "out of his presence."))) (define chr:ni-knights (make :nick 'ni-knights :name "Knights who say \"Ni!\"" :location loc:forest :potency 10 :plan (lambda (p) ;; say Ni! and wait a random amount of time (shout p "*** Ni!!! ***") (random 20)))) ;;; And make the ni-knights shout when someone gets in. (defmethod (message (k = chr:ni-knights) (from ) (type = 'enter) (msg )) (shout k "*** Ni!!! ***")) (define chr:black-knight (make :nick 'black-knight :name "The Black Knight" :location loc:black :potency 5 :description '("A tall and ominous looking gentleman indeed. Even his armor" "seems to be glaring back at you ready to pick a fight with" "you. You begin to ponder dentisrty as a safe alternative" "profession."))) (define chr:bunny (make :nick 'bunny :name "Bunny of Caerbannog" :location loc:cave :potency 45 :description '("A small innocent looking bunny stares back at you (or more" "precisely at the two paces of blank space roughly in your" "general direction) with its small beady pink eyes. It looks" "pretty harmless."))) (define chr:bridgekeeper (make :nick 'keeper :name "The BridgeKeeper" :location loc:bridge :potency 15 :description '("A scraggly old man coughs inquisitively and mumbles to" "himself. He's wearing a \"Cornell Engineering\" sweatshirt" "and other tattered rags.")))