Поворот сюжета I

locations/abandoned.lua

@@ -317,7 +317,7 @@ obj {
   tak = function()
     char.quests.car = 5
     char.can_leave = true
-    p 'Вы вынимаете ключи из замка зажигания. Больше никто не угонит авто просто так.'
+    p 'Вы вынули ключи из замка зажигания. Больше никто не угонит авто просто так.'
     return true
   end
 }
@@ -330,6 +330,7 @@ obj {
     if s.timer == 2 then
       return [[По дороге сюда едет машина. Похоже, это ваша машина.]]
     end
+    local exit = [[ проковылял ко входу в дом; когда он был уже близко, из входа вылез механический паук, взял робота за шкирку и залез обратно внутрь дома.]]
     if s.timer == 3 then
       char.quests.car = 4
       place('car', here())
@@ -348,9 +349,9 @@ obj {
         -- Механизм.^
         -- Механизм передан.^
         -- Механизм получен. Слава Добру.^^
-        Однорукий робот ковыляет ко входу в дом; когда он уже близко, из входа вылезает механический паук, берёт робота за шкирку и залезает обратно внутрь дома.]]
+        Однорукий робот]]..exit
       else
-        out = out .. [[Он ковыляет ко входу в дом; когда он уже близко, из входа вылезает механический паук, берёт робота за шкирку и залезает обратно внутрь дома.]]
+        out = out .. [[Он ]]..exit
       end
       return out
     end

locations/chos.lua

@@ -24,7 +24,7 @@ room {
         return false
       end,
       act = [[К типовому двухэтажному дому из нанотрубок со временем допечатывали несколько модулей.
-      Часть второго этажа выглядит совсем новой — возможно, её недавно расширили.]],
+      Часть второго этажа выглядела совсем новой — возможно, её недавно расширили.]],
     };
     obj {
       nam = 'angelina',
@@ -177,6 +177,8 @@ dlg {
       -- place('kathy', here())
       -- lifeon('kathy')
       p "У вас больше нет идей. Видимо, разговор закончен."
+      place('call-ui', here())
+      char.call = 'unknown'
       walk('chos')
     end,
     {'Где живёт этот Павел?', [[Это такой зелёный домик, вы его
@@ -254,3 +256,37 @@ dlg {
     }
   }}
 }
+obj {
+  nam = 'call-ui',
+  disp = false,
+  dsc = 'У вас звонит {телефон.}',
+  act = 'Просто откройте телефон.'
+}
+local backtocho = function()
+  walk('chos')
+  return 'Бросили трубку.'
+end
+dlg {
+  nam = 'caller-unknown',
+  decor = function()
+    return [[В трубке говорил незнакомый девичий голос.^^
+    -- Ты не]]..wrong_gendered('должен', 'должна')..[[чинить этот комбайн. Погибнут люди.]]
+  end,
+  obj = {{
+    {
+      'Иди ты к чорту.',backtocho
+    };
+    {
+      'Ну хорошо.',backtocho
+    };
+    {
+      'А мне-то что?',function()
+        changeop('reputation', -10)
+        return backtocho()
+      end
+    };
+    {
+      'Да это же просто комбайн.',backtocho
+    };
+  }}
+}

main3.lua

@@ -61,7 +61,7 @@ room {
   nam = 'intersection',
   disp = 'Перекрёсток',
   decor = [[Просто три просёлочные дороги, которые соединялись вместе.^^
-  В траве возле перекрёстка валяется несколько {glass|разбитых склянок.}]],
+  В траве возле перекрёстка валялось несколько {glass|разбитых склянок.}]],
   way = {'exit_west', 'chos', 'town'},
   obj = {
     obj {

tools.lua

@@ -174,6 +174,12 @@ gendered = function(he, she, it, they)
   end
   return it
 end
+wrong_gendered = function(he, she)
+  if char.gender == 'she' then
+    return he
+  end
+  return she
+end
 official = function()
   if char.gender == 'she' then
     return 'уважаемая'

ui.lua

@@ -128,6 +128,19 @@ dlg {
   nam = 'inventory',
   disp = "Телефон",
   noinv = true,
+  enter = function()
+    local walkto = nil
+    if char.call ~= nil then
+      if char.call == 'unknown' then
+        walkto = 'caller-unknown'
+      end
+    end
+    char.call = nil
+    if walkto ~= nil then
+      walk(walkto)
+    end
+    return true
+  end,
   decor = function()
     return 'Здесь будут все телефоны и заметки, которые вы запишете в телефон.'
   end,