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...^^";
];
