Очень малое изменение, но у меня нет времени на прописывание кабинета.

dialogues.lua

@@ -317,3 +317,9 @@ meet_oan = dlg{
   end),
  }
 }
+meet_vanessa = dlg{
+ nam = 'Кабинет',
+ dsc = [[Высокая рыжая девушка в лёгкомысленном платьице до колен роется среди книг, пытаясь что-то найти.]],
+ obj = {
+ }
+}

objects.lua

@@ -372,3 +372,9 @@ toilet_window = xact("window_act", "Джек знает, зачем нужно
 fence = xact("забор", "В заборе нет калитки и он слишком высок даже для Джека.")
 house_back = xact("задняя стена дома", "Задняя стена дома видна превосходно. На первом этаже есть дверь и два окна. Между первым и вторым этажами идёт узенький карниз. На втором этаже находятся три окна. Выше виден только скат {roof:крыши}.")
 roof = xact("крыша","Черепица нетронута -- во всяком случае, на краю.")
+
+vanessa_seeking = obj{
+ nam = 'Ванесса, ищущая дневник',
+ dsc = [[Книжный шкаф открыт; в книгах копается молодая {девушка}.]],
+ act = code[[goto('meet_vanessa')]]
+}

rooms.lua

@@ -236,7 +236,11 @@ toilet = room{
 }
 parlor = room{
  nam = 'Кабинет',
+ enter = function() if meet_vanessa:pseen(1) then obj():add('vanessa_seeking') end end,
  dsc = [[]],
+ exit = function() obj():del('vanessa_seeking') end,
+ obj = {
+ }
  way = {'dining'}
 }
 backyard = room{