##########################################################################
#
#
# Little girl in the big world. An Interactive Fiction story file.
# Designed to be compiled and run with StoryFactory.
#
# Written and declared public domain by Peter Wendrich 2003.
#
#
##########################################################################
#
# Hall on first floor
#
##########################################################################

object objectHallFirstFloor {
  name: hall room
  location: objectWorld
  run {
    /dup &look /eqif
      hall ( first floor ) ^ ^
      this room connects all the rooms together on the first floor .
      the floor is covered with some boring brown carpet .
      the room is lit by a small light bulb in the ceiling . 
      the walls are painted dull yellowish white ( or maybe the yellow color is caused by the dim light from the small bulb ) .
      /self _look_child
      /drop /tret
    /then
    /dup &name /eqif the hall on the first floor /drop /tret /then
    /drop /fret
  }
}

object objectLightBulb {
  name: light bulb
  location: objectHallFirstFloor
  run {
    /dup &name /eqif
      the dim light bulb
      /drop /tret
    /then
    /drop /fret
  }
}