///
/// Исходный код текстовой онлайн игры "Таинственный гараж" скачан с сайта https://apero.ru/
/// Пройти онлайн или скачать последнюю версию этой игры можно по адресу:  https://apero.ru/Текстовые-игры/Таинственный-гараж
/// Авторы: Афанасий Седой
/// Версия: от 2019-03-06 00:45:34
///
\запуск
[size=64]Таинственный гараж[/size]

Обычным осенним днём вам внезапно повстречался загадочный гараж. У вас предчувствие, что в нём содержится нечто очень важное, и вы размышляете об заглядывании в его нутрь.

Неподалёку от гаража распростёрлась хорошо оборудованная площадка. Вы подумали, что на этой площадке очень удобно открывать и закрывать ёмкости. Поэтому, если вам понадобится что-нибудь открыть или закрыть, тут лучшее место для этого!

"А вот в гараже открывать и закрывать будет неудобно", - подумали вы, - "и предметы в руках на весу тоже открывать не очень-то удобно. Не буду так делать. И ещё не буду перемещать открытые предметы, чтобы ничего не высыпалось. Вначале закрою, а потом можно перемещать. И руки мои более одного предмета не удержат." 

\(last=14)

\(nomn1="большегрузный контейнер")
\(nomn2="большой шкаф")
\(nomn3="сундук")
\(nomn4="коробка из-под бананов")
\(nomn5="рюкзак")
\(nomn6="утятница")
\(nomn7="полиэтиленовый пакет")
\(nomn8="стеклянная банка")
\(nomn9="кошелёк")
\(nomn10="спичечный коробок")
\(nomn11="патрон")
\(nomn12="капсула")
\(nomn13="нанокоробочка")
\(nomn14="молекула всевластия")

\(acc1="контейнер")
\(acc2="шкаф")
\(acc3="сундук")
\(acc4="коробку")
\(acc5="рюкзак")
\(acc6="утятницу")
\(acc7="пакет")
\(acc8="банку")
\(acc9="кошелёк")
\(acc10="коробок")
\(acc11="патрон")
\(acc12="капсулу")
\(acc13="нанокоробочку")
\(acc14="молекулу всевластия")

\(gen1="контейнера")
\(gen2="шкафа")
\(gen3="сундука")
\(gen4="коробки")
\(gen5="рюкзака")
\(gen6="утятницы")
\(gen7="пакета")
\(gen8="банки")
\(gen9="кошелька")
\(gen10="коробка")
\(gen11="патрона")
\(gen12="капсулы")
\(gen13="нанокоробочки")
\(gen14="молекулы всевластия")

\(ins1="контейнером")
\(ins2="шкафом")
\(ins3="сундуком")
\(ins4="коробкой")
\(ins5="рюкзаком")
\(ins6="утятницей")
\(ins7="пакетом")
\(ins8="банкой")
\(ins9="кошельком")
\(ins10="коробкой")
\(ins11="патроном")
\(ins12="капсулой")
\(ins13="нанокоробочкой")
\(ins14="молекулой всевластия")

\(en1="ый")
\(en2="ый")
\(en3="ый")
\(en4="ая")
\(en5="ый")
\(en6="ая")
\(en7="ый")
\(en8="ая")
\(en9="ый")
\(en10="ый")
\(en11="ый")
\(en12="ая")
\(en13="ая")
\(en14="ая")

\(pos1=2)
\(pos2=3)
\(pos3=4)
\(pos4=5)
\(pos5=6)
\(pos6=7)
\(pos7=8)
\(pos8=9)
\(pos9=10)
\(pos10=11)
\(pos11=12)
\(pos12=13)
\(pos13=14)
\(pos14=0)

\(y1=1)
\(y2=0)
\(y3=0)
\(o0=0)
\(o2=0)

\(main2, Подойти к гаражу поближе.)
\СТОП

\main

[hr]

\main2


\ЕСЛИ(o0=0) \ТО (
    Перед вами закрытый гараж.
\) \ИНАЧЕ (
    Перед вами открытый гараж. \ЕСЛИ(y1=0) \ТО ( Гараж пуст. \) \ИНАЧЕ ( В гараже находится \(nomn\(y1)). \)
\)

\ЕСЛИ(y2=0) \ТО (
    Неподалёку расположена пустая площадка на которой удобно открывать и закрывать ёмкости.
\) \ИНАЧЕ (
    \ЕСЛИ(o2=1) \ТО (
        На площадке лежит открыт\(en\(y2)) \(nomn\(y2)). \ЕСЛИ(pos\(y2)=0) \ТО ( Внутри \(gen\(y2)) пусто. \) \ИНАЧЕ ( Внутри \(gen\(y2)) лежит \(nomn\(pos\(y2))). \)
    \) \ИНАЧЕ (
        На площадке лежит закрыт\(en\(y2)) \(nomn\(y2)).
    \)
\)

\ЕСЛИ(y3>0) \ТО (
    В руках у вас \(nomn\(y3)).
\)



\ЕСЛИ(o0=0) \ТО (
    \(открытьгараж, Открыть гараж.)
\) \ИНАЧЕ (
    \(закрытьгараж, Закрыть гараж.)
\)

\ЕСЛИ(o0=1) \ТО (
    \ЕСЛИ(y1>0) \ТО (
        \ЕСЛИ(y2=0) \ТО ( \(изгаражанаплощадку, Переместить \(acc\(y1)) из гаража на площадку.) \)
        \ЕСЛИ(y2>0 И o2=1 И pos\(y2)=0 И y1>y2) \ТО ( \(изгаражавконтейнер, Переместить \(acc\(y1)) из гаража в \(acc\(y2)).) \)
        \ЕСЛИ(y3=0) \ТО ( \(взятьизгаража, Взять \(acc\(y1)) из гаража.) \)
    \)
\)

\ЕСЛИ(y2>0) \ТО (
    \ЕСЛИ(o2=1) \ТО (
        \(закрытьконтейнер, Закрыть \(acc\(y2)).)
        \ЕСЛИ(pos\(y2)>0) \ТО (
            \ЕСЛИ(o0=1 И y1=0) \ТО ( \(содержимоевгараж, Переместить \(acc\(pos\(y2))) из \(gen\(y2)) в гараж.) \)
            \ЕСЛИ(y3=0) \ТО ( \(взятьсодержимое, Взять \(acc\(pos\(y2))) из \(gen\(y2)).) \)
        \)
        
    \) \ИНАЧЕ (
        \(открытьконтейнер, Открыть \(acc\(y2)).)
        \ЕСЛИ(o0=1 И y1=0) \ТО ( \(контейнервгараж, Переместить \(acc\(y2)) в гараж.) \)
        \ЕСЛИ(y3=0) \ТО ( \(взятьконтейнер, Взять \(acc\(y2)).) \)
    \)
\)

\ЕСЛИ(y3>0) \ТО (
    \ЕСЛИ(o0=1 И y1=0) \ТО ( \(изруквгараж, Положить \(acc\(y3)) в гараж.) \)
    \ЕСЛИ(y2=0) \ТО ( \(изрукнаплощадку, Положить \(acc\(y3)) на площадку.) \)
    \ЕСЛИ(o2=1 И pos\(y2)=0 И y2<y3) \ТО ( \(изруквсодержимое, Положить \(acc\(y3)) в \(acc\(y2)).) \)    
    \ЕСЛИ(o0=1 И y1>0) \ТО ( \(обменятьгараж, Заменить \(acc\(y1)) в гараже \(ins\(y3)).) \)
    \ЕСЛИ(o2=0 И y2>0) \ТО ( \(обменятьплощадку, Заменить \(acc\(y2)) на площадке \(ins\(y3)).) \)
    \ЕСЛИ(o2=1 И pos\(y2)>0 И y2<y3) \ТО ( \(обменятьсодержимое, Заменить \(acc\(pos\(y2))) из \(gen\(y2)) на \(acc\(y3)).) \)
\)

\СТОП

\обменятьсодержимое
Вы взяли \acc(\(pos\(y2))) из \(gen\(y2)), а вместо этого положили в \(acc\(y2)) \(acc\(y3)).
\(_\(nomn\(y3))=0)
\(tmp=y3)
\(y3=pos\(y2))
\(pos\(y2)=tmp)
\(_\(nomn\(y3))=1)
\ЕСЛИ(y3=last) ( \СТОП(победа) \)
\СТОП(main)

\обменятьплощадку
Вы взяли \(acc\(y2)) с площадки, а вместо этого положили на площадку \(acc\(y3)).
\(_\(nomn\(y3))=0)
\(tmp=y3)
\(y3=y2)
\(y2=tmp)
\(_\(nomn\(y3))=1)
\СТОП(main)

\обменятьгараж
Вы взяли \(acc\(y1)) из гаража, а вместо этого положили в гараж \(acc\(y3)).
\(_\(nomn\(y3))=0)
\(tmp=y3)
\(y3=y1)
\(y1=tmp)
\(_\(nomn\(y3))=1)
\СТОП(main)

\изруквсодержимое
Вы положили \(acc\(y3)) в \(acc\(y2)).
\(_\(nomn\(y3))=0)
\(pos\(y2)=y3)
\(y3=0)
\СТОП(main)

\изрукнаплощадку
Вы положили \(acc\(y3)) на площадку.
\(_\(nomn\(y3))=0)
\(y2=y3)
\(y3=0)
\СТОП(main)

\изруквгараж
Вы положили \(acc\(y3)) в гараж.
\(_\(nomn\(y3))=0)
\(y1=y3)
\(y3=0)
\СТОП(main)

\открытьгараж
Вы открыли гараж.
\(o0=1)
\СТОП(main)

\закрытьгараж
Вы закрыли гараж.
\(o0=0)
\СТОП(main)

\изгаражанаплощадку
Вы переместили \(acc\(y1)) из гаража на площадку.
\(y2=y1)
\(y1=0)
\СТОП(main)

\изгаражавконтейнер
Вы переместили \(acc\(y1)) из гаража в \(acc\(y2)).
\(pos\(y2)=y1)
\(y1=0)
\СТОП(main)

\взятьизгаража
Вы взяли \(acc\(y1)) из гаража.
\(y3=y1)
\(y1=0)
\(_\(nomn\(y3))=1)
\СТОП(main)

\открытьконтейнер
Вы открыли \(acc\(y2)).
\(o2=1)
\СТОП(main)

\закрытьконтейнер
Вы закрыли \(acc\(y2)).
\(o2=0)
\СТОП(main)

\содержимоевгараж
Вы переместили \(acc\(pos\(y2))) из \(gen\(y2)) в гараж.
\(y1=pos\(y2))
\(pos\(y2)=0)
\ЕСЛИ(y1=last) ( \СТОП(поражение) \)
\СТОП(main)

\взятьсодержимое
Вы взяли \(acc\(pos\(y2))) из \(gen\(y2)).
\(y3=pos\(y2))
\(pos\(y2)=0)
\(_\(nomn\(y3))=1)
\ЕСЛИ(y3=last) ( \СТОП(победа) \)
\СТОП(main)

\контейнервгараж
Вы переместили \(acc\(y2)) в гараж.
\(y1=y2)
\(y2=0)
\СТОП(main)

\взятьконтейнер
Вы взяли \(acc\(y2)).
\(y3=y2)
\(y2=0)
\(_\(nomn\(y3))=1)
\СТОП(main)

\победа

ХО-ХО-ХО-ХО-ХО! Молекула всевластия в ваших руках! ПОБЕДА!
\(АПЕРО.конец=1)

\СТОП

\поражение

Вы положили молекулу всевластия в гараж и она куда-то закатилась! Вы не можете её найти! Это конец!
\(АПЕРО.конец=1)

\СТОП