Constant Story "CLOTHING"; Constant Headline "^An Interactive Wardrobe^\ Written 1998 by Denis M Moskowitz (dmm@@64cs.hmc.edu).^ All rites reversed (k) reuse what you like^"; Constant DEBUG; Include "Parser"; Include "VerbLib"; Include "Clothing"; Object Closet "Closet" with description "A closet containing some clothes." has light; Clothes -> Shirt1 "white shirt" with name "white" "shirt", area 1, level 1; Clothes -> Shirt2 "blue shirt" with name "blue" "shirt", area 1, level 1; Clothes -> Sweater "sweater" with name "sweater", area 1, level 2; Clothes -> Jacket "jacket" has open openable with name "jacket", area 1, level 3, covering false, after [; Open: self.covering = false; if (self has worn) self.conceal(); Close: self.covering = true; if (self has worn) self.conceal(); Disrobe: give self open; self.covering = false; ]; Clothes -> Shorts "boxer shorts" has pluralname with name "boxer" "shorts" "boxers" "underwear", area 2, level 1; Clothes -> Longjohns "long johns" has pluralname with name "longjohns" "long" "johns" "underwear", area 2, level 2; Clothes -> Pants "pair of pants" with name "pair" "of" "pants", area 2, level 3; Clothes -> Socks "pair of socks" with name "pair" "of" "socks", area 3, level 1; Clothes -> Shoes "pair of shoes" with name "pair" "of" "shoes", area 3, level 2; [ Initialise; location = Closet; inventory_style = FULLINV_BIT + INDENT_BIT + NEWLINE_BIT + RECURSE_BIT + CONCEAL_BIT; ! CONCEAL_BIT is to hide covered clothing print "^^^^^Hmm... what to wear...^^"; ]; Include "Grammar"; end;