Constant Story "The Fourth Floor";
Constant Headline "^Interactive (Fiction) Telecommunications Program^";

Include "Parser";
Include "VerbLib";

Object Lobby "~The Lobby~"
	with description "Though blinking, bleeping, and blooping devices abound, this space is subject only to the rule of the tremendous Wooden Mirror.  It shifts and writhes with a clicking clack, distorting your every move.  Its mechanistic mockery of nature threatens, disgusts, and fascinates you.  There are two elevator doors to the south.  A narrow hallway to the west leads further into the floor.",
	w_to HallwayEast
	has light;

Object HallwayEast "~East Hallway~"
	with description "A dim hallway.  A bank of lockers lines one wall, and the other plays vertical sultan to a
	  harem of announcements and schedules.  The lobby lies
	  to the east, while a sliding door to the south gives entrance to	the Time Warner Audio-Visual Lab.  West lies the lounge - and certain doom.",
	e_to Lobby, s_to AudioVisualLab, w_to NarrowLounge
	has light;

Object AudioVisualLab "~Time Warner Audio-Visual Lab~"
	with description "A room for rendering; a room where files will be summarily deleted.  Not a room for the faint of heart; that much is sure.",
	n_to HallwayEast
	has light;

Object -> RobertMoon
	with name 'robert' 'moon',
	initial "Unsurprisingly, Robert Moon is here.",
	description "Robert is working with wild-eyed intent.",
	life "Robert, wrapped in headphones and After Effects, manages to ignore you."
	has animate;

Object NarrowLounge "~Narrow Lounge~"
	with description "This is the narrow part of the ITP lounge; the area opens up to the north.  A series of screens against one wall shows an unending loop of bright blotches of color, which may or may not be reacting to your movement (or the sound you're making, or the brand of your headwear, or god knows what).  A number of black tables are here, surrounded by chairs.  Two sliding doors open into the Japanese room to the south, and a corridor leads west.",
	e_to HallwayEast, n_to OpenLounge, s_to JapaneseRoom,
	w_to HallwayWest
	has light;

Object HallwayWest "~West Hallway~"
	with description "More lockers here.  The hallway leads east to the lounge, or west into the physical computing lab.",
	e_to NarrowLounge, w_to PCompLab
	has light;

Object PCompLab "~Physical Computing Lab~"
	with description "You crunch a resistor underfoot and whiff a mix of ozone and etching fluid.  This is where it all goes down: servo motors and microcontrollers, gears, LCDs, giant animatronic killer rabbits.  The masonite tables are piled high with projects in various stages of completion (conceptual, half-assed, half-finished, overwrought, just right).  Retreat, retreat, to the east, while there's still time!",
	e_to HallwayWest
	has light;

Object -> blinky "blinking LED"
	with name 'blinking' 'LED' 'breadboard' 'circuit',
	initial "There is a breadboard here, connecting a 9 volt battery to a 555 timer to an LED.  The LED blinks lazily.",
	description "You're lucky this place isn't the streets of Boston.  You'd be in big trouble.";

Object JapaneseRoom "~Japanese Room~"
	with description "The distant, misty past obscures any reason for calling this room Japanese, or, for that matter, any other adjective designating ethnic affiliation.  Chairs, tables, books, whiteboards - they're all here, all in disarray.  Sliding doors open up on the lounge to the north.",
	n_to NarrowLounge,
	has light;

Object -> charger "MacBook Pro charger"
	with name 'charger' 'adaptor' 'macbook',
	initial
		"You see a battered MacBook Pro battery adaptor here.",
	description
		"The scratched charger belies a hard-knock life, being dragged to and fro daily.  The poor owner of the charger neglected, alas, to write his or her initials on it.";

Object OpenLounge "~Open area~"
	with description "This is the open area of the lounge.  Several rickety tables are here, and in the corner are a number of padded benches, often the foundation for midterm-addled naps (and the occasional more serious slumber).  Windows, tall and wide, afford a view of the street below.  The narrower area of the lounge is south of here, and a class is in session in a room to the southwest.  Access to the ER and faculty offices are further west.",
	s_to NarrowLounge, sw_to Classroom, w_to OutsideER
	has light;

Object Classroom "~Room 447~"
	with description "Brick walls and gadgetry.  Six speakers cling to the walls - mere vain adornment, as only one of them ever works at any one time.  The NIME class is currently in session; many are secretly thinking of leaving the classroom to the northeast in order to play foosball.  You know you are; don't try to deny it.",
	ne_to OpenLounge
	has light;

Object -> AdamParrish "Adam Parrish"
	with name 'adam' 'parrish',
	initial "Adam Parrish is here, presentating a prototype of his wondrous Frotzophone.",
	description "Adam's rugged features stagger you with a heretofore unknown surfeit of charisma.  Truly, a god among men.",
	life "Adam is too involved in his presentation to pay attention to such trivial matters.",
	has animate;

Object OutsideER "~Outside the Equipment Room~"
	with description "You're standing outside the equipment room.  The lounge is east of here.",
	e_to OpenLounge
	has light;

Object -> er_counter "ER counter"
	with name 'counter' 'window',
	initial "The ER window is open, and bric-a-brac and sign-in sheets cover the counter.",
	has static container supporter open;

[ Initialise;
	location = Lobby;
	"^^^^A venue of wonder and discovery!^";
];

Include "Grammar";