------------- now got inside!!! -----------------------
napil = obj {
	nam = 'rasp',
	dsc = 'There\'s a {rasp} lying under the gates.',
	inv = 'A rusty thing...',
	tak = 'I took the rasp.',
	use = function(s, w)
		if w == 'knife' and not knife._oster then
			knife._oster = true;
			return 'I\'m sharpening the knife... Now it\'s sharp!';
		elseif w == 'gun' and not gun._obrez then
			if here() == wside or here() == sside then
				return 'There are people around here!';
			end
			gun._obrez = true;
			return 'I took a seat and sawed off the shotgun barells.';
		else
			return 'No, sawing is useless here...';
		end
	end
};

eside = room {
	pic = 'gfx/eside.png',
	nam = 'behind the institute',
	dsc = [[ I am at the back wall of the institute building. There's a railway here.]],
	act = function(s,w)
		if w == 1 then
			return 'The machine guns are turned to the south side of the institute perimeter. It\'s better to stay far from them.';
		end
		if w == 2 then
			return 'The gates are iron made. And they are locked from the inside.';
		end
	end,
	obj = {
	vobj(1,'gun towers', 'The railway entrance is guarded by the {towers} with machine guns...'),
	vobj(2,'the gates', 'The rails flow near the big iron {gates}. It seems they are used for supply.'),	
	'napil',
	},
	exit = function(s, t)
		if t == 'sside' then
			return 'The machine guns on the south side make me nervous. Too risky.'
				, false
		end
	end,
	enter = function(s, f)
		if f == 'onwall' then
			-- end of episode 1
			inmycar = nil;
			deepforest = nil;
			road = nil;
			forest = nil;
			home = nil;
			shop = nil;
			village = nil;
			kpp = nil;
			inst = nil;
			onwall = nil;
			backwall = nil;
			guydlg = nil;
			shop2 = nil;
			shopdlg = nil;
			guarddlg = nil;
			set_music("mus/ice.s3m");
		end
	end,
	way = {'nside','sside'},
};

card = obj {
	nam = 'pass',
	inv = [[It's a someone's pass - an electronic smartcard with a photo of some heavy-metal guy. The label says: Alexey Podkovin — Level: 3, Category: The Matter. Hmmm...]],
};

alienwear = obj {
	xnam = {'denim jacket', 'red jacket', 'overcoat', 'jacket', 'white jacket', 
	'coat', 'black leather jacket', 'sport jacket',},
	xinv = {
		'A cold clothes for this season, but has a certain style!',
		'Nice look on snowy background.',
		'A long coat - some kind of retro!',
		'I\'m the Terminator!',
		'Make peace, not war!',
		'It suits me',
		'"And nothing else matters!.."',
		'There were days I liked mountaineering!',
	},
	nam = function(s)
		return s.xnam[s._num];
	end,
	inv = function(s)
		if s._num == 7 and not have('card') then
			inv():add('card');
			return 'I\'ve examined the pockets of the leather jacket and found some card.';
		end
		return s.xinv[s._num];
	end,
};

garderob = obj {
	nam = 'wardrobe',
	dsc = 'There is a {wardrobe} with visitors outerwear on the right.',
	act = function(s, w)
		if have('mywear') or have('alienwear') then
			return 'There are too much people here. I don\'t think I can change clothes without being noticed.';
		elseif tonumber(w) and tonumber(w) > 0 and tonumber(w) <= 8 then
			if not me()._walked then
				return 'It will be too noticeable if I do it now...';
			end
			alienwear._num = w;
			inv():add('alienwear');
			ref(s.obj[w]):disable();
			me()._walked = false;
			inv():add('gun');
			return 'Feeling confidently I take someone else\'s clothes and put it on... I take my shotgun with me.';
		else
			return 'I should make a decision...';
		end
	end,
	used = function(s, w)
		if w == 'mywear' then
			garderob.obj:add('mywear');
			inv():del('mywear');
			inv():del('gun');
			return 'I take off my quilted jacket. I need to leave my shotgun in it.';
		end
		if w == 'alienwear' then
			local v = alienwear._num;
			ref(s.obj[v]):enable();
			inv():del('alienwear');
			inv():del('gun');
			return 'I put someone else\'s clothes back to wardrobe. I hide the shotgun in my quilted jacket.';
		end
	end,
	obj = {
		vobj(1,'denim jacket','{A denim jacket}.'),
		vobj(2,'red jacket','{A red-coloured jacket}.'),
		vobj(3,'overcoat','{An overcoat}.'),
		vobj(4,'terminator jacket', "{A jacket} with \"I\'ll be back\"."),
		vobj(5,'jacket with daisies', "{A white jacket} with daisies."),
		vobj(6,'coat', "{A wool jacket}."),
		vobj(7,'leather jacket','{A cool black leather jacket}.'),
		vobj(8,'sport jacket', "{An orange sport jacket}."),
	}
};
portrait = obj {
	nam = 'portraits',
	dsc = 'There are big {portraits} in wooden frames on the walls.',
	act = 'Hmm... There is the same face on all portraits! The cold-smiled face of a fourty-aged man with an empty chilling sight.',
};

salo = obj {
	nam = 'lard',
	inv = 'This piece of lard is too hard to eat...',
	use = function(s, w)
		if w == 'trap' and not trap._salo then
			inv():del('salo');
			trap._salo = true;
			return 'Hmm... I think I\'ve made a mousetrap!';
		end
	end
};

food = obj {
	nam = 'food',
	inv = function (s) 
		inv():del('food');
		return 'I\'m so hungry, so I eat all this yummy food just right now without even taking a seat. Wow... Then I take the tray with empty plates to the washers.';
	end
};

knife = obj {
	nam = 'knife',
	dsc = 'I observe {a knife} on the tray.',
	inv = function(s)
		if s._oster then
			return 'A steel knife. Very sharp.';
		end
		return 'A steel knife. Too blunt.';
	end,
	use = function(s, w)
		if w == 'shells' then
			if not s._oster then
				return 'The knife is not sharp enough to be used.';
			end
			if have('poroh') then
				return 'I have the gunpowder already.';
			end
			inv():add('poroh');
			return 'I crack one of the shells and take the gunpowder out.';
		end
	end,
	tak = function(s)
		if have('knife') then
			return 'I\'ve already got one...', false
		end
		return 'I think I\'ll take it with me.';
	end
};

ostatki = obj {
	nam = 'food leftovers',
	dsc = '{The leftovers of food} are evenly distributed on the plates.',
	tak = function(s)
		if food._num ~= 2 or have('salo') then
			return 'Nothing useful...', false;
		else 
			take('salo');
			return 'A piece of lard!', false;
		end
	end
};

podnos = obj {
	nam = 'tray',
	dsc = 'There is my {tray} on the table.',
	act = function(s, w)
		if w == 1 then
			return 'A fork like a fork... Not ideally clean.';
		end
		if w == 2 then
			return 'The design of this spoon has no remarkable features.';
		end
		return 'Blue plastic. A little oily by touch.';
	end,
	obj = { 'ostatki',
		vobj(1, 'fork', 'A {fork} and'), 
		vobj(2, 'spoon', 'a {spoon} lie beside.') 
	},
};

moika = room {
	nam = 'dish washing',
	enter = function()
		return cat('I take the tray to the dish washing area.^^', walk('kitchen')), false;
	end
};

eating = room {
	pic = 'gfx/podnos.png',
	enter = function(s, f)
		podnos.obj:add('knife');
		inv():del('food');
		if not me()._kitchendlg then
			me()._kitchendlg = true;
			return walk('kitchendlg'), false;
		end
		if f ~= 'kitchendlg' then
			return 'I take a seat at a free table and have some meal.';
		end
	end,
	nam = 'at the table',
	dsc = 'I feel a plain surface of the table under my hands.',
	obj = { 'podnos' },
	way = { 'moika' },
	exit = function(s)
	end
};

gotfood = function(w)
	inv():add('food');
	food._num = w;
	return back();
end

invite = obj {
	nam = 'invitation',
	inv = 'The invitation to the lecture of Belin: Level:4, Hall:2... Hmmm... I need to get there... He has my Barsik.',
}

povardlg = dlg {
	nam = 'in the kitchen',
	pic = 'gfx/povar.png',
	dsc = 'I see the tired fat face of the service woman in a white cap...',
	obj = {
	[1] = phr('Please, give me these green... Yeah - and beans!', 'Here you are!', [[pon(1); return gotfood(1);]]),
	[2] = phr('Potatoes with bacon, please!', 'Bon appetite!', [[pon(2); return gotfood(2);]]),
	[3] = phr('Two garlic soups!!!', 'Nice choice!', [[pon(3);return gotfood(3);]]),
	[4] = phr('Please, something not hard. I have an ulcer...', 'Oatmeal!', [[pon(4); return gotfood(4);]]),
	},
};
kitchendlg = dlg {
	nam = 'talking to employee',
	pic = 'gfx/ilya.png',
	dsc = 'I took my tray and sat at a free table. A minute later some guy tried to join my table with a question: "Occupied?"',
	obj = {
	[1] = phr('No, not occupied...', '— Thanks. How\'s it going? What unit are you from?', [[pon(3,4,5); poff(2);]]),
	[2] = phr('Occupied...', '— Ha-ha! Nice joke! What unit are you from?', [[pon(3,4,5); poff(1);]]),
	[3] = _phr('Hmm... Space Curvatures...', '— Oh, that\'s an old stuff!', [[pon(6);poff(4,5)]]),
	[4] = _phr('E-er... Quantum Jumps...', '- Hmm? Haven\'t heard about it.', [[pon(6);poff(3,5)]]),
	[5] = _phr('Oh... The Department of Quasispace Research!', '— Wow! Cool!', [[pon(6);poff(3,4)]]),
	[6] = _phr('Hmm... ', '— And what is your security level?', [[pon(7,8)]]),
	[7] = _phr('Super-secret!', '— Wow! ... ', [[poff(8); pon(9)]]),
	[8] = _phr('Anonymous.', '— Really? Haven\'t heard about it. Maybe it\'s even more classified than mine...', 
[[poff(7); pon(9)]]),
	[9] = _phr('Mmm...', '— I\'m Ilya... — the guy reaches his thin hand — And what\'s your name?', [[pon(10, 11, 12)]]),
	[10] = _phr('Pp.. Pk... Pupkin... Vasily Pupkin.', '— Oh, a rare last name!', [[poff(11,12); pon(13)]]),
	[11] = _phr('Sergey.', '— Give me five, man!', [[poff(10,12); pon(13)]]),
	[12] = _phr('George...', '— Ok, nice to meet you, Gosha!', [[poff(10,11); pon(13)]]),
	[13] = _phr('Hmm...', 
[[— You're some kind weird... But it doesn't matter. We are all here... — Ilya made an expressive face -... I'm distributing invitations to the classified lecture of Belin... Only for friends... I think I like you. And your security level is high enough... So...]], [[pon(14)]]),

	[14] = _phr('Where is he?... Hmm.. Where the lecture will take place?', 

[[— Security level 4. Hall 2. So, be there! It's a good opportunity to get close to... — Ilya gave a look at one of the portraits on the wall. — Oh, I almost forgot! — he gave me a piece of white plastic — Well, see ya!... — Uhhh...]],[[inv():add('invite');return walk('eating');]]), 
	}
};
kitchen = room {
	nam = 'canteen',
	pic = 'gfx/kitchen.png',
	dsc = 'A small canteen.',
	act = function(s, w)
		if w == 4 then
			return 'I see someone\'s hands taking trays with used plates to somewhere inside...';
		end
		if w == 1 then
			if not have('food') then
				return 'I took a seat at a free table. Ok, got some rest - now it\'s time to go!';
			end
			return walk('eating');
		end
		if w == 2 then
			return 'They sound like a hive of bees...';
		end
		if w == 3 and not have('food') then
			return cat([[I joined the queue... I took a tray, cutlery and wipes. Time flows painfully slowly. At last I make an order...^^]], walk('povardlg'));
		end
	end,
	used = function(s, w, ww)
		if w == 1 and ww == 'food' then
			return s:act(1);
		end
	end,
	enter = function(s)
		if not have('mywear') and not have('alienwear') then
			me()._walked = true;
		end
		set_music('mus/foot.mod');
	end, 
	exit = function(s, t)
		if have('food') and t ~= 'eating' then
			return 'Just leave with a tray in my hands? No.', false;
		end
		if t == 'stolcorridor' then
			set_music('mus/ice.s3m');
		end
	end,
	obj = { 'portrait', 
		vobj(1, 'tables', '{Tables} for 4 and 8 persons are placed evenly in the hall.'), 
		vobj(2, 'people', 'The canteen is full of {people}.'),
		vobj(3, 'queue', 'The {queue} of hungry people waiting for their food moves fast enough.'),
		vobj(4, 'dish washing', 'In the corner there\'s a {slot} for disposal of used trays and washing-up.'), 
	},
	way = { 'stolcorridor' },
};

stolcorridor = room {
	nam = 'canteen entrance',
	pic = 'gfx/kitchencor.png',
	dsc = 'The long and narrow corridor is illuminated by fluorescent light.',
	act = function(s, w)
		if w == 1 then
			return 'Yeah, these people came here to eat...';
		end
	end,
	obj = {'garderob', vobj(1,'люди', '{People} walk back and forth along the corridor.')},
	way = {'sside', 'kitchen'},
	exit = function(s, t)
		if t == 'sside' and not have('mywear') and not have('alienwear') then

			return 'It\'s cold outside... I won\'t go there without a coat... No...', 
				false;
		end
	end,
	enter = function(s)
		-- generate garderob
		if have('gun') and not gun._hidden then
			return 'I\'m afraid there will be some questions to me if I go inside with a shotgun...', false;
		end
		local i
		for i=1, 8 do
			local o = garderob.obj[i];
			ref(o):disable();
		end
		local k = 7;
		for i=1, 5 do
			if not have('alienwear') or k ~= alienwear._num then
				local o = garderob.obj[k];
				ref(o):enable();
			end
			k = rnd(8);
		end
	end
};

sside = room {
	nam = 'south side',
	pic = 'gfx/sside.png',
	dsc = [[I am at the south wall of the institute building. ]],
	act = function(s, w)
		if w == 1 then
			ways():add('stolcorridor');
			return "I came across the entrance and saw a label - 'Canteen'. Hmm... Maybe go inside?";
		end
		if w == 2 then
			return 'The ones who walk out seem to be more pleased than others...';
		end
	end,
	way = {'eside','wside'},
	obj = { vobj(1, "entrance", "There's an {entrance} near the east corner."),
		vobj(2, "people", "The entrance door opens from time to time letting {people} in and out.")},
	exit = function(s, t)
		if t == 'eside' then
			return 'If I go there I will be a good target for machine guns.', false
		end
	end
};

nside = room {
	nam = 'north side',
	pic = 'gfx/nside.png',
	dsc = 'I am at the north wall of the institute building.',
	way = {'eside','wside' },
	act = function(s, w)
		if w == 1 then
			return 'Yeah — a drainpipe... Seems strong enough. But I doubt I can climb it up.';
		end
	end,
	obj = { vobj(1, 'tube', 'A {drainpipe} flows along the east corner.')},
};


wside = room {
	nam = 'front side',
	pic = 'gfx/wside.png',
	dsc = 'The front side of the institute.',
	way = {'entrance', 'nside','sside' },
	act = function(s, w)
		if w == 1 then
			return 'The van my story began with...';
		end
		if w == 5 then
			return 'It starts too high to reach. Also it\'s locked. Maybe it may be of some use during fire, but I really doubt about it...'
		end
		if w == 2 then
			return 'The guards will recognize me for sure. I\'d better save my Barsik first.';
		end
		if w == 3 then
			return 'Nice entrance... But I can\'t get rid of an idea that the institute eats people.';
		end
		if w == 4 then
			return 'It\'s almost dark outside, but people still keep going inside...';
		end
	end,
	obj = { vobj(3, 'entrance', 'The main {entrance} has a big rotating door'),
		vobj(4, 'people', ' letting {people} in and out.'), 
		vobj(1, 'van', 'There\'s a black {van} in front of the door.'),
		vobj(2, 'checkpoint', 'Sixty meters further I can hardly distinguish a {checkpoint}.'),
		vobj(5, 'ladder', 'I see a fire-escape {ladder} on the south part of the wall. The ladder stretches from the second to the fifth floor.' ),
	}
};

turn1 = obj {
	nam = 'tourniquet',
	dsc = 'Shiny steel {tourniquets} block the passage to the elevators. The green indicators show the message: <<All levels and categories>>.',
	act = function(s, w)
		if s._inside then
			s._inside = false;
			here().way:del('lift');
			return 'I approach the tourniquets, use the card and go out from the restricted area.';
		end
		if s._unlocked then
			s._inside = true;
			here().way:add('lift');
			return 'I approach the tourniquets, use the card and and in a moment I\'m at the elevators.';
		end
		return 'I approach a tourniquet, but I see a red X sign shining. Bad idea to go further.';
	end,
	used = function(s,w)
		if w == 'card' then
			s._unlocked = true;
			s._inside = true;
			here().way:add('lift');
			return 'I apply the card to a tourniquet and see a green light. The passage is clear. I go to the elevators.';
		end
	end
};

lustra = obj {
	nam = 'chandeliers',
	dsc = 'Big shiny {chandeliers} hang over my head.',
	act = 'I can\'t help watching them... I think they are made of crystal.';

};

divan = obj {
	nam = 'sofa',
	dsc = 'In the corner there\'s a {sofa} for guests placed opposite to the guard table.',
	act = function(s)
		return 'Black-leathered, very soft sofa.';
	end,
};

entrance = room {
	nam = 'main entrance',
	pic = 'gfx/entrance.png', 
	dsc = 'The first floor of the institute is shocking by its magnificence.',
	act = function(s, w)
		if w == 2 then
			return 'A big padlock hangs on the gates.';
		end
		if w == 3 then
			if not turn1._inside then
				return 'The tourniquets block my way to the elevators.';

			end
			return 'Four elevators seem not enough for all institute employees.';
		end
		if w == 4  then
			return 'A table made from glass or crystal. There\'s a terminal beyond the table.'; 
		end
		if w == 5 then
			return 'It would be better for me if he doesn\'t see me once again.'; 
		end
		if w == 6 then
			return 'People... It\'s very unusual for me to see so many people.';
		end
	end,
	obj = {
		'lustra',
		vobj(2, 'gates', 'Iron {gates} to railways occupy all space of east wall.'),
		vobj(3, 'elevators', 'In the middle of the hall there are {elevators}.'),
		'turn1',
		vobj(4, 'table', 'There\'s a {table} before tourniquets.'),
		vobj(5, 'guard', 'The {guard} sits at the table.'),
		vobj(6, 'people', '{People} come and go in and out making a queue near the elevators.'),
		'divan',
	},
	way = { 'wside' },
	enter = function(s, f)
		if have('gun') and f == 'wside' and not gun._hidden then
			return 'I think there will be many questions about my shotgun if I take it inside with me... I should hide it somewhere', false;
		end
	end,
	exit = function(s, t)
		if t == 'wside' then
			turn1._inside = false;
			s.way:del('lift');
		end
	end,
};

pinlift = obj {
	nam = function(s)
		if s._num == 3 then
			return '';
		end
		return 'people';
	end,
	act = function(s)
		return 'Empty and depressed sights... Painful silence.';
	end,
	dsc = function(s)
		if s._num == 1 then
			return 'The elevator is full of {people}.';
		end
		if s._num == 2 then
			return 'There are several {men} in the elevator.';
		end
		if s._num == 3 then
			return 'The elevator is empty.'
		end
	end
};

lift = room {
	nam = 'elevator',
	pic = 'gfx/lift.png',
	dsc = 'It must be bright and comfortably in the elevator. But I am tormented by claustrophobia. I see buttons on the panel:',
	enter = function(s, t)
		if here() == entrance then
			s._from = 1;
			pinlift._num = 1;
			return 'I wait for one of the elevators and go inside.';
		end
		pinlift._num = rnd(3);
		if here() == floor2 then
			s._from = 2;
		elseif here() == floor3 then
			s._from = 3;
		elseif here() == floor4 then
			s._from = 4;
		elseif here() == floor5 then
			s._from = 5;
		end
		return 'I press an elevator call button and wait. After some time I go inside an elevator.';
	end,
	act = function(s, w)
		local to,st
		if not tonumber(w) then
			return
		end
		if w == s._from then
			return cat('No!!! The claustrophobia forces me out of the elevator.^^', 
				back());
		end
		if w == 8 then
			st = '';
			if galstuk._wear then
				st = ' By the way, I have a tie.';
			end
			if me()._brit then
				return 'I look in the mirror and see the tired but smoothly shaved face. This is me.' .. st;
			end
			return 'I look in the mirror and see tired and bearded face. This is me.'..st;
		end
		if w == 6 or w == 7 then
			return 'I\'m nervous... But I should not take nervous decisions.';
		end
		if w == 1 then
			to = 'entrance';
		else 
			to = 'floor'..w;
		end
		return cat('I press the button and wait. Claustrophobia almost knocks me down, but I\'m waiting... Ukhh... Trip done at last!^^',
			walk(to));
	end,
	exit = function()
		return 'Elevator doors close behind me.';
	end,
	obj = {
		vobj(1,'1', '{1},'),
		vobj(2,'2', '{2},'),
		vobj(3,'3', '{3},'),
		vobj(4,'4', '{4},'),
		vobj(5,'5', '{5},'),
		vobj(6,'stop','{stop}'),
		vobj(7,'go','и {go}.'),
		vobj(8,'mirror', 'The elevator back wall is a {mirror}.'),
		'pinlift',
	},
};

floor2 = room {
	nam = '2nd floor site',
	pic = 'gfx/floor2.png',
	dsc = "There are no windows on the second floor. Low ceiling and grey-green walls. It's cold and silent here.",
	act = function(s, w)
		if w == 1 then
			return 'The door seems to be made of lead... I do not see any possibility to get in there. And it\'s for good. There\'s a label under the sign which says: <<Level: 2, Category: Nuclear Energy>>.';
		end
		if w == 2 then
			return 'Yeah, one of these elevators brought me to this damned place...';
		end
	end,
	obj = { 
		vobj(1, 'door', 'I see a massive {door} with the sign <<Beware! High Radiation!!!>>'),
		vobj(2, 'elevators', 'It seems the four elevator slots are watching for me gloomily.'),
	},
	way = { 'lift' },
};

resh = obj {
	nam = 'bars',
	dsc = function(s)
		if not s._unscrew then
			return 'The hole is protected by the iron-bar {lattice}.';
		end
		if vent._off then
			return 'In the hole I can distinguish blades of a big airing fan. The {lattice} lies on the floor.';
		end
		return 'The blades of the big airing fan are rotating. The {lattice} lies on the floor.';
	end,
	act = function(s)
		if s._unscrew then
			return 'This is what can be done with a blunt knife if you have enough patience and skill!';
		end
		if not stoly._moved then
			return 'Cannot reach...';
		end
		return 'The lattice is screwed tightly with 12 screws...';
	end,
	used = function(s, w)
		if w == 'knife' and not s._unscrew and stoly._moved then
			s._unscrew = true;
			return 'I climb the table and try to unscrew the screws with a knife. This takes me much time. But at last I make it. The lattice falls down on the floor. I get down from the table.';
		end
		if w ~= 'stol' then
			return 'No way...';
		end
	end,
};

vent = obj {
	nam = 'airing hole',
	dsc = 'In the middle of the ceiling there is a big square {hole} for airing.',
	act = function(s)
		if not stoly._moved then
			return 'I cannot reach it...';
		end
		if not resh._unscrew then
			return 'I step on the table and examine the hole. It is covered by the lattice... Being disappointed I get down.';
		end
		if not s._off then
			return 'I climb the table and watch the sharp blades of the fan. I\'m afraid it is too dangerous...';
		end
		if not s._trap then
			return 'I climb the table. Holding the edges of the hole I\'m trying to get in... It\'s dark and wet there. I\'m almost in when I see red eyes and teeth of a big rat... No!!! I fall back on the table and then hit the floor.';
		end
-- here we go!
		return walk('toilet');
	end,

	used = function(s, w)
		if w == 'stol' then
			return
		end
		if not stoly._moved  then
			return 'I can\'t reach the hole...';
		end
		if not resh._unscrew then
			return 'The hole is covered by the lattice...';
		end
		if not s._off then
			return 'I can\'t because of the fan blades...';
		end
		if w == 'gun' and not s._trap then
			gun._loaded = false;
			return 'I climb the table and point the shotgun to the hole. Both barells shot simultaneously with deep sound. I listen. The hole is silent... I get down. I think it\'s useless...';
		end
		if w == 'trap' then
			if not trap._salo then
				return 'I set the trap on the edge of the hole. Waiting. But the rat is not a fool. I take the trap back. I need some bait.';
			end
			inv():del('trap');
			vent._trap = true;
			return 'I climb the table and set the baited trap on the edge of the hole... I need not wait for too long... The clash sound and the last scream of the rat make me know that the work is done!';
		end
	end,
	obj = {
		'resh'
	}
};

stol = obj {
	nam = 'table',
	inv = 'I hold the corner of one of the tables. Seems made from oak.',
	use = function(s, w)
		if w == 'vent' or w == 'resh' then
			inv():del('stol');
			stoly._moved = true;
			return 'I strained myself and moved one of the tables to the center of the room.';
		end
	end
};

stoly = obj {
	nam = 'tables',
	dsc = function(s, w)
		if not s._moved then
			return 'Four oak {tables} take their places in the four room corners respectively.';
		end
		return 'Three oak {tables} reside in the room corners. One table is moved to the center.';
	end,
	act = function(s, w)
		if s._moved then
			return 'Put one table on another? No - I won\'t make it...';
		end
		inv():add('stol');

		return [[Good furniture... But the table in my house is better - I've made it with my own hands. I hold the corner of a table.]];
	end
};

eroom = room {
	nam = 'STR department',
	pic = function()
		if not stoly._moved then
			return 'gfx/sto.png';
		end
		if not resh._unscrew then	
			return 'gfx/sto2.png';
		end
		return 'gfx/sto3.png';

	end, 
	dsc = [[I am in the small room with beige walls.]],
	enter = function(s, f)
		if f == 'cor3' then
			return [[I opened the door and looked inside. Whew... Empty! I think I may look around...]];
		end
		if f == 'toilet' then
			return 'Well... I lift the iron lattice from the toilet floor and go into darkness... In some minutes I jump from the airing hole to the table and go to the floor.';
		end
	end,
	act = function(s, w)
		if w == 1 then
			return 'I move the louvers and look into outside darkness. I face my dim reflection in the window. Looking down I see the machine gun towers and the railways.';
		end
		if w == 2 then
			return 'It is just terminals. The client machines which connect to the institute servers. However, I\'m not interested in them. I have not used a computer for 10 years.';
		end
	end,
	obj = { 
		vobj(1, 'window', 'A big {window} looks to the east.'),
		'stoly',
		vobj(2, 'terminals', 'On each table there is a {terminal} with a 17-inch display.'),
		'vent',
		'portrait',
	},
	way = { 'cor3' },
	exit = function()
		inv():del('stol');
	end
};

key = obj {
	nam = 'key',
	dsc = 'Someone has left the {key} in the door lock.',
	tak = 'I carefully take out the key and put it in my pocket.',
	inv = 'To my surprise - ordinary door locks are used in the institute along with complex electronic security!',
};

room33 = room {
	nam = 'room',
	pic = 'gfx/bholes.png',
	dsc = [[I stand for some seconds near the door. Then I open it and go inside.]],
	act = function(s, w)
		if w == 1 then
			return cat('A grey-haired man in thick glassed turns to me and for watches me for a second. - Who are you? Go outside immediately!!^^',back());
		end
	end,
	obj = { 
		vobj(1, 'people', [[I see a group of {people} in white technical coats standing at the board in the middle of the room and having a great debate among theirselves.]]),
		'portrait',
		'key' 
		};
	way = { 'cor3' },
	exit = [[ I carefully leave the room.]];
};

room3x = room {
	nam = 'room',
	enter = function(s, f)
		if s._num == 2 then
			return [[I open the door a little and look inside. 
			A square room with two windows.
			A lot of people are sitting at terminals along the walls. 
			I close the door in a hurry.]], false;
		end
		if s._num == 4 then
			return [[I touch the cold metal handle and open the door carefully... - Simulation in progress!!! - I hear someone's angry voice from inside. I release the handle and the door closes...]],
			false;
		end
		if s._num == 5 then
			ref(f).way:add('eroom');
			return walk('eroom'), false;
		end
		if s._num == 6 then
			return [[I start opening the door, but I begin to hear some strange sound which is becoming louder and louder. - What idiot hasn't closed the door?! - someone inside is very angry. I close the door in a hurry.]], 
			false;
		end
	end,
};

switch = obj {
	nam = 'switch',
	dsc = function(s)
		local t
		if vent._off then
			t = ' in <<off>> state.';
		else
			t = ' in <<on>> state.';	
		end
		return 'In the corner near the entrance there\'s a {switch}'..t;
	end,
	act = function(s)
		if vent._off then
			vent._off = false;
			return 'Switching ON!'
		end
		if not cor3._locked then
			return [[I turn the switch OFF and walk away. But suddenly one of the doors opens and some old voice screams to the corridor: What the...!!! This is impossible!!! No way to work!!! Turn it on back!!! - I need to return to the switch and to turn it ON.]];
		end
		vent._off = true;
		return 'Switching OFF!';
	end
};

cor3 = room {
	nam = '3rd floor corridor',
	pic = 'gfx/cor3.png',
	enter = function(s, f)
		if f == 'floor3' then
			return 'I apply the card to a card reader... Red indicator blinks and then becomes green... The way is free!';
		end
	end,
	dsc = 'The long corridor stretches to the end of the building. Fluorescent lamps bring some dim light from the ceiling. There\'s a green carpet walkway on the floor.',
	act = function(s, w)
		if w == 1 then
			return 'I walk to one of the doors and look in the door porthole... People in white are moving around some weird devices. Just like bees... I think these rooms are labs.';
		end
		if not tonumber(w) then
			return nil, false
		end
		if w == 3 then
			if s._locked then
				return 'This room is locked... I hear some not loud but intense sounds. I do not want to open it.';
			end
			return walk('room33');
		end
		if tonumber(w) >=2 and tonumber(w) <=6 then
			room3x._num = w;
			return walk('room3x');
		end
		if w == 7 then
			return 'The window looks to the south side... It\'s dark outside. Nothing to watch but snowflakes bumping the glass...';
		end
		if w == 8 then
			return 'Visit?';
		end
	end,
	used = function(s, w, ww)
		if w == 1 or w == 2 or w == 4 or w == 5 or w == 6 then
			return 'No way...';
		end 
		if w == 3 and ww == 'key' then
			if s._locked then
				return 'Already closed...';
			end
			s._locked = true;
			return 'I insert the key in the key hole and lock the door making two turns. I take out the key and put it back to the pocket.';
		end
	end,
	obj = {
		vobj(1, 'white doors', 'On the right side there are white metal {doors} with windows.'),
		vobj(2, 'gravity', 'On the left side there are several doors with labels: {gravity},'),
		vobj(4, 'simulation', '{simulation}'),
		vobj(5, 'STR effects','{STR effects},'),
		vobj(3, 'black holes', '{black holes},'),
		vobj(6, 'quasispace', '{quasispace}.'), 
		vobj(7, 'window', 'I see the {window} in the end of the corridor.'),
		vobj(8, 'toilet', '{Toilets} are near the window.'),
		'switch',
		'portrait',
	},
	way = {'floor3', 'toilet3', 'toiletw'},
};

mylo = obj {
	nam = 'soap',
	inv = function(s)
		if s._pena then
			return 'A piece of soap with foam.';
		end
		return 'A piece of soap.';
	end,
	dsc = 'A piece of {soap} lies on the basin.',
	tak = 'I took the slippy soap... It fell down back to the basin, but I caught it up again and put it in the pocket...';
};

sushka = obj {
	nam = 'dryer',
	dsc = 'A hand {dryer} hangs nearby.',
	act = function(s,w)
		return 'I bring my hands to the dryer and it starts working... Deja vu...';
	end,
};

umyvalnik = obj {
	nam = 'basin',
	dsc = 'The {basin} is located near the entrance.',
	act = function(s)
		if me()._mylo then
			me()._mylo = false;
			return 'I wash away soap foam from my face...';
		end
		return 'I drink chlorinated water greedily... Yeah - this water is not the same as in my creek...'; 
	end,
	used = function(s, w)
		if w == 'mylo' then
			mylo._pena = true;
			return 'I put the soap into warm water...';
		end
	end
};

toilet3 = room {
	nam = 'toilet',
	pic = 'gfx/toil3.png',
	dsc = 'I am in a toilet. A standard architecture. No windows. White tile.',
	act = function(s, w)
		if w == 2 then
			return 'All are in use!';
		end
		if w == 3 then
			return 'People are evenly distributed over the toilet. All closets are occupied. A couple of men are waiting for their turn.';
		end
	end,
	obj = { 
		'umyvalnik',
		'mylo',
		'tzerkalo',
		'sushka',
		vobj(2, 'closets', 'There are 4 {closets} in this toilet.'),
		vobj(3, 'people', 'Some {people} are present...'),
	},
	way = { 'cor3' }, 
	exit = function()
		if me()._mylo then
			return 'With soap on the face? No...', false
		end
		objs():del('face');
	end
};

floor3 = room {
	nam = '3rd floor site',
	pic = 'gfx/floor3.png',
	dsc = [[The site of the third floor is large enough. Beige walls. High ceilings.]],
	act = function(s, w)
		if w == 1 then
			return 'I gaze at the window for a minute... A white desert flowing to the darkness... At this moment I realize what an alien place I am in...';
		end
		if w == 2 then
			if not s._unlocked then
				return 'Metal upholstered with leather. The door has a card reader. The door label says: <<Level: 3, Category: Applied Physics>>';
			end
			return walk('cor3');
		end
		if w == 3 then
			return 'Strong doors I must admit... Much stronger than the door of my hut... The door has a card reader. The door label says: <<Level: 3, Category: Nanotechnologies>>';
		end
	end,
	used = function(s,w,ww)
		if ww ~= 'card' then
			return 'It won\'t help...';
		end
		if w == 2 then
			s._unlocked = true;
			s.way:add('cor3');
			return walk('cor3');
		end
		if w == 3 then
			return 'I apply the card to the card reader. I hear an annoying beep - access denied.';
		end
	end,
	obj = { 
		vobj(1, 'window', 'A wide {window} looks to the west.'),
		vobj(2, 'brown door', 'There\'s a brown {door} to the right of the window.'),
		vobj(3, 'white door', 'A white {door} - to the left.'),
	},
	way = { 'lift' },
};

britva = obj {
	nam = 'razor',
	dsc = 'A {razor} lies on the basin.',
	tak = 'I put the razor in pocket hoping no one notices it.',
	inv = 'A razor, little bit rusty...',
};

face = obj {
	nam = 'face',
	dsc = 'The mirror reflects my {face}.',
	act = function(s)
		local st = '';
		if me()._brit then
			st = ' Well shaved.';
		elseif me()._mylo then
			st = ' With soap foam on it.';
		end
		if galstuk._wear then
			st = st..' With a tie, by the way.';
		end
		return 'This is a reflection of my face.'..st;
	end,
	used = function(s, w)
		if w == 'mylo' then
			if me()._brit then
				return 'I\'ve shaved already...';
			end
			if not mylo._pena then
				return 'The soap is quite dry...';
			end
			if not have('britva') then
				return 'I put soap on the face and wash away the dirt... Ooh...';
			end
			me()._mylo = true;
			return 'I put soap foam on the face...';
		end
		if w == 'britva' then
			if me()._brit then
				return 'I\'ve shaved already...';
			end
			if not me()._mylo then 
				return 'I need foam on my face...';
			end
			me()._brit = true;
			me()._mylo = false;
			return 'I\'m shaving... Then I wash my face...';
		end
	end
};

tzerkalo = obj {
	nam = 'mirror',
	dsc = 'A {mirror} is placed where it should be - above the basin.',
	act = function(s)
		local st = '';
		objs():add('face');
		if galstuk._wear then
			st = ' With a tie, besides...';
		end
		if me()._brit then
			return 'Sad, but well shaved face.' .. st;
		end
		return 'Wild bearded face looks at me from the mirror.' .. st;
	end,	
};

toilet = room {
	nam = 'toilet',

	pic = 'gfx/toil4.png',
	dsc = 'Quite large toilet, I should say. White tile. Yellow stains. Humidity and sounds of flowing water. A wooden door leads to the corridor.',
	enter = function(s, f)
		if f == 'eroom' then
			return 'I climb to the airing hole. It\'s dusty and quiet inside. I wander the airing system maze until at last I see the light over my head. A moment later I push the iron lattice in the toilet floor...';
		end
	end,
	act = function(s, w)
		if w == 2 then
			return 'Yeah... I\'m lucky. I guess it\'s a men\'s toilet...';
		end
		if w == 3 then
			return 'They have strange airing system. But thanks to it I am here!...';
		end
	end,
	obj = { 
		vobj(2, 'closets', 'There are only 2 {closets} in this toilet.'),
		'umyvalnik',
		'britva',
		'tzerkalo',
		'sushka',
		vobj(3, 'lattice', 'There is an iron {lattice} on the floor.');
	},
	way = { 'eroom', 'cor4'},
	exit = function(s, t)
		if me()._mylo then
			return 'With foam on the face? No...', false
		end
		objs():del('face');
		if t ~= 'eroom' then
			return 'I come outside the toilet carefully.';
		end
	end
};

toiletw = room {
	nam = 'women closet',
	enter = function(s, w)
		return 'Whew... I was about making a mistake...', false;
	end
};

function room4x_hear()
	local ph = {
	[1] = '...According to the uncertainty principle it is impossible to know both the position and the momentum of a quantum particle...',
	[2] = '...According to the theory of quantum mechanics, measurement causes an instantaneous collapse of the wave function describing the quantum system into an eigenstate of the observable state that was measured...',
	[3] = '...The reduction of the wave packet is the phenomenon in which a wave function appears to reduce to a single one of those states after interaction with an observer...',
	[4] = '...The theory predicts that both values cannot be known for a particle, and yet the EPR experiment shows that they can...',
	[5] = '...The principle of locality states that physical processes occurring at one place should have no immediate effect on the elements of reality at another location...';
	[6] = '...They claim that given a specific experiment, in which the outcome of a measurement is known before the measurement takes place, there must exist something in the real world, an "element of reality", which determines the measurement outcome...',
	[7] = '...The many-worlds interpretation is a postulate of quantum mechanics that asserts the objective reality of the universal wavefunction, but denies the actuality of wavefunction collapse, which implies that all possible alternative histories and futures are real—each representing an actual "world" (or "universe")...',
	[8] = '...Everett\'s original work contains one key idea: the equations of physics that model the time evolution of systems without embedded observers are sufficient for modelling systems which do contain observers; in particular there is no observation-triggered wave function collapse which the Copenhagen interpretation proposes...',
	[9] = '...The particles are thus said to be entangled. This can be viewed as a quantum superposition of two states, which we call state I and state II...',
	[10] = '...Alice now measures the spin along the z-axis. She can obtain one of two possible outcomes: +z or -z. Suppose she gets +z. According to quantum mechanics, the quantum state of the system collapses into state I. The quantum state determines the probable outcomes of any measurement performed on the system. In this case, if Bob subsequently measures spin along the z-axis, there is 100% probability that he will obtain -z. Similarly, if Alice gets -z, Bob will get +z...',
	};
	return ph[rnd(10)];
end

room4x = room {
	nam = 'room',
	enter = function(s, f)
		if s._num == 1 then
			return 'I carefully touch the handle and try to open the door. Closed...'
			, false;
		elseif s._num == 2 then
			return 'I come close to the door and listen... - '..room4x_hear()..
			' — Ooh... I\'d better keep going...',
			false;
		elseif s._num == 3 then
			return 'I come close to the door and listen... - I hear someone argue fiercly... - I\'d better go...', false;
		elseif s._num == 4 then
			return 'I open the door and come inside. 12 pairs of eyes of guys sitting at desks look at me attentively. Another eye pair belongs to a man standing at a board. - Sorry, I must have missed the door... - this is all I can say in such situation. I quickly get outside...', false;
		elseif s._num == 5 then
			return 'Closed...', false;
		end
	end,
};

galstuk = obj {
	nam = function(s)
		if s._gal then
			return 'tie';
		end
		return 'rag';
	end,
	inv = function(s, w)
		if not s._gal then
			s._gal = true;
			return 'I examine the rag and I figure out that it used to be a tie some time ago.'
		end
		if s._hot then
			if not s._wear then
				s._wear = true;
				return 'I put the tie on with dignity...';
			end
			return 'I wear the tie...';
		end
		if s._mylo then
			return 'It is all in soap!';
		end
		if not s._water then
			return 'It is dirty! I won\'t put it on!';
		end
		if not s._hot then
			return 'It is wet! I won\'t wear it!';
		end
	end,
	used = function(s, w)
		if s._wear then
			return 'I wear the tie...';
		end
		if w == 'mylo' then
			if not mylo._pena then
				return 'The soap is dry...';
			end
			s._mylo = true;
			if not s._gal then
				s._gal = true;
				return 'While putting soap to the rag, I understand that this rag use to be a tie once.';
			end
			return 'I put some soap on the tie...';
		end
	end,
	use = function(s, w)
		if s._wear and w ~= 'hand' then
			return 'I wear the tie...', false;
		end
		if w == 'umyvalnik' then
			if not s._mylo  then
				return 'Using just water? I doubt it washes chalk away...';
			end
			s._water = true;
			s._mylo = false;
			return 'I washed the tie in warm water...';
		end
		if w == 'sushka' then
			if not s._water then
				return 'Why should I dry this?';
			end
			s._hot = true;
			s._water = false;
			return 'In 5 minutes I dried the tie well...';
		end
	end
};

room46 = room {
	nam = 'lecture room 6',
	pic = 'gfx/room4.png',
	enter = 'I open the door and come inside... The room is empty...',
	dsc = 'I am inside the lecture room... Several tables are placed in two rows towards the board.',
	act = function(s, w)
		if w == 1 then
			if not have('galstuk') then
				inv():add('galstuk');
				return 'I see a rag on the board. I take the rag.';
			end
			return 'Hmm... I do not understand a thing in this stuff...';
		end
		if w == 2 then
			return 'I see how spotlights are searching the snowy field down there...';
		end
		if w == 3 then
			return 'I sit by the keyboard, but I recall that I\'m done with the past... I am not a hacker anymore - I am a forester.';
		end
	end,
	obj = {
		vobj(3,'terminal', 'Every table has a {terminal} placed on it.');
		vobj(1,'board', 'Some weird formulas are written on the lecture {board}...'),
		vobj(2,'window', 'The {window} looks to the east.'),
		'portrait',
	},
	way = { 'cor4' },
};

facectrl = dlg {
	nam = 'face control',
	pic = 'gfx/guard4.png',
	dsc = 'I see the unpleasant and unfriendly face of the fat security guy.',
	obj = {
		[1] = phr('I\'ve come to listen to the lecture of Belin...',
		'— I don\'t know who you are, — the guard grins — but I was told to let only decent people in here.',
		[[pon(2);]]),

		[2] = _phr('I have the invitation!', 
		'— I do not damn care! Look at yourself! Used a mirror recently?! You\'ve come to listen to Belin himself! Be-lin! The right hand of ... - the guard paused for a second in respect - So... Get out of here!',
		[[pon(3,4)]]),

		[3] = _phr('I\'m gonna kick you fat face!', '— Well, that\'s enough... - Powerful hands push me out to the corridor... I feel lucky to stay in one piece...',
		[[poff(4)]]),

		[4] = _phr('You boar! I\'ve told you I have the invitation!',
			'— Whaaat? - The guard\'s eyes are going red... The powerful kick sendsme to the corridor... It could be worse...',
		[[poff(3)]]),

		[5] = _phr('I want to listen to the lecture of Belin...',
		'— First — Doctor Belin, and second — no way if no tie...',
		[[pon(2)]]),

		[6] = _phr('I want to listen to the lecture of Dr. Belin very much!!!',
		'The guard examines me with his suspicious eyes and says unwillingly: Your invitation...',
		[[pon(7)]]),

		[7] = _phr('Here... you b... please...', 'Ok... Come in, hurry... The lecture has already begun...',
		[[inv():del('invite'); return walk('hall42')]]);
	},
	exit = function(s,w)
		s:pon(1);
	end
};

hall42 = room {
	nam = 'Hall 2',
	pic = 'gfx/hall2.png',
	dsc = 'A lot of people. Silent. I guess the lecture is going on.',
	obj = {
		vobj(1, 'Belin', 'A man stands at the board - it\'s {Belin}! The man who has stolen my cat.'),
		vobj(2, 'seats', 'I see some free {seats} at the third row.'),
		vobj(3, 'window', 'Three wide {windows} look to the west.'),
		vobj(4, 'lamps', 'The hall is illuminated by fluorescent {lamps}.'), 
	},
	act = function(s, w)
		if w == 1 then
			return 'Now he is without a coat and a hat, and I can see him in details... Quite fat but tall... A tricky smile but opened face... He runs the lecture. I\'ll wait till he finishes and try to have a talk with him...';
		end
		if w == 2 then
			return walk('lection');
		end
		if w == 3 then
			return 'It\'s dark outside... Only white snowflakes reveal theirselves in the fluorescent light from time to time.';
		end
		if w == 4 then
			return 'Six lamps... I hate this blinking light...';
		end
	end,
	exit = function(s, t)
		if t == 'cor4' then
			return 'I do not want to lose Belin again...', false;
		end
	end,
	enter = function(s, f)
		if f == 'facectrl' then
			return 'I enter the lecture hall...';
		end
		if not galstuk._wear then
			facectrl:pon(5);
			facectrl:poff(1);
		end
		if not me()._brit or not galstuk._wear then
			return cat(
'I try to enter the hall, but a man in a uniform stops me. I read <<SECURITY>> on his label. He holds a shotgun.^^', walk('facectrl')), false;
		end
		facectrl:poff(1, 5);
		facectrl:pon(6);
		return walk('facectrl'), false;
	end,
	way = { 'cor4' },
};

hall41 = room {
	nam = 'Hall 1',
	dsc = [[I enter the empty hall. It seems to be one of lecture halls. Many rows of seats get higher and higher one after another till the ceiling.]],
	pic = 'gfx/hall1.png',
	act = function(s, w)
		if w == 1 then
			return 
'Watching the night darkness I remember Barsik with melancholy...';
		end
		if w == 2 then
			return 'We had just like these in our institute when I... Nevermind...';
		end
		if w == 3 then
			return 'Everything I could remember - I\'ve forgotten.';
		end
	end,
	obj = {
		vobj(1, 'windows', 'Three big {windows} look to the west side.'),
		vobj(2, 'table', 'A long {table} takes place near the lecture board.'),
		vobj(3, 'board', 'Some formulas of a previous lecture remain on the {board}.'),
		'portrait',
	},
	way = {
		'cor4',
	},
};

cor4 = room {
	nam = '4th floor corridor',
	pic = 'gfx/cor4.png',
	dsc = 'I am in the corridor. Very high ceilings. I see toilets in the end of the corridor. There\'s a green carpet walkway on the floor.',
	act = function(s, w)
		if not tonumber(w) then
			return;
		end
		if w == 11 then
			return 'Some of them are going to the hall 2.';
		end
		if w == 1 then
			return 'I am melancholically looking in the night darkness... I realize how much I am tired... But I must keep going...';
		end
		if w == 12 then
			return 'This door like many others is provided with a smart-card reader. The red indicator is on.';
		end
		if tonumber(w) >=5 and tonumber(w) <=9 then
			room4x._num = w - 4;
			return walk('room4x');
		end
		if w == 10 then
			ways():add('room46');
			return walk('room46');
		end
		if w == 2 then
			ways():add('hall41');
			return walk('hall41');
		end
		if w == 3 then
			ways():add('hall42');
			return walk('hall42');
		end
	end,
	used = function(s, w, ww)
		if w == 12 and ww == 'card' then
			return 
			'I apply the card to the card reader... Beep... Access denied...';
		end
	end,
	obj = {
	vobj(1, 'window', 'A {window} looks to the south.'),
	vobj(2, 'hall 1','On the west side I see two wide doorways: {hall 1},'),
	vobj(3, 'hall 2', '{hall 2}.'),
	vobj(5, 'lecture room 1', 'On the east side there are less wide doors. The door labels: {lecture room 1},'),
	vobj(6, 'lecture room 2', '{lecture room 2},'),
	vobj(7, 'lecture room 3', '{lecture room 3},'),
	vobj(8, 'lecture room 4', '{lecture room 4},'),
	vobj(9, 'lecture room 5', '{lecture room 5},'),
	vobj(10, 'lecture room 6', '{lecture room 6}.'),
	vobj(11, 'people', 'From time to time {people} appear in the corridor.'),
	vobj(12, 'front door', 'The front {door} is located at the north end of the corridor.'),
	'portrait',
	},
	way = {
		'toilet',
		'toiletw',
	}
};
floor4 = room {
	nam = '4th floor site',
	pic = 'gfx/floor4.png',
	dsc = 'The fourth floor has high ceilings.',
	act = function(s, w)
		if w == 1 then
			return 'Darkness... Not a single light... I can\'t even see the stars. Dim and heavy fluorescent light prevents me to see them...';
		end
		if w == 2 then
			return 'I hate elevators...';
		end
		if w == 3 or w == 4 then
			return 'An ordinary door. One of many in this building. An electronic lock. I can\'t get in without a card.';
		end
	end,
	used = function(s, w, ww)
		if ww == 'card' then
			if w == 3 or w == 4 then
				return [[I apply the card to a card reader... Beep. Access denied...]];
			end
		end
	end,
	obj = {
		vobj(1, 'window','A wide {window} looks to the west.'),
		vobj(2, 'elevators', 'The site with four {elevators} is dimly lit.'),
		vobj(3, 'south door', 'Two doors lead to the north and south corridors. The south {door} label: <<Level:4, Category:Theoretical Physics>>'),
		vobj(4, 'north door', 'The north {door} label: <<Level:4, Category:Biology>>'),
	},
	way = { 'lift' },
};

floor5 = room {
	nam = '5th floor site',
	pic = 'gfx/floor5.png',
	dsc = [[The ceilings on the fifth floor are very high.]],
	act = function(s, w)
		if w == 1 then
			return 'My legs are drowning in red velvet... I should be careful not to leave my footprints here...';
		end
		if w == 2 then
			return 'Yeah, made from crystal. Surely not glass.';
		end
		if w == 3 then
			return 'I approach the window... Interesting. I see that the window looks at quite wide area of the roof, which streches through the front part of the building...';
		end
		if w == 4 or w == 5 then
			return 'I can\'t examine the doors because of the guard... My ID card is not valid here...';
		end
		if w == 6 then
			return 'Though he does not pay any attention to me, still it is better not to bother him...';
		end
	end,
	used = function(s, w)
		if not tonumber(w) then
			return
		end
		if w == 6 then
			return 'It\'s better not to bother him...';
		end
		if w >=1 and w <=5 then
			return 'I won\'t do it while the guard is here,';
		end
	end,
	obj = {
	vobj(1, 'carpet', 'The floor is covered by the red {carpet}.'),
	vobj(2, 'chandelier', 'A crystal {chandelier} hangs over my head.'),
	vobj(3, 'window', 'A wide {window} looks to the west.'),
	vobj(4, 'information', 'I see two doors leading to the south and north corridors. The south {door} label: <<Level:5, Category:Information>>.'),
	vobj(5, 'red door', 'The north {door} does not have any labels. This is a massive door upholstered with red leather.'),
	vobj(6, 'guard', 
		'The passage to the doors are blocked by a checkpoint with a {guard}.');
	},
	way = { 'lift' },
};