location Hallway
	description
		"$tThe house has been abandoned for half a century, and it shows.
		The wallpaper is faded and peeling, cobwebs adorn the corners,
		and of the once-plush carpet, moths have left only a few threads.
		Doors open into further rooms to the east and west, and a large, 
		elaborate and very strange staircase leads up.
		$p"
	--exit east to Library.
	--exit west to DrawingRoom.
	--exit north to HallwayNorth.
	--exit south to FrontDoorstep.
	--exit up to Landing
	--	does
	--		"$pMercifully, you don't encounter any macroscopic spacetime
	--		wormholes, and emerge on the..."
	--end exit.
end location.

object Hallway_north_door
	name north door
	name north
	at Hallway
	description
	verb examine does only
		describe interior_door.
	end verb.
	verb 'use' does only
		locate hero at HallwayNorth.
	end verb.
end object.

object Hallway_south_door
	name south front door
	name south
	at Hallway
	description
	verb examine does only
		"The front door is open, if you want to chicken out."
	end verb.
	verb 'use' does only
		locate hero at FrontDoorstep.
	end verb.
end object.

object Hallway_east_door
	name east door
	name east
	at Hallway
	description
	verb examine does only
		describe interior_door.
	end verb.
	verb 'use' does only
		locate hero at Library.
	end verb.
end object.

object Hallway_west_door
	name west door
	name west
	at Hallway
	description
	verb examine does only
		describe interior_door.
	end verb.
	verb 'use' does only
		locate hero at DrawingRoom.
	end verb.
end object.

object hallway_stairs
	name stairs
	name staircase
	at hallway
	description
	verb examine does only
		describe main_stairs.
	end verb.
	verb 'use' does
		"$pMercifully, you don't encounter any macroscopic
			wormholes in space or time, and emerge on the..."
		locate hero at Landing.
	end verb.
end object.

object main_stairs
	description
		"Most spiral staircases curve around in a steady helix. This
		one twists, turns, loops, gyrates and generally thumbs its
		nose at the laws of gravity. If you set foot on it, it's not
		certain you'll emerge in the same universe."
end object.

location HallwayNorth
	name 'Back of Hallway'
	description
		"$tThe hallway narrows towards the back of the house. Doors lead
		east and west to other rooms, and the back door of the house is
		to the north.
		$p"
	exit east to Study
		check east_door is not locked else
			"That door seems to be locked."
	end exit.
	--exit west to DiningRoom.
	--exit north to Garden.
	--exit south to Hallway.
end location.

object HallwayNorth_south_door
	name south door
	name south
	at HallwayNorth
	description
	verb examine does only
		describe interior_door.
	end verb.
	verb 'use' does only
		locate hero at Hallway.
	end verb.
end object.

object east_door
	name east door
	name east
	at HallwayNorth
	is locked.
	description
	verb examine does only
		if east_door is not locked then
			"It's unlocked."
		else
			"It's locked."
		end if.
	end verb.
	verb 'use'
		check east_door is not locked else
			"You'll have to unlock it somehow first."
		does only
			locate hero at Study.
	end verb.
end object.

object HallwayNorth_west_door
	name west door
	name west
	at HallwayNorth
	description
	verb examine does only
		describe interior_door.
	end verb.
	verb 'use' does only
		locate hero at DiningRoom.
	end verb.
end object.

object HallwayNorth_north_door
	name north door
	name north
	at HallwayNorth
	description
	verb examine does only
		describe interior_door.
	end verb.
	verb 'use' does only
		locate hero at Garden.
	end verb.
end object.

object steel_key
	name steel key
	in corner_table
	is needing_iobj.
	is takeable.
	verb examine does only
		"It looks like it might be a door key."
	end verb.
	verb use_on
		when dobj does only
			if iobj = east_door then
				if east_door is locked then
					"The key turns, and the door unlocks."
					make east_door not locked.
				else
					"It's already unlocked."
				end if.
			else
				"It doesn't seem to work on that."
			end if.
	end verb.
end object.