Катя, которая следует за игроком

intro.lua

@@ -1,8 +1,10 @@
+xact.walk = walk
+
 room {
   nam = 'main',
   noinv = true,
   disp = 'Ремонтник',
-  decor = '^^'..fmt.c('{start|Начать игру}')
+  decor = '^^'..fmt.c('{@ walk intro|Начать игру}')
   ..'^^'..fmt.c('{skip|Пропустить вступление (случайный персонаж)}')..[[^^
     Игра использует код Петра Косых по лицензии MIT (модуль ]]..fmt.em('proxymenu)')..[[^^
     F2 - сохранить игру^
@@ -13,10 +15,6 @@ room {
     - Маркер карты от Jmlevick -- openclipart.org
   ]],
   obj = {
-    obj {
-      nam = 'start',
-      act = function() walk('intro') end,
-    };
     obj {
       nam = 'skip';
       act = function()

locations/chos.lua

@@ -179,6 +179,8 @@ dlg {
   obj = {{
     onempty = function()
       char.quests.kathy = 0
+      place('kathy', here())
+      lifeon('kathy')
       p "Она отворачивается. Видимо, разговор закончен."
       walk('chos')
     end,
@@ -188,9 +190,23 @@ dlg {
 obj {
   nam = 'kathy',
   disp = 'Катя',
+  dsc = "Рядом с вами стоит {Катя}.",
   talk = function()
     return walk('kathy_dlg')
   end,
+  life = function(self)
+    if player_moved() then
+      place('kathy', here())
+      if rnd(10) > 5 and from().nam ~= 'start4' then
+        p 'Катя следует за вами.'
+      end
+      return
+    end
+    if rnd(10) > 8 then
+      p [[Катя напевает песенку.]]
+      return
+    end
+  end,
   take = function()
     pn 'Плохая идея.'
     return false