init-state structure

INIT STATE
=============================================
[ props(basement,
        [ volume_capacity = 10000,
          default_rel = in,
          has_rel(in,t),
          nouns([here,basement]),
          adjs([locally]),
          can_be(move,f),
          can_be(take,f),
          has_rel(exit(Exit_Ret),t),
          inherited(place),
          desc = 'This is a very dark basement.',
          dark = t,
          co([ inherit(place,t),
               desc = 'This is a very dark basement.',
               dark = t
             ])
        ]),
  props(dining_room,
        [ volume_capacity = 10000,
          default_rel = in,
          has_rel(in,t),
          nouns([here,dining_room]),
          adjs([locally]),
          can_be(move,f),
          can_be(take,f),
          has_rel(exit(Exit_Ret124),t),
          inherited(place),
          co([inherit(place,t)])
        ]),
  props(garden,
        [ volume_capacity = 10000,
          default_rel = in,
          has_rel(in,t),
          nouns([here,garden]),
          adjs([locally]),
          can_be(move,f),
          can_be(take,f),
          has_rel(exit(Exit_Ret125),t),
          inherited(place),
          cant_go($agent,up,'You lack the ability to fly.'),
          co([ inherit(place,t),
               cant_go($agent,up,'You lack the ability to fly.'),
               cant_go($ agent,
                       up,
                       'The fence surrounding the garden is too tall and solid to pass.')
             ])
        ]),
  props(kitchen,
        [ volume_capacity = 10000,
          default_rel = in,
          has_rel(in,t),
          nouns([here,kitchen]),
          adjs([locally]),
          can_be(move,f),
          can_be(take,f),
          has_rel(exit(Exit_Ret126),t),
          inherited(place),
          desc = 'cooking happens here',
          co([inherit(place,t),desc='cooking happens here'])
        ]),
  props(living_room,
        [ volume_capacity = 10000,
          default_rel = in,
          has_rel(in,t),
          nouns([here,living_room]),
          adjs([locally]),
          can_be(move,f),
          can_be(take,f),
          has_rel(exit(Exit_Ret127),t),
          inherited(place),
          co([inherit(place,t)])
        ]),
  props(pantry,
        [ volume_capacity = 1000,
          nouns([closet,here,pantry]),
          nominals(kitchen),
          desc = 'You\'re in a dark kitchen pantry.',
          dark = t,
          default_rel = in,
          has_rel(in,t),
          adjs([locally]),
          can_be(move,f),
          can_be(take,f),
          has_rel(exit(Exit_Ret128),t),
          inherited(place),
          co([ volume_capacity = 1000,
               nouns(closet),
               nominals(kitchen),
               desc = 'You\'re in a dark kitchen pantry.',
               dark = t,
               inherit(place,t)
             ])
        ]),
  props(brklamp,
        [ name = 'definately broken',
          effect(switch(on),true),
          effect(switch(off),true),
          adjs([dented,broken,shiny,physical,fully_corporial,thinkable]),
          inherited(broken),
          effect(hit,
                 [print_("Hit brklamp"),setprop(brklamp,inherit(broken))]),
          nouns([lamp,light,brklamp]),
          powered = t,
          can_be(switch,t),
          nominals(brass),
          inherited(shiny),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          emitting(see,light),
          breaks_into = broken_lamp,
          inherited(lamp),
          co([ inherit(broken,t),
               name = 'possibly broken lamp',
               effect(switch(on),
                      print_(Print_Param,"Switch is flipped")),
               effect(hit,
                      [ print_("Hit brklamp"),
                        setprop($self,inherit(broken))
                      ]),
               inherit(lamp,t)
             ])
        ]),
  props(screendoor,
        [ door_to(kitchen),
          door_to(garden),
          opened = f,
          nouns([door,screendoor]),
          can_be(take,f),
          can_be(open,t),
          can_be(close,t),
          can_be(touch,t),
          can_be(examine,t),
          adjs([thinkable,fully_corporial]),
          class_desc(['kind is normally thinkable','kind is corporial']),
          inherited(thinkable),
          cleanliness = clean,
          inherited(fully_corporial),
          inherited(door),
          co([ door_to(kitchen),
               door_to(garden),
               opened = f,
               inherit(door,t)
             ])
        ]),
  props(floyd,
        [ name = 'Floyd the robot',
          powered = f,
          knows_verbs(eat,f),
          nouns([ autonomous,
                  robot,
                  character,
                  no_perceptq,
                  actor,
                  autoscan,
                  floyd
                ]),
          inherited(autonomous),
          emitting(see,light),
          mass = 200,
          adjs([ metallic,
                 shiny,
                 physical,
                 fully_corporial,
                 partly_noncorporial,
                 thinkable,
                 noncorporial
               ]),
          desc = 'Your classic robot: metallic with glowing red eyes, enthusiastic but not very clever.',
          can_be(switch,t),
          can_be(move,t),
          class_desc([ 'kind is an Movable Object',
                       'kind is corporial',
                       'kind is normally thinkable',
                       'direct inheriters are completely noncorporial',
                       'kind is both partly corporial and non-corporial'
                     ]),
          inherited(object),
          inherited(shiny),
          has_rel(worn_by,t),
          has_rel(held_by,t),
          model_depth = 3,
          volume = 50,
          has_sense(see),
          inherited(no_perceptq),
          knows_verbs(examine,t),
          inherited(actor),
          inherited(autoscan),
          can_be(touch,t),
          can_be(examine,t),
          cleanliness = clean,
          inherited(fully_corporial),
          inherited(thinkable),
          ~ inherit(fully_corporial),
          inherited(noncorporial),
          inherited(partly_noncorporial),
          inherited(character),
          effect(switch(on),setprop(floyd,powered=t)),
          effect(switch(off),setprop(floyd,powered=f)),
          inherited(robot),
          co([ name = 'Floyd the robot',
               powered = f,
               inherit(autonomous,t),
               inherit(robot,t)
             ])
        ]),
  memories(floyd,
           [ structure_label(mem(floyd)),
             timestamp(0,477),
             goals([]),
             goals_skipped([]),
             goals_satisfied([]),
             todo([look(floyd)]),
             inst(floyd)
           ]),
  props('cup~1',
        [ shape = cup,
          nouns([cup,container,'cup~1']),
          adjs([physical,fully_corporial,thinkable]),
          default_rel = in,
          opened = f,
          can_be(open,t),
          has_rel(in,t),
          inherited(container),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          inherited(flask),
          inherited(cup),
          co([shape=cup,inherit(cup,t),nouns([cup])])
        ]),
  props('cabinate~1',
        [ shape = cabinate,
          nouns([cabinate,container,'cabinate~1']),
          default_rel = in,
          opened = f,
          can_be(open,t),
          has_rel(in,t),
          inherited(container),
          adjs([untakeable,fully_corporial,physical,thinkable]),
          can_be(take,f),
          class_desc([ 'kind is an Immobile Object',
                       'kind is corporial',
                       'kind is normally thinkable',
                       'kind is furnature'
                     ]),
          inherited(untakeable),
          can_be(touch,t),
          inherited(fully_corporial),
          has_rel(on,t),
          cleanliness = clean,
          inherited(surface),
          can_be(examine,t),
          inherited(thinkable),
          inherited(furnature),
          volume_capacity = 10,
          inherited(cabinate),
          co([shape=cabinate,inherit(cabinate,t),nouns([cabinate])])
        ]),
  props('plate~1',
        [ shape = plate,
          nouns([plate,'plate~1']),
          has_rel(on,t),
          default_rel = on,
          adjs([physical,fully_corporial,thinkable]),
          inherited(surface),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          volume_capacity = 2,
          breaks_into = shards,
          name = plate,
          inherited(plate),
          co([shape=plate,inherit(plate,t),nouns([plate])])
        ]),
  props('sink~1',
        [ shape = sink,
          nouns([sink,uncloseable,container,'sink~1']),
          cleanliness = dirty,
          opened = t,
          can_be(close,f),
          can_be(open,f),
          inherited(uncloseable),
          adjs([physical,untakeable,fully_corporial,thinkable]),
          default_rel = in,
          has_rel(in,t),
          inherited(container),
          can_be(move,t),
          class_desc([ 'kind is an Movable Object',
                       'kind is an Immobile Object',
                       'kind is corporial',
                       'kind is normally thinkable',
                       'kind is furnature'
                     ]),
          inherited(object),
          inherited(flask),
          can_be(take,f),
          inherited(untakeable),
          can_be(touch,t),
          inherited(fully_corporial),
          has_rel(on,t),
          inherited(surface),
          can_be(examine,t),
          inherited(thinkable),
          inherited(furnature),
          volume_capacity = 5,
          inherited(sink),
          co([shape=sink,inherit(sink,t),nouns([sink])])
        ]),
  props('lamp~1',
        [ shape = lamp,
          nouns([lamp,light,'lamp~1']),
          name = 'shiny brass lamp',
          powered = t,
          can_be(switch,t),
          nominals(brass),
          adjs([shiny,physical,fully_corporial,thinkable]),
          inherited(shiny),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          emitting(see,light),
          effect(switch(on),setprop('lamp~1',emitting(see,light))),
          effect(switch(off),delprop('lamp~1',emitting(see,light))),
          breaks_into = broken_lamp,
          inherited(lamp),
          co([shape=lamp,inherit(lamp,t),nouns([lamp])])
        ]),
  props('flour~1',
        [ shape = flour,
          nouns([flour,food,'flour~1']),
          can_be(eat,t),
          adjs([physical,fully_corporial,thinkable,measurable]),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          inherited(food),
          ammount = some,
          inherited(measurable),
          inherited(flour),
          co([shape=flour,inherit(flour,t),nouns([flour])])
        ]),
  props('bowl~1',
        [ shape = bowl,
          nouns([bowl,uncloseable,container,'bowl~1']),
          opened = t,
          can_be(close,f),
          can_be(open,f),
          inherited(uncloseable),
          adjs([physical,fully_corporial,thinkable]),
          default_rel = in,
          has_rel(in,t),
          inherited(container),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          inherited(flask),
          volume_capacity = 2,
          breaks_into = shards,
          name = 'porcelain bowl',
          desc = 'This is a modest glass cooking bowl with a yellow flower motif glazed into the outside surface.',
          inherited(bowl),
          co([shape=bowl,inherit(bowl,t),nouns([bowl])])
        ]),
  props('box~1',
        [ shape = box,
          nouns([box,container,'box~1',cardboard,paper]),
          volume_capacity = 11,
          default_rel = in,
          opened = f,
          can_be(open,t),
          has_rel(in,t),
          inherited(container),
          adjs([physical,fully_corporial,thinkable]),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          can_be(burn,t),
          inherited(paper),
          inherited(cardboard),
          inherited(box),
          co([shape=box,inherit(box,t),nouns([box])])
        ]),
  props('table~1',
        [ shape = table,
          has_rel(on,t),
          cleanliness = clean,
          inherited(surface),
          adjs(physical),
          default_rel = on,
          inherited(table),
          nouns([table]),
          co([shape=(table),inherit(table,t),nouns([table])])
        ]),
  props('table_leg~1',
        [ shape = table_leg,
          inherited(table_leg),
          nouns([table_leg]),
          co([shape=table_leg,inherit(table_leg,t),nouns([table_leg])])
        ]),
  props('apple~1',
        [ shape = apple,
          inherited(apple),
          nouns([apple]),
          co([shape=apple,inherit(apple,t),nouns([apple])])
        ]),
  props('crate~1',
        [ shape = crate,
          nouns([crate,container,'crate~1',wooden]),
          default_rel = in,
          opened = f,
          can_be(open,t),
          has_rel(in,t),
          inherited(container),
          adjs([physical,fully_corporial,thinkable]),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          volume_capacity = 13,
          breaks_into = splinters,
          can_be(burn,t),
          inherited(wooden),
          inherited(crate),
          co([shape=crate,inherit(crate,t),nouns([crate])])
        ]),
  props('fireplace~1',
        [ shape = fireplace,
          nouns([fireplace,uncloseable,container,'fireplace~1']),
          has_rel(on,f),
          has_rel(over,t),
          opened = t,
          can_be(close,f),
          can_be(open,f),
          default_rel = in,
          has_rel(in,t),
          inherited(container),
          inherited(uncloseable),
          volume_capacity = 20,
          adjs([untakeable,fully_corporial,physical,thinkable]),
          can_be(take,f),
          class_desc([ 'kind is an Immobile Object',
                       'kind is corporial',
                       'kind is normally thinkable',
                       'kind is furnature'
                     ]),
          inherited(untakeable),
          can_be(touch,t),
          inherited(fully_corporial),
          cleanliness = clean,
          inherited(surface),
          can_be(examine,t),
          inherited(thinkable),
          inherited(furnature),
          inherited(fireplace),
          co([shape=fireplace,inherit(fireplace,t),nouns([fireplace])])
        ]),
  props('videocamera~1',
        [ shape = videocamera,
          nouns([videocamera,memorize_perceptq]),
          inherited(memorize_perceptq),
          can_be(switch,t),
          effect(switch(on),setprop('videocamera~1',powered=t)),
          effect(switch(off),setprop('videocamera~1',powered=f)),
          powered = t,
          has_sense(see),
          breaks_into = broken_videocam,
          inherited(videocamera),
          co([ shape = videocamera,
               inherit(videocamera,t),
               nouns([videocamera])
             ])
        ]),
  memories('videocamera~1',
           [ structure_label(mem('videocamera~1')),
             timestamp(0,476.9),
             goals([]),
             goals_skipped([]),
             goals_satisfied([]),
             todo([look('videocamera~1')]),
             inst('videocamera~1')
           ]),
  perceptq('videocamera~1',[]),
  props('shovel~1',
        [ shape = shovel,
          inherited(shovel),
          nouns([shovel]),
          co([shape=shovel,inherit(shovel,t),nouns([shovel])])
        ]),
  props('mushroom~1',
        [ shape = mushroom,
          name = 'speckled mushroom',
          nouns([food,'mushroom~1',mushroom,fungus,toadstool]),
          adjs([physical,fully_corporial,thinkable,measurable,speckled]),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          ammount = some,
          inherited(measurable),
          inherited(food),
          initial('A speckled mushroom grows out of the sodden earth, on a long stalk.'),
          desc = 'The mushroom is capped with blotches, and you aren\'t at all sure it\'s not a toadstool.',
          can_be(eat,t),
          before(eat,(random100=<30,die('It was poisoned!');'yuck!')),
          after(take,
                initial ',' 'You pick the mushroom, neatly cleaving its thin stalk.'),
          inherited(mushroom),
          co([shape=mushroom,inherit(mushroom,t),nouns([mushroom])])
        ]),
  props('fountain~1',
        [ shape = fountain,
          nouns([fountain,here,'fountain~1',sink,uncloseable,container]),
          volume_capacity = 150,
          adjs([locally,physical,untakeable,fully_corporial,thinkable]),
          can_be(move,f),
          has_rel(exit(Exit_Ret129),t),
          inherited(place),
          cleanliness = dirty,
          opened = t,
          can_be(close,f),
          can_be(open,f),
          inherited(uncloseable),
          default_rel = in,
          has_rel(in,t),
          inherited(container),
          class_desc([ 'kind is an Movable Object',
                       'kind is an Immobile Object',
                       'kind is corporial',
                       'kind is normally thinkable',
                       'kind is furnature'
                     ]),
          inherited(object),
          inherited(flask),
          can_be(take,f),
          inherited(untakeable),
          can_be(touch,t),
          inherited(fully_corporial),
          has_rel(on,t),
          inherited(surface),
          can_be(examine,t),
          inherited(thinkable),
          inherited(furnature),
          inherited(sink),
          inherited(fountain),
          co([shape=fountain,inherit(fountain,t),nouns([fountain])])
        ]),
  props('rock~1',
        [ shape = rock,
          inherited(rock),
          nouns([rock]),
          co([shape=rock,inherit(rock,t),nouns([rock])])
        ]),
  props('locker~1',
        [ shape = locker,
          nouns([locker,container,'locker~1',metal]),
          default_rel = in,
          can_be(open,t),
          has_rel(in,t),
          inherited(container),
          adjs([physical,fully_corporial,thinkable]),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          volume_capacity = 13,
          can_be(burn,f),
          inherited(metal),
          opened = f,
          inherited(locker),
          co([shape=locker,inherit(locker,t),nouns([locker])])
        ]),
  props('shelf~1',
        [ shape = shelf,
          adjs([physical,untakeable,fully_corporial,thinkable]),
          can_be(take,f),
          class_desc([ 'kind is an Immobile Object',
                       'kind is corporial',
                       'kind is normally thinkable',
                       'kind is furnature'
                     ]),
          inherited(untakeable),
          can_be(touch,t),
          inherited(fully_corporial),
          has_rel(on,t),
          default_rel = on,
          cleanliness = clean,
          inherited(surface),
          can_be(examine,t),
          nouns(['shelf~1',shelf]),
          inherited(thinkable),
          inherited(furnature),
          inherited(shelf),
          co([shape=shelf,inherit(shelf,t),nouns([shelf])])
        ]),
  props('wrench~1',
        [ shape = wrench,
          nouns([wrench,'wrench~1']),
          adjs([shiny,physical,thinkable,fully_corporial]),
          can_be(move,t),
          class_desc([ 'kind is an Movable Object',
                       'kind is normally thinkable',
                       'kind is corporial'
                     ]),
          inherited(object),
          can_be(touch,t),
          can_be(examine,t),
          inherited(thinkable),
          cleanliness = clean,
          inherited(fully_corporial),
          inherited(shiny),
          inherited(wrench),
          co([shape=wrench,inherit(wrench,t),nouns([wrench])])
        ]),
  props('coins~1',
        [ shape = coins,
          nouns([coins,'coins~1']),
          adjs([shiny,physical,thinkable,fully_corporial,measurable]),
          can_be(move,t),
          class_desc([ 'kind is an Movable Object',
                       'kind is normally thinkable',
                       'kind is corporial'
                     ]),
          inherited(object),
          can_be(touch,t),
          can_be(examine,t),
          inherited(thinkable),
          cleanliness = clean,
          inherited(fully_corporial),
          inherited(shiny),
          ammount = some,
          inherited(measurable),
          inherited(coins),
          co([shape=coins,inherit(coins,t),nouns([coins])])
        ]),
  props('bag~1',
        [ shape = bag,
          nouns([bag,container,'bag~1']),
          volume_capacity = 10,
          default_rel = in,
          opened = f,
          can_be(open,t),
          has_rel(in,t),
          inherited(container),
          adjs([physical,fully_corporial,thinkable]),
          can_be(move,t),
          can_be(touch,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'kind is an Movable Object'
                     ]),
          inherited(fully_corporial),
          can_be(examine,t),
          inherited(thinkable),
          inherited(object),
          inherited(bag),
          co([shape=bag,inherit(bag,t),nouns([bag])])
        ]),
  props('watch~1',
        [ shape = watch,
          inherited(watch),
          nouns([watch]),
          co([shape=watch,inherit(watch,t),nouns([watch])])
        ]),
  props('player~1',
        [ shape = player,
          nouns([ player,
                  humanoid,
                  character,
                  no_perceptq,
                  actor,
                  autoscan,
                  'player~1'
                ]),
          name = 'player~1',
          look_depth = 2,
          user_mode = 2,
          access_level = admin,
          adjs([ physical,
                 fully_corporial,
                 partly_noncorporial,
                 thinkable,
                 noncorporial
               ]),
          nominals([console]),
          inherited(console),
          knows_verbs(eat,t),
          has_rel(worn_by,t),
          has_rel(held_by,t),
          model_depth = 3,
          mass = 50,
          volume = 50,
          has_sense(see),
          inherited(no_perceptq),
          knows_verbs(examine,t),
          inherited(actor),
          inherited(autoscan),
          can_be(touch,t),
          can_be(examine,t),
          cleanliness = clean,
          class_desc([ 'kind is corporial',
                       'kind is normally thinkable',
                       'direct inheriters are completely noncorporial',
                       'kind is both partly corporial and non-corporial'
                     ]),
          inherited(fully_corporial),
          inherited(thinkable),
          ~ inherit(fully_corporial),
          inherited(noncorporial),
          inherited(partly_noncorporial),
          inherited(character),
          can(switch(off),f),
          powered = t,
          inherited(humanoid),
          inherited(player),
          co([shape=player,inherit(player,t),nouns([player])])
        ]),
  memories('player~1',
           [ structure_label(mem('player~1')),
             timestamp(0,476.7),
             goals([]),
             goals_skipped([]),
             goals_satisfied([]),
             todo([look('player~1')]),
             inst('player~1')
           ]),
  h(in,'player~1',kitchen),
  h(worn_by,'watch~1','player~1'),
  h(held_by,'bag~1','player~1'),
  h(in,'coins~1','bag~1'),
  h(held_by,'wrench~1',floyd),
  h(in,'shelf~1',pantry),
  h(in,'locker~1',pantry),
  h(in,'rock~1',garden),
  h(in,'fountain~1',garden),
  h(in,'mushroom~1',garden),
  h(in,'shovel~1',basement),
  h(in,'videocamera~1',living_room),
  h(in,'fireplace~1',living_room),
  h(in,'crate~1',kitchen),
  h(in,'apple~1','crate~1'),
  h(reverse(on),'table~1','table_leg~1'),
  h(on,'box~1','table~1'),
  h(in,'bowl~1','box~1'),
  h(in,'flour~1','bowl~1'),
  h(in,'table~1',kitchen),
  h(on,'lamp~1','table~1'),
  h(in,'sink~1',kitchen),
  h(in,'plate~1','sink~1'),
  h(in,'cabinate~1',kitchen),
  h(in,'cup~1','cabinate~1'),
  type_props(broken_videocam,
             [can_be(switch,f),powered=f,inherit(videocamera,t)]),
  type_props(videocamera,
             [ inherit(memorize,t),
               inherit(perceptq,t),
               inherit(memorize_perceptq,t),
               can_be(switch,t),
               effect(switch(on),setprop($self,powered=t)),
               effect(switch(off),setprop($self,powered=f)),
               powered = t,
               has_sense(see),
               breaks_into = broken_videocam
             ]),
  type_props(wrench,[inherit(shiny,t)]),
  type_props(table,[inherit(surface,t),adjs(physical),default_rel=on]),
  type_props(shelf,
             [inherit(surface,t),adjs(physical),inherit(furnature,t)]),
  type_props(surface,
             [ has_rel(on,t),
               default_rel = on,
               adjs(physical),
               cleanliness = clean
             ]),
  type_props(broken_lamp,
             [ name = 'dented brass lamp',
               nouns(light),
               nominals(brass),
               adjs(dented),
               can_be(switch,t),
               effect(switch(on),true),
               effect(switch(off),true)
             ]),
  type_props(lamp,
             [ name = 'shiny brass lamp',
               powered = t,
               can_be(switch,t),
               nouns(light),
               nominals(brass),
               inherit(shiny,t),
               inherit(object,t),
               emitting(see,light),
               effect(switch(on),setprop($self,emitting(see,light))),
               effect(switch(off),delprop($self,emitting(see,light))),
               breaks_into = broken_lamp
             ]),
  type_props(flour,[inherit(food,t),inherit(measurable,t)]),
  type_props(coins,[inherit(shiny,t),inherit(measurable,t)]),
  type_props(shiny,
             [ adjs($class),
               inherit(object,t),
               inherit(fully_corporial,t)
             ]),
  type_props(measurable,[adjs($class),ammount=some]),
  type_props(fountain,
             [volume_capacity=150,inherit(place,t),inherit(sink,t)]),
  type_props(cabinate,
             [ inherit(container,t),
               inherit(furnature,t),
               volume_capacity = 10
             ]),
  type_props(uncloseable,
             [ opened = t,
               can_be(close,f),
               can_be(open,f),
               inherit(container,t)
             ]),
  type_props(sink,
             [ cleanliness = dirty,
               inherit(uncloseable,t),
               inherit(flask,t),
               inherit(furnature,t),
               volume_capacity = 5
             ]),
  type_props(paper,[can_be(burn,t)]),
  type_props(cardboard,[inherit(paper,t)]),
  type_props(metal,[can_be(burn,f)]),
  type_props(wooden,[breaks_into=splinters,can_be(burn,t)]),
  type_props(locker,
             [ inherit(container,t),
               inherit(object,t),
               volume_capacity = 13,
               inherit(metal,t),
               opened = f
             ]),
  type_props(crate,
             [ inherit(container,t),
               inherit(object,t),
               volume_capacity = 13,
               inherit(wooden,t),
               opened = t
             ]),
  type_props(box,
             [ opened = f,
               volume_capacity = 11,
               inherit(container,t),
               inherit(object,t),
               inherit(cardboard,t)
             ]),
  type_props(fireplace,
             [ has_rel(on,f),
               has_rel(over,t),
               inherit(uncloseable,t),
               volume_capacity = 20,
               inherit(furnature,t)
             ]),
  type_props(plate,
             [ inherit(surface,t),
               inherit(object,t),
               volume_capacity = 2,
               breaks_into = shards,
               cleanliness = dirty,
               name = $ class
             ]),
  type_props(bowl,
             [ inherit(uncloseable,t),
               inherit(flask,t),
               volume_capacity = 2,
               breaks_into = shards,
               cleanliness = dirty,
               name = 'porcelain bowl',
               desc = 'This is a modest glass cooking bowl with a yellow flower motif glazed into the outside surface.'
             ]),
  type_props(flask,
             [adjs(physical),inherit(container,t),inherit(object,t)]),
  type_props(cup,[inherit(flask,t)]),
  type_props(bag,
             [ volume_capacity = 10,
               inherit(container,t),
               inherit(object,t)
             ]),
  type_props(container,
             [default_rel=in,opened=f,can_be(open,t),has_rel(in,t)]),
  type_props(place,
             [ volume_capacity = 10000,
               default_rel = in,
               has_rel(in,t),
               nouns([here,$self]),
               adjs([locally]),
               can_be(move,f),
               can_be(take,f),
               has_rel(exit(Exit_Ret130),t)
             ]),
  type_props(natural_force,
             [ knows_verbs(eat,f),
               can_be(touch,f),
               has_rel(held_by,f),
               has_rel(worn_by,f),
               has_sense(see),
               inherit(no_perceptq,t),
               inherit(noncorporial,t),
               inherit(actor,t)
             ]),
  type_props(robot,
             [ knows_verbs(eat,f),
               inherit(autonomous,t),
               emitting(see,light),
               volume = 50,
               mass = 200,
               nouns([robot]),
               adjs([metallic]),
               desc = 'Your classic robot: metallic with glowing red eyes, enthusiastic but not very clever.',
               can_be(switch,t),
               inherit(memorize,t),
               nouns($class),
               inherit(shiny,t),
               inherit(character,t),
               powered = t,
               effect(switch(on),setprop($self,powered=t)),
               effect(switch(off),setprop($self,powered=f))
             ]),
  type_props(actor,
             [knows_verbs(examine,t),inherit(partly_noncorporial,t)]),
  type_props(character,
             [ has_rel(worn_by,t),
               has_rel(held_by,t),
               model_depth = 3,
               mass = 50,
               volume = 50,
               has_sense(see),
               inherit(no_perceptq,t),
               inherit(memorize,t),
               inherit(actor,t),
               inherit(autoscan,t),
               inherit(partly_noncorporial,t)
             ]),
  type_props(autonomous,[inherit(autoscan,t)]),
  type_props(humanoid,
             [ knows_verbs(eat,t),
               volume = 50,
               mass = 50,
               inherit(character,t),
               inherit(memorize,t),
               can(switch(off),f),
               powered = t
             ]),
  type_props(console,
             [adjs(physical),nominals([console]),nouns([player])]),
  type_props(player,
             [ name = $ self,
               model_depth = 3,
               inherit(autoscan,t),
               look_depth = 2,
               user_mode = 2,
               access_level = admin,
               inherit(console,t),
               inherit(humanoid,t)
             ]),
  type_props(telnet,[adjs([remote]),inherit(player,t),nouns([player])]),
  type_props(furnature,
             [ can_be(examine,t),
               inherit(untakeable,t),
               inherit(fully_corporial,t),
               inherit(surface,t),
               inherit(thinkable,t),
               adjs(physical),
               class_desc(['kind is furnature'])
             ]),
  type_props(untakeable,
             [ adjs($class),
               can_be(take,f),
               class_desc(['kind is an Immobile Object'])
             ]),
  type_props(object,
             [ can_be(examine,t),
               adjs(physical),
               can_be(move,t),
               inherit(fully_corporial,t),
               inherit(thinkable,t),
               class_desc(['kind is an Movable Object'])
             ]),
  type_props(fully_corporial,
             [ can_be(touch,t),
               can_be(examine,t),
               inherit(thinkable,t),
               cleanliness = clean,
               adjs($class),
               class_desc(['kind is corporial'])
             ]),
  type_props(partly_noncorporial,
             [ inherit(fully_corporial,t),
               adjs($class),
               inherit(noncorporial,t),
               class_desc([ 'kind is both partly corporial and non-corporial'
                          ])
             ]),
  type_props(only_conceptual,
             [ adjs($class),
               inherit(noncorporial,t),
               inherit(thinkable,t),
               class_desc(['kind is only conceptual'])
             ]),
  type_props(noncorporial,
             [ can_be(examine,f),
               can_be(touch,f),
               inherit(thinkable,t),
               adjs($class),
               ~ inherit(fully_corporial),
               class_desc([ 'direct inheriters are completely noncorporial'
                          ])
             ]),
  type_props(thinkable,
             [ can_be(examine,t),
               nouns($self),
               adjs($class),
               class_desc(['kind is normally thinkable'])
             ]),
  type_props(unthinkable,
             [ can_be(examine,f),
               adjs($class),
               class_desc(['kind is normally unthinkable'])
             ]),
  type_props(door,
             [ can_be(take,f),
               can_be(open,t),
               can_be(close,t),
               opened = t,
               nouns($class),
               inherit(fully_corporial,t),
               can_be(take,f),
               can_be(open,t),
               can_be(close,t),
               opened = t,
               nouns(door),
               inherit(fully_corporial,t)
             ]),
  type_props(mushroom,
             [ name = 'speckled mushroom',
               inherit(food,t),
               nouns([mushroom,fungus,toadstool]),
               adjs([speckled]),
               initial('A speckled mushroom grows out of the sodden earth, on a long stalk.'),
               desc = 'The mushroom is capped with blotches, and you aren\'t at all sure it\'s not a toadstool.',
               can_be(eat,t),
               before(eat,(random100=<30,die('It was poisoned!');'yuck!')),
               after(take,
                     initial ',' 'You pick the mushroom, neatly cleaving its thin stalk.')
             ]),
  type_props(broken,
             [ name = 'definately broken',
               effect(switch(on),true),
               effect(switch(off),true),
               can_be(switch,t),
               adjs([dented]),
               adjs($class)
             ]),
  type_props(food,
             [can_be(eat,t),inherit(object,t),inherit(measurable,t)]),
  h(in,brklamp,garden),
  h(in,screendoor,garden),
  h(in,screendoor,kitchen),
  h(exit(west),kitchen,living_room),
  h(exit(south),living_room,kitchen),
  h(exit(east),living_room,dining_room),
  h(exit(north),dining_room,living_room),
  h(exit(west),dining_room,kitchen),
  h(exit(east),kitchen,dining_room),
  h(exit(north),garden,kitchen),
  h(exit(south),kitchen,garden),
  h(exit(up),basement,pantry),
  h(exit(down),pantry,basement),
  h(exit(north),kitchen,pantry),
  h(exit(south),pantry,kitchen),
  h(in,floyd,pantry),
  structure_label(istate)
]