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

			poff("on_iyh");

		end;

		if (char_learr.follow) then

			pon('stay');

			poff('join');

		else

			pon('join');

			poff('stay');

		end;

        psub("generic");   

		return [[Леарр вопросительно смотрит на вас. ]];

	end;

	phr = {

        {tag="on_solution_not_returned"};

        {tag="sp11", "Будет лучше если артефакты останутся у нас. ", [[Леарр удивляется вашим словам: "Они принадлежат нам!" ]], code [[ rel_learr = rel_learr - 1; psub("generic");]]};

        {tag="sp12", "Светлова вернет вам артефакты, как только всесторонне изучит их, бояться нечего. ", [[Леарр кивает: "Я знаю". ]], code [[ rel_learr = rel_learr + 1; psub("generic");]]};

        {"Посмотрим, что светлова сможет извлечь из этого. Но я пришел поговорить от другом. ", function(s)

            if rel_learr < 0 then

                return [[Леаар просит: "Ты ответь". ]];

            else

                psub("generic");

                return [[Леарр кивает: "Ты говори". ]];

            end;

        end};

        {tag="on_solution_returned_ok"};

        {tag="sp21", "Было бы лучше, если бы артефакты остались у нас. ", [[Леарр удивляется вашим словам: "Они принадлежат нам!" ]], code [[ rel_learr = rel_learr - 1; psub("generic");]]};

        {tag="sp22", "Правила есть правила. ", [[Леарр кивает: "Я знаю". ]], code [[ rel_learr = rel_learr + 1; psub("generic");]]};

        {"Я пришел поговорить от другом. ", function(s)

            if rel_learr < 0 then

                return [[Леаар просит: "Ты ответь". ]];

            else

                psub("generic");

                return [[Леарр кивает: "Ты говори". ]];

            end;

        end};        

        {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="quit", always=true, "Поговорим в другой раз. ", [[Уолтер кивает: "Хорошо".]], code [[pret();]]};

        {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()

				char_learr:accompany(true);

				char_phaetlarr:accompany(false);

				char_radcliffe:accompany(false);

				char_wright:accompany(false);

				char_anna:accompany(false);

				pon('stay');

				poff('join');

			end;

		};

		{ tag = "stay", always = "true", "Оставайся на Левиафане.", [[Леарр отвечает: "Хорошо". ]], 

			function()

				char_learr.accompany(char_learr, false);

				poff('stay');

				pon('join');

			end;

		};

			function() 

				back();

			end;

		};

	};

};

phaetlarr_phone_dlg = dlg {

    nam = "Фаэтларр";

    entered = function(s)

        if (char_phaetlarr.follow) then

            pon('stay');

            poff('join');

        else

            pon('join');

            poff('stay');

        end;

        return [[Вы слышите голос Фаэтларра: "Фаэтларр слушает. Ты говори". ]];

    end;

    phr = {

        { tag = "join", always = "true", "Я хочу, чтобы ты пошел со мной в следующий раз.", [[Фаэтларр отвечает: "Хорошо". ]],

            function()

                char_learr:accompany(false);

                char_phaetlarr:accompany(true);

                char_radcliffe:accompany(false);

                char_wright:accompany(false);

                char_anna:accompany(false);

                poff('join');

                pon('stay');

            end; 

        };

        { tag = "stay", always = "true", "Оставайся на Левиафане.", [[Фаэтларр отвечает: "Хорошо". ]], 

            function()

                char_phaetlarr.accompany(char_phaetlarr, false);

                pon('join');

                poff('stay');

            end;

        };

        { tag = "exit", always = "true", "Это все.", [[Фаэтларр отвечает: "Ты приходи. Конец связи". ]], 

            function() 

                back();

            end;

        }

    };

};

phaetlarr_home_dlg = dlg {

	nam = "Фаэтларр";

	entered = function(s)

		if (char_phaetlarr.follow) then

			pon('stay');

			poff('join');

		else

			pon('join');

			poff('stay');

		end;

		return [[Фаэтларр ждет ваших указаний. ]];

	end;

	phr = {

		{ tag = "join", always = "true", "Я хочу, чтобы ты пошел со мной в следующий раз.", [[Фаэтларр отвечает: "Хорошо". ]],

            function()

                char_learr:accompany(false);

                char_phaetlarr:accompany(true);

                char_radcliffe:accompany(false);

                char_wright:accompany(false);

                char_anna:accompany(false);

                poff('join');

                pon('stay');

            end; 

        };

        { tag = "stay", always = "true", "Оставайся на Левиафане.", [[Фаэтларр отвечает: "Хорошо". ]], 

            function()

                char_phaetlarr.accompany(char_phaetlarr, false);

                pon('join');

                poff('stay');

            end;

        };

        { tag = "exit", always = "true", "Это все.", [[Фаэтларр отвечает: "Ты возвращайся". ]], 

            function() 

                back();

            end;

        }

	};

};

radcliffe_phone_dlg = dlg {

    nam = "Уолтер Рэдклифф";

    entered =function(s)

        if (char_radcliffe.follow) then

            pon('stay');

            poff('join');

        else

            pon('join');

            poff('stay');

        end;