tempor = room {
    nam = '...',
    north = 'tempor',
    east = 'tempor',
    south = 'tempor',
    west = 'tempor',
    _visit = 0,
    _dest = 0,
    pic = function (s)
        if seen (clot) then
            return 'images/tempor_clot.png';
        end
        local p = s._visit%2;
        if s._visit == 1 then
            return 'images/tempor_fly.png';
        end
        if p == 0 then
            return 'images/tempor_desert_1.png';
        else
            return 'images/tempor_desert_2.png';
        end
    end,
    enter = function (s, from)
        local v = rnd (20);
        set_music('music/32_tempor.ogg');
        if from == fly_fly_tempor_2 then
            s._visit = 1;
        end

        if from == tempor then
            objs():zap();
        end

        if s._dest == 5 then
            objs(tempor):add(clot);
        end

        if from == tempor then
            s._visit = s._visit + 1;
            if v == 17 then
                return goto (tempor_dwarfs);
            end
            if v == 18 then
                return goto (tempor_lisa);
            end
            if v == 19 then
                return goto (tempor_fly);
            end
        end
        if s._visit > 7 then
            s._visit = 2;
        end
    end,
    dsc = function (s)
        if s._visit == 1 then
            return 'Я вылез из шлюпки и осмотрелся. Вокруг меня простиралась безжизненная пустыня: потрескавшаяся земля и редкие колючие кустарники.';
        end
        if s._visit == 2 then
            return 'Я несколько часов шёл по мёртвой пустыне Темпора. Над растрескавшейся землёй, покрытой сухими колючками и лишайником, не было ни малейшего ветерка. Изредка я видел плотные туманные сгустки, которые медленно, словно призраки, перемещались над трещинами и сопками.';
        end
        if s._visit == 3 then
            return 'Прошло несколько часов, а я всё шёл и шёл по пустыне. Воздух здесь был тяжёлый, густой и горячий. Он при каждом вдохе обжигал мои лёгкие.';
        end
        if s._visit == 4 then
            return 'Пустыня Темпора поражала воображение своими размерами. Я слышал, что Зона простирается над всем южным полушарием Раккслы. Блуждать здеь можно было до бесконечности.';
        end
        if s._visit == 5 then
            return 'Снова и снова мимо меня проплывали странные туманные сгустки. Иногда казалось, что это разумные существа, которые живут здесь своей странной темпоральной жизнью.';
        end
        if s._visit == 6 then
            return 'Ещё несколько часов я шёл вдоль длинной глубокой трещины, изнутри покрытой мхом. Дышать было тяжело. Два белых сгустка медленно проплыли мимо меня. Один из них слегка коснулся моего плеча. Меня обдало холодом. Температура этих странных образований была много ниже нуля...';
        end
        if s._visit == 7 then
            return 'Мне показалось, что здесь нет ночей. И хотя небо над головой иногда темнело, Темпор светился изнутри. А может быть я, как и многие другие первопроходцы, так и останусь здесь навеки? Иногда я замечал занесённые песком человеческие кости...';
        end
    end,
    rest = function (s)
        return goto (tempor_rest);
    end,
    obj = { 'fly_tempor', 'fly_hatch_tempor', 'postsign' },
    exit = function (s, to)
        if to == tempor then
            if status._way == 'S' then
                if s._dest == 0 then
                    s._dest = 1;
                else
                    s._dest = 0;
                end
            end
            if status._way == 'N' then
                if s._dest == 1 then
                    s._dest = 2;
                else
                    if s._dest == 3 then
                        s._dest = 4;
                    else
                        s._dest = 0;
                    end
                end
            end
            if status._way == 'W' then
                if s._dest == 2 then
                    s._dest = 3;
                else
                    s._dest = 0;
                end
            end
            if status._way == 'E' then
                if s._dest == 4 then
                    s._dest = 5;
                else
                    s._dest = 0;
                end
            end
            objs(tempor):del(fly_tempor);
            objs(tempor):del(fly_hatch_tempor);
            objs(tempor):del(postsign);
            objs(tempor):del(clot);
            health_finish._from = deref(here());
            clock_next ();
            status_change (-2, -1, -1, 0, 0);
            return check_health();
        end
    end,
};


fly_tempor = iobj {
    nam = 'шлюпка «Муха»',
    exam = function(s)
        return 'Одноместная воздушная шлюпка «Муха».';
    end,
};


postsign = iobj {
    nam = 'столб',
    exam = function(s)
        return 'На выцветшей табличке надпись: «Точка входа. Напряжённость поля — ноль.^Джон Мак^2467 год».^И чуть ниже дописано:^«Мы будем первыми!»';
    end,
};


fly_hatch_tempor = iobj {
    nam = 'люк «Мухи»',
    exam = function(s)
        return 'Люк одноместной воздушной шлюпки «Муха».';
    end,
    useit = function (s)
        if here() == tempor then
            return goto (fly_cabin_tempor);
        else
            return goto (tempor);
        end
    end,
};


tempor_rest = room {
    nam = '...',
    pic = function (s)
--        return call(ref(s._from),'pic');
        return call(ref(from(s)),'pic');
    end,
    enter = function (s)
        me():disable_all();
    end,
    dsc = function (s)
        return 'Я разместился прямо на земле и решил немного отдохнуть. Меня стало клонить ко сну. Мне снился какой-то страшный сон, как будто я стою в окружении стаи сгустков, обжигающих меня своими ледяными прикосновениями. Я чувствовал, что замерзаю...';
    end,
    obj = { vway('1', '{Далее}', 'the_end') },
};


clot = iobj {
    nam = 'сгусток',
    exam = function(s)
        return 'Огромный, просто гигантский сгусток, скорее похожий на торнадо.';
    end,
    useit = function (s)
        return goto (tempor_final_1);
    end,
}:disable();



tempor_dwarfs = room {
    nam = '...',
    pic = function (s)
        return 'images/141.png';
    end,
    enter = function (s)
        me():disable_all();
    end,
    dsc = function (s)
        return 'Спустя какое-то время мимо меня прошли несколько карликов, вооружённых копьями и луками. Я проводил их взглядом, пока они не растворились в туманной пелене Темпора...';
    end,
    obj = { vway('1', '{Далее}', 'tempor') },
    exit = function (s)
        me():enable_all();
    end,
};


tempor_lisa = room {
    nam = '...',
    pic = function (s)
        return 'images/127a.png';
    end,
    enter = function (s)
        me():disable_all();
    end,
    dsc = function (s)
        return 'Неожиданно из тумана появился знакомый мне пейзаж. Посёлок для ссыльных, дом Лизы Тейлор, а у крыльца — сама старуха. Старая женщина смотрела на меня безучастно, казалось, она была погружена в свои мысли...';
    end,
    obj = { vway('1', '{Далее}', 'tempor') },
    exit = function (s)
        me():enable_all();
    end,
};


tempor_fly = room {
    nam = '...',
    pic = function (s)
        return 'images/tempor_fly.png';
    end,
    enter = function (s)
        me():disable_all();
    end,
    dsc = function (s)
        return 'Через несколько часов я увидел перед собой свою шлюпку. Но как только я подошёл к ней ближе, она растаяла...';
    end,
    obj = { vway('1', '{Далее}', 'tempor') },
    exit = function (s)
        me():enable_all();
    end,
};



fly_cabin_tempor = room {
    nam = '«Муха»',
    north = nil,
    east = nil,
    south = nil,
    west = nil,
--    _visit = 0,
    _rested = 0,
    pic = function (s)
        return 'images/fly_cabin.png';
    end,
    enter = function (s, from)
--        s._visit = s._visit + 1;
--        if s._visit > 2 then
--            s_visit = 2;
--        end
    end,
    dsc = function (s)
        return 'Я снова залез внутрь «Мухи».';
    end,
    rest = function (s)
        if s._rested == 0 then
            s._rested = 1;
            status_change (2, 1, 1, 0, 0);
            return 'Прошло несколько часов.';
        end
        if s._rested == 1 then
            if status._health == 1 then
                health_finish._from = deref(here());
                return goto (health_finish);
            else
                status_change (-2, -1, -1, 0, 0);
                return 'Прошло несколько часов.';
            end
        end
    end,
    obj = { 'fly_hatch_tempor', 'fly_console_tempor' },
--    exit = function (s, to)
--        if to == r_433 or to == r_435 then
--            health_finish._from = deref(here());
--            clock_next ();
--            status_change (-2, -1, -1, 0, 0);
--            return check_health();
--        end
--    end,
};


fly_console_tempor = iobj {
    nam = 'пульт',
    exam = function(s)
        objs(fly_cabin_tempor):add(fly_hole_tempor);
        return 'На передней панели была щель для карточки электронного навигатора.';
    end,
    useit = function (s)
        return 'Система ориентации неисправна. Полёт невозможен.';
    end,
};


fly_hole_tempor = iobj {
    nam = 'щель',
    exam = function(s)
        return 'Щель для карточки электронного навигатора.';
    end,
};



tempor_final_1 = room {
    nam = '...',
    pic = function (s)
        return 'images/tempor_clot.png';
    end,
    enter = function (s)
        set_music('music/01_intro.ogg');
        me():disable_all();
    end,
    dsc = function (s)
        return 'Пожелав себе удачи, я шагнул в неизведанное...';
    end,
    obj = { vway('1', '{Далее}', 'tempor_final_2') },
};


tempor_final_2 = room {
    nam = '...',
    pic = function (s)
        return 'images/final.png';
    end,
--    dsc = function (s)
--        return 'Пожелав себе удачи, я шагнул в неизведанное...';
--    end,
    obj = { vway('1', '{Далее}', 'tempor_final_3') },
};


tempor_final_3 = room {
    nam = '...',
--    pic = function (s)
--        return 'images/final.png';
--    end,
    dsc = function (s)
        return 'Поздравляю!!! Вы только что с блеском прошли игру «Звёздное Наследие. Часть 1. «Чёрная Кобра»».^Главный герой под вашим руководством прошёл все испытания и теперь направляется в Иную Вселенную.^О том, что же было дальше, можно было бы узнать из игры «Звёздное Наследие. Часть 2. По ту сторону Вселенной». Однако, к сожалению, вторая часть игры до сих пор не была выпущена.';
    end,
    obj = { vway('1', '{Далее}', 'tempor_final_4') },
};


tempor_final_4 = room {
    nam = '...',
    pic = function (s)
        return 'images/146b.png';
    end,
    dsc = function (s)
        return 'Перенос игры на платформу INSTEAD (2009-2011 годы) — Вадим В. Балашов^vvb.backup@rambler.ru^^Надеюсь, Вам понравилось играть в «Звёздное Наследие».';
    end,
--    obj = { vway('1', '{Далее}', 'tempor_final_4') },
};
