///
/// Исходный код текстовой онлайн игры "Пример Аперо 2" скачан с сайта https://apero.ru/
/// Пройти онлайн или скачать последнюю версию этой игры можно по адресу:  https://apero.ru/Текстовые-игры/Пример-Аперо-2
/// Авторы: Ersaider, Фёдор Конев
/// Версия: от 2018-11-25 19:29:34
///
\запуск
Пример Аперо 2
Пример мультиплеера на движке Аперо 2.0
Автор: Ersaider
[u]Обновление от 25.11.18: Игрок Alexeykuz за один раз вложил в город аж 20 000$! Это послужило мотивацией для того, чтобы сделать новую фичу - будет отображаться также тот, кто пополнил казну больше всех![/u]
[font=ARIAL]ОГРОМНОЕ СПАСИБО АГЕНТУ007 И МИХАИЛУ НИКИФОРОВУ ЗА ПОМОЩЬ В КОДЕ![/font]
\(старт,ЗАПУСК!)
\СТОП

\старт
[color=green]Геймплей: Работайте на заводе, получайте деньги, вкладывайте их в город.[/color]
[color=blue]Цель: Уехать в столицу.[/color]
[color=orange]Проблема: Ухеать можно только через мэрию.[/color]
// Команда ниже добавляет игроку в инвентарь предмет "Доллары" в числе 100 штук.
\ЕСЛИ (получил бабло=0) \ТО \(_Доллары=100) \(получил бабло=1)
// Команда ниже добавляет к всеобщей переменной "МП.доллары" 1.
\(МП.деньги=МП.деньги+1)
// Команда ниже забирает у игрока из инвентаря из значения переменной "_Доллары" 1.
\(_Доллары=_Доллары-1)
А за вход в город пришлось заплатить доллар! Ну ничего, у меня еще есть деньги.
// Команда ниже добавляет к всеобщей переменной "МП.игроки в городе" 1.
\ЕСЛИ (подъехал=0) \ТО \(МП.игроки в городе=МП.игроки в городе+1) \(подъехал=1)
// Команда ниже переносит игрока в город.
\(город)
\СТОП

\город
Вы в городе. А город большой! Может вместить сколько угодно людей.
// Команда после слов "а именно" выводит значение переменной "МП.доллары"
В городе много денег - а именно \(МП.деньги)$.
// Эта команда делает то же самое, только с другой переменной.
Сейчас в центре города человек: \(МП.игроки в городе). Бывало и больше!
Людей уехало в столицу: \(МП.зид). Последний уехавший в столицу человек: \(МП.столичник)
[hr]
[color=purple]Новости элитного банковского клуба: Человек, вложивший больше всех денег за раз - \(МП.топер). Он вложил \(МП.топвзнос)$! Красава![/color]
[color=red]Финансовые новости: Свежайшие новости - Инвестор \(МП.последний) пополнил баланс города на \(МП.внос)$! Спасибо![/color]
\ЕСЛИ (МП.реформа>0) \ТО Региональные новости: \(МП.реформатор) устроил(а) реформу номер \(МП.реформа). \ИНАЧЕ \(МП.реформатор) получил(а) пост мэра.
\ЕСЛИ (МП.реформа=0) \ТО Он(а) отменил(а) все предыдущие реформы!
\ЕСЛИ (МП.реформа=1) \ТО Теперь проезд на электричках бесплатный!
\ЕСЛИ (МП.реформа=2) \ТО Теперь на заводе в селе всем дают надбавку 50$!
\ЕСЛИ (МП.реформа=3) \ТО Теперь вход в мэрию бесплатный!
[hr]

// Команда ниже позволяет перейти на локацию "город.банк"
\(город.банк,Перейти в банк)
// Команда ниже позволяет игроку, у которого есть 1000 и более долларов перейти на локацию "город.мэрия".
\ЕСЛИ (_Доллары>=1000 ИЛИ МП.реформа=3) \ТО \(город.мэрия,Перейти в мэрию) \ИНАЧЕ [u]Чтобы попасть в мэрию, нужно иметь не меньше 1000$![/u]
[hr]

// Команда ниже позволяет перейти на локацию "поездка.село"
\(поездка.село,Поехать в село)
\СТОП

\город.мэрия
Вы пришли в мэрию и переехали в столицу! Поздравляем!
\(_Доллары=0)
\(получил бабло=0)
\(МП.столичник=АПЕРО.гг.имя)
\(МП.зид=МП.зид+1)
\(АПЕРО.конец=1)
\(запуск,Начать игру сначала!)
\(реформы,Устроить реформу!)
\СТОП

\реформы
\ЕСЛИ (МП.реформа=0) \ТО Сейчас не действует никакая реформа. \ИНАЧЕ Сейчас действует реформа \(МП.реформа)
\(реформы.отменить,Отменить реформу!)
\(реформы.первая,Сделать бесплатным проезд на электричках)
\(реформы.вторая,Поднять зарплаты рабочим на 50$)
\(реформы.третья,Всеобщий вход в мэрию)
\(запуск,Откажусь)
\СТОП

\реформы.отменить
\(МП.реформа=0)
\(МП.реформатор=АПЕРО.гг.имя)
Какой же вы злой человек!
\(запуск,Начать игру сначала!)
\СТОП

\реформы.первая
\(МП.реформа=1)
\(МП.реформатор=АПЕРО.гг.имя)
Теперь электрички бесплатны!
\(запуск,Начать игру сначала!)
\СТОП

\реформы.вторая
\(МП.реформа=2)
\(МП.реформатор=АПЕРО.гг.имя)
Теперь на заводе всем дают надбавку 50$!
\(запуск,Начать игру сначала!)
\СТОП

\реформы.третья
\(МП.реформа=3)
\(МП.реформатор=АПЕРО.гг.имя)
Теперь все могут заходить в мэрию!
\(запуск,Начать игру сначала!)
\СТОП

\вклад.н1
// Команда проверяет, состоит ли введенное в переменную "введено.доллары" значение только из цифр. Если да, то переносит на локацию вклад.н2, если нет - выводит сообщение о том, что нужно вводить цифры.
\ЕСЛИ (АПЕРО.строка.регулярка(введено.доллары;"/^[0-9]+$/ui")=1) \ТО \(вклад.н2) \ИНАЧЕ Нужно вводить только цифры!
// Возвращает игрока на город.банк
\(город.банк,Назад)
\СТОП

\вклад.н2
// Эти команды проверяют, есть ли у игрока достаточное количество долларов. Если есть - они добавляются к "МП.доллары" и убавляются от "_Доллары". Если нет - игроку пишется, что у него нет таких денег.
\ЕСЛИ (введено.доллары<=_Доллары И МП.топвзнос<введено.доллары) \ТО [b]Элитный банковский клуб: На данный момент это самое крупное вложение. Мы будем крутить вас по всем новостям, пока не появится кто-то побогаче.[/b] \(МП.топер=АПЕРО.гг.имя) \(МП.топвзнос=введено.доллары)
\ЕСЛИ (введено.доллары<=_Доллары) \ТО \(МП.деньги=МП.деньги+введено.доллары) \(_Доллары=_Доллары-введено.доллары) Вы вложили \(введено.доллары)$ в город! Он стал богаче! Теперь городской бюджет - \(МП.деньги)! \(МП.внос=введено.доллары) \(МП.последний=АПЕРО.гг.имя) 
\ИНАЧЕ К сожалению, у вас нет таких денег. Но мы были бы рады вложить их в развитие города!
\СТОП

\город.банк
Банк - красивое и большое здание. Единственный небоскреб в городе. В банке храняться все деньги города!
Вы можете вложить деньги в город, чтобы он стал богаче и лучше!
// Эта команда добавляет переход на локацию, если в поле ввода ввести что-то и нажать enter, или нажать кнопку в поле ввода.
\(АПЕРО.ввод.локация="вклад.н1")
// А эта команда добавляет само поле ввода и переменную, которой присваевается введенное значение.
\ВВОД(введено.доллары)
// Эта команда переносит игрока на локацию "город".
\(город,Выйти из банка)
\СТОП

\поездка.село
// Эта команда уменьшает значение "МП.игроки в городе" на 1
\(МП.игроки в городе=МП.игроки в городе-1)
// Команда убавляет доллар у игрока, если у него есть хотя бы один.
\ЕСЛИ (_Доллары>=1 И МП.реформа<>1) \ТО \(_Доллары=_Доллары-1) Электричка в село стоит 1$. Я заплатил эти деньги и приехал! \ИНАЧЕ Я проехался на электричке бесплатно! 
// Эта команда увеличивает значение "МП.игроки в селе" на 1
\(МП.игроки в селе=МП.игроки в селе+1)
// Эта команда вынуждает игрока переместиться на локацию "село" путем нажатия на кнопку.
\(село,Выйти из поезда)
\СТОП

\село
Маленькое село, в котором есть огромный завод! На заводе можно работать. А полей в селе много, поэтому тут может находиться много народу. 
// Команда выводит значение переменной "МП.игроки в селе"
Сейчас в селе людей: \(МП.игроки в селе).
// Команды ниже переносят игрока на локации завод или поездка.город
\(завод,Пойти работать на завод)
\(поездка.город,Поехать в город)
\СТОП

\завод
// Данная команда присваивает переменной "заработок" случайное целое значение от 50 до 200
\(заработок=\(АПЕРО.случайно(50;200)))
// Данная команда добавляет к "_Доллары" значение "заработок".
\(_Доллары=_Доллары+заработок)
\ЕСЛИ (МП.реформа=2) \ТО \(_Доллары=_Доллары+50) Вы получили дополнительные 50$ благодаря реформатору, которого зовут \(МП.реформатор)
Ух... Славно потрудился! И заработал \(заработок)$
\(село,Выйти в село)
\СТОП

\поездка.город
\(МП.игроки в селе=МП.игроки в селе-1)
\(МП.игроки в городе=МП.игроки в городе+1)
// Команда убавляет доллар у игрока, если у него есть хотя бы один.
\ЕСЛИ (_Доллары>=5 И МП.реформа<>1) \ТО \(_Доллары=_Доллары-1) Электричка в город стоит 5$. Я заплатил эти деньги и приехал! \ИНАЧЕ Я проехался на электричке бесплатно! 
\(город,Выйти в город)
\СТОП