///
/// Исходный код текстовой онлайн игры "Пример игры реального времени" скачан с сайта https://apero.ru/
/// Пройти онлайн или скачать последнюю версию этой игры можно по адресу:  https://apero.ru/Текстовые-игры/Пример-игры-реального-времени
/// Авторы: Агент007
/// Версия: от 2018-09-17 14:12:33
///

\запуск
Пример игры реального времени.
\(АПЕРО.блок.тип="контейнер")[hr]
\(АПЕРО.блок.тип=0)
Подобно счастливой ферме, где сажаешь тыкву, через час заходишь, она созрела
Если интересно понять, как это устроено, скачай \ССЫЛКА("apero.ru/Текстовые-игры/Исходный-код-игры-Пример-игры-реального-времени.txt","исходный код")
Автор: Агент007
\(старт,Начать игру "Пример игры реального времени")
\СТОП

\старт
\(номер посадки=1)
\(_Монеты=5)
Семена можно покупать в магазине.
В огороде можно выращивать культуры.
Подарок новичку \(_Монеты) монет. 
\СТОП(действия)

\действия
Если ты покинешь страницу или выключишь компьютер, культуры все равно будут расти. Ты можешь вернуться позже и загрузить последнее автосохранение, после чего можешь собрать готовый урожай.
Если интересно понять, как это устроено, скачай \ССЫЛКА("apero.ru/Текстовые-игры/Исходный-код-игры-Пример-игры-реального-времени.txt","исходный код")
\(в огороде=0)
\(Магазин,Заглянуть в магазин)
\(Огород,Заглянуть в огород)
\СТОП


\Купить1
\(надо купить=1)
\СТОП(Купить семена)

\Купить3
\(надо купить=3)
\СТОП(Купить семена)

\Купить5
\(надо купить=5)
\СТОП(Купить семена)

\Купить20
\(надо купить=20)
\СТОП(Купить семена)

\Купить100
\(надо купить=100)
\СТОП(Купить семена)

\Купить200
\(надо купить=200)
\СТОП(Купить семена)

\Купить1000
\(надо купить=1000)
\СТОП(Купить семена)

\Купить семена
\(_Семена подсолнуха=_Семена подсолнуха+надо купить)
\(_Монеты=_Монеты-цена*надо купить)
\СТОП(Магазин)

\список для покупки
\(цена=1)
Здесь можно купить семена подсолнуха - 1 семечка за монету.
Время созревания 1 минута.
Можно продать подсолнухи по 5 монет за каждую.
\ЕСЛИ (_Монеты>=1*цена) \(Купить1,Купить 1) 
\ЕСЛИ (_Монеты>=3*цена) \(Купить3,Купить 3) 
\ЕСЛИ (_Монеты>=5*цена) \(Купить5,Купить 5) 
\ЕСЛИ (_Монеты>=20*цена) \(Купить20,Купить 20) 
\ЕСЛИ (_Монеты>=100*цена) \(Купить100,Купить 100) 
\ЕСЛИ (_Монеты>=200*цена) \(Купить200,Купить 200) 
\ЕСЛИ (_Монеты>=1000*цена) \(Купить1000,Купить 1000) 
\ЕСЛИ (_Подсолнух>0) \(продать,Продать подсолнухи) 

\СТОП

\продать
\ЕСЛИ (_Подсолнух>0) \ТО (
\(плюс монет=_Подсолнух*5)
Урожай продан за \(плюс монет) монет.\(_Монеты=_Монеты+плюс монет)\(_Подсолнух=0)
\(АПЕРО.конец=1)
\)
\СТОП(Магазин)

\Магазин
\(список для покупки)
\(действия,Выйти из магазина)
\СТОП

\растет
\(номер=номер+1)
\ЕСЛИ (посадка\(номер).собрано=1) \СТОП(растут)
\(осталось времени=посадка\(номер).время-АПЕРО.время)

\(что="\(посадка\(номер).количество) \(посадка\(номер).что)(ов)")

\ЕСЛИ (осталось времени>0) \ТО (
Здесь растет \(что). До созревания \(осталось времени) сек.
\) \ИНАЧЕ( 
\(что) уже созрел(и).
\(что то созрело=1)
\)
\СТОП(растут)



\собрать
\(номер=номер+1)
\ЕСЛИ (посадка\(номер).собрано=1) \СТОП(собираем)
\(осталось времени=посадка\(номер).время-АПЕРО.время)

\(что="\(посадка\(номер).количество) \(посадка\(номер).что)(ов)")

\ЕСЛИ (осталось времени<=0) \ТО (
Собрано \(что).
\(_\(посадка\(номер).что)=_\(посадка\(номер).что)+посадка\(номер).количество)
\(посадка\(номер).собрано=1)
\)
\СТОП(собираем)


\что собрать
\(номер=0)
\собираем
\ЕСЛИ (номер+1<номер посадки) \(собрать)
\СТОП

\что растет
\(номер=0)
\(что то созрело=0) 
\растут
\ЕСЛИ (номер+1<номер посадки) \(растет)
\СТОП

\Огород
\(в огороде=1)
Ты в огороде.
\(что растет)
\ЕСЛИ(что то созрело=1) \(собрать урожай,Собрать урожай)
\(список для посадки)
\(выход из огорода,Выйти из огорода)
\(Огород,Проверить урожай)
\СТОП


\выход из огорода
\(в огороде=0)
\СТОП(действия)

\собрать урожай
\(в огороде=0)
\(что собрать)
\(огород,Проверить огород)
\СТОП

\список для посадки
\ЕСЛИ (_Семена подсолнуха>=1) \(Посадить1,Посадить 1 подсолнух) 
\ЕСЛИ (_Семена подсолнуха>=3) \(Посадить3,Посадить 3 подсолнухов) 
\ЕСЛИ (_Семена подсолнуха>=5) \(Посадить5,Посадить 5 подсолнухов) 
\ЕСЛИ (_Семена подсолнуха>=20) \(Посадить20,Посадить 20 подсолнухов) 
\ЕСЛИ (_Семена подсолнуха>=100) \(Посадить100,Посадить 100 подсолнухов) 
\ЕСЛИ (_Семена подсолнуха>=1000) \(Посадить1000,Посадить 1000 подсолнухов) 
\СТОП

\Посадить1
\(надо посадить=1)
\СТОП(посадить)

\Посадить3
\(надо посадить=3)
\СТОП(посадить)

\Посадить5
\(надо посадить=5)
\СТОП(посадить)

\Посадить20
\(надо посадить=20)
\СТОП(посадить)

\Посадить100
\(надо посадить=100)
\СТОП(посадить)

\Посадить1000
\(надо посадить=1000)
\СТОП(посадить)

\Посадить
\(_Семена подсолнуха=_Семена подсолнуха-надо посадить)
\(посадка\(номер посадки).количество=надо посадить)
\(посадка\(номер посадки).что="Подсолнух")
\(посадка\(номер посадки).время=АПЕРО.время+60)
\(номер посадки=номер посадки+1)
\СТОП(Огород)

/*
\АПЕРО.события
\ЕСЛИ (в огороде=1) \ТО \(Огород)\СТОП
\СТОП
*/