--enable(x,demopocket); remove(x, demopocket);
--put(x, demopocket);

	demostatus = stat {
	nam = function(s)
	if _start_demo_chup == true then
	pn('^Статистика:')
	p('^Жизнь:  ', _life)
	if _life == 30 then
	pn(img('demo/chupakabra/HealthBar_1.png'));
	elseif _life < 30 and _life >= 20 then
	pn(img('demo/chupakabra/HealthBar_2.png'));
	elseif _life < 20 and _life >= 10 then
	pn(img('demo/chupakabra/HealthBar_3.png'));
	elseif _life < 10 and _life > 0 then
	pn(img('demo/chupakabra/HealthBar_2.png'));end;
	p ('^Патроны: ^')
	pn(img('demo/chupakabra/ptron_ps.png'), img('blank:20x45'), _patron)
	pn(img('demo/chupakabra/ptron_dv.png'),img('blank:20x60'), _patron1)
	p ('^Карма: ', _karma)
	end;
	end
	};

demopocket = menu {
	State = false,
	nam = function(s)
		if s.State  and _start_demo_chup == true then
			return txtu('^^Инвентарь^'..img('demo/chupakabra/fi_1.png'));
		end 
		if _start_demo_chup == true then
		return '^^Инвентарь^'..img('demo/chupakabra/fi_1.png');end;
	end,
	gen4 = function(s)
		if s.State then
			s:enable_all();
		else
			s:disable_all();
		end 
	end,
	menu = function(s)
		if s.State then
			s.State = false;
		else
			s.State = true;
		end 
		s:gen4();
	end,
};

	demostat = menu {
	State = false,
	nam = function(s)
		if s.State  and _global_demostat == true then
	return
	pn(img(prtr_n)), pr [[^]], pr(ns_n), pr [[^]];
		end; 
		if _global_demostat == true then
	return
	pn(img(prtr_n)), pr [[^]], pr(ns_n), pr [[^]];
	end;
	end,
	gen = function(s)
		if s.State then
			s:enable_all();
		else
			s:disable_all();
		end 
	end,
	menu = function(s)
		if s.State then
			s.State = false;
		else
			s.State = true;
		end 
		s:gen();
	end,
};

function statistika()
	 put(sp_lih, demostat);
	if _portret == 1 then
	prtr_n = 'demo/krys/Ports_1.png';
	elseif _portret == 2 then
	prtr_n = 'demo/krys/Ports_2.png';
	elseif _portret == 3 then
	prtr_n = 'demo/krys/Ports_4.png';
	elseif _portret == 4 then
	prtr_n = 'demo/krys/Ports_4.png';
	elseif _portret == 5 then
	prtr_n = 'demo/krys/Ports_3.png';
	end;
	if _sp_bron == true then
	put(sp_bron, demostat);end;
	if _sp_vgr == true then
	put(sp_vgr, demostat);end;
	if _sp_dar == true then
	put(sp_dar, demostat);end;
	if _sp_mag == true then
	put(sp_mag, demostat);end;
	if _sp_ten == true then
	put(sp_ten, demostat);end;
	if _sp_chut == true then
	put(sp_chut, demostat);end;
	if _sp_mor == true then
	put(sp_mor, demostat);end;
	if _sp_meh == true then
	put(sp_meh, demostat);end;
end;

function statistika_n()
	 _status = false;
	enable(sp_lih, demostat); 
	remove(sp_lih, demostat);
	if _sp_bron == true then
	enable(sp_bron, demostat); 
	remove(sp_bron, demostat);
	_sp_bron = false;end;
	if _sp_vgr == true then
	enable(sp_vgr, demostat); 
	remove(sp_vgr, demostat);
	_sp_vgr = false;end;
	if _sp_dar == true then
	enable(sp_dar, demostat); 
	remove(sp_dar, demostat);
	_sp_dar = false;end;
	if _sp_mag == true then
	enable(sp_mag, demostat); 
	remove(sp_mag, demostat);
	_sp_mag = false;end;
	if _sp_ten == true then
	enable(sp_ten, demostat); 
	remove(sp_ten, demostat);
	_sp_ten = false;end;
	if _sp_chut == true then
	enable(sp_chut, demostat);
	remove(sp_chut, demostat);
	_sp_chut = false;end;
	if _sp_mor == true then
	enable(sp_mor, demostat); 
	remove(sp_mor, demostat);
	_sp_mor = false;end;
	if _sp_meh == true then
	enable(sp_meh, demostat); 
	remove(sp_meh, demostat);
	_sp_meh = false;end;
end;


to_demo = room {
	enter = function()
	set_music('mus/Menu_Theme.ogg');
	end,
	nam = "Демоверсии",
	pic = 'gfx/frame.png;demo/krys/fon_2.png@10,10;demo/chupakabra/ris_2.png@410,10;demo/wizardry/Bane_002.png@200,160',
	dsc = [[^^Несколько проектов, находящихся в стадии разработки. Для информации и просмотра демоверсии - кликните мышкой на изображении обложки. 
	^^{titult|Вернуться на титульную страницу.}]],
	click = function(s, x, y)
	if x > 400 and x < 520 and y > 2 and y < 146 then
		pn (txtu('«Тропа,`где`умирают`легенды»'));
		pr[[^Интерактивный психологический триллер с элементами мистики и шутера. ^Посвящается тем, кто любит быть там, где находиться вовсе не следует.
		^^{demo_chup|Играть в демоверсию.}]];
	elseif x > 1 and x < 183 and y > 1 and y < 178 then
		pn (txtu('«Приманка`для`крысака»'));
		pr [[^Текстовый квест-приключение с элементами РПГ.^
	Действие происходит на Пангее через пару тысяч лет после событий, описанных в игре «Путь Гоблина».
		^^{demo_krys|Играть в демоверсию.}]];
	elseif x > 190 and x < 420 and y > 150 and y < 297 then
		pn (txtu('«Кузница`вселенной»'));
		pr [[^Псевдо-ремейк - адаптация к текстовому формату 6 игры из серии Wizardry - «Bane of the Cosmic Forge».
		^^{demo_wizardri|Играть в демоверсию.}]];end;
	end,
	obj = {
		xact('titult', code[[walk(titul);]]),
		xact('demo_chup', code[[walk(to_chup);]]),
		xact('demo_krys', code[[walk(to_krys);]]),
		xact('demo_wizardri', code[[walk(to_wizardri);]]),
	},
	hideinv = true,
};

navyk = obj {
	nam = function ()
	pr('Природные Навыки:^');
	p('Сила:  ', sila); 
	p ('^Разум: ', razum);
	p ('^Скорость: ', skor);
	p ('^Удача: ', luck);
	end;
	inv = function ()
	pr (txtem([[Природные навыки - зто то, что дает нам крысакам возможность жить. Кто-то сильнее, кто-то быстрее, кто-то умнее, а кто-то удачливее. Но главное, что именно мы настоящие хозяева Пангеи. Мы! Великие Крысаки!]]));
	end;
	use = 'Не знаю как можно применить мои навыки здесь...',
	};

sp_lih = obj {
	nam = '^Жажда Желтого Камня';
	disp = '^Жажда Желтого Камня '..img('demo/krys/SP_8.gif'),
	inv = function ()
	pr (txtem([[Эта способность заставляет любого крысака при виде желтого камня впадать в ступор. От жажды, словно от шкуры нельзя отказаться, с ней рождается каждый представитель прибрежного народа. Почему и откуда у крысаков существует столь странная способность - неизвестно. Некоторым она нравится, другие считают ее проклятьем.]]));
	end;
	use = 'Тут желтым камнем не пахнет.',
};

sp_bron = obj {
	nam = '^Шкура Стропса';
	disp = '^Шкура Стропса '..img('demo/krys/SP_3.gif'),
	inv = function ()
	pr (txtem([[Не секрет, что дикие стропсы практически не уязвимы из-за своей прочной шкуры. Этой способностью наделены немногие крысаки. Тем кому почастливилось родиться со столь прочной шкурой, говорят не страшны даже выстрелы из древних штуковин.]]));
	end;
	use = 'Не знаю как можно применить мои способности здесь...',
};

sp_vgr = obj {
	nam = '^Стремительный Вгрыз';
	disp = '^Стремительный Вгрыз '..img('demo/krys/SP_4.gif'),
	inv = function ()
	pr (txtem([[Уникальная способность некоторых крысаков наносить единственный, но столь мощный и молниеносный укус, что как правило жертва не успевает даже осознать, что или кто ее убило. Наделенные подобным даром пользуются уважением среди своих соплеменников, но при этом почему-то всегда оказываются один на один с врагами. Менее храбрые крысаки чаще всего просто исчезают с поля сражения.]]));
	end;
	use = 'Не знаю как можно применить мои способности здесь...',
};

sp_dar = obj {
	nam = '^Потерянный Дар';
	disp = '^Потерянный Дар '..img('demo/krys/SP_9.gif'),
	inv = function ()
	pr (txtem([[Одна из самых непонятных и как считают многие крысаки, ненужных способностей прибрежного народа. Странный дар, помогающий понимать давно потерянные языки, навыки, умения и прочие "достояния", ушедшей в прошлое Пангеи. Как сказал мудрейший Зубохват - "Если способность не помогает найти больше, много больше желтого камня - она совершенно бесполезна".]]));
	end;
	use = 'Не знаю как можно применить мои способности здесь...',
};

sp_mag = obj {
	nam = '^Древняя Магия';
	disp = '^Древняя Магия '..img('demo/krys/SP_6.gif'),
	inv = function ()
	pr (txtem([[Многие считают, что настоящая шаманская магия недоступна дикарям с Побережья. На самом деле это не так. Не так часто, как среди других существ, но и среди крысаков рождаются те, кто чувствует и способен использовать древнюю энергию. Особым уважением среди соплеменников эти "странные личности" обычно не пользуются. Да и жизнь их не назовешь простой. Им приходиться самим учится использовать различные магические силы и записывать способы их применения в специальные свитки.]]));
	end;
	use = 'Не знаю как можно применить мои способности здесь...',
};

sp_ten = obj {
	nam = '^Теневой Фокус';
	disp = '^Теневой Фокус '..img('demo/krys/SP_2.gif'),
	inv = function ()
	pr (txtem([[Уникальная способность крысаков исчезать в любом месте и среди любого количества врагов (или друзей). Некоторые недалекие существа считают, что это особая магия. На самом деле это умение передвигаться так молниеносно, что заметить движение крысака практически невозможно.]]));
	end;
	use = 'Не знаю как можно применить мои способности здесь...',
};

sp_chut = obj {
	nam = '^Сверхчутье';
	disp = '^Сверхчутье '..img('demo/krys/SP_1.gif'),
	inv = function ()
	pr (txtem([[Загадочная способность, которая наделяет особо быстрых крысаков, словно второй удачей. Те кому посчастливилось родиться со сверхчутьем, удивительным образом умудряются чуять ловушки, западни, предвосхищать действия врагов и находить тайники там, где бы казалось и быть ничего не может.]]));
	end;
	use = 'Не знаю как можно применить мои способности здесь...',
};

sp_mor = obj {
	nam = '^Морок';
	disp = '^Морок '..img('demo/krys/SP_7.gif'),
	inv = function ()
	pr (txtem([[Способность особо удачливых крысаков превращаться в различных существ и чудищ. Очень впечетляюще смотрится, например, обескураженный враг, увидевший на поле боя кошмарного трутня или неузвимого стропса. Единственным недостатком этого дара пожалуй лишь то, что не все силы и особенности зверюг доступны обернувшемуся крысаку.]]));
	end;
	use = 'Не знаю как можно применить мои способности здесь...',
};

sp_meh = obj {
	nam = '^Штукомастер';
	disp = '^Штукомастер '..img('demo/krys/SP_5.gif'),
	inv = function ()
	pr (txtem([[Странное занятие некоторых крысаков - собирать непонятные штуковины и артефакты прошлого мира Пангеи. Но само умение вовсе не только в сборе странных вещичек - способность помогает правильно соединять эти штуковины и читать старые схемы и чертежи.]]));
	end;
	use = 'Не знаю как можно применить мои способности здесь...',
};


to_krys = xroom {
	enter = function()
	theme.gfx.cursor('demo/krys/cursor.png', 'demo/krys/cursor-use.png', nil, nil);
	if _krys == 1 or _krys == 2 or _krys == 3 then
	set_music('mus/Menu_Theme.ogg');
	else
	set_music('demo/krys/tema.ogg');
	end;
		end;
	nam = '',
	pic = function()
	if _finisch_krys == true then
	return 'demo/krys/fon12.png';
	elseif _krys == 6 then
	return 'demo/krys/fon12.png';
	elseif _krys == 5 then
	return 'demo/krys/fon13.png';
	elseif _krys == 4 and _vopros == 3 then
	return 'demo/krys/fon11.png';
	elseif _krys == 4 then
	return 'gfx/prolog.png';
	elseif _krys == 3 then
	return 'demo/krys/ramka1.png';
	elseif _krys == 2 then
	kr_fon = 'demo/krys/ramka.png;';
	if sex == 1 then kr_sex = 'demo/krys/GUI_10.png@c122,236;' elseif sex == 2 then kr_sex = 'demo/krys/GUI_11.png@c122,236;' else kr_sex = '';end;
	if _portret == 1 then kr_port = 'demo/krys/Port_1.png@c100,145;' elseif _portret == 2 then kr_port = 'demo/krys/Port_3.png@c100,145;' elseif _portret == 3 then kr_port = 'demo/krys/Port_5.png@c100,145;' elseif _portret == 4 then kr_port = 'demo/krys/Port_6.png@c100,145;' elseif _portret == 5 then kr_port = 'demo/krys/Port_4.png@c100,145;'; else kr_port = '';end;
	if (sila >= 0 and sila <= 10) then kr_sila = 'demo/krys/'..sila..'.gif@c570,110;' end;
	if (skor >= 0 and skor <= 10) then kr_skor = 'demo/krys/'..skor..'.gif@c570,245;' end;
	if (razum >= 0 and razum <= 10) then kr_razum = 'demo/krys/'..razum..'.gif@c570,175;' end;
	if (luck >= 0 and luck <= 10) then kr_luck = 'demo/krys/'..luck..'.gif@c570,310;' end;
	if _spos == 1 then kr_spos = 'demo/krys/GUI_1.png@c170,328;' elseif _spos == 2 then kr_spos = 'demo/krys/GUI_8.png@c170,328;' elseif _spos == 3 then kr_spos = 'demo/krys/GUI_9.png@c170,328;' elseif _spos == 4 then kr_spos = 'demo/krys/GUI_12.png@c170,328;'  elseif _spos == 5 then kr_spos = 'demo/krys/GUI_13.png@c170,328;'  elseif _spos == 6 then kr_spos = 'demo/krys/GUI_14.png@c170,328;'  elseif _spos == 7 then kr_spos = 'demo/krys/GUI_15.png@c170,328;'  elseif _spos == 8 then kr_spos = 'demo/krys/GUI_16.png@c170,328;';else kr_spos = '';end;
	if (_och >= 0 and _och <= 10) then sw_och = 'demo/krys/'.._och..'.gif@c306,382;' end;
	if sila <=2 then minus = 'demo/krys/GUI_7.png@c265,115;' else minus = 'demo/krys/GUI_4.png@c265,115;' end;
	if sila == 8 or _och == 0 then plus = 'demo/krys/GUI_6.png@c510,115;' else plus = 'demo/krys/GUI_5.png@c510,115;' end;
	if razum <=2 then minus1 = 'demo/krys/GUI_7.png@c265,180;' else minus1 = 'demo/krys/GUI_4.png@c265,180;' end;
	if razum == 8 or _och == 0 then plus1 = 'demo/krys/GUI_6.png@c510,180;' else plus1 = 'demo/krys/GUI_5.png@c510,180;' end;
	if skor <=4 then minus2 = 'demo/krys/GUI_7.png@c265,245;' else minus2 = 'demo/krys/GUI_4.png@c265,245;' end;
	if skor == 10 or _och == 0 then plus2 = 'demo/krys/GUI_6.png@c510,245;' else plus2 = 'demo/krys/GUI_5.png@c510,245;' end;
	if luck <=4 then minus3 = 'demo/krys/GUI_7.png@c265,310;' else minus3 = 'demo/krys/GUI_4.png@c265,310;' end;
	if luck == 10 or _och == 0 then plus3 = 'demo/krys/GUI_6.png@c510,310;' else plus3 = 'demo/krys/GUI_5.png@c510,310;' end;
	pr (kr_fon,kr_sex,kr_port,kr_sila,kr_skor,kr_luck,kr_razum,kr_spos,sw_och,plus,minus,plus1,minus1,plus2,minus2,plus3,minus3);
	elseif _krys == 1 then
	return 'demo/krys/fon11.png';
	else
	return 'demo/krys/fon_1.png';end;
	end;
	dsc = function()
	if _finisch_krys == true then
	pr [[{krys_ret|Выйти из демоверсии}]];
	elseif _krys == 6 then
	pr [[Отряхнув пыль с усов и вдохнув резкий воздух Наднорья, вы настороженно прислушались. Сразу вспомнились сказки о том, что когда-то давно в Наднорье жили разные чудища. А еще снег не таял и был желтый и на вкус как дробленый камень. Непонятно только зачем сегодня вы решили вспомнить эти глупости? Сказки хороши для маленьких крысят.^Легкий шорох заставляет вас забыть о "филосовских" мыслях и прислушаться. Так и есть! Что-то живое движется за сугробом. Бежать? Затаиться и ждать?^^]];
	pr [[{krys_ret|Выйти из демоверсии}]];
	elseif _krys == 5 then
	if read.text ~= '' then
		p "^^Великолепно, "
		p (read.text,"!")
		ns_n = read.text;
	pr (txtc([[^^Пора в {next_kr3|путь}!]]));
	else
		pr (txtc([[^Осталось выбрать {xwalk(read)|имя} персонажа.]]));
	end;
	pr [[^^{krys_ret|Выйти из демоверсии}]];
	elseif _krys == 4 then
	if _past == true then
	if _vopros == 3 then
	pr[[Спасибо за ответы. {propusk|Добро пожаловать} в мир Великих холодов и ... крысаков.^^]];
	elseif _vopros == 2 then
	pr [[Бронтозябра - это:^^
	1. {past_bront|Понятия не имею, что или кто это.}^^
	2. {past_bront|Бард гоблинский "доморощенный" об этой зверюге пел.}^^
	3. {past_bront|Его рог украшает коллекцию Мордоворота Третьего, бугая огров.}^^
	4. {past_bront|Бронтя слопал всю рыбу и удрал. Неблагодарное животное.}^^
	5. {past_bront|У ведьмы на болотах остался Бронтя. Уговор - есть уговор.}^^
	6. {past_bront|Ушел зябра "на родину". Вместе с Санитаром.}^^
	7. {past_bront|Пропал зверь. Сгинул вместе с уграми, ведьмой и прочими сказками Пангеи.}^^]];
	elseif _vopros == 1 then
	pr[[Вариант финала, выбранный вашим персонажем гоблином:^^
	{past_final|1. Помер где-то гоблин. Не помню где.}^^
	{past_final|2. Отправился в мир Легенд с уграми и Болотной Ведьмой.}^^
	{past_final|3. Улетел на кринолете с три-кренами в поисках нового дома.}^^
	{past_final|4. Добыл Радужный камень, но Небесная пушка почему-то промазала, шарахнув по Астероиду.}^^
	{past_final|5. Добыл Радужный камень и шаманы из Небесной пушки сбили Астероид.}^^
	{past_final|6. Ушел вместе с Санитаром в прошлое Пангеи - ледяную Гондвану.}^^]];
	else
	pr[[Выберете имя вашего персонажа из "Пути Гоблина". ^{past_name|Бугор}, {past_name|Грр'Уч} или {past_name|Рапс}.^^]];end;
	else
	pr[[Если вы играли в "Путь Гоблина" - ответьте на несколько вопросов. Ответы будут учитываться и косвенно влиять на сюжет "Приманки для Крысака". Это вовсе необязательно, поэтому можно пропустить вопросы и начать игру.^^{otvet|Ответить на вопросы.}^^{propusk|Пропустить.}^^]];end;
	pr [[{krys_ret|Выйти из демоверсии}]];
	elseif _krys == 3 then
	pr[[Перед вами три персонажа. У каждого из них есть своя особая способность, свои предпочтения в навыках. Чтобы получить полную информацию о том или ином крысаке, кликните курсором на его портрет. Если вам не подходят готовые герои - перейдите в {dalee1|меню создания персонажа}.]];
	elseif _krys == 2 then
	if _panel == true then
	pr[[Чтобы начать игру необходимо {sbross|закончить создание} персонажа или {next_kr1|выбрать готового}.]];end;
	if not _panel then
	pr[[Перед вами меню создания персонажа. Для получения информации о содержании панели - кликните по ней курсором.]];
	pr [[^^{next_kr|Дальше}^^
	{next_kr1|Выбрать персонажа}^^
	{krys_ret|Выйти из демоверсии}]];end;
	elseif _krys == 1 then
	pr [[^^{next_kr2|Создать персонажа}^^
	{next_kr1|Выбрать персонажа}^^
	{krys_ret|Выйти из демоверсии}]];
	else
	pr [[^Эта книга-игра - текстовый квест-приключение с элементами РПГ.^^
	Действие происходит на Пангее через пару тысяч лет после событий, описанных в игре «Путь Гоблина».^^
	{dalee|Дальше}^^
	{krys_ret|Выйти из демоверсии}]];end;
	end;
	click = function(s, x, y)
	if _krys == 2 then
	if x > 108 and x < 533 and y > 1 and y < 64 then
	return 'Создание персонажа включает в себя выбор портрета, пола, природных навыков и особых способностей персонажа. Кликнув на пустую панель, вы получите информацию о ее принадлежности и необходимым требованиям.';
	elseif x > 243 and x < 274 and y > 93 and y < 129 and sila <=2 then
	return 'Сила не может быть меньше 2.';
	elseif x > 243 and x < 274 and y > 93 and y < 129 and sila ==6 and _sp_bron == true then
	return 'Сила не может быть меньше 6. У персонажа способность "Шкура Стропса".';
	elseif x > 243 and x < 274 and y > 93 and y < 129 and sila ==8 and _sp_vgr == true then
	return 'Сила не может быть меньше 8. У персонажа способность "Стремительный Вгрыз".';
	elseif x > 243 and x < 274 and y > 93 and y < 129 then
	sila = sila - 1; _och = _och +1; walk(to_krys);
	elseif x > 495 and x < 526 and y > 93 and y < 129 and sila == 8 then
	return 'Сила не может быть больше 8.';
	elseif x > 495 and x < 526 and y > 93 and y < 129 and _och > 0 then
	sila = sila + 1; _och = _och - 1; walk(to_krys);
	elseif x > 495 and x < 526 and y > 93 and y < 129 then
	return 'Больше нет свободных очков.';
	elseif x > 243 and x < 274 and y > 160 and y < 193 and razum <=2 then
	return 'Разум не может быть меньше 2.';
	elseif x > 243 and x < 274 and y > 160 and y < 193 and razum ==6 and _sp_dar == true then
	return 'Разум не может быть меньше 6. У персонажа способность "Потерянный Дар".';
	elseif x > 243 and x < 274 and y > 160 and y < 193 and razum ==8 and _sp_mag == true then
	return 'Разум не может быть меньше 8. У персонажа способность "Древняя Магия".';
	elseif x > 243 and x < 274 and y > 160 and y < 193 then
	razum = razum - 1; _och = _och +1; walk(to_krys);
	elseif x > 495 and x < 526 and y > 160 and y < 195 and razum == 8 then
	return 'Разум не может быть больше 8.';
	elseif x > 495 and x < 526 and y > 160 and y < 195 and _och > 0 then
	razum = razum + 1; _och = _och - 1; walk(to_krys);
	elseif x > 495 and x < 526 and y > 160 and y < 195 then
	return 'Больше нет свободных очков.';
	elseif x > 243 and x < 274 and y > 226 and y < 260 and skor <=4 then
	return 'Скорость не может быть меньше 4.';
	elseif x > 243 and x < 274 and y > 226 and y < 260 and skor ==6 and _sp_ten == true then
	return 'Скорость не может быть меньше 6. У персонажа способность "Теневой Фокус".';
	elseif x > 243 and x < 274 and y > 226 and y < 260 and skor ==8 and _sp_chut == true then
	return 'Скорость не может быть меньше 8. У персонажа способность "Сверхчутье".';
	elseif x > 243 and x < 274 and y > 226 and y < 260 then
	skor = skor - 1; _och = _och +1; walk(to_krys);
	elseif x > 495 and x < 526 and y > 226 and y < 260 and skor == 10 then
	return 'Скорость не может быть больше 10.';
	elseif x > 495 and x < 526 and y > 226 and y < 260 and _och > 0 then
	skor = skor + 1; _och = _och - 1; walk(to_krys);
	elseif x > 495 and x < 526 and y > 226 and y < 260 then
	return 'Больше нет свободных очков.';
	elseif x > 243 and x < 274 and y > 288 and y < 322 and luck <=4 then
	return 'Удача не может быть меньше 4.';
	elseif x > 243 and x < 274 and y > 288 and y < 322 and luck ==6 and _sp_mor == true then
	return 'Удача не может быть меньше 6. У персонажа способность "Морок".';
	elseif x > 243 and x < 274 and y > 288 and y < 322 and luck ==8 and _sp_meh == true then
	return 'Удача не может быть меньше 8. У персонажа способность "Штукомастер".';
	elseif x > 243 and x < 274 and y > 288 and y < 322 then
	luck = luck - 1; _och = _och +1; walk(to_krys);
	elseif x > 495 and x < 526 and y > 288 and y < 322 and luck == 10 then
	return 'Удача не может быть больше 10.';
	elseif x > 495 and x < 526 and y > 288 and y < 322 and _och > 0 then
	luck = luck + 1; _och = _och - 1; walk(to_krys);
	elseif x > 495 and x < 526 and y > 288 and y < 322 then
	return 'Больше нет свободных очков.';
	elseif x > 14 and x < 102 and y > 285 and y < 373 then
	pn (txtc('"Жажда Желтого Камня"'));
	pr [[Эта способность заставляет любого крысака при виде желтого камня впадать в ступор. От жажды, словно от шкуры нельзя отказаться, с ней рождается каждый представитель прибрежного народа. Почему и откуда у крысаков существует столь странная способность - неизвестно. Некоторым она нравится, другие считают ее проклятьем.]];
	elseif x > 37 and x < 204 and y > 214 and y < 253 and sex == 1 then
	return 'Ваш персонаж - крысак.';
	elseif x > 37 and x < 204 and y > 214 and y < 253 and sex == 2 then
	return 'Ваш персонаж - крысследи.';
	elseif x > 37 and x < 204 and y > 214 and y < 253 then
	return 'Нажмите на кнопку слева или справа панели и выберете пол персонажа.';
	elseif x > 14 and x < 37 and y > 220 and y < 245 then
	if sex == 1 then sex = 2; walk(to_krys); elseif sex == 2 then sex = 1; walk(to_krys); else sex = 1; walk(to_krys); end;
	elseif x > 204 and x < 227 and y > 220 and y < 245 then
	if sex == 1 then sex = 2; walk(to_krys); elseif sex == 2 then sex = 1; walk(to_krys); else sex = 1; walk(to_krys); end;
	elseif x > 5 and x < 45 and y > 118 and y < 162 then
	if _portret == 5 then _portret = 4; walk(to_krys); elseif _portret == 4 then _portret = 3; walk(to_krys); elseif _portret == 3 then _portret = 2; walk(to_krys); elseif _portret == 2 then _portret = 1; walk(to_krys); elseif _portret == 1 then _portret = 5; walk(to_krys); else _portret = 5; walk(to_krys);end;
	elseif x > 151 and x < 190 and y > 118 and y < 162 then
	if _portret == 1 then _portret = 2; walk(to_krys); elseif _portret == 2 then _portret = 3; walk(to_krys); elseif _portret == 3 then _portret = 4; walk(to_krys); elseif _portret == 4 then _portret = 5; walk(to_krys); elseif _portret == 5 then _portret = 1; walk(to_krys);else _portret = 1; walk(to_krys);end;
	elseif x > 45 and x < 151 and y > 86 and y < 195 then
	return 'Нажмите на кнопку слева или справа панели и выберете портрет персонажа.';
	elseif x > 151 and x < 187 and y > 370 and y < 400 then
	if _spos == 1 then _spos = 2; walk(to_krys); elseif _spos == 2 then _spos = 3; walk(to_krys); elseif _spos == 3 then _spos = 4; walk(to_krys); elseif _spos == 4 then _spos = 5; walk(to_krys); elseif _spos == 5 then _spos = 6; walk(to_krys); elseif _spos == 6 then _spos = 7; walk(to_krys); elseif _spos == 7 then _spos = 8; walk(to_krys); elseif _spos == 8 then _spos = 1; walk(to_krys); else _spos = 1; walk(to_krys);end;
	elseif x > 122 and x < 213 and y > 285 and y < 370 and _spos == 1 then
	pn (txtc('"Теневой Фокус"'));
	pr [[Уникальная способность крысаков исчезать в любом месте и среди любого количества врагов (или друзей). Некоторые недалекие существа считают, что это особая магия. На самом деле это умение передвигаться так молниеносно, что заметить движение крысака практически невозможно. Для получения Теневого Фокуса необходимо иметь скорость не меньше 6.]];
	if not _sp_ten then
	pr [[^^{vib_spos|Выбрать эту способность.}]];
	else
	pr [[^^{del_spos|Удалить эту способность.}]];end;
	elseif x > 122 and x < 213 and y > 285 and y < 370 and _spos == 2 then
	pn (txtc('"Древняя Магия"'));
	pr [[Многие считают, что настоящая шаманская магия недоступна дикарям с Побережья. На самом деле это не так. Не так часто, как среди других существ, но и среди крысаков рождаются те, кто чувствует и способен использовать древнюю энергию. Особым уважением среди соплеменников эти "странные личности" обычно не пользуются. Да и жизнь их не назовешь простой. Им приходиться самим учится использовать различные магические силы и записывать способы их применения в специальные свитки. Для получения Древней Магии разум персонажа должен быть не меньше 8.]];
	if not _sp_mag then
	pr [[^^{vib_spos1|Выбрать эту способность.}]];
	else
	pr [[^^{del_spos1|Удалить эту способность.}]];end;
	elseif x > 122 and x < 213 and y > 285 and y < 370 and _spos == 3 then
	pn (txtc('"Шкура Стропса"'));
	pr [[Не секрет, что дикие стропсы практически не уязвимы из-за своей прочной шкуры. Этой способностью наделены немногие крысаки. Тем кому почастливилось родиться со столь прочной шкурой, говорят не страшны даже выстрелы из древних штуковин. Для получения неуязвимости сила персонажа должна быть не меньше 6.]];
	if not _sp_bron then
	pr [[^^{vib_spos2|Выбрать эту способность.}]];
	else
	pr [[^^{del_spos2|Удалить эту способность.}]];end;
	elseif x > 122 and x < 213 and y > 285 and y < 370 and _spos == 4 then
	pn (txtc('"Стремительный Вгрыз"'));
	pr [[Уникальная способность некоторых крысаков наносить единственный, но столь мощный и молниеносный укус, что как правило жертва не успевает даже осознать, что или кто ее убило. Наделенные подобным даром пользуются уважением среди своих соплеменников, но при этом почему-то всегда оказываются один на один с врагами. Менее храбрые крысаки чаще всего просто исчезают с поля сражения. Чтобы получить Стремительный Вгрыз сила должна быть не меньше 8.]];
	if not _sp_vgr then
	pr [[^^{vib_spos3|Выбрать эту способность.}]];
	else
	pr [[^^{del_spos3|Удалить эту способность.}]];end;
	elseif x > 122 and x < 213 and y > 285 and y < 370 and _spos == 5 then
	pn (txtc('"Морок"'));
	pr [[Способность особо удачливых крысаков превращаться в различных существ и чудищ. Очень впечетляюще смотрится, например, обескураженный враг, увидевший на поле боя кошмарного трутня или неуязвимого стропса. Единственным недостатком этого дара пожалуй лишь то, что не все силы и особенности зверюг доступны обернувшемуся крысаку. Морок может получить персонаж с удачей не меньше 6.]];
	if not _sp_mor then
	pr [[^^{vib_spos4|Выбрать эту способность.}]];
	else
	pr [[^^{del_spos4|Удалить эту способность.}]];end;
	elseif x > 122 and x < 213 and y > 285 and y < 370 and _spos == 6 then
	pn (txtc('"Штукомастер"'));
	pr [[Странное занятие некоторых крысаков - собирать непонятные штуковины и артефакты прошлого мира Пангеи. Но само умение вовсе не только в сборе странных вещичек - способность помогает правильно соединять эти штуковины и читать старые схемы и чертежи. Чтобы получить эту способность удача должна быть не меньше 8.]];
	if not _sp_meh then
	pr [[^^{vib_spos5|Выбрать эту способность.}]];
	else
	pr [[^^{del_spos5|Удалить эту способность.}]];end;
	elseif x > 122 and x < 213 and y > 285 and y < 370 and _spos == 7 then
	pn (txtc('"Сверхчутье"'));
	pr [[Загадочная способность, которая наделяет особо быстрых крысаков, словно второй удачей. Те кому посчастливилось родиться со сверхчутьем, удивительным образом умудряются чуять ловушки, западни, предвосхищать действия врагов и находить тайники там, где бы казалось и быть ничего не может. Чтобы получить эту способность, скорость персонажа должна быть не меньше 8.]];
	if not _sp_chut then
	pr [[^^{vib_spos6|Выбрать эту способность.}]];
	else
	pr [[^^{del_spos6|Удалить эту способность.}]];end;
	elseif x > 122 and x < 213 and y > 285 and y < 370 and _spos == 8 then
	pn (txtc('"Потерянный Дар"'));
	pr [[Одна из самых непонятных и как считают многие крысаки, ненужных способностей прибрежного народа. Странный дар, помогающий понимать давно потерянные языки, навыки, умения и прочие "достояния", ушедшей в прошлое Пангеи. Как сказал мудрейший Зубохват - "Если способность не помогает найти больше, много больше желтого камня - она совершенно бесполезна". Потерянный Дар может получить персонаж, разум которого не меньше 6.]];
	if not _sp_dar then
	pr [[^^{vib_spos7|Выбрать эту способность.}]];
	else
	pr [[^^{del_spos7|Удалить эту способность.}]];end;
	elseif x > 122 and x < 213 and y > 285 and y < 370 then
	return 'Нажмите на кнопку снизу панели и выберете дополнительную способность персонажа. Выбор способности потребует 1 свободного очка из 6 доступных, а также определенного колличества природных навыков. Для получения информации и необходимых требований кликните на иконку способности.';
	elseif x > 267 and x < 339 and y > 346 and y < 416 then
	return 'В этой панели отражено количество свободных очков для распределения между природными навыками и выбором дополнительной способности. Изначально свободных очков 6.';
	elseif x > 274 and x < 495 and y > 86 and y < 138 then
	return 'Сила помогает нанести лучший удар в бою, противостоять натиску сильных противников, а также решить любой другой «силовой вопрос». От этого навыка зависят такие способности, как "Шкура Стропса" и "Стремительный Вгрыз".^Нажмите на кнопку слева (минус) или справа (плюс) панели и увеличте или уменьшите этот природный навык.^*Сила не может быть меньше 2 и больше 8.';
	elseif x > 274 and x < 495 and y > 151 and y < 204 then
	return 'Разум помогает заметить что-то необычное как на местности, так и в поведении врага во время сражения; убедить кого-нибудь; договориться с кем-то и так далее. Именно разум влияет на изучение и использование "Древней Магии", а также на такую казалось бы "бесполезную" способность - "Потерянный Дар".^Нажмите на кнопку слева (минус) или справа (плюс) панели и увеличте или уменьшите этот природный навык.^*Разум не может быть меньше 2 и больше 8.';
	elseif x > 274 and x < 495 and y > 217 and y < 270 then
	return 'Скорость нужна там, где требуется быстрота и реакция. Убежать от кого угодно, догнать кого угодно, залезть куда-нибудь, увернуться не только от удара, но и от выстрела или ловушки. От этого навыка зависят "Сверхчутье" и любимая спсобность крысаков - "Теневой Фокус".^Нажмите на кнопку слева (минус) или справа (плюс) панели и увеличте или уменьшите этот природный навык.^*Скорость не может быть меньше 4 и больше 10.';
	elseif x > 274 and x < 495 and y > 280 and y < 334 then
	return 'Удача - навык, который присущ только крысакам. Именно удача помогает прибрежному народу выпутываться из безвыходных ситуаций, побеждать заведомо сильнейших врагов, находить заветный желтый камень. Как говорят древние сказания, удача была дана крысакам вместе с "Жаждой Желтого Камня". Возможно, чтобы ослабить роковое проклятье, а может наоборот, чтобы его усилить. Как бы там ни было - от этого навыка зависят такие способности, как "Морок" и "Штукомастер".^Нажмите на кнопку слева (минус) или справа (плюс) панели и увеличте или уменьшите этот природный навык.^*Удача не может быть меньше 4 и больше 10.';
	else
	return 'Меню создания персонажа. Выберете нужную панель или кнопку.';
	end;
	end;
	if _krys == 3 then
	if x > 32 and x < 172 and y > 8 and y < 173 then
	return 'Раткин мало чем выделяется среди своих соплеменников. И если среди других созданий, это считается признаком "серости", то среди крысаков все "слегка" наоборот. Как говорил мудрейший и что не мало важно, доживший до глубокой дряхлости, Ринус Незаметный - "Тот, кого никогда не видно, всегда получает лучший кусок". ^Способность Раткина - "Теневой Фокус", умение незаметно исчезать где и когда угодно. Что касается остальных его навыков, то они вполне достойны обычного крысака (что в переводе на язык прочих неразумных существ равно гениальному).^^{pers_ratkin|Выбрать этого персонажа}.';
	elseif x > 252 and x < 391 and y > 113 and y < 279 then
	return 'Удачливость Акса его соплеменники замечали еще в детстве. Лучший кусок рыбы всегда доставался этому красноглазому крысенышу. Став постарше, Акс научился извлекать немалую пользу из своей везучести. То обернувшись грозным стропсом он заставлял своих "друзей" исчезать подальше, оставляя все вещички у лап победителя, то найденные кем-то куски желтого камня неожиданно проглатывались гигантским фуржем. Если вдруг кому-то удавалась противостоять мороку Акса, то быстрые лапы помогали ему и в такой ситуации избежать возмездия.^^{pers_krut|Выбрать этого персонажа}.';
	elseif x > 464 and x < 603 and y > 8 and y < 173 then
	return 'Тарни считается среди соплеменников более, чем странной личностью. В то время, когда прочие крысаки совершенствуются в мастерстве исчезновения или поиска желтого камня, эта крыследи читает глупые надписи на языках гоблинов, три-кренов и прочих давно сгинувших рас. Несомненно "Потерянный Дар" - это проклятье. Ни один уважающий себя крысак, не стал бы тратить время на подобные "причуды".^^{pers_tarni|Выбрать этого персонажа}.';
	else
	return '';
	end;
	end;
	end;
	xdsc = function()
	
	end;
	obj = {
	xact('pers_ratkin', code[[sila = 6;razum = 4;skor = 7;luck = 6;prtr_n = 'demo/krys/Ports_2.png';sex = 1; ns_n = "Раткин";_krys = 4;_ratk = true;_sp_ten = true;walk(to_krys);]]),
	xact('pers_krut', code[[sila = 5;razum = 4;skor = 7;luck = 7;prtr_n = 'demo/krys/Ports_3.png';sex = 1; ns_n = "Акс Крут";_krys = 4;_krut = true;_sp_mor = true;walk(to_krys);]]),
	xact('pers_tarni', code[[sila = 4;razum = 7;skor = 7;luck = 5;prtr_n = 'demo/krys/Ports_1.png';sex = 2; ns_n = "Тарни";_krys = 4;_tarn = true;_sp_dar = true;walk(to_krys);]]),
	xact('past_bront', code[[_vopros = 3;]]),
	xact('past_final', code[[_vopros = 2;]]),
	xact('past_name', code[[_vopros = 1;]]),
	xact('otvet', code[[_past = true;]]),
	xact('propusk', code[[if _status == true then _krys = 5;walk(to_krys); else _krys = 6;_global_demostat = true;put(navyk, demostat); put(sp_lih, demostat); if _ratk == true then put(sp_ten, demostat); elseif _krut == true then put(sp_mor, demostat); elseif _tarn == true then put(sp_dar, demostat);end; walk(to_krys);end;]]),
	xact('krys_ret', code[[set_sound('snd/Book.ogg', 1, 1);_start_demo_krys = false;_krys = 0;_finisch_krys = false; theme.gfx.cursor('theme/cursor.png', 'theme/cursor-use.png', nil, nil); _global_demostat = false; enable(navyk, demostat); remove(navyk, demostat);pr(statistika_n()); pr(sbros());walk(to_demo);]]),
	xact('dalee', code[[sila = 4;razum = 4;skor = 5;luck = 5;_och = 6;walk(prolog);]]),
	xact('dalee1', code[[pr(sbros()); _krys = 2;sila = 4;razum = 4;skor = 5;luck = 5;_och = 6;walk(to_krys);]]),
	xact('sbross', code[[_panel = nil;]]),
	xact('next_kr3', code[[_global_demostat = true; put(navyk, demostat);pr(statistika()); _krys = 6;walk(to_krys);]]),
	xact('next_kr1', code[[pr(sbros()); _krys = 3;walk(to_krys);]]),
	xact('next_kr2', code[[pr(sbros()); _krys = 2;sila = 4;razum = 4;skor = 5;luck = 5;_och = 6;walk(to_krys);]]),
	xact('next_kr', code[[pr(chet()); if _stat == true then _krys = 4; _status = true;walk(to_krys); else _panel = true; end;]]),
		xact('vib_spos', code[[if skor >= 6 and not _spos_vzat and _och > 0 then _och = _och - 1; _sp_ten = true; _spos_vzat = true; pr'Вы выбрали способность - "Теневой Фокус".'; elseif _spos_vzat == true then pr'Вы уже выбрали одну способность.'; elseif _och < 1 then pr'Больше нет свободных очков.'; else pr'Вы не можете выбрать эту способность. Необходима скорость не меньше 6.';end]]),
		xact('vib_spos1', code[[if razum >= 8 and not _spos_vzat and _och > 0 then _och = _och - 1; _sp_mag = true;_spos_vzat = true; pr'Вы выбрали способность - "Древняя Магия".'; elseif _spos_vzat == true then pr'Вы уже выбрали одну способность.'; elseif _och < 1 then pr'Больше нет свободных очков.'; else pr'Вы не можете выбрать эту способность. Необходим разум не меньше 8.';end]]),
		xact('vib_spos2', code[[if sila >= 6 and not _spos_vzat and _och > 0 then _och = _och - 1; _sp_bron = true;_spos_vzat = true; pr'Вы выбрали способность - "Шкура Стропса".'; elseif _spos_vzat == true then pr'Вы уже выбрали одну способность.'; elseif _och < 1 then pr'Больше нет свободных очков.'; else pr'Вы не можете выбрать эту способность. Необходима сила не меньше 6.';end]]),
		xact('vib_spos3', code[[if sila >= 8 and not _spos_vzat and _och > 0 then _och = _och - 1; _sp_vgr = true;_spos_vzat = true; pr'Вы выбрали способность - "Стремительный Вгрыз".'; elseif _spos_vzat == true then pr'Вы уже выбрали одну способность.'; elseif _och < 1 then pr'Больше нет свободных очков.'; else pr'Вы не можете выбрать эту способность. Необходима сила не меньше 8.';end]]),
		xact('vib_spos4', code[[if luck >= 6 and not _spos_vzat and _och > 0 then _och = _och - 1; _sp_mor = true; _spos_vzat = true; pr'Вы выбрали способность - "Морок".'; elseif _spos_vzat == true then pr'Вы уже выбрали одну способность.'; elseif _och < 1 then pr'Больше нет свободных очков.'; else pr'Вы не можете выбрать эту способность. Необходима удача не меньше 6.';end]]),
		xact('vib_spos5', code[[if luck >= 8 and not _spos_vzat and _och > 0 then _och = _och - 1; _sp_meh = true; _spos_vzat = true; pr'Вы выбрали способность - "Штукомастер".'; elseif _spos_vzat == true then pr'Вы уже выбрали одну способность.'; elseif _och < 1 then pr'Больше нет свободных очков.'; else pr'Вы не можете выбрать эту способность. Необходима удача не меньше 8.';end]]),
		xact('vib_spos6', code[[if skor >= 8 and not _spos_vzat and _och > 0 then _och = _och - 1; _sp_chut = true; _spos_vzat = true; pr'Вы выбрали способность - "Сверхчутье".'; elseif _spos_vzat == true then pr'Вы уже выбрали одну способность.'; elseif _och < 1 then pr'Больше нет свободных очков.'; else pr'Вы не можете выбрать эту способность. Необходима скорость не меньше 8.';end]]),
		xact('vib_spos7', code[[if razum >= 6 and not _spos_vzat and _och > 0 then _och = _och - 1; _sp_dar = true;_spos_vzat = true; pr'Вы выбрали способность - "Потерянный Дар".'; elseif _spos_vzat == true then pr'Вы уже выбрали одну способность.'; elseif _och < 1 then pr'Больше нет свободных очков.'; else pr'Вы не можете выбрать эту способность. Необходим разум не меньше 6.';end]]),
		xact('del_spos', code[[_sp_ten = nil;_och = _och + 1;_spos_vzat = nil;]]),
		xact('del_spos1', code[[_sp_mag = nil;_och = _och + 1;_spos_vzat = nil;]]),
		xact('del_spos2', code[[_sp_bron = nil;_och = _och + 1;_spos_vzat = nil;]]),
		xact('del_spos3', code[[_sp_vgr = nil;_och = _och + 1;_spos_vzat = nil;]]),
		xact('del_spos4', code[[_sp_mor = nil;_och = _och + 1;_spos_vzat = nil;]]),
		xact('del_spos5', code[[_sp_meh = nil;_och = _och + 1;_spos_vzat = nil;]]),
		xact('del_spos6', code[[_sp_chut = nil;_och = _och + 1;_spos_vzat = nil;]]),
		xact('del_spos7', code[[_sp_dar = nil;_och = _och + 1;_spos_vzat = nil;]]),
	},
	exit = function ()
	end;
--	hideinv = true,
};

function chet ()
	if (sex == 1 or sex == 2) and (_portret == 1 or _portret == 2 or _portret == 3 or _portret == 4 or _portret == 5) and _och == 0 then
	_stat = true;
	end;
end;

function sbros ()
	_sp_ten = nil; _sp_mag = nil; _sp_bron = nil;
	_sp_vgr = nil; _sp_mor = nil; _sp_meh = nil;
	_sp_chut = nil; _sp_dar = nil; _spos_vzat = nil;
	_och = 0; sila = 0; razum = 0; skor = 0; luck = 0;
	prtr_n = ''; sex = 0; ns_n = ""; _portret = 0; _spos = 0; _panel = nil;
end;

prolog = cutscene {
	nam = true;
	dsc = function(s)
		pn (txtc(s1:txt "Когда-то до Великих холодов..."))
		pn "{fading}"
		pn ("{pause 3000}")
		pn "{cls}"
		pn ("{pic demo/krys/karta.png}")
		pn "{fading}"
		pn ("{pause 2000}")
		pn ("{code _krys = 1}")
		pn (txtc(s1:txt "Пангею населяло множество удивительных и странных существ."))
		pn "{fading}"
		pn ("{pause 4000}")
		pn "{cls}"
		pn ("{walk r1}")
	end;
	hideinv = true,
}

r1 = cutscene {
	enter = function(s)
	end;
	nam = true;
	dsc = function(s)
		pn ("{pic gfx/shopmagi1.png}")
		pn "{fading}"
		pn (txtc(s2:txt "- «Расскажи нам о крысаках!»"))
		pn "{fading}"
		pn ("{pause 4000}")
		pn "{cls}"
		pn (txtc(s2:txt "Шаман Крычч, почесав левое ухо, оскалился. - «Крысаки..? Ну что ж, слушайте...»"))
		pn "{fading}"
		pn ("{pause 4000}")
		pn "{cls}"
		pn ("{walk r2}")
	end;
	hideinv = true,
}

r2 = cutscene {
	nam = true;
	dsc = function(s)
	pn ("{pic demo/krys/Beach.png}")
	pn "{fading}"
	pn (txtc(s2:txt "«Жуткие неприятные твари. Вот кто такие крысаки.»"))
	pn "{fading}"
	pn ("{pause 4000}")
	pn "{cls}"
	pn (txtc(s2:txt "«Быстрые как сам прибрежный ветер. Не смотри так Рапс - не догонишь. Даже не пытайся.»"))
	pn "{fading}"
	pn ("{pause 4000}")
	pn "{cls}"
	pn (txtc(s2:txt "«Гоблинский кулак - это конечно сила, Бугор. Но по крысаку еще нужно попасть, а это скажу вам, ох как не просто.»"))
	pn "{fading}"
	pn ("{pause 6000}")
	pn "{cls}"
	pn (txtc(s2:txt "«Магия может превратить в пыль кучу врагов, Грр'Уч. Но в случае с крысаками - никогда не знаешь, как оно повернется.»"))
	pn "{fading}"
	pn ("{pause 6000}")
	pn "{cls}"
	pn (txtc(s2:txt "«Но у и этих тварей есть слабое место! Помните - ни один крысак еще не смог устоять перед приманкой. Кусочек желтой руды и зверя можно хватать голыми лапами!»"))
	pn "{fading}"
	pn ("{pause 6000}")
	pn "{cls}"
	pn ("{walk r3}")
	end;
	hideinv = true,
}

 
r3 = cutscene {
	nam = true;
	enter = function(s)
	end;
	dsc = function(s)
	pn (txtc(s1:txt "Говорят, что истории никогда не завершаются."))
	pn "{fading}"
	pn ("{pause 4000}")
	pn "{cls}"
	pn (txtc(s1:txt "Конец одной - лишь означает начало иной."))
	pn ("{pic demo/krys/zastavka.gif}")
		pn "{fading}"
		pn ("{pause 8000}")
	pn ("{walk to_krys}")
	end;
	hideinv = true,
}

to_chup = xroom {
	enter = function()
	theme.gfx.bg "demo/chupakabra/bg.png";
	theme.menu.gfx.button "demo/chupakabra/menu.png";
	theme.win.geom (40, 60, 720, 670);
	theme.inv.geom(830, 30, 145, 680);
	theme.win.font('demo/chupakabra/kDd6lo5n.ttf', 22, 1.0);
	theme.inv.font('demo/chupakabra/4udz2pyU.ttf', 24, 1.0);
	theme.win.color('#EEDC82', '#CDC5BF', 'red');
	theme.gfx.cursor('demo/chupakabra/cursor.png', 'demo/chupakabra/cursor-use.png', nil, nil);
	theme.gfx.mode 'fixed';
		end;
	nam = '',
	pic = function()
	if _finisch_chup == true then
	return 'demo/chupakabra/ris_3.png';
	elseif _chup9 == true then
	return 'demo/chupakabra/doroga_l.jpeg';
	elseif _chup7 == true or _chup8 == true then
	return 'demo/chupakabra/fon_gor_n.jpeg';
	elseif _chup6 == true then
	return 'demo/chupakabra/doroga_l.jpeg';
	elseif _chup5 == true then
	return 'demo/chupakabra/townhub2.gif';
	elseif _chup4 == true then
	return 'demo/chupakabra/doroga_l.jpeg';
	elseif _chup3 == true then
	if not _pr_chu then
	return 'demo/chupakabra/lev_put.gif';
	else
	return 'demo/chupakabra/doroga_l.jpeg';end;
	elseif _chup2 == true then
	return 'demo/chupakabra/doroga_p.jpeg';
	elseif _chup1 == true then
	return 'demo/chupakabra/vibor_dorog.jpg';
	elseif _chup == true then
	return 'demo/chupakabra/ris_5.png';
	else
	return 'demo/chupakabra/ris_1.jpg';
	end;
	end;
	dsc = function()
	if _chup7 == true or _chup8 == true then
	set_music('demo/chupakabra/Void.ogg');
	else
	set_music('demo/chupakabra/Interlude.ogg');end;
	if _finisch_chup == true then
	pr [[^История, к сожалению или к счастью обрывается. Это всего лишь демо-версия.^^]];
	pr [[{chup_ret1|Конец.}]];
	elseif _chup9 == true then
	pr [[Надо же! Все та же пыльная дорога... Только тени стали намного длиннее. А в холмах казалось, что уже наступила глубокая ночь. Хватит на сегодня приключений. Не сойду с дороги, пока не увижу эту, как там ее? {wolf_grad3|Волчью Дыру.}]];
	pr [[^^{chup_ret1|Выйти из демоверсии}]];
	elseif _chup8 == true then
	pr [[^Тишина. Неужели волчара был один? Что-то слабо верится. Наверняка стая кружит где-то поблизости. Осталось только встретить чупокабру, сделать сенсационный снимок перед смертью... А Боб, интересно мне памятник поставит? Посмертно. Как же...^ Откуда-то из темноты, раздается уже такое знакомое - "Эй, парень!". Замечательно. Слуховые галлюцинации - не иначе. Идти {beg_cup|на голос} или двинуть {exz_demo|в противоположную сторону}?]];
	pr [[^^{chup_ret1|Выйти из демоверсии}]];
	elseif _chup7 == true then
	pr [[^Странно как быстро стемнело. Когда вы спустились с очередного холма, ночь окутала все вокруг плотным туманом. Безумной девицы и след простыл. Вокруг только дикие холмы и никаких следов человеческой деятельности. В какой стороне осталась дорога тоже совершенно непонятно... Совсем рядом раздается протяжный волчий вой.^ "Изумительно! Словно герой из дешевого фильма ужасов! Какого черта меня понесло за этой сумасшедшей девицей? Что там такое!?" Краем глаза вам удается заметить мелькнувшую тень. Точно волк. Или что похуже?^
	{exz_demo|Бежать} со всех ног неизвестно куда или {vrag_cup|повернуться} лицом к предполагаемому врагу?]];
		pr [[^{chup_ret1|Выйти из демоверсии}]];
	elseif _chup6 == true then
	pr [[^Дорога змейкой убегает за холм. Там за поворотом должна быть эта {wolf_grad|Волчья дыра}. Странная рыжеволосая девушка умчалась совершенно в другую сторону. 
		Попытаться ее {dognal|догнать} или иди в сторону {wolf_grad3|города} со столь экзотическим названием?]];
		pr [[^{chup_ret1|Выйти из демоверсии}]];
	elseif _chup5 == true then
	if not _enni_p then
	pr [[^Удивительно занудный городок. Жизнь здесь явно не течет, а вяло плюхается. Небольшие узкие улочки, с рядами аккуратных домов. Вывески говорят сами за себя - "Почта", "Лавка Варлея", "Трактир - Пляшущий Волк".^Болото. Обычное обывательское болото.^Вместе с мыслями о бесхитростности и чего скрывать некой тупости местных жителей, горло сжимет ледяная рука. Что это? Страх? Похоже на то... Если уж здешняя публика кажется настолько неспособной к мистификациям, то эта чупокабра действительно реальное существо. Хм. А откуда тогда неприятный привкус? Я же именно этого и хотел? Или нет?..^^]];end;
	if _enni_p == true then
	pr [[^]];
	pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_1.png@c50,50')); pr [[--Вот и Волчья Дыра! Я должна вас оставить, уже темнеет. Отец всегда переживает, когда я задерживаюсь в горах. По ночам у нас тут бывает неспокойно. А вам мистер Сэмми, я советую заглянуть в "Пляшущего Волка". Там всегда найдется комната для путника. Скажу по секрету самих путешественников там гораздо меньше, чем комнат. Кому захочется тащиться в наши края?^^
	{en_otv|Благодарю за приятную кампанию, леди. Надеюсь, до скорой встречи?}^^]];end;
	if not _enni_p then
	pr [[{exz_demo|Отправиться на станцию.}^^
	{exz_demo|Идти в горы.}^^
	{exz_demo|Заглянуть в "Пляшущего Волка".}^^
	{exz_demo|Пройтись по "городу".}^^]];end;
		pr [[{chup_ret1|Выйти из демоверсии}]];
	elseif _chup4 == true then
	pr [[^Все та же пыльная дорога... Только тени стали намного длиннее. ^"Вот же... Пока с этой дочкой почтмейстера болтал, уже совсем стемнело. И чего спрашивается было вообще останавливаться? Теперь брести в темноте. Пожалуй стоит поторопиться. Неизвестно какие твари бродят тут по ночам."]];
	pr [[^^{wolf_grad3|Двигаться дальше по дороге.}^
	^{exz_demo|Вернуться на станцию.}^]];
		pr [[^{chup_ret1|Выйти из демоверсии}]];
	elseif _chup3 == true then
	_start_demo_chup = true;
	demopocket.State = true;
	_life = 30;
	_patron = 8;
	_patron1 = 0;
	_karma = 0;
	put(diary, demopocket);
	put(pistol, demopocket);
	put(kamera, demopocket);
	pr [[^Дорога змейкой убегает за холм. Там за поворотом должна быть эта {wolf_grad|Волчья дыра}. ^«Ну и название... Боб - сволочь, конечно, порядочная. Это же надо - послал, так послал. Ха! Одно приятно - в кои-то веки не солгал. Обещал отправить в самую что ни на есть дыру и - слово свое сдержал. Вот она дыра... Да еще и волчья. ^Солнце садится, а сколько еще брести до этого града "великого" - неизвестно. Двигать {wolf_grad1|дальше} или еще {osmotr_chub|полюбоваться} на местные достопримечательности?»]];
		pr [[^{chup_ret|Выйти из демоверсии}]];
	elseif _chup2 == true then
	_start_demo_chup = true;
	demopocket.State = true;
	_life = 30;
	_patron = 8;
	_patron1 = 0;
	_karma = 0;
	put(diary, demopocket);
	put(pistol, demopocket);
	put(kamera, demopocket);
	pr [[^Дорога змейкой убегает за холм. Там за поворотом должна быть эта {wolf_grad|Волчья дыра}. ^«Ну и название... Боб - сволочь, конечно, порядочная. Это же надо - послал, так послал. Ха! Одно приятно - в кои-то веки не солгал. Обещал отправить в самую что ни на есть дыру и - слово свое сдержал. Вот она дыра... Да еще и волчья. ^Солнце садится, а сколько еще брести до этого града "великого" - неизвестно. Двигать {wolf_grad2|дальше} или еще {osmotr_chub|полюбоваться} на местные достопримечательности?»]];
		pr [[^{chup_ret|Выйти из демоверсии}]];
	elseif _chup1 == true then
	pr [[^Дорога как дорога… Разве что пыли слишком много в такое холодное время года. Интересно, как понять где она начинается и где заканчивается?
	До чего же относительно по отношению к дороге понятие вперед и назад. Все зависит от того куда ты идешь и откуда.^^
	{pravo|Налево, вслед за солнцем.}^^
	{levo|Направо, туда где тень.}^^
	{chup_ret|Выйти из демоверсии}]];
	elseif _chup == true then
	pr [[^Где конкретно началась эта странная история, мне, увы, неизвестно.  Я даже не могу утверждать, что городок под названием Волчья Дыра вообще когда-либо существовал.
	По крайней мере, мне не удалось отыскать его ни на одной карте мира. Несколько измятых писем, обрывки журнала и зачитанная до дыр книга о чупакабре – 
	вот и все что, что как и положено по законам подобных жанров, попало в руки автору этой истории. То есть мне.^^
	К сожалению, не удалось выяснить и откуда в этот небольшой городок прибыл амбициозный журналист. Известно лишь то, что звали его Сэмми Клементс  
	и он собирался найти загадочную тварь чупакабру, терроризирующию местное население.
	Репортаж, достойный называться «Сенсацией Века» должен был принести парню славу и известность.^^
	Наша же история начинается прямо на дороге от станции, название которой не сохранилось в отчетах.^^
	{doroga|Брести по дороге.}^^
	{chup_ret|Выйти из демоверсии}]];
	else 
	hideinv = true;
	pr [[^Ничего, кажется, нет особенного в том, что кто-то ищет полезные ископаемые, кто-то пришельцев, 
	а кто-то таинственную неуловимую чупакабру.
	Собственно поисками последней и собирается заняться главный герой этой истории. Но…
	Как всегда, это непонятно откуда взявшееся «но» переворачивает все с ног на голову.^^
	{chup_next|Дальше}^^
	{chup_ret|Выйти из демоверсии}]];end;
	end;
	click = function(s, x, y)
	
	end;
	xdsc = function()
	if _chup_x == true then
	if not _knife_v then
	pr [[Под ногами тускло блестит что-то металлическое. Вы наклоняетесь и видите старый ржавый нож. Интересно - сколько уже валяется в пыли это "сокровище"? {chup_knife|Подобрать} или пусть себе {chup_rjav|ржавеет дальше}?]];
	else
	pr [[Кроме мелких камней и пыли на дороге ничего нет.]];end;
	end; 
	end;
	obj = {
		xact('exz_demo', code[[_finisch_chup = true;set_sound('snd/Book.ogg', 1, 1);_start_demo_chup = false;_chup = false;_chup1 = false;_chup2 = false;_chup3 = false; _chup4 = false; _chup5 = false; _chup6 = false;_chup7 = false; _chup8 = false; enable(knife,demopocket); remove(knife, demopocket); enable(diary,demopocket); remove(diary, demopocket); enable(pistol,demopocket); remove(pistol, demopocket);_knife_v = false; enable(kamera,demopocket); remove(kamera, demopocket);_pr_chu = nil;]]),
		xact('chup_knife', code[[put(knife, demopocket);_chup_x = false;_knife_v = true;]]),
		xact('chup_rjav', code[[_chup_x = false;]]),
		xact('wolf_grad', 'На редкость нелепое название!'),
		xact('wolf_grad1', code[[_tini = true; dlg_chup:pon(7);walk(dlg_chup);_chup_x = false;]]),
		xact('wolf_grad2', code[[_enni = true; dlg_chup:pon(1);walk(dlg_chup);_chup_x = false;]]),
		xact('chup_ret1', code[[walk(to_demo);_chup4 = false; _chup5 = false;set_sound('snd/Book.ogg', 1, 1);_start_demo_chup = false;_chup = false;_chup1 = false;_chup2 = false;_chup3 = false; _finisch_chup = false; enable(knife,demopocket); remove(knife, demopocket);_chup6 = false;_chup7 = false; _chup8 = false; enable(diary,demopocket); remove(diary, demopocket); enable(kamera,demopocket); remove(kamera, demopocket); enable(pistol,demopocket); remove(pistol, demopocket);_knife_v = false;_pr_chu = nil;]]),
		xact('chup_ret', code[[back(); set_sound('snd/Book.ogg', 1, 1);_start_demo_chup = false;_chup = false;_chup1 = false;_chup2 = false;_chup3 = false; _finisch_chup = false; enable(knife,demopocket); remove(knife, demopocket); enable(diary,demopocket); remove(diary, demopocket); enable(pistol,demopocket); remove(pistol, demopocket);_knife_v = false; enable(kamera,demopocket); remove(kamera, demopocket);_pr_chu = nil;]]),
		xact('chup_next', code[[_chup = true;]]),
		xact('doroga', code[[_chup1 = true;]]),
		xact('en_otv', code[[_enni_p = nil;]]),
		xact('pravo', code[[_chup2 = true;set_sound('demo/chupakabra/WV_Birds.ogg', 1, 1);]]),
		xact('levo', code[[_chup3 = true;set_sound('demo/chupakabra/WV_Birds.ogg', 1, 1);]]),
		xact('dognal', code[[_chup7 = true;set_sound('demo/chupakabra/WOLF_3.ogg', 1, 1);]]),
		xact('osmotr_chub', code[[_chup_x = true;]]),
		xact('vrag_cup', code[[walk(to_chup_dop);]]),
		xact('beg_cup', code[[_chup9 = true;]]),
		xact('wolf_grad3',code[[_chup6 = false;_chup7 = false; _chup8 = false;_chup9 = false;_chup5 = true;set_sound('demo/chupakabra/Dogs.ogg', 1, 1);]]),
	},
	exit = function ()
	stop_music('demo/chupakabra/Interlude.ogg');
	stop_music('demo/chupakabra/Void.ogg');
	theme.gfx.bg "theme/bg.png";
	theme.menu.gfx.button "theme/menu.png";
	theme.win.geom (30,60, 780, 680);
	theme.inv.geom(860, 40, 145, 650);
	theme.win.color('#00CD00', '#CDC673', 'red');
	theme.win.font('theme/Washington.ttf', 20, 1.0);
	theme.inv.font('theme/Washington.ttf', 18, 1.0);
	theme.gfx.cursor('theme/cursor.png', 'theme/cursor-use.png', nil, nil);
	theme.gfx.mode 'embedded';
	end,
};

to_chup_dop = room {
	enter = function()
	theme.gfx.bg "demo/chupakabra/bg.png";
	theme.menu.gfx.button "demo/chupakabra/menu.png";
	theme.win.geom (40, 60, 720, 670);
	theme.inv.geom(830, 30, 145, 680);
	theme.win.font('demo/chupakabra/kDd6lo5n.ttf', 22, 1.0);
	theme.inv.font('demo/chupakabra/4udz2pyU.ttf', 24, 1.0);
	theme.win.color('#EEDC82', '#CDC5BF', 'red');
	set_music('demo/chupakabra/CombatMusic.ogg');
	theme.gfx.cursor('demo/chupakabra/cursor.png', 'demo/chupakabra/cursor-use.png', nil, nil);
	theme.gfx.mode 'fixed';
		end;
	nam = '',
	pic = function()
	if _chup_pst == true then
	return 'demo/chupakabra/wolk_p.gif';
	elseif _chup_knf == true and _knife_v == true then
	return 'demo/chupakabra/wolk_n.gif';
	elseif _chup_knf == true and not _knife_v then
	return 'demo/chupakabra/wolk_k.gif';
	else
	local r = rnd(9);
		if r < 5 then
		return 'demo/chupakabra/ekran_1.png;demo/chupakabra/1.png@160,100';
		else
		return 'demo/chupakabra/ekran_1.png;demo/chupakabra/2.png@140,120';end;
		end;
	end;
	dsc = function()
	if _chup_pst == true then
	set_sound('demo/chupakabra/pistols1.ogg', 1, 1);
	_patron = _patron - 1;
	pr [[^
	Волк взвывает и падает замертво к вашим ногам. Отличный выстрел! В этот раз повезло вам, а не хищнику. Можно перевести дух и {chup_return|двигаться дальше}.]];
	elseif _chup_knf == true then
	if _knife_v == true then
	_life = _life - 5;
	pr [[Оскаленная пасть хищника. Странный треск. Резкая боль. Черт! Это же моя кровь! Взмах ножом. Визг. ]];
	else
	pr[[]];end;
	else
	set_sound('demo/chupakabra/wolf.ogg', 1, 1);
	pr [[^
	Хищник приближается. И явно не для того чтобы дать интервью. Рассуждать некогда. Успеть бы {chup_pist|курок взвести!}]];end;
	end;
	obj = {
	xact('chup_pist', code[[_chup_pst = true;]]),
	xact('chup_knife', code[[_chup_knf = true;]]),
	xact('chup_return', code[[_chup8 = true; walk(to_chup);]]),
	},
	hideinv = true,
	exit = function ()
	stop_music('demo/chupakabra/CombatMusic.ogg');
	_chup_knf = false;
	_chup_pst = false;
	end,
};

knife = obj {
	nam = 'Старый нож';
	disp = '^Старый нож'..img('demo/chupakabra/knife.png'),
	inv = function ()
	_pr_chu = true;
	pr [[Старый ржавый нож с зазубренным лезвием. Неприятные бурые пятна почему-то напоминают кровь.]];
	end;
	use = function(s, w)
	_pr_chu = true;
	pr [[Выбросить? Зачем тогда было подбирать этот "раритет"?]];
	end,
};

kamera = obj {
	nam = 'Камера';
	disp = '^Фотокамера'..img('demo/chupakabra/kamera.png'),
	inv = function ()
	_pr_chu = true;
	pr [[Видавшая виды фотокамера со слегка заедающим затвором. Новую, конечно, Боб не дал. Старый жмот. Ну ничего, мы с этой "красавицей" уже сколько сенсационных снимков состряпали! Может и в этот раз повезет.]];
	end;
	use = function(s, w)
	_pr_chu = true;
	pr [[И чем потом снимки делать? В этой дыре камеру точно не купишь.]];
	end,
};

pistol = obj {
	nam = 'Пистолет';
	disp = '^Пистолет'..img('demo/chupakabra/pistolet.png'),
	inv = function ()
	_pr_chu = true;
	pr [[Прощальный подарок Эвана. Неплохое оружие, но кто его знает, что за твари водятся в здешних краях?]];
	end;
	use = function(s, w)
	if w == kamera then
	_pr_chu = true;
	pr [[Разбить пистолетом камеру можно в два счета. Только смысл?]];
	elseif w == diary then
	_pr_chu = true;
	pr [[Если прострелить записную книжку - в ней будет дырка. А на фига мне дырка в блокноте? Будет неудобно писать.]];
	else
	_pr_chu = true;
	pr [[Бросить пистолет и драться со зверьем голыми руками? Поступок идиота... Да я скорее штаны свои выброшу, чем пистолет!]];end;
	end,
};

diary = obj {
	nam = 'Записная книжка';
	disp = '^Записная книжка'..img('demo/chupakabra/diary.png'),
	inv = function ()
	_pr_chu = true;
	walk(to_diary);
	set_sound('snd/Book.ogg', 1, 1);
	end;
	use = function(s, w)
	_pr_chu = true;
	pr [[Очень правильно. Выбросить свои наброски и написать Бобу чтобы шел к такой-то матери. Еще бы научиться питаться святым духом.]];
	end,
};

to_diary = room {
	entered = function (s)
	theme.gfx.bg "demo/chupakabra/book-2.png";
	theme.win.geom (520, 80, 380, 700);
	theme.win.font('demo/chupakabra/kDd6lo5n.ttf', 22, 1.0);
	theme.win.color('black', '#b02c00', '#606060');
	theme.gfx.cursor('demo/chupakabra/cursor.png', 'demo/chupakabra/cursor-use.png', nil, nil);
	theme.menu.gfx.button "demo/chupakabra/menu.png";
	set_music('demo/chupakabra/Interlude.ogg');
	end;
	nam = 'Заметки и наброски.',
	dsc = function()
	
	pr [[Судьба штука ехидная. Вот же угораздило так вляпаться. Нет, оно конечно здорово, если эта, как ее там - "чупокабра" существует. Пара фото, шкура в виде трофея и серия умопомрачительных статей... Всемирная известность и слава лучшего репортера века - мне обеспечена. А если это все местные байки? Ладно, прорвемся. Сочиню что-нибудь сам пострашнее и порамантичнее, почтеннейшая публика - обрыдается, она такое любит.]];
	pr [[^{chup_list|Закрыть дневник.}^]];
	end;
	obj = {
xact('chup_list', code[[back();]]),
	},
	hideinv = true;
	exit = function ()
	set_sound('snd/Book.ogg', 1, 1);
	theme.gfx.bg "demo/chupakabra/bg.png";
	theme.menu.gfx.button "demo/chupakabra/menu.png";
	theme.win.geom (40, 60, 720, 670);
	theme.inv.geom(830, 30, 145, 680);
	theme.win.font('demo/chupakabra/kDd6lo5n.ttf', 22, 1.0);
	theme.inv.font('demo/chupakabra/4udz2pyU.ttf', 24, 1.0);
	theme.win.color('#EEDC82', '#CDC5BF', 'red');
	set_music('demo/chupakabra/Interlude.ogg');
	theme.gfx.cursor('demo/chupakabra/cursor.png', 'demo/chupakabra/cursor-use.png', nil, nil);
	theme.gfx.mode 'fixed';
	end,
};

dlg_chup = dlg {
	entered = function (s)
	theme.gfx.bg "demo/chupakabra/bg.png";
	theme.menu.gfx.button "demo/chupakabra/menu.png";
	theme.win.geom (40, 60, 720, 670);
	theme.inv.geom(830, 30, 145, 680);
	theme.win.font('demo/chupakabra/kDd6lo5n.ttf', 22, 1.0);
	theme.inv.font('demo/chupakabra/4udz2pyU.ttf', 24, 1.0);
	theme.win.color('#EEDC82', '#CDC5BF', 'red');
	set_music('demo/chupakabra/Interlude.ogg');
	theme.gfx.cursor('demo/chupakabra/cursor.png', 'demo/chupakabra/cursor-use.png', nil, nil);
	theme.gfx.mode 'fixed';
	if _enni == true then
		pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_1.png@c50,50').. 'Вы почти скрылись за холмом, как вдруг сзади раздалось -- "Эй! Подождите!". Вздрогнув от неожиданности, вы оборачиваетесь и видите, несомненно, существо женского пола, но... с короткими черными волосами и в мужском костюме для верховой езды.^^');
		return set_sound('demo/chupakabra/gremch_fr3.ogg', 1, 1);
	elseif _tini == true then
		pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_5.png@c45,55').. 'Вы почти скрылись за холмом, как вдруг сзади раздалось насмешливое -- "Эй! Парень!". Вздрогнув от неожиданности, вы оборачиваетесь. Рыжеволосая девушка в легком, слишком легком для осенней прохлады платье машет вам рукой.^^');
		return set_sound('demo/chupakabra/gremch_fr1.ogg', 1, 1);
		end;
	end;
	nam = [[]],
	dsc = function ()
	if _enni == true then
	pr [[Девушка приветливо улыбается.^]];
	elseif _tini == true then
	pr [[Леди? как-то слишком пристально вас изучает. От столь оценивающего взгляда вам становится не по себе.^]];end;
	end;
	phr = {
	{tag = '1', false, (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_2.png@c50,50')..'"Хм… Неплохо для начала. Не чупакабра конечно, но дама в мужском костюме с остриженными волосами – это даже забавно."^ -- Доброго дня, леди!^'), code [[pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_1.png@c50,50')); pr '--Вы не местный. Это сразу видно. Позвольте представиться - Энни Вайлс. Мой отец здешний почтмейстер.^^'; pon '2'; pon '3';_enni = nil;]]},
	{tag = '2', false, (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_2.png@c50,50')..'--Чертовски приятно, леди! Мое имя - Сэмми Клементс.^'), code [[pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_1.png@c50,50')); pr '-- Приятного дня, мистер Сэмми! Вы направляетесь в Волчью Дыру?^^';poff '3';pon '4';]]},
	{tag = '3', false, '--Все это просто изумительно, но мне пора.^', code [[pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_1.png@c50,50')); pr '-- Дело ваше. Позвольте дать вам один совет мистер "грубиян". В наших краях не принято вести беседу подобным образом. Прощайте, сэр "Никто"!^';poff '2';pon '5';]]},
	{tag = '4', false, (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_2.png@c50,50')..'-- Вы удивительно догадливы, Энни Вайлс.^'), code [[pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_1.png@c50,50')); pr '-- Это было не трудно, -- Энни улыбается, -- Здесь больше ничего нет. Ни одного городка или поселка на много миль вокруг. Если не возражаете, мы можем пойти вместе, я как раз возвращаюсь домой с дальнего пастбища.^';pon '6';]]},
	{tag = '5', false, (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_2.png@c50,50')..'-- Прощайте...^'), code [[_chup4 = true;walk(to_chup); set_sound('demo/chupakabra/BIRD_6.ogg', 1, 1);]]},
	{tag = '6', false, (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_2.png@c50,50')..'-- Почему бы и нет? Ведите, леди!^'), code [[_chup5 = true;walk(to_chup);_enni_p = true;set_sound('demo/chupakabra/Dogs.ogg', 1, 1);]]},
	{tag = '7', false, (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_2.png@c50,50')..'-- Доброго дня, эээ... леди! За парня конечно благодарю, но вот "Эй" - это не я. Мое имя - Сэмми Клементс.^'), code [[pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_5.png@c45,55')); pr '^-- Это не важно - отмахнулась, словно услышать имя - дурной тон, -- Зачем ты здесь?^^^'; pon '8'; pon '9';pon '10';_tini = nil;]]},
	{tag = '8', false, (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_2.png@c50,50')..'-- Это долгая история. Мы могли обсудить ее в более подходящем месте.^'), code [[pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_5.png@c45,55')); pr 'Такое впечатление, что вы произнесли нечто отвратительное. -- Через пару часов от станции отойдет поезд. Уезжай отсюда. Слышишь?! -- голос срывается на крик -- Немедленно уезжай!^^'; poff '9'; poff '10'; pon '11';pon '12';]]},
	{tag = '9', false, '-- Не поверите! Достопримечательность местную собираюсь отловить. Чупакабру.^', code [[pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_5.png@c45,55')); pr 'Такое впечатление, что вы произнесли нечто отвратительное. -- Через пару часов от станции отойдет поезд. Уезжай отсюда. Слышишь?! -- голос срывается на крик -- Немедленно уезжай!^^'; poff '8'; poff '10'; pon '11';pon '12';]]},
	{tag = '10', false, '-- Наверно для того чтобы встретить вас!^', code [[pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_5.png@c45,55')); pr 'Такое впечатление, что вы произнесли нечто отвратительное. -- Через пару часов от станции отойдет поезд. Уезжай отсюда. Слышишь?! -- голос срывается на крик -- Немедленно уезжай!^^'; poff '9'; poff '8'; pon '11';pon '12';]]},
	{tag = '11', false, (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_2.png@c50,50')..'-- Вы в порядке? Может вам нужна помощь?^'), code [[pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_5.png@c45,55')); pr'^Рыжеволосое недоразумение раздраженно машет рукой, разворачивается и убегает в сторону гор.^^'; poff '12'; pon '13';]]},
	{tag = '12', false, '"Хм... Еще одно местное достояние - сумасшедшая дама..."^', code [[pr (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_5.png@c45,55')); pr '^Рыжеволосое недоразумение раздраженно машет рукой, разворачивается и убегает в сторону гор.^^'; poff '11'; pon '13';]]},
	{tag = '13', false, (imgl('demo/chupakabra/ramka.png;demo/chupakabra/still_2.png@c50,50')..'"Что за цирк?"^'), code [[_chup6 = true;walk(to_chup); set_sound('demo/chupakabra/BIRD_6.ogg', 1, 1);]]},
	};
		hideinv = true,
	exit = function(s)
		s:poff(1,2,3,4,5,6,7,8,9,10,11,12,13);
--		_enni = nil;
--		_tini = nil;
	stop_music('demo/chupakabra/Interlude.ogg');
	theme.gfx.bg "theme/bg.png";
	theme.menu.gfx.button "theme/menu.png";
	theme.win.geom (30,60, 780, 680);
	theme.inv.geom(860, 40, 145, 650);
	theme.win.color('#00CD00', '#CDC673', 'red');
	theme.win.font('theme/Washington.ttf', 20, 1.0);
	theme.inv.font('theme/Washington.ttf', 18, 1.0);
	theme.gfx.cursor('theme/cursor.png', 'theme/cursor-use.png', nil, nil);
	theme.gfx.mode 'embedded';
		end;
};

function bane_pic()
	bane_int = 'demo/wizardry/fon1.png;'
	bane_prt = 'demo/wizardry/2_L.png@10,95;'
	bane_prt1 = 'demo/wizardry/5_P.png@924,94;'
	bane_prt2 = 'demo/wizardry/1_L.png@8,201;'
	bane_prt3 = 'demo/wizardry/6_P.png@923,202;'
	bane_prt4 = 'demo/wizardry/4_L.png@7,307;'
	bane_prt5 = 'demo/wizardry/3.png@924,307;'
	bane_kls = 'demo/wizardry/button_ftr.png@80,120;'
	bane_kls1 = 'demo/wizardry/button_wor.png@78,226;'
	bane_kls2 = 'demo/wizardry/button_psn.png@78,330;'
	bane_kls3 = 'demo/wizardry/button_lrd.png@845,120;'
	bane_kls4 = 'demo/wizardry/button_nin.png@845,226;'
	bane_kls5 = 'demo/wizardry/button_eps.png@845,330;'
	if _hp == 5 then bane_hp = 'demo/wizardry/Health_5.png@158,94;' elseif _hp == 4 then bane_hp = 'demo/wizardry/Health_4.png@158,94;' elseif _hp == 3 then bane_hp = 'demo/wizardry/Health_3.png@158,94;' elseif _hp == 2 then bane_hp = 'demo/wizardry/Health_2.png@158,94;' elseif _hp == 1 then bane_hp = 'demo/wizardry/Health_1.png@158,94;';end;
	if _hp1 == 5 then bane_hp1 = 'demo/wizardry/Health_5.png@159,200;' elseif _hp1 == 4 then bane_hp1 = 'demo/wizardry/Health_4.png@159,200;' elseif _hp1 == 3 then bane_hp1 = 'demo/wizardry/Health_3.png@159,200;' elseif _hp1 == 2 then bane_hp1 = 'demo/wizardry/Health_2.png@159,200;' elseif _hp1 == 1 then bane_hp1 = 'demo/wizardry/Health_1.png@159,200;';end;
	if _hp2 == 5 then bane_hp2 = 'demo/wizardry/Health_5.png@159,306;' elseif _hp2 == 4 then bane_hp2 = 'demo/wizardry/Health_4.png@159,306;' elseif _hp2 == 3 then bane_hp2 = 'demo/wizardry/Health_3.png@159,306;' elseif _hp2 == 2 then bane_hp2 = 'demo/wizardry/Health_2.png@159,306;' elseif _hp2 == 1 then bane_hp2 = 'demo/wizardry/Health_1.png@159,306;';end;
	if _hp3 == 5 then bane_hp3 = 'demo/wizardry/Health_5.png@808,94;' elseif _hp3 == 4 then bane_hp3 = 'demo/wizardry/Health_4.png@808,94;' elseif _hp3 == 3 then bane_hp3 = 'demo/wizardry/Health_3.png@808,94;' elseif _hp3 == 2 then bane_hp3 = 'demo/wizardry/Health_2.png@808,94;' elseif _hp3 == 1 then bane_hp3 = 'demo/wizardry/Health_1.png@808,94;';end;
	if _hp4 == 5 then bane_hp4 = 'demo/wizardry/Health_5.png@808,200;' elseif _hp4 == 4 then bane_hp4 = 'demo/wizardry/Health_4.png@808,200;' elseif _hp4 == 3 then bane_hp4 = 'demo/wizardry/Health_3.png@808,200;' elseif _hp4 == 2 then bane_hp4 = 'demo/wizardry/Health_2.png@808,200;' elseif _hp4 == 1 then bane_hp4 = 'demo/wizardry/Health_1.png@808,200;';end;
	if _hp5 == 5 then bane_hp5 = 'demo/wizardry/Health_5.png@808,306;' elseif _hp5 == 4 then bane_hp5 = 'demo/wizardry/Health_4.png@808,306;' elseif _hp5 == 3 then bane_hp5 = 'demo/wizardry/Health_3.png@808,306;' elseif _hp5 == 2 then bane_hp5 = 'demo/wizardry/Health_2.png@808,306;' elseif _hp5 == 1 then bane_hp5 = 'demo/wizardry/Health_1.png@808,306;';end;
	if _st == 5 then bane_st = 'demo/wizardry/Stamina_5.png@178,94;' elseif _st == 4 then bane_st = 'demo/wizardry/Stamina_4.png@178,94;' elseif _st == 3 then bane_st = 'demo/wizardry/Stamina_3.png@178,94;' elseif _st == 2 then bane_st = 'demo/wizardry/Stamina_2.png@178,94;' elseif _st == 1 then bane_st = 'demo/wizardry/Stamina_1.png@178,94;';end;
	if _st1 == 5 then bane_st1 = 'demo/wizardry/Stamina_5.png@177,200;' elseif _st1 == 4 then bane_st1 = 'demo/wizardry/Stamina_4.png@177,200;' elseif _st1 == 3 then bane_st1 = 'demo/wizardry/Stamina_3.png@177,200;' elseif _st1 == 2 then bane_st1 = 'demo/wizardry/Stamina_2.png@177,200;' elseif _st1 == 1 then bane_st1 = 'demo/wizardry/Stamina_1.png@177,200;';end;
	if _st2 == 5 then bane_st2 = 'demo/wizardry/Stamina_5.png@177,306;' elseif _st2 == 4 then bane_st2 = 'demo/wizardry/Stamina_4.png@177,306;' elseif _st2 == 3 then bane_st2 = 'demo/wizardry/Stamina_3.png@177,306;' elseif _st2 == 2 then bane_st2 = 'demo/wizardry/Stamina_2.png@177,306;' elseif _st2 == 1 then bane_st2 = 'demo/wizardry/Stamina_1.png@177,306;';end;
	if _st3 == 5 then bane_st3 = 'demo/wizardry/Stamina_5.png@827,94;' elseif _st3 == 4 then bane_st3 = 'demo/wizardry/Stamina_4.png@827,94;' elseif _st3 == 3 then bane_st3 = 'demo/wizardry/Stamina_3.png@827,94;' elseif _st3 == 2 then bane_st3 = 'demo/wizardry/Stamina_2.png@827,94;' elseif _st3 == 1 then bane_st3 = 'demo/wizardry/Stamina_1.png@827,94;';end;
	if _st4 == 5 then bane_st4 = 'demo/wizardry/Stamina_5.png@827,200;' elseif _st4 == 4 then bane_st4 = 'demo/wizardry/Stamina_4.png@827,200;' elseif _st4 == 3 then bane_st4 = 'demo/wizardry/Stamina_3.png@827,200;' elseif _st4 == 2 then bane_st4 = 'demo/wizardry/Stamina_2.png@827,200;' elseif _st4 == 1 then bane_st4 = 'demo/wizardry/Stamina_1.png@827,200;';end;
	if _st5 == 5 then bane_st5 = 'demo/wizardry/Stamina_5.png@827,306;' elseif _st5 == 4 then bane_st5 = 'demo/wizardry/Stamina_4.png@827,306;' elseif _st5 == 3 then bane_st5 = 'demo/wizardry/Stamina_3.png@827,306;' elseif _st5 == 2 then bane_st5 = 'demo/wizardry/Stamina_2.png@827,306;' elseif _st5 == 1 then bane_st5 = 'demo/wizardry/Stamina_1.png@827,306;';end;
	if _pers == true or _pers1 == true or _pers2 == true or _pers3 == true or _pers4 == true or _pers5 == true then bane_fon = 'demo/wizardry/Wiz_5.png;' elseif _bane == 4 then bane_fon = 'demo/wizardry/Wiz_1.jpg@230,70;' elseif _bane == 3 then bane_fon = 'demo/wizardry/Wiz_1.jpg@230,70;' elseif _bane == 5 then bane_fon = 'demo/wizardry/Wiz_4.png@230,70;';end
	if _bane == 3 and not _pers and not _pers1 and not _pers2 and not _pers3 and not _pers4 and not _pers5 then bane_virt = 'demo/wizardry/vurts.png@565,198;' else bane_virt = '';end;
	if _bld == true then bane_bld = 'demo/wizardry/blade1.png@52,10;' else bane_bld = 'demo/wizardry/blade.png@52,10;';end;
	if _arm == true then bane_arm = 'demo/wizardry/armplat1.png@127,10;' else bane_arm = 'demo/wizardry/armplat.png@127,10;';end;
	if _mag_scr == true then bane_mag_scr = 'demo/wizardry/mag_scr1.png@203,10;' else bane_mag_scr = 'demo/wizardry/mag_scr.png@203,10;';end;
	if _dired == true then bane_dired = 'demo/wizardry/direction1.png@748,10;' else bane_dired = 'demo/wizardry/direction.png@748,10;';end;
	if _detect == true then bane_detect = 'demo/wizardry/detect1.png@824,10;' else bane_detect = 'demo/wizardry/detect.png@824,10;';end;
	if _levit == true then bane_levit = 'demo/wizardry/levitate1.png@899,10;' else bane_levit = 'demo/wizardry/levitate.png@899,10;';end;
	if _stat_pers == 0 then bane_ikon = 'demo/wizardry/ikn_ok.png@102,143;' elseif _stat_pers == 1 then bane_ikon = 'demo/wizardry/ikn_ok.png@102,143;' elseif _stat_pers == 2 then bane_ikon = 'demo/wizardry/ikn_ok.png@102,143;'end;
	if _stat_pers1 == 0 then bane_ikon1 = 'demo/wizardry/ikn_ok.png@102,249;' elseif _stat_pers1 == 1 then bane_ikon1 = 'demo/wizardry/ikn_ok.png@102,249;' elseif _stat_pers1 == 2 then bane_ikon1 = 'demo/wizardry/ikn_ok.png@102,249;'end;
	if _stat_pers2 == 0 then bane_ikon2 = 'demo/wizardry/ikn_ok.png@102,354;' elseif _stat_pers2 == 1 then bane_ikon2 = 'demo/wizardry/ikn_ok.png@102,354;' elseif _stat_pers2 == 2 then bane_ikon2 = 'demo/wizardry/ikn_ok.png@102,354;'end;
	if _stat_pers3 == 0 then bane_ikon3 = 'demo/wizardry/ikn_ok.png@870,143;' elseif _stat_pers3 == 1 then bane_ikon3 = 'demo/wizardry/ikn_ok.png@870,143;' elseif _stat_pers3 == 2 then bane_ikon3 = 'demo/wizardry/ikn_ok.png@870,143;'end;
	if _stat_pers4 == 0 then bane_ikon4 = 'demo/wizardry/ikn_ok.png@870,250;' elseif _stat_pers4 == 1 then bane_ikon4 = 'demo/wizardry/ikn_ok.png@870,250;' elseif _stat_pers4 == 2 then bane_ikon4 = 'demo/wizardry/ikn_ok.png@870,250;'end;
	if _stat_pers5 == 0 then bane_ikon5 = 'demo/wizardry/ikn_ok.png@870,354;' elseif _stat_pers5 == 1 then bane_ikon5 = 'demo/wizardry/ikn_ok.png@870,354;' elseif _stat_pers5 == 2 then bane_ikon5 = 'demo/wizardry/ikn_ok.png@870,354;'end;
	pr (bane_int,bane_bld,bane_arm,bane_mag_scr,bane_dired,bane_detect,bane_levit,bane_prt,bane_prt1,bane_prt2,bane_prt3,bane_prt4,bane_prt5,bane_kls,bane_kls1,bane_kls2,bane_kls3,bane_kls4,bane_kls5,bane_hp,bane_hp1,bane_hp2,bane_hp3,bane_hp4,bane_hp5,bane_st,bane_st1,bane_st2,bane_st3,bane_st4,bane_st5,bane_ikon,bane_ikon1,bane_ikon2,bane_ikon3,bane_ikon4,bane_ikon5,bane_fon,bane_virt);
end;

function bane_inf()
	if _pers == true then
	return
	pn(img(prtr_n)), pr(ns_n), pr (img('blank:25x25')), pr(rs_n), pr (img('blank:25x25')), pr(kl_n), pr[[^]], pr('^Сила:  ', STR), pr (img('blank:80x20')), pr ('Жизнь: ', xp), pr[[^]], pr ('Интеллект: ', INT), pr (img('blank:40x20')), pr ('Стамина: ', st), pr[[^]],  pr ('Благочестие: ', PIE), pr (img('blank:25x20')), pr ('Опыт: ', hl), pr[[^]], p ('Живучесть: ', VIT), p ('^Ловкость: ', DEX), p ('^Подвижность: ', SPE), p ('^Восприятие: ', PER), p ('^Карма: ', KRM);
	end;
	if _pers1 == true then
	return
	pn(img(prtr_n1)), pr(ns_n1), pr (img('blank:25x25')), pr(rs_n1), pr (img('blank:25x25')), pr(kl_n1), pr[[^]], pr('^Сила:  ', STR1), pr (img('blank:80x20')), pr ('Жизнь: ', xp1), pr[[^]], pr ('Интеллект: ', INT1), pr (img('blank:40x20')), pr ('Стамина: ', st1), pr[[^]],  pr ('Благочестие: ', PIE1), pr (img('blank:25x20')), pr ('Опыт: ', hl1), pr[[^]], p ('Живучесть: ', VIT1), p ('^Ловкость: ', DEX1), p ('^Подвижность: ', SPE1), p ('^Восприятие: ', PER1), p ('^Карма: ', KRM1);
	end;
	if _pers2 == true then
	return
	pn(img(prtr_n2)), pr(ns_n2), pr (img('blank:25x25')), pr(rs_n2), pr (img('blank:25x25')), pr(kl_n2), pr[[^]], pr('^Сила:  ', STR2), pr (img('blank:80x20')), pr ('Жизнь: ', xp2), pr[[^]], pr ('Интеллект: ', INT2), pr (img('blank:40x20')), pr ('Стамина: ', st2), pr[[^]],  pr ('Благочестие: ', PIE2), pr (img('blank:25x20')), pr ('Опыт: ', hl2), pr[[^]], p ('Живучесть: ', VIT2), p ('^Ловкость: ', DEX2), p ('^Подвижность: ', SPE2), p ('^Восприятие: ', PER2), p ('^Карма: ', KRM2);
	end;
	if _pers3 == true then
	return
	pn(img(prtr_n3)), pr(ns_n3), pr (img('blank:25x25')), pr(rs_n3), pr (img('blank:25x25')), pr(kl_n3), pr[[^]], pr('^Сила:  ', STR3), pr (img('blank:80x20')), pr ('Жизнь: ', xp3), pr[[^]], pr ('Интеллект: ', INT3), pr (img('blank:40x20')), pr ('Стамина: ', st3), pr[[^]],  pr ('Благочестие: ', PIE3), pr (img('blank:25x20')), pr ('Опыт: ', hl3), pr[[^]], p ('Живучесть: ', VIT3), p ('^Ловкость: ', DEX3), p ('^Подвижность: ', SPE3), p ('^Восприятие: ', PER3), p ('^Карма: ', KRM3);
	end;
	if _pers4 == true then
	return
	pn(img(prtr_n4)), pr(ns_n4), pr (img('blank:25x25')), pr(rs_n4), pr (img('blank:25x25')), pr(kl_n4), pr[[^]], pr('^Сила:  ', STR4), pr (img('blank:80x20')), pr ('Жизнь: ', xp4), pr[[^]], pr ('Интеллект: ', INT4), pr (img('blank:40x20')), pr ('Стамина: ', st4), pr[[^]],  pr ('Благочестие: ', PIE4), pr (img('blank:25x20')), pr ('Опыт: ', hl4), pr[[^]], p ('Живучесть: ', VIT4), p ('^Ловкость: ', DEX4), p ('^Подвижность: ', SPE4), p ('^Восприятие: ', PER4), p ('^Карма: ', KRM4);
	end;
	if _pers5 == true then
	return
	pn(img(prtr_n5)), pr(ns_n5), pr (img('blank:25x25')), pr(rs_n5), pr (img('blank:25x25')), pr(kl_n5), pr[[^]], pr('^Сила:  ', STR5), pr (img('blank:80x20')), pr ('Жизнь: ', xp5), pr[[^]], pr ('Интеллект: ', INT5), pr (img('blank:40x20')), pr ('Стамина: ', st5), pr[[^]],  pr ('Благочестие: ', PIE5), pr (img('blank:25x20')), pr ('Опыт: ', hl5), pr[[^]], p ('Живучесть: ', VIT5), p ('^Ловкость: ', DEX5), p ('^Подвижность: ', SPE5), p ('^Восприятие: ', PER5), p ('^Карма: ', KRM5);
	end;
end

function bane_tekst()
if not _dialog_vuts_v then
	local r = rnd(5);
	if r == 0 then
	 pr (img('demo/wizardry/6_L.png')); pr [[«Осторожно! Здесь кто-то есть. Не могу сказать, что этот кто-то мне симпатичен».^^]];
	 elseif r == 1 then
	 pr (img('demo/wizardry/2_L.png')); pr [[«Ненавижу запах этих двуногих! Оно одно и без оружия? Легкая добыча!»^^]];
	 elseif r == 2 then
	 pr (img('demo/wizardry/4_L.png')); pr [[«Подождите минутку... Я так и думал - богатство чужими руками и лапами.^Не стоит доверять существу с подобными мыслями».^^]];
	 elseif r == 3 then
	 pr (img('demo/wizardry/5_L.png')); pr [[«Стойте! Этот человек не нападает. Будем же и мы великодушны и благородны!»^^]];
	 elseif r == 4 then
	 pr (img('demo/wizardry/1_L.png')); pr [[«Мне кажется этот человек такой же авантюрист, как и мы. Разве, что более удачливый».^^]];
	 elseif r == 5 then
	 pr (img('demo/wizardry/3.png')); pr [[«Внимание! Слишком тихо, слишком уютно. Может это ловушка?!»^^]];end;
	 end;
end

to_wizardri = xroom {
	enter = function()
	ns_n = "Угрыы Арркх"; rs_n = "Дракон"; kl_n = "Воин"; xp = 8; st = 129; hl = 0;
	ns_n1 = "Тиалэриель"; rs_n1 = "Эльф"; kl_n1 = "Вор"; xp1 = 4; st1 = 66; hl1 = 0;
	ns_n2 = "Буунгрок"; rs_n2 = "Муук"; kl_n2 = "Псионик"; xp2 = 4; st2 = 114; hl2 = 0;
	ns_n3 = "Гроза Миров"; rs_n3 = "Равульф"; kl_n3 = "Лорд"; xp3 = 10; st3 = 108; hl3 = 0;
	ns_n4 = "Маррисс"; rs_n4 = "Фельпур"; kl_n4 = "Ниндзя"; xp4 = 6; st4 = 108; hl4 = 0;
	ns_n5 = "Лунный Цветок"; rs_n5 = "Фея"; kl_n5 = "Епископ"; xp5 = 3; st5 = 51; hl5 = 0;
	STR = 15; STR1 = 6; STR2 = 10; STR3 = 12; STR4 = 12; STR5 = 5;
	INT = 7; INT1 = 10; INT2 = 15; INT3 = 9; INT4 = 10; INT5 = 15;
	PIE = 6; PIE1 = 10; PIE2 = 6; PIE3 = 12; PIE4 = 10; PIE5 = 15;
	VIT = 14; VIT1 = 8; VIT2 = 14; VIT3 = 12; VIT4 = 12; VIT5 = 6;
	DEX = 10; DEX1 = 14; DEX2 = 7; DEX3 = 9; DEX4 = 12; DEX5 = 11;
	SPE = 8; SPE1 = 12; SPE2 = 7; SPE3 = 9; SPE4 = 12; SPE5 = 14;
	PER = 7; PER1 = 10; PER2 = 12; PER3 = 14; PER4 = 10; PER5 = 12;
	KRM = 12; KRM1 = 14; KRM2 = 8; KRM3 = 17; KRM4 = 9; KRM5 = 13;
	prtr_n = 'demo/wizardry/2_L.png';
	prtr_n1 = 'demo/wizardry/1_L.png';
	prtr_n2 = 'demo/wizardry/4_L.png';
	prtr_n3 = 'demo/wizardry/5_P.png';
	prtr_n4 = 'demo/wizardry/6_P.png';
	prtr_n5 = 'demo/wizardry/3.png';
	_stat_pers = 0; _stat_pers1 = 0; _stat_pers2 = 0; _stat_pers3 = 0; _stat_pers4 = 0; _stat_pers5 = 0;
	set_music('demo/wizardry/Underground.ogg');
	theme.gfx.bg "demo/wizardry/bg2.png";
	theme.menu.gfx.button ("demo/wizardry/menu.png",980,720);
	theme.win.geom (0, 0, 1024, 590);
	theme.inv.mode = horizontal;
	theme.inv.geom(60, 620, 800, 180);
	theme.win.font('demo/wizardry/Fn67ADAm.ttf', 23, 1.0);
	theme.inv.font('demo/wizardry/Fn67ADAm.ttf', 24, 1.0);
	theme.win.color('white', '#CDC673', 'red');
	theme.gfx.cursor('demo/wizardry/cursor.png', 'demo/wizardry/cursor-use.png', nil, nil);
	theme.gfx.mode 'fixed';
		end;
	nam = '',
	pic = function()
	if _bane >= 3 then
	pr(bane_pic());
	elseif _bane == 2 then
	return 'demo/wizardry/Bane_004.png';
	elseif _bane == 1 then
	return 'demo/wizardry/Bane_003.png';
	else
	return 'demo/wizardry/Bane_001.png';end;
	end;
	dsc = function()
	if not _pers and not _pers1 and not _pers2 and not _pers3 and not _pers4 and not _pers5 then
	if _bane == 5 then
	pr[[^]];
	pr [[^^{bane_ret|Выйти из демоверсии}]];
	elseif _bane == 4 then
	pr[[^Вутс, усмехнувшись, неприятным таким смешком, исчезает за дверью. Скорее всего отправился обходить "свой участок".^ В комнате все так же потрескивает камин. Уютно.]];
	pr [[^^{bane_loc4|Выйти в корридор замка}]];
	pr [[^^{bane_ret|Выйти из демоверсии}]];
	elseif _bane == 3 then
	if read.text == 'замок' or read.text == 'Замок' then
	pr [[^Ну да, это старый замок. Вернее то, что от него осталось. Как по-моему, так это даже хорошо. ^Мой "бизнес" никогда еще не был таким прибыльным. Все эти истории о сокровищах и прочей ерунде ^привлекают сюда толпы авантюристов. А в замке толпы монстров. ХА! А мертвым вещички ведь не нужны?! Верно?!^]];
	pr [[{cont|Продолжить}]];
	elseif read.text == 'Вутс' then
	pr [[^Ага. Это мое имя. Свободный "торговец" к вашим услугам.^]];
	pr [[{cont|Продолжить}]];
	elseif read.text == 'ворота' or read.text == 'Ворота' or read.text == 'ворота замка' then
	pr [[^Ворота замка? Уже собрались уходить? Ха-ха! А как же сокровища и несметные богатства? Ладно. ^Открою вам маленький секрет и заметьте - совершенно бесплатно! Ворота не всегда заперты.^ Подождите до новолуния и спокойно удирайте отсюда. Если доживете, конечно. До новолуния! Ха-ха-ха!^]];
	pr [[{cont|Продолжить}]];
	elseif read.text == 'выход' then
	pr [[^Выйти из замка? Уже собрались уходить? Ха-ха! А как же сокровища и несметные богатства? Ладно. ^Открою вам маленький секрет и заметьте - совершенно бесплатно! Ворота не всегда заперты.^ Подождите до новолуния и спокойно удирайте отсюда. Если доживете, конечно. До новолуния! Ха-ха-ха!^]];
	pr [[{cont|Продолжить}]];
	elseif read.text == 'крыса' or read.text == 'крысы' then
	pr [[^Крысы? Их тут полно. Мерзкие твари. Хотя если подкините пару золотых, я могу рассказть вам кое-что интересное.^]];
	pr [[{zolot|Держи свое золото.}^]];
	pr [[{cont|Продолжить}]];
	elseif read.text == 'король' or read.text == 'Король' then
	pr [[^Старый король? Он давно уже представился. По крайней мере так говорят. В любом случае - я его никогда не видел,^ ни живым, ни мертвым. Ха! К счастью для себя.^]];
	pr [[{cont|Продолжить}]];
	elseif read.text == 'Пока' or read.text == 'пока' or read.text == 'До встречи' or read.text == 'до встречи' then
	pr [[^Уже уходите? Мне тоже пора "прогуляться". Если чего будет нужно - ищите меня здесь. И еще, ха! ^Постарайтесь помереть где-нибудь на этом этаже замка. У нас тут, так сказать разные "участки". Удачи!^]];
	pr [[{bane_loc3|Продолжить}]];
	elseif read.text == 'дурак' or read.text == 'идиот' or read.text == 'придурок' or read.text == 'кретин' then
	pr "^Очень умно.., по-вашему, я " p (read.text,"? В таком случае, можете не расчитывать на мою помощь!");
	pr [[^{cont|Продолжить}]];
	elseif read.text ~= '' then
	local r = rnd(8);
	if r <= 2 then
	pr [[^Понятия не имею о чем это вы.^]];
	pr [[{cont|Продолжить}]];
	elseif r >= 6 then
	pr [[^"Ээ-ээ-эх" - Вутс картинно зевает. Или тема беседы его не увлекает, или это 'тонкий' намек на то, ^что вам пора идти. Подальше отсюда.^]];
	pr [[{cont|Продолжить}]];
	else
	pr [[^Стоять и трепаться не самое лучшее занятие. Может пойдете куда-нибудь? Займетесь чем-нибудь?^]];
	pr [[{cont|Продолжить}]];end;
	elseif _dialog_vuts_z == true then
	pr [[^Мне кажется, вам уже {bane_loc3|пора}! Мне еще пару старых шкафов "осмотреть" нужно.^]];
	pr [[Кстати у меня тут кое-что появилось новенькое. Вчера крысы сожрали очередную группу идиотов, забравшихся в замок.^Или вы все еще намерены {rasg|поболтать}?]];
	elseif not _dialog_vuts_v then
	pr(bane_tekst());
	pr[[В отличии от прочих комнат в замке, эта производит впечатление жилого помещения. Даже камин вполне себе рабочий.^^]];
	pr [[Ага! Еще одна кампания искателей сокровищ! Или приключений? Хотя, какая разница!^ Пока вас не сожрут ]]; pr (txtem([[крысы]]));
	pr [[, или кто похуже, можете заглядывать в мое логово. ^Я ]];
	pr (txtem([[Вутс]])); pr[[, хм... Скажем, местный "торговец". Точно! Что-то вроде того. Ха!^ Кстати у меня тут кое-что имеется, некоторые "излишки". Могу обменять на монеты.^Или вы намерены {rasg|поболтать}?]];
	elseif _dialog_vuts_v == true and not _dialog_vuts_i then
	pr [[^Опять вы? Не могу сказать, что рад вас видеть, но если вы собираетесь оставить у меня свое золото, ^я вполне могу изменить свое мнение.]];
	pr [[^Кстати у меня тут кое-что появилось новенькое. Совершенно случайно это добро попало мне в руки.^Или вы намерены {rasg|поболтать}?]];
	else
		pr (txtc([[^Ну и о чем вы хотели {xwalk(read)|поговорить}?^]]));
	end;
	elseif _bane == 2 then
	pr [[^Королевство Ллилгамин давным-давно приказало долго жить. ^Некогда мудрую и справедливую королевскую династию сменила другая ... менее мудрая и справедливая.^ Новый король, сформировав альянс со злым могущественным чародеем, ^нашел некий артефакт, позволяющий переписывать реальность.^ И начались столетия жестокой тирании, рабства, войн и оживших кошмаров. Пока всё таинственным образом не закончилось.^ Уже несколько сотен лет никто не слышал ни о Короле, ни его Королеве, ни о Чародее. Замок давно заброшен.^ Но, говорят, по ночам там все еще нет-нет да и мелькает свет, и дикие, ужасные звуки оглашают окрестности.]];
	pr [[^^{bane_loc2|Дальше}]];
	pr [[^^{bane_ret|Выйти из демоверсии}]];
	elseif _bane == 1 then
	pr [[^Ограничения демо-версии:^В демо-версии недоступно создание персонажей.^Некоторые функциональные опции работают некорректно.^Инвентарь персонажей представлен не в полном объеме.^
	Сражения доступны только в демонстрационном варианте.^Побродить можно только по первому этажу заброшенного замка.^^Пояснения по демо-версии:^Диалоги с персонажами, встречающимеся в игре, максимально приближены к "родным визардовским".^В поле ввода введите слово (с помощью клавиатуры или мыши) и жмите Enter или Ввод.^Слова, выделенные курсивом, чаще всего являются ключевыми для загадок, общения с персонажами.
	^^{bane_loc1|Дальше}]];
	pr [[^^{bane_ret|Выйти из демоверсии}]];
	else 
	pr [[^Небольшое техническое пояснение. Во-первых почему псведо-ремейк.^ Серия Wizardry своебразная рпг со сложным геймплеем, тяжелой "прокачкой" команды и необычным подходом^ к общению с 
	игровыми персонажами. 6 часть никогда не переводилась на русский язык и существует ^только в "досовском" варианте. Текста в оригинальной игре не так уж и много.^
	В "Кузнице Вселенной" мы постарались сохранить "дух" старых "визардов", ^но при этом сделать из нее настоящюю текстовую игру.
	^^{bane_loc|Дальше}
	^^{bane_ret|Выйти из демоверсии}]];end;
	end;
	end;
	click = function(s, x, y)
	if not _pers and not _pers1 and not _pers2 and not _pers3 and not _pers4 and not _pers5 then
	if x > 8 and x < 78 and y > 95 and y < 163 then
	_pers = true;
	pr(bane_inf());
	elseif x > 7 and x < 77 and y > 200 and y < 270 then
	_pers1 = true;
	pr(bane_inf());
	elseif x > 6 and x < 75 and y > 307 and y < 377 then
	_pers2 = true;
	pr(bane_inf());
	elseif x > 924 and x < 993 and y > 94 and y < 162 then
	_pers3 = true;
	pr(bane_inf());
	elseif x > 923 and x < 991 and y > 202 and y < 270 then
	_pers4 = true;
	pr(bane_inf());
	elseif x > 923 and x < 993 and y > 307 and y < 375 then
	_pers5 = true;
	pr(bane_inf());end;end;
	end;
	xdsc = function()
	if _pers == true or _pers1 == true or _pers2 == true or _pers3 == true or _pers4 == true or _pers5 == true then
	pr[[{info|Инвентарь.}^]];
	pr[[{info1|Навыки}^]];
	pr[[{info2|Информация.}^]];
	pr[[{info3|Назад.}^]];end;
	end;
	obj = {
		xact('info', 'Инвентарь персонажа недоступен в демо-версии.'),
		xact('info1', 'Невозможно посмотреть навыки персонажа в демо-версии.'),
		xact('info2', 'Информация о персонаже недоступна в демо-версии.'),
		xact('info3', code[[_pers = nil;_pers1 =nil; _pers2 =nil; _pers3 =nil; _pers4 =nil; _pers5 = nil;walk(to_wizardri);]]),
		xact('bane_ret', code[[walk(to_demo); _bane = 0; _dialog_vuts_v = nil; set_sound('snd/Book.ogg', 1, 1);ns_n = "";]]),
		xact('bane_loc', code[[_bane = 1;walk(to_wizardri);]]),
		xact('bane_loc1', code[[_bane = 2;walk(to_wizardri);]]),
		xact('bane_loc4', code[[_dialog_vuts_i= nil;_bane = 5;walk(to_wizardri);]]),
		xact('bane_loc2', code[[_vuts = true;_bane = 3;_hp = 1;_hp1 = 1;_hp2 = 1;_hp3 = 1;_hp4 = 1;_hp5 = 1;_st = 1;_st1 = 1;_st2 = 1;_st3 = 1;_st4 = 1;_st5 = 1;walk(to_wizardri);]]),
		xact('bane_loc3', code[[read.text = '';_dialog_vuts_z = false;_vuts = false;_bane = 4;walk(to_wizardri);]]),
		xact('cont', code[[read.text = '';_dialog_vuts_z = true;]]),
		xact('rasg', code[[_dialog_vuts_v = true;_dialog_vuts_i= true;_dialog_vuts_z = false;]]),
	},
	exit = function ()
	stop_music('demo/wizardry/Underground.ogg');
	stop_music('demo/chupakabra/Interlude.ogg');
	theme.gfx.bg "theme/bg.png";
	theme.menu.gfx.button ("theme/menu.png",970,710);
	theme.win.geom (30,60, 780, 680);
	theme.inv.mode = vertical;
	theme.inv.geom(860, 40, 145, 650);
	theme.win.color('#00CD00', '#CDC673', 'red');
	theme.win.font('theme/Washington.ttf', 20, 1.0);
	theme.inv.font('theme/Washington.ttf', 18, 1.0);
	theme.gfx.cursor('theme/cursor.png', 'theme/cursor-use.png', nil, nil);
	theme.gfx.mode 'embedded';
	end,
--	hideinv = true,
};

read = keyboard {
	enter = function()
	if _bane == 3 then
	set_music('demo/wizardry/Underground.ogg');
	theme.gfx.bg "demo/wizardry/bg2.png";
	theme.menu.gfx.button ("demo/wizardry/menu.png",980,720);
	theme.win.geom (0, 0, 1024, 590);
	theme.inv.mode = horizontal;
	theme.inv.geom(60, 620, 800, 180);
	theme.win.font('demo/wizardry/Fn67ADAm.ttf', 23, 1.0);
	theme.inv.font('demo/wizardry/Fn67ADAm.ttf', 24, 1.0);
	theme.win.color('white', '#CDC673', 'red');
	theme.gfx.cursor('demo/wizardry/cursor.png', 'demo/wizardry/cursor-use.png', nil, nil);
	theme.gfx.mode 'fixed';end;
	if _krys == 3 then
	set_music('demo/krys/tema.ogg');end;
	end;
	pic = function ()
	if _bane == 3 then
	pr(bane_pic());
	elseif _krys == 5 then 
	return 'demo/krys/fon13.png';end;
	end;
	nam = 'Текст:';
	disp = function()
	if _bane == 3 then
	pr '';
	else
	pr 'Выбор имени:';
		end;
	end;
	msg = "Поле ввода:";
	exit = function ()
	
	end,
	hideinv = true,
	}