maximov_1 = room{
 nam = 'Почтовый ящик 107. -- г. Красноярск, ул. Третьего Призрака 13-2',
 dsc = "",
 obj = {
  sentence([[Уважаемый господин Цветников!^^
   Ситуация с Сибирским музеем действительно серьёзна.^^
   После ошибки в приобретении экспонатов на Московской выставке наши друзья из города Кирова обратились к другим музейным работникам.^^
   Если вам так будет угодно посмотреть на фрески Владимирской центральной коллекции, я не буду вас останавливать. Пожалуйста,продолжайте общение с частными коллекциями.^^
   Почему до сих пор нет известий от Мурманского филиала?Наша маленькая экспедиционная группа давно должна была вернуться с новостями от эскимосов. Я жду сувениров уже два месяца.^^
   Неужели музейное дело -- такое сложное занятие? Не вынуждайте меня прибегать к строгим мерам. Будьте уверены: для вас и всей вашей коллегии это ничем  хорошим не закончится.^^]]),
  vobj("", txtr('Максим В.')),newline,
  signed, 'sign_maximov_1'
 }
};

maximov_2 = room{
 nam = 'г. Красноярск -- Почтовый ящик 107.',
 dsc = "",
 obj = {
  sentence("Дорогой Максим!^^"),
  vobj("", txtr('Друг.')),newline,
  signed, 'sign_maximov_2'
 }
};

sign_maximov_1 = obj{
 nam = 'send',
 dsc = txtc(txtu('{ОТПРАВИТЬ}')),
 act = function()
  local i = 2;
  local send = function(word1, word2, text)
   if (is_activated(word1, word2, maximov_1) == false) then
    table.insert(maximov_2.obj, i, sentence(text))
    i = i+1
   end
  end
  do
   local addressee = is_activated("господин", "Цветников", maximov_1)
   if (is_activated("Уважаемый", "господин", maximov_1) == false) then
    table.insert(maximov_2.obj, i, sentence("Я не совсем понял, за кого ты меня принимаешь."))
    i = i+1
   end
   if addressee == true then
    table.insert(maximov_2.obj, i, newline)
    i = i+1
   else
    table.insert(maximov_2.obj, i, sentence("По правде сказать, я не понял, к кому ты обращался. Мы решили, что ты имел в виду Цветникова -- ему и отдали письмо.^^"))
    i = i+1
   end
  --send("Уважаемый", "господин", "Я не совсем понял, за кого ты меня принимаешь.") --простое условие
  end
  return walk('maximov_2');
 end,
}
 
sign_maximov_2 = obj{
 nam = 'send',
 dsc = txtc(txtu('{ОТПРАВИТЬ}')),
 act = function()
  return walk('newspaper_1');
 end,
}