diff --git a/party.lua b/party.lua
--- a/party.lua
+++ b/party.lua
@@ -28,12 +28,15 @@ char_learr = obj {
 		follow = false;
         
         on_books = 0;
+        on_join = 0;
+        on_before = 0;
+        on_atlantis = 0;
 	};
 	nam = "learr";
 	disp = "Леарр";
 	dsc = function(s)
 		if (stead.nameof(where(s)) == s.home) then
-			return [[{Леарр} стоит возле одного из иллюминаторов и наблюдает за происходящим снаружи субмарины. ^]];
+			return [[{Леарр} сидит в кресле, листая книгу. ^]];
 		else
 			return [[{Леарр} ждет ваших указаний. ^]];
 		end;
@@ -173,6 +176,32 @@ learr_home_dlg = dlg {
 	disp = "Леарр";
 	hideinv = true;
 	entered = function(s)
+        --on_books = 0;
+        --on_join = 0;
+        --on_before = 0;
+        --on_atlantis = 0;
+        poff("on_books", "on_join", "on_before", "on_atlantis", "talk");
+        if (rel_learr < 0) then
+            pon("talk");
+        else
+            --[[if (char_learr.on_books < 3) then
+                pon("on_books");
+                pon("talk");
+            end;]]
+            if (char_learr.on_join < 2) then
+                pon("on_join");
+                pon("talk");
+            end;
+            if (char_learr.on_before < 2) then
+                pon("on_before");
+                pon("talk");
+            end;
+            if (char_learr.on_atlantis < 2) then
+                pon("on_atlantis");
+                pon("talk");
+            end;
+        end;
+    
 		if (atl_iyh_state == 7) then
 			pon("on_iyh");
 		else
@@ -187,11 +216,37 @@ learr_home_dlg = dlg {
 			poff('stay');
 		end;
 	
+        psub("generic");   
 		return [[Леарр вопросительно смотрит на вас. ]];
 	end;
 	phr = {
+        {tag="more_questions"};
+        {tag="on_books", "", function() 
+            
+        end};
+        {tag="on_join", "Почему ты отправилась с нами?", function() 
+            char_learr.on_join = 2;
+            return [[Леарр отвечает: "Я с-Уильямом-Дрейком-хотела-отправиться, но отец не-разрешил. Он сейчас-изменил-решение и я могу-с-тобой-искать". ]];
+        end}
+        {tag="on_before", "Расскажи о своей жизни в Ираафаанотре.", function() 
+            char_learr.on_before = 2;
+            return [[Леарр отвечает: "Я вождя-дочь. Я думать-искать-решать-сложно-но-интересно-было-училась. Хевьяры пришли-и-все-изменили. Я теперь-говорить-не-с-навьярами-учусь. Отец будущему-вождю-полезно-это-говорит. Я согласна-с-ним-в-этом".]];
+        end}
+        {tag="on_atlantis", "Что ты думаешь об Атлантиде?", function() 
+            char_learr.on_atlantis = 2;
+            return [[Леарр отвечает: "Мы многому-научиться-у-вас-должны-и-можем. Вы в-воде-не-дышите-как-мы, но вы машины-делающие-это-за-вас-строите. Легенды гласят, что мы тоже-это-умели, но почему-разучились? Я не умею. Отец не умеет. Другие не умеют. И в-книгах-не-написано". Леарр печально вздыхает. ]];
+        end}
+        {tag="generic"};
+        { tag = "talk", always = true, "Я хочу кое-что спросить.", function(s)
+            if rel_learr >= 0 then
+                psub("more_questions");
+                return [[Леарр кивает: "Ты говори". ]];
+            else
+                return [[Леарр отвечает: "Мы потом-поговорим". ]];
+            end;
+        end};
 		{ tag = "on_iyh", always = true, "Что ты можешь рассказать мне о храме?", [[
-			"Каждый-храм два-входа-имеет. Большой-главный-вход далеко-виден. Тайный-задний-вход незаметен-но-всегда-есть. Мы давно-потеряли дорогу-к-этому-святилищу и задний-вход-не-помним. Если мы задний-вход-найдем, то обманим затмевающего-свет и в-храм-проникнем".
+			"Каждый-храм два-входа-имеет. Большой-главный-вход далеко-виден. Тайный-задний-вход незаметен-но-всегда-есть. Мы давно-потеряли дорогу-к-этому-святилищу и задний-вход-не-помним. Если мы задний-вход-найдем, то обманем затмевающего-свет и в-храм-проникнем".
 		]]};
 		{ tag = "join", always = true, "Я хочу, чтобы ты пошла со мной в следующий раз", "Хорошо", 
 			function()