mywear = obj {
	nam = '棉袄',
	dsc = function(s)
		if here() == stolcorridor then	
			local st='.';
			if not have('gun') then
				st = '，我的猎枪就藏在它里面。';
			end
			return '架子上还有我的棉袄'..st;
		else
			return '松木门的钉子上挂着我的{棉袄}。';
		end
	end,
	inv = '现在是冬天，但我穿着暖和的棉袄。',
	tak = function(s)
		if here() == stolcorridor then
			if have('alienwear') then
				return '我已经穿好衣服了……如果我把棉袄也带上，会显得很可疑……', false;
			end
			if me()._walked then
				me()._walked = false;
				inv():add('gun');
				return '但我的棉袄是最棒的！';
			end
			return '那就太显眼了……', false;
		else
			return '我从钉子上取下外套。';
		end
	end, 
	use = function(s, o)
		if o == 'guy' then
			return '在短暂的耽搁之后，你们交换了外套……';
		end
	end
};

money = obj {
	nam = '钱',
	inv = '大钱就是大祸……幸好我没什么钱……',
	use = function(s, w)
		if w == 'shopman' then
			if shopman._wantmoney then
				shopman._wantmoney = false;
				return '我付钱给弗拉基米尔。';
			end
			return '我不想无缘无故付钱……';
		end
	end
};

mybed = obj {
	nam = '床',
	dsc = '窗边有一张{床}。',
	act = '现在没功夫睡觉。',
};

mytable = obj {
	nam = '桌子',
	dsc = '左边角落里有一张带抽屉的橡木{桌子}。',
	act = function()
		if not have(money) then
			take('money');
			return '我在抽屉里翻了翻，找到了些钱。';
		end
		return '桌子……我自己做的。';
	end,
};

foto = obj {
	nam = '照片',
	dsc = '桌子上有一张镶框{照片}。',
	tak = '我拿起照片。',
	inv = '照片里是我和我的 Barsik。',
};

gun = obj {
	nam = '猎枪',
	dsc = '小屋右边的角落里有一把{猎枪}。',
	tak = '我拿起猎枪，把它挂在背后。',
	inv = function(s)
		local st = '';
		if s._obrez then
			st = ' 顺便一提，现在是锉短的猎枪了。';
			if s._hidden then
				st = st..' 它藏在我衣服里。';
			end
		end
		if s._loaded then
			return '猎枪上膛了……'..st;
		else	
			return '猎枪没有子弹…… 我很少在森林里用到它……'..st;
		end
	end,
	use = function(s, w)
		if not s._hidden then
			if w == 'mywear' or w == 'alienwear' then
				if not s._obrez then
					return '我想把猎枪藏在衣服里，但它太长了。'
				else
					s._hidden = true;
					return '现在我可以把锉短的猎枪藏在衣服里了！';
				end
			end
		end
		if not s._loaded then
			return '没装子弹……', false;
		end
		if w == 'guard' then
			return '是的，他们是无赖，但首先他们也是人；其次这样做也无济于事……', false;
		end
		if w == 'wire' then
			return '太近了…… 我需要像剪线钳这样的东西……', false;
		end
		if w == 'cam' and not cam._broken then
			cam._broken = true;
			s._loaded = false;
			return '我瞄准摄像头，双管开火…… 沉闷的枪声被阵阵风雪淹没……';
		end
		if w == 'mycat' or w == 'shopman' or w == 'guy' then
			return '我不想这样……', false;
		end
	end
};

fireplace = obj {
	nam = '壁炉',
	dsc = '墙边有一个{壁炉}，火焰不均匀地映照着小屋。',
	act = '我喜欢在壁炉旁度过漫长的冬夜。',
};

mycat = obj {
	nam = 'Barsik',
	_lflast = 0,
	lf = {
		[1] = 'Barsik 在我怀里动来动去。',
		[2] = 'Barsik 从我怀里探出头。',
		[3] = 'Barsik 在我怀里打呼噜。',
		[4] = 'Barsik 在我怀里发抖。.',
		[5] = '我感受到 Barsik 在我怀里的温暖。',
		[6] = 'Barsik 从我怀里探出头来，四处张望。',
	},
	life = function(s)
		local r = rnd(6);
		if r > 2 then
			return;
		end 
		r = rnd(6);
		while (s._lflast == r) do
			r = rnd(6);
		end
		s._lflast = r;
		return s.lf[r];
	end,
	desc = { [1] = '我的猫{Barsik}正舒适地蜷缩成一团睡在壁炉边。',
		 [2] = '{Barsik}机敏地扫视着小屋周围。',
		 [3] = '{Barsik}就坐在我旁边的座位上。',
		 [4] = '{Barsik}正在垃圾桶旁研究着什么……',
		 [5] = '{Barsik}在我脚边蹭来蹭去。',
	},
	inv = 'Barsik在我的怀里……可怜的小猫咪……我会救你的，还有整个世界！！！',
	dsc = function(s)
		local state
		if here() == home then
			state = 1;
		elseif here() == forest then
			state = 2;
		elseif here() == inmycar then
			state = 3;
		elseif here() == village then
			state = 4;
		elseif here() == escape3 then
			state = 5;
		end
		return s.desc[state];
	end,
	act = function(s)
		if here() == escape3 then
			take('mycat');
			lifeon('mycat');
			return '我把{Barsik}放进了我的怀里。';
		end
		return '我挠了挠Barsik的耳后……';
	end,
};

inmycar = room {
	nam = '在车里',
	dsc = '我坐在我的皮卡车里，这辆车像匹任劳任怨的老马一样……',
	pic = 'gfx/incar.png',
	way = {'forest', 'village'},
	enter = function(s, f)
		local s = '我打开车门';
		if have('mybox') then
			return '我不能带着这个箱子一起进驾驶舱……', false;
		end
		if seen('mycat') then
			s = s..'，Barsik跳进车里。'
			move('mycat','inmycar');
		elseif not me()._know_where then
			return '不……我必须先找到Barsik！', false
		end
		if f == 'guarddlg' then
			return ' 嗯……我得想个办法……';
		end
		return cat(s, ' 好，是时候出发了……');
	end,
	exit = function(s, t)
		local s=''
		if seen('mycat') then
			s = 'Barsik第一个跳出车外。';
			move('mycat',t);
		end
		if ref(t) ~= from() then
			from().obj:del('mycar');
			move('mycar', t);
			return [[
车子勉勉强强地发动起来……经过漫长的车程，我终于得以关掉引擎并打开车门……]]..s;
		end
		return '不……我觉得好像忘了什么……'..s;
	end
};

mycar = obj {
	nam = '我的车',
	desc = {
	[1] = '在小屋前停着我的老旧丰田{皮卡}。',
	[2] = '停车场上有我的老旧{皮卡}。',
	[3] = '在检查站旁边停着我的{皮卡}。',
	[4] = '在墙角后面停着我的{皮卡}。',
	},
	dsc = function(s)
		local state
		if here() == forest then
			state = 1;
		elseif here() == village then
			state = 2;
		elseif here() == inst then
			state = 3;
		elseif here() == backwall then
			state = 4;
		end
		return s.desc[state];
	end,
	act = function(s)
		return walk('inmycar');
	end
};

iso = obj {
	nam = '绝缘胶带',
	inv = '一卷蓝色的绝缘胶带……',
	use = function(s, o)
		if o == 'trap' and not trap._iso then
			trap._iso = true;
			return '我用胶带将陷阱绝缘。';
		end
		if o == 'wire' then
			return '我为什么要这么做？反正我也穿不过铁丝网。何况我也没法把它绝缘——我会触电的！';
		end
	end
};

trap = obj {
	nam = '陷阱',
	dsc = '雪地里埋伏着一个铁{陷阱}。', -- !!!!
	tak = '该死的偷猎者！我要把陷阱拆走。',
	inv = function(s)
		if s._salo then
			return '大捕鼠夹，还是绝缘的！';
		end
		if s._iso then
			return '铁的，非常锋利，还用胶带绝缘了。';
		else
			return '铁的，非常锋利。';
		end
	end,
	use = function(s, o)
		if o == 'wire' and not wire._broken then 
			if not s._iso then
				return '陷阱是金属的，我会被电击，然后……就没有然后了……';
			end
			wire._broken = true;
			onwall.way:add('eside');
			return '我用陷阱夹住并切割铁丝网，如我所料，铁丝网被夹断了！';
		end
	end
};

deepforest = room {
	i = 0,
	nam = '森林深处',
	pic = 'gfx/deepforest.png',
	dsc = function(s)
		local st = '我到了森林深处……';
		if s._i == 1 then
			return st..'松树和云杉……没什么别的……';
		elseif s._i == 2 then
			return st..'美丽的白桦树——小心别迷了路……';
		elseif s._i == 3 then
			return st..'茂密的丛林……完全搞不清我是不是迷路了……';
		elseif s._i == 4 then
			return st..'美丽的湖泊……我是不是该回去了？';
		elseif s._i == 5 then
			s._trap = true;
			return st..'一些灌木丛……灌木丛……还是灌木丛……';
		else
			return st..'树桩……一根多么漂亮的树桩……';
		end
	end, 
	enter = function(s,f)
		if f == 'forest' then
			s._trap = false;
		end
		s._lasti = s._i;
		while (s._i == s._lasti) do
			s._i = rnd(6);
		end
		s.obj:del('trap');
		s.way:del('forest');
		if s._i == 5 and not inv():srch('trap') then
			s.obj:add('trap');
		end
		if s._i == 3 and s._trap then
			s.way:add('forest');
		end
		if f == 'forest' and inv():srch('trap') then
			return [[我已经在森林里散过步了谢谢。]], false;
		end
		if f == 'deepforest' then
			return '嗯……我们来瞧瞧……';
		end
		return [[走进这片茂密的森林，步行?
嗯……为什么不呢——毕竟这是我的工作……我得赶走偷猎者……]], true;
--Я пол часа бродил по лесу, когда наткнулся на капкан...
--Проклятые браконьеры! Я взял капкан с собой.]], false;
	end,
	way = {'deepforest'},
};

road = room {
	nam = '马路',
	enter = function()
		return '步行？还事饶了我罢……', false;
	end
};

forest = room {
	nam = '小屋前',
	pic = 'gfx/forest.png',
	dsc = [[
小屋前的一切被积雪覆盖着。野树林环绕着小屋。通往小镇的道路上也残存着积雪。]],
	way = { 'home', 'deepforest', 'road' },
	obj = { 'mycar' },
};

home = room {
	nam = '小屋',
	pic = function(s)
		if not seen('mycat') then
			return "gfx/house-empty.png"
		end
		return "gfx/house.png";
	end,
	dsc = [[
我在这间小屋里度过了10年。10年前我亲手盖的这座房子。屋内有些狭窄，但很舒适。]],
	obj = { 'fireplace', 'mytable', 'foto', 'mycat', 'gun', 
	vobj(1,'window', '小屋只有一扇{窗户}。'), 
	'mybed', 'mywear' },
	way = { 'forest' },
	act = function(s,o)
		if o == 1 then
			return '外面的一切都披上了一层雪白的颜色……';
		end
	end,
	exit = function()
		if not have('mywear') then
			return '外面很冷……不穿棉袄我可不出去。', false
		end
		if seen(mycat) then
			move('mycat','forest');
			return [[
当我离开小屋时，Barsik突然醒了，扑到我脚边。我抚摸着他的耳朵。“要跟我一起走吗？”
]]
		end
	end
};
---------------- here village begins
truck = obj {
	nam = '黑色高级车',
	dsc = '有辆茶色玻璃的{黑色高级车}停在商店旁边。',
	act = '嗯……其实是辆小货车……车体还装了甲，从车轮负载可以看出来……',
};

guydlg = dlg {
	pic = 'gfx/guy.png',
	nam = '和流浪汉的对话',
	dsc = '我朝他走去……他是一个戴着破帽子穿着破棉袄的矮个子——用匆忙的眼神回头看了看我。',
	obj = {
		[1] = phr('嗨！今儿真冷，是吧？', '确实……有点……'),
		[2] = phr('你为什么流落街头？', 
[[我在为博士学位而努力……写一篇物质结构方面的论文……但是……我的大脑累坏了……我试图平静下来，然后……我就在这儿了……]]),
		[3] = phr('你叫什么名字？', '爱德华……'),
		[4] = _phr('我刚才离开的时候，你身边有只猫……它去哪了？', '嗯……', 'pon(5)'),
		[5] = _phr('是的……一只小猫，一只普通的、在垃圾桶旁边闲逛的猫。', '所以那是你的猫么？嗯……', 'pon(6)');
		[6] = _phr('对……那是我的Barsik！快告诉我！', 
'……嗯……好像有个人把它带走了…… \n —— 我的背后传来一阵寒意……', 'pon(7)'),
		[7] = _phr('哪儿，他去哪了？', '抱歉，老兄，我没注意……', 'shopdlg:pon(4); pon(8);'),
		[8] = phr('好吧……没关系……', '……', 'pon(8); back()'),
	},
	exit = function()
		pon(1);
		return '他转身离开我，又开始在垃圾桶中翻找……';
	end
};

guy = obj {
	nam = '流浪汉',
	dsc = '一个{流浪汉}正在垃圾桶里翻找着什么。',
	act = function()
		return walk('guydlg');
	end,
	used = function(s, w)
		if w == 'money' then
			return [[
我走近他，拿出来一些钱给他……“我不需要其他人的钱……”他说。]];
		else
			return '他要这个干什么呢？';
		end
	end,
};

nomoney = function()
	pon(1,2,3,4,5);
	shopdlg:pon(2);
	return cat('这时我突然想起来，我身上压根没带钱，一点都没带……^',back());
end

ifmoney ='if not have("money") then return nomoney(); end; shopman._wantmoney = true; ';

dshells = obj {
	nam = '弹壳',
	dsc = function(s)
		-- Note for translators: 
		-- this block picks the appropriate plural form 
		-- for “shells” for a given numeral. Since English has 
		-- only 1 form, I commented it out. 
		-- Uncomment and use form-number combinations
		-- appropriate for your language 
		-- if here()._dshells > 4 then
			return '我脚下有'..here()._dshells..'枚猎枪{弹壳}……';
		-- else 
			-- return 'Under my feet there are '..here()._dshells..' empty shotgun {shells}...';
		-- end
	end,
	act = '这是我射击留下的弹壳……我不再需要它们了……';
};

function dropshells()
	if here() == deepforest then
		return;
	end
	if not here()._dshells then
		here()._dshells = 2;
	else
		here()._dshells = here()._dshells + 2;
	end
	here().obj:add('dshells');
end

shells = obj {
	nam = '子弹',
	inv = '猎枪子弹。我很少用到，通常是用来对付偷猎者的。',
	use = function(s, on)
		if on == 'gun' then
			if gun._loaded then
				return '已经装过弹了……';
			end
			if gun._loaded == false then
				gun._loaded = true;
				dropshells();
				return '我打开弹匣，抛出两枚弹壳，重新装入子弹。';
			end
			gun._loaded = true;
			return '我拿出两枚子弹，装入猎枪的双管……';
		end
	end
};

news = obj {
	nam = '报纸',
	inv = [[
最新报纸……“位于泰加林中新近建立的量子力学研究所强烈否认其与任何异常事件的联系”……嗯……]],
	used = function(s, w)
		if w == 'poroh' then
			if have('trut') then
				return '我已经有一个引信了。';
			end
			inv():add('trut');
			inv():del('poroh');
			return '我撕下一片报纸，倒上了火药……';
		end
	end,
};

hamb = obj {
	nam = '汉堡包',
	inv = function()
		inv():del('hamb');
		return '我吃了点零食。垃圾食品……';
	end
};

zerno = obj {
	nam = '谷物',
	inv = '就是一些荞麦，荞麦粒……',
};

shop2 = dlg {
	nam = 'buy',
	pic = 'gfx/shopbuy.png',
	obj = { 
	[1] = phr('猎枪子弹……我需要弹药……', '没问题……价格照旧', ifmoney..'inv():add("shells")'),
	[2] = phr('谷物……', '好……', ifmoney..'inv():add("zerno")'),
	[3] = phr('和一个汉堡包……', '行……', ifmoney..'inv():add("hamb")'),
	[4] = phr('新报纸……', '当然……', ifmoney..'inv():add("news")'),
	[5] = phr('一卷绝缘胶带……', '好的，这儿呢。', ifmoney..'inv():add("iso")'),
	[6] = phr('没别的了……', '如你所愿……', 'pon(6); back()'),
	[7] = _phr('我还需要梯子和一把钢丝钳……', '抱歉，我这儿没这些东西——弗拉基米尔摇了摇头'), 
	},
	exit = function(s)
		if have('news') then
			s.obj[4]:disable();
		end
	end
};

shopdlg = dlg {
	nam = '与售货员交谈',
	pic = 'gfx/shopman.png',
	dsc = '小眼睛用油腻的目光盯着我。',
	obj = {
	[1] = phr('你好，弗拉基米尔！近来可好？', '你好，'..me().nam..'……我这儿一般般……弗拉基米尔狡猾地笑了笑。', 'pon(2)'),
	[2] = _phr('我想买点东西……', '好的……我们来瞧瞧——您需要什么？', 'pon(2); return walk("shop2")'),
	[3] = phr('拜拜……', '耶……祝你好运！', 'pon(3); return back();'),
	[4] = _phr('刚才有一个人在这儿——他是谁？', '嗯？——弗拉基米尔的细眉毛微微扬起……','pon(5)'),
	[5] = _phr('由于某些缘故，他带走了我的猫……也许以为它是流浪猫……那个穿灰色外套的男人是谁？',
[[
Actually, he's some boss... - Vladimir scratches his unshaved chin. — In that new institute, which has been built in our backwoods a year ago...
 — Vladimir's pince-nez twitched as he spoke — he often comes to our shop, 
doesn't like crowds — those physicists — you know... Odd bunch, — Vladimir shrugged...]],'pon(6)'),
	[6] = _phr('Where is this institute located?', 
'Kilometer marker 127... But well, you know — Vladimir lowered his voice — there are rumours about his institute...', 'me()._know_where = true; inmycar.way:add("inst");pon(7)'),
	[7] = _phr('I\'m just going to get back my cat...', 'Take care... If I was in you shoes... — Vladimir shakes his head. — By the way, I think his name is Belin. I\'ve seen his credit card... Even though, as you know, I don\'t accept them — Vladimir moved his lips, his monocle stirred slyly'),
	},
};

shopman = obj {
	nam = 'salesman',
	dsc = 'There\'s a {salesman} behind the counter. His wide face with stubble is complemented by a monocle.',
	act = function()
		return walk('shopdlg');
	end
};

shop = room {
	nam = 'shop',
	pic = 'gfx/inshop.png',
	enter = function(s, f)
		if village.obj:look('truck') then
			village.obj:del('truck');
			village.obj:del('mycat');
			return [[
When I entered the shop, I almost ran into an unpleasant man in a grey coat and broad-brimmed hat... He apologized in a sort of hissing voice and feighned raising his hat... White teeth flashed from under the brim... When I reached the counter, I heard the engine starting.]];
		end
	end, 
	act = function(s,w)
		if w == 1 then
			return 'There\'s only my car left in the parking lot.';
		end
	end,
	dsc = [[
The store is somewhat unusual... Here you can find ironware, food, even ammunition... No wonder, since it's the only store in a 100 km area...]],
	way = { 'village' },
	obj = {'shopman',vobj(1, 'окно', 'Through the {window} the parking lot is visible.') },
	exit = function(s, t)
		if t ~= 'village' then
			return;
		end
		if shopman._wantmoney then
			return 'I was going to step outside, when I was stopped by Vlsdimir\'s quiet semicough... Of course, I forgot to pay...', false;
		end
		if not have('news') then
			shop2.obj[4]:disable();
			inv():add('news');
			return 'I was going to leave, when Vladimir\'s voice stopped me. — Take the fresh newspaper — it\'s free for you. I walk back, take the paper and leave.';
		end
	end
};

carbox = obj {
	_num = 0,
	nam = function(s)
		if s._num > 1 then
			return 'boxes in the car';
		else
			return 'a box in the car';
		end
	end,
	act = function(s)
		if inv():srch('mybox') then
			return 'I\'ve already got a box in my hands...';
		end
		s._num = s._num - 1;
		if s._num == 0 then
			mycar.obj:del('carbox');
		end
		take('mybox');
		return 'I took a box from the car.';
	end,
	dsc = function(s)
		if s._num == 0 then
			return;
		elseif s._num == 1 then
			return 'There is one {box} in the cargo body of my car.';
		-- Again not needed, since "boxes" stays the same for all numerals
		-- elseif s._num < 5 then
		--	return 'There are '..tostring(s._num)..' {boxes} in the cargo body of my car.';
		else	
			return 'There are '..tostring(s._num)..' {boxes} in the cargo body of my car..';
		end
	end,
};

mybox = obj {
	nam = 'a box',
	inv = 'I am holding a wooden box... A soundly built thing! Might come in handy.',
	use = function(s, o)
		if o == 'boxes' then
			inv():del('mybox');
			return 'I put the box back...';
		end
		if o == 'mycar' then
			inv():del('mybox');
			mycar.obj:add('carbox');
			carbox._num = carbox._num + 1;
			return 'I put the box in the cargo body of my car...';
		end
		if o == 'ewall' or o == 'wboxes' then
			if not cam._broken then
				return 'The camera won\'t let me...';
			end
			if wboxes._num > 7 then
				return "It's enough I think..."
			end
			inv():del('mybox');
			ewall.obj:add('wboxes');
			wboxes._num = wboxes._num + 1;
			if wboxes._num > 1 then
				return 'I put another box on top of the previous one...';
			end
			return 'I put the box next to the wall...';
		end
	end
};

boxes = obj {
	nam = 'ящики',
	desc = {
		[1] = 'Near the parking lot there are many empty wooden {boxes} that once held tins.',
	},
	dsc = function(s)
		local state = 1;
		return s.desc[state];
	end,
	act = function(s, t)
		if carbox._num >= 5 then
			return 'Maybe I\'ve got enough boxes already?...';
		end
		if inv():srch('mybox') then
			return 'I\'m holding one box already...';
		end
		take('mybox');
		return 'I took a box.';
	end,
};

village = room {
	nam = 'parking lot in front of the store',
	dsc = 'A familiar place in front of the store. The parking lot. All covered with snow...',
	pic = 'gfx/shop.png',
	act = function(s, w)
		if w == 1 then
			return 'Ordinary bins... White snow covers the garbage...';
		end	
	end,
	exit = function(s, t)
		if t == 'shop' and seen('mycat') then
			return 'I called Barsik, but he was too busy with the dumpster... OK, it won\'t take long...';
		end
	end,
	enter = function(s, f)
		if ewall:srch('wboxes') and wboxes._num == 1 then
			ewall.obj:del('wboxes');
			ewall._stolen = true;
			wboxes._num = 0;
		end
		if f == 'shop' and not s._ogh then
			s._ogh = true;
			set_music("mus/revel.s3m");
			guydlg:pon(4);
			guydlg:poff(8);
			return 'I glanced over the parking lot and called — Barsik! Barsik! — Where did my cat disappear?';
		end
	end,
	way = { 'road', 'shop' },
	obj = { 'truck', vobj(1,'bins', 'Rusty dumpster {bins} are covered with snow.'), 'guy','boxes' },
};
----------- trying to go over wall
function guardreact()
	pon(7);
	if inst:srch('mycar') then
		inst.obj:del('mycar');
		inmycar.way:add('backwall');
		inst.way:add('backwall');
		return cat([[Four people with submachine guns escorted me to my car. I had to start the engine and drive away from the institute. I drove a dozen kilometers before the military jeep with the seeing-off guards disappeared from the rear-view mirror... ]], walk('inmycar'));
	end
	return cat([[Four armed people throw me out of the check-point.^^]], walk('inst'));
end

guarddlg = dlg {
	nam = 'guard',
	pic = 'gfx/guard.png',
	dsc = [[I can see the angular face of the guard. His eyes look archly, but corners of his mouth are turned down, discouraging any conversation...]],
	obj = {
	[1] = phr('One of the institute staff took my cat by mistake — I need to get in.','— Show the pass...', 'poff(2); pon(3);'),
	[2] = phr('I forgot my pass — may I come in?','— No...', 'poff(1); pon(3);'),
	[3] = _phr('Do you know Belin? He\'s got my cat — I need to take it...', '— No pass?', 'pon(4)'),
	[4] = _phr('I just came to get back my cat! Give me Belin\'s number.', 
[[The guard's eyes change their color. The corners of his lips move up. — Mister, as I understand you have no pass. Walk out of here while you still can...]], 'pon(5, 6)'),
	[5] = _phr('I\'m gonna hit your face...', 'The guard\'s hand moves to his submachine gun. ', 'poff(6); return guardreact();'), 
	[6] = _phr('OK, I\'m leaving...', '— Don\'t hurry, — the guard no longer hides his smile — I don\'t like you...','poff(5); return guardreact()'),
	[7] = _phr('Now I\'m gonna shotgun you all...', 'This time the guard doesn\'t even answer. His bloodshot eyes speak louder than any words.','return guardreact()'),
	},
};
guard = obj {
	nam = 'guards',
	dsc = [[
There are {guards} in the kiosk. Looks like they are armed with Kalashnikov submachine guns.
]],
	act = function(s)
		return walk('guarddlg');
	end,
};
kpp = room {
	nam = 'checkpoint',
	pic = 'gfx/kpp.png',
	dsc = [[The checkpoint leaves no doubt that strangers are not welcome in the institute. Lift gate. Latticed kiosk. And silence.
]],
	obj = { 'guard' },
	way = { 'inst' }
};
inst = room {
	nam = 'institute',
	pic = 'gfx/inst.png',
	dsc = [[
The building rises over the empty field of snow. Its sinister outline looks more like a jail rather than a research institute. There are railways  behind the building. ]],
	act = function(s, w)
		if w == 1 then  
			return 'The wall is 5 meters high. Moreover, there is barbed wire on its top, and I suppose it\'s alive...';
		end
		if w == 2 then
			return 'Yes, Vladimir was right... It\'s some sort of a military headquaters...';
		end
		if w == 3 then	
			return 'Yes — this looks like the van in which the man in gray coat took away my Barsik.';
		end
	end,
	used = function(s, w, b)
		if b == 'mybox' and w == 1 then
			return 'I think the guards will notice me at once.';
		end
		if w == 2 and b == 'gun' and gun._loaded then
			return 'I\'d get canned for that... Or just beaten... The guards are quite near.';
		end
		if w == 3 and b == 'gun' and gun._loaded then
			return 'I need the cat, not destruction...';
		end
	end,
	obj = {vobj(1, 'wall', 'The institute building is surrounded by a heavy concrete {wall}. There\'s a checkpoint at the centre.'),
		vobj(2, 'cameras', 'Survelliance {cameras} watch the area from the towers.'),
		vobj(3, 'van', 'Behind the gate I can see the black {van}.')},
	way = { 'road', 'kpp' },
	exit = function(s, t)
		if have('mybox') and t ~= 'inmycar' then
			return 'I won\'t walk around with the box...', false;
		end
	end,
};

cam = obj {
	nam = 'surveillance camera',
	dsc = function(s)
		if not s._broken then
			return 'One of the surveillance {cameras} isn\'t far from here. I press myself to the wall to stay unnoticed.';
		end
		return 'The shards of the surveillance {camera} are lying around. They\'re already dusted by snow.';
	end,
	act = function(s)
		if not s._broken then
			return 'Damned camera...';
		end
		return 'Ha... You\'ve had it coming, damned mechanism, hadn\'t you? I wonder when will the guards come...';
	end,
};

wire = obj {
	nam = 'barbed wire',
	dsc = function(s)
		if s._broken then
			return 'I can see the shreds of barbed {wire}.';
		end
		return 'I can see barbed {wire}.';
	end,
	act = function(s)
		if s._broken then
			return 'Now it\'s safe! I can get inside...';
		end
		return 'What if it\'s alive?';
	end,
};

onwall = room {
	pic = 'gfx/onwall.png',
	nam = 'on the wall',
	dsc = 'I am standing atop the boxes, my head is on the wall top level. It\'s cold.',
	enter = function(s)
		if have('mybox') then
			return 'I cannot climb the wall with a box in my hands.', false;
		end
		if wboxes._num < 5 then
			return 'I try to climb the wall... But it\'s still to high...',false;
		end
		return 'I climb the wall over the boxes.';
	end,
	obj = { 'wire' },
	way = { 'backwall' }
};

wboxes = obj {
	_num = 0,
	nam = function(s)
		if (s._num > 1) then
			return 'boxes by the wall';
		end
		return 'a box by the wall';
	end,
	act = function(s)
		return walk('onwall');
	end,
	dsc = function(s)
		if s._num == 0 then
			return;
		elseif s._num == 1 then
			return 'There is one {box} by the wall.';
		-- And again only one plural form
		-- elseif s._num < 5 then
		--	return 'There are '..tostring(s._num)..' {boxes}, stacked by the wall.';
		else	
			return 'There are '..tostring(s._num)..' {boxes}, stacked by the wall.';
		end
	end,
};

ewall = obj {
	nam = 'wall',
	dsc = 'Here {the wall} is 4 meters high. The howling snowdrift tosses snowflakes to its bottom.',
	act = function(s)
		if not s._ladder then
			s._ladder = true;
			shop2:pon(7);
		end
		return 'Too high... I\'ll need a ladder.';
	end
};

backwall = room {
	pic = 'gfx/instback.png',
	enter = function(s, f)
		local st = '';
		if ewall._stolen then
			ewall._stolen = false;
			st = 'Oho!!! Somebody has stolen my box!!!';
		end
		if f == 'inmycar'  then
			return 'Great... Looks like I managed to get here unnoticed...'..' '..st;
		end
		if f == 'onwall' then
			return
		end
		return 'Rambling through the snowfield I got to the back wall.'..' '..st;
	end,
	nam = 'eastern wall of the institute',
	dsc = 'I am at the back side of the institute.',
	obj = { 'ewall', 'cam' },
	way = { 'inst', },
	exit = function(s, t)
		if have('mybox') and t ~= 'inmycar' then
			return 'I won\'t walk around with the box in my hands...', false;
		end
	end,
};