main = xroom {
 nam = 'Игры с разумом',
 xdsc = txtem('Андрей, приезжай ко мне послезавтра в полдень. Ты оставил у меня именной платок. Пётр.^^')..[[Поместье Петра находилось в двадцати километрах от города -- тихая глушь, на мой взгляд, да и только. Пётр с женой купили его несколько лет назад; она называет это место Кунсткамерой. А ещё Люда любит добавлять, что не знает, кто в ней экспонаты. И всегда слабо улыбается после этой уже не смешной шутки.^^Мой платок действительно пропал несколько дней назад -- обычный белый платочек, разве что с моим именем и фамилией на углу. Я думал, что потерял его где-то на работе, но, видимо, не повезло.^^Я остановил машину в саду и подошёл к входной двери. Уже собравшись постучать, я вспомнил про {doorbell|звонок}.]],
 exit = [[В тишине дома прозвенел колокольчик. Шагов не послышалось. Я позвонил ещё -- и тут заметил, что дверь приоткрыта. Возможно, Пётр действительно хочет меня видеть? Хотя вряд ли -- он ненавидит меня, как возможно ненавидеть любовника жены. Скорее всего, за этой дверью меня ждёт какая-нибудь злая шутка.^^
 Осторожно смотря по сторонам и тщательно следя за полом, я вошёл внутрь и на всякий случай запер дверь на засов.^^
 --Пётр! Пётр Витальевич!^^
 И тут я увидел это. В центре гостиной, в камине, лежало женское тело. Скрюченное пополам и тлеющее на углях. Похоже, шутки закончились.]],
 obj={doorbell}
};

random_question = function()
 ifsen = 'Назовите, какой год стал бы начальным годом летоисчисления, если бы...^';
 response = {'...на планете существовала единственная религия.', '...динозавры бы не вымерли.', '...неандертальцы победили кроманьонцев.', '...Землю захватили инопланетные жуки-паукоеды.', '...роботы из будущего взорвали ядерную бомбу в Европе.','...Большой Взрыв произошёл на полчаса раньше.','...Кинг-Конг жил.','...человечество не изобрело колесо.','...человечество не изобрело цифры.','...лошади могли разговаривать с людьми телепатически.', '...Римской Империи не существовало.', '...динозавры были стёрты с лица Земли падением гигантского метеорита.','...Великий Хаос поглотил бы всё живое.'};
 return ifsen..response[rnd(#response)];
end
random_answer = function(range)
 response = {'Первый', 'Второй', 'Третий', 'Четвёртый', 'Пятый', 'Шестой', 'Одиннадцатый','Двенадцатый','Тринадцатый','Четырнадцатый', 'Пятнадцатый', 'Шестнадцатый', 'Семнадцатый', 'Тридцатый', 'Тридцать первый','Тридцать второй', 'Тридцать шестой', 'Тридцать седьмой', 'Тридцать восьмой', 'Тридцать девятый','Сороковой','Сорок первый','Сорок второй','Сорок третий','Сорок четвёртый','Сорок пятый','Сорок шестой','Сорок седьмой','Сорок восьмой','Сорок девятый', 'Пятидесятый', 'Минус первый', 'Минус второй', 'Минус третий', 'Минус четвёртый', 'Минус пятый','Минус шестой','Минус седьмой','Минус восьмой','Минус девятый', 'Минус одиннадцатый', 'Минус двенадцатый', 'Минус тринадцатый', 'Минус четырнадцатый', 'Минус пятнадцатый', 'Минус шестнадцатый', 'Минус семнадцатый','Минус сороковой','Минус сорок первый','Минус сорок второй','Минус сорок третий','Минус сорок четвёртый','Минус сорок пятый','Минус сорок шестой','Минус сорок седьмой','Минус сорок восьмой','Минус сорок девятый', 'Минус пятидесятый'}
 return response[rnd(#response)];
end
puzzle_solving = dlg {
 nam = 'Игра в книге',
 dsc = function()
  p [[Я легонько трясу книгу и слышу, как внутри перекатывается что-то твёрдое.^^]];
  p (random_question())
 end,
 obj = {
  phr(random_answer,'Неправильный ответ.',function() pon(1); back(); end),
  phr(random_answer,'Неправильный ответ.',function() pon(2); back(); end),
  phr(random_answer,'Неправильный ответ.',function() pon(3); back(); end),
  phr(random_answer,'Неправильный ответ.',function() pon(4); back(); end),
  phr(random_answer,'Неправильный ответ.',function() pon(5); back(); end),
  phr('Нет, я не собираюсь играть в эту игру.','',function() pon(6); back(); end),
 }
};
dining_room = xroom {
 nam = 'Столовая',
 dsc = [[Я никогда не понимал, зачем в таком маленьком доме такая большая столовая. Это -- единственная просторная комната, в которой совершенно нет ни одной игры. Возможно,женщины всё-таки настояли на том, чтобы во время еды не было никаких сюрпризов и головоломок. В таком случае я им очень благодарен. Но и хозяин всё-таки отомстил, поставив вместо стен {wrong_mirrors|кривые зеркала}.]],
 way = {'kitchen', 'hall', 'service'},
 obj = {dining_table, small_cup, big_cup,wrong_mirrors}
};
kitchen = xroom {
 nam = 'Кухня',
 dsc = [[Когда-то здесь был повар; потом ни с того ни с сего Пётр объявил, что будет готовить сам, и кухня превратилась в содом. Какой человек на свете вздумает готовить мороженое с майонезом? А он считал это остроумным, и с удовольствием ел, и заставлял есть всех домашних.^^
 Кроме {cupboard|кухонного шкафа}, {oven|духовки} и {fridge|холодильника}, я не могу заметить ничего стоящего внимания.]],
 way = {'dining_room','backdoor'},
 obj = {cupboard, oven, fridge}
};
basement = xroom {
 nam = 'Подвал',
 dsc = [[Я спускаюсь по лестнице из костей в тёмное мрачное сырое подземелье. Щелчок выключателя -- и особая красная подсветка пробуждает во мне желание убежать отсюда поскорее.^^
 Под лестницей хранится запас {wood|дров}. В основной части подземелья находится химическая лаборатория: {meds|склянки}, колбочки, какие-то книги, которые никто никогда не читал, и железная {acid_bath|ванна} с едкой кислотой. Остальное место отведено под {wine|винные полки}. На самом деле, конечно, подвал намного больше, но я никогда не был в его дальних уголках, и не планирую там появляться.]],
 way = {'hall'},
 obj = {wood, meds, acid_bath}
};
master_s_bathroom = xroom {
 nam = 'Ванная хозяина',
 dsc = [[Экстравагантный во всём, Пётр моется исключительно в деревянной {wooden_bath|бадье}. Нет, конечно, {master_toilet|унитаз} и {master_sink|раковина} здесь тоже есть, но они старательно раздвинуты по углам.]],
 obj = {wooden_bath, master_toilet, master_sink},
 way = {'master_s_bedroom'}
};
mistress_bathroom = xroom {
 nam = 'Ванная хозяйки',
 dsc = [[Совершенно обычная ванная. {bath|Ванна}, {toilet|унитаз}, {sink|раковина}. Хотя бы сюда не добрались чьи-то слишком изобретательные руки.]],
 way = {'mistress_bedroom'},
 obj = {bath, toilet, sink}
};
master_s_bedroom = xroom {
 nam = 'Спальня хозяина',
 dsc = [[Полный бедлам. Все шкафы разломаны, пол усеян какими-то странными кусочками каких-то странных головоломок. Скульптуры лежат там же, хотя из них ни одна не сломана. Прямо над кроватью хозяина в стене зияет огромная дыра, возле которой разбросано немного бумажек с портретом королевы.]],
 way = {'master_s_bathroom','second_floor'}
};
mistress_bedroom = xroom {
 nam = 'Спальня хозяйки',
 dsc = [[Здесь стоит по-настоящему царский кавардак. Как будто бы всю комнату вывернули наизнанку: шкафы раскрыты, все платья разбросаны, даже кровать почти что разобрана до основания. О Господи! Какое счастье, что Люда живёт у меня.]],
 way = {'mistress_bathroom','second_floor'}
};
workroom = xroom {
 nam = 'Кабинет',
 dsc = [[Книжные {bookcases|шкафы} делят комнату на две половины. В одной из них стоит большой {royal|рояль}, а в другой -- мощный {computer|компьютер}. Остальные мелкие предметы расставлены возле них, чтобы подчеркнуть величие рояля и компьютера.]],
 way = {'second_floor'},
 obj = {bookcases, royal, computer}
};
outside = xroom{
 nam = 'Сад',
 dsc = [[Я выбегаю из дверей и несусь к машине.]],
 obj = {automobile, stair},
 way = {'hall'}
}
service = xroom{
 nam = 'Спальня горничной',
 way = {'dining_room'},
 dsc = [[Чистая, нетронутая спальня производит такое впечатление, как будто бы она заброшена. Постель не трогали как минимум дней пять. Что за чертовщина?]]
}
backdoor = xroom{
 nam = 'Задняя дверь',
 enter = function() return 'Дверь заперта. Следов снаружи не видно -- видимо, она так и была закрытой. Интересно, как же он ходит в мастерскую?',false end,
}
second_floor = xroom {
 nam = 'Второй этаж',
 way = {'master_s_bedroom', 'mistress_bedroom', 'workroom', 'hall'},
 dsc = [[Я поднимаюсь на второй этаж по одной из вычурных лестниц, срисованных с гравюр Эшера. О, выходя утром из спальни, очень просто ошибиться и попытаться спрыгнуть на потолок. Кстати, спальни для гостей в этом доме нет.]],
 obj = {broken_window}
};
hall = xroom {
 nam = 'Гостиная',
 way = {'outside','second_floor', 'dining_room', 'basement'},
 mus = '',
 xdsc = [[Гостиная обставлена так, чтобы гости могли посмотреть на максимальное количество умственных извращений. Я говорю об играх. У лестницы на второй этаж стоит столик с незавершённым {hall_puzzle|паззлом} на тысячу кусочков, рядом с {hall_sofa|диваном} словно бы ненароком оставлена колода карт, на стенах висит больше {hall_mirrors|зеркал}, чем картин -- наверняка ещё одна, несомненно, остроумная загадка. В центре гостиной возле камина расставлены кресла и диван, а также небольшой {hall_table|столик}, на котором пылится незаконченная партия в шахматы. На каминной полке стоят миниатюрные фигурки солдат и полков -- намёк на то, что хозяин любит моделировать в игре великие исторические сражения. Наконец, в самом камине лежит скрюченное голое женское {hall_body|тело}, которое наглядно показывает, к чему приводят эти надругательства над серыми клеточками.]],
 obj = {hall_puzzle, hall_sofa, hall_mirrors, hall_table, hall_body, crossword_puzzle}
};
game_over = room{
 nam = 'Конец игры',
 enter = function() hideinv(); end,
 dsc = [[-- Прочь! Прочь отсюда. Прочь из этого безумного дома! Боже мой, с каким маньяком я связался! Ну ничего. Я отомщу тебе! Ты запомнишь Андрея Макарова!^^
   И я нажал на педаль газа.^^]]..txtc('КОНЕЦ')..[[^^Игра написана седьмого марта 2011го года на конкурс «ВЖЖ!-8».^^Автор игры: Oreolek.^^
   В игре использована музыка:^^
   1. Xenon Odyssey, The UArts "Z" Big Band -- Bonus Bop^
   2. Walter Mazzaccaro -- Night in Detroit^
   3. Blue Canoe Records -- Neutron Star^
   4. Stan-X -- Cool rix^^
   Спасибо за игру.
 ]]
}
