///
/// Исходный код текстовой онлайн игры "ПРИМЕР ПРОЦЕДУРНЫХ ЛОКАЦИЙ" скачан с сайта https://apero.ru/
/// Пройти онлайн или скачать последнюю версию этой игры можно по адресу:  https://apero.ru/Текстовые-игры/ПРИМЕР-ПРОЦЕДУРНЫХ-ЛОКАЦИЙ
/// Авторы: Wol4ik
/// Версия: от 2018-11-03 14:10:34
///
\(АПЕРО.стиль="ночной минимализм")//-----------------------------ЗАДАЁМ ТЕМУ ОФОРМЛЕНИЯ
\(АПЕРО.сохранение.скрыть=1)//-----------------------------------СОХРАНЕНКИ УБРАТЬ, МЕШАЮТСЯ НА ЭКРАНЕ
\(АПЕРО.кнопка.без подчеркивания=1)//----------------------------УЛУЧШАЕМ КНОПКИ 1/3
\(АПЕРО.кнопка.полужирный=1)//-----------------------------------УЛУЧШАЕМ КНОПКИ 2/3
\(АПЕРО.кнопка.цвет текста="#ff8800")//--------------------------УЛУЧШАЕМ КНОПКИ 3/3
\(АПЕРО.блок.шрифт="sans-serif")//-------------------------------УЛУЧШАЕМ ВЕСЬ ШРИФТ

\(расстояние1=60)//-------------------ПЕРЕМЕННАЯ ДЛЯ ОСОБОЙ ЛОКАЦИИ "С ПАРАМЕТРАМИ", Т.Е. ОЧЕРЕДНОЙ ПОДПРОГРАММЫ
\(время1=2)//-------------------------ПЕРЕМЕННАЯ ДЛЯ ОСОБОЙ ЛОКАЦИИ "С ПАРАМЕТРАМИ", Т.Е. ОЧЕРЕДНОЙ ПОДПРОГРАММЫ


\запуск//--------------------------------------------------------ТИПОВАЯ ШАПКА СОЗДАННАЯ АВТОМАТИЧЕСКИ НАЧАЛО
(цвет=#C0C0FF)(ж)Пример процедурных локаций(/ж)(/цвет)//----------------ЦВЕТ ШРИФТА НАЗВАНИЯ ИГРЫ  
Создание участков кода для многоразового использования и вызов их из любого места в качестве подпрограмм.
Автор: Wol4ik
(разрыв) (разрыв)//-----------------------------------------БЕЗУСЛОВНЫЙ РАЗРЫВ
\(базовая_локация, > НАЧАТЬ)
\СТОП//----------------------------------------------------------ТИПОВАЯ ШАПКА СОЗДАННАЯ АВТОМАТИЧЕСКИ КОНЕЦ


\базовая_локация//-----------------------------------------------БАЗОВАЯ ЛОКАЦИЯ НАЧАЛО
Этот текст вы видите перед диалогом, который последует дальше.
\(процедурная_локация1)//----------------------------------------ВЫЗОВ ИЗ ДРУГОЙ ЛОКАЦИИ ВЫВОДА ФРАЗЫ №1
\(процедурная_локация2)//----------------------------------------ВЫЗОВ ИЗ ДРУГОЙ ЛОКАЦИИ ВЫВОДА ФРАЗЫ №2
\(процедурная_локация3)//----------------------------------------ВЫЗОВ ИЗ ДРУГОЙ ЛОКАЦИИ ВЫВОДА ФРАЗЫ №3
\(процедурная_локация4)//----------------------------------------ВЫЗОВ ИЗ ДРУГОЙ ЛОКАЦИИ ВЫВОДА ФРАЗЫ №4
... 6 + 18 = \(процедурная_локация5)//-------------------------------ВЫЗОВ ИЗ ДРУГОЙ ЛОКАЦИИ ВЫЧИСЛЕНИЯ И ВЫВОД ЕГО РЕЗУЛЬТАТА
... Если проехать \(расстояние1) км. за \(время1) ч., то скорость будет равна \(вычислить_скорость(расстояние1;время1)) км/ч//---ОТПРАВКА ПАРАМЕТРОВ ДЛЯ ВЫЧИСЛЕНИЙ. МОГУТ БЫТЬ ПРОСТО ЧИСЛА, А НЕ ПЕРЕМЕННЫЕ.
Этот текст вы видите после диалога и вывода результатов вычислений.
(разрыв) (разрыв)//-----------------------------------------БЕЗУСЛОВНЫЙ РАЗРЫВ
\(конец_примера, > ЗАВЕРШИТЬ)//----------------------КНОПКА ПЕРЕХОДА К ЗАВЕРШЕНИЮ ПРИМЕРА
\(запуск, > ЗАНОВО)//----------------------КНОПКА ПЕРЕХОДА К ЗАВЕРШЕНИЮ ПРИМЕРА
\СТОП//----------------------------------------------------------БАЗОВАЯ ЛОКАЦИЯ КОНЕЦ

//---------------------------------------------------------------НАЧАЛО ПОДПРОГРАММ

\процедурная_локация1
- Привет, Маша!//------------------------------------------------ВЫВОД ФРАЗЫ №1 В МОМЕНТ, КОГДА ЭТА ПРОЦЕДУРНАЯ ЛОКАЦИЯ ВЫЗВАНА
\СТОП

\процедурная_локация2
- Коль, говори сразу, зачем пришел?//----------------------------ВЫВОД ФРАЗЫ №2 В МОМЕНТ, КОГДА ЭТА ПРОЦЕДУРНАЯ ЛОКАЦИЯ ВЫЗВАНА
\СТОП

\процедурная_локация3
- Ну... Я, это, так сказть, в общем-то...//----------------------ВЫВОД ФРАЗЫ №3 В МОМЕНТ, КОГДА ЭТА ПРОЦЕДУРНАЯ ЛОКАЦИЯ ВЫЗВАНА
\СТОП

\процедурная_локация4
- Свободен.//----------------------------------------------------ВЫВОД ФРАЗЫ №4 В МОМЕНТ, КОГДА ЭТА ПРОЦЕДУРНАЯ ЛОКАЦИЯ ВЫЗВАНА
\СТОП

\процедурная_локация5//------------------------------------------ВЫЧИСЛЕНИЯ И ВЫВОД РЕЗУЛЬТАТА, КОГДА ЭТА ПРОЦЕДУРНАЯ ЛОКАЦИЯ ВЫЗВАНА
\(аргумент1=6)//------------------СОЗДАНИЕ ПЕРЕМЕННЫХ
\(аргумент2=18)//-----------------СОЗДАНИЕ ПЕРЕМЕННЫХ
\(равно1=аргумент1+аргумент2)//----ЛЮБЫЕ ВЫЧИСЛЕНИЯ, ПРОВЕРКИ СОСТОЯНИЯ ПЕРЕМЕННЫХ И МАССИВОВ И ТП.
\(равно1)//------------------------ВЫВОД ЗНАЧЕНИЯ ПЕРЕМЕННОЙ равно1
//--------------------------------------------------------------ВЫВОД ВЫЧИСЛЕНИЯ
\СТОП

\вычислить_скорость(расстояние1;время1)//---------ОСОБАЯ ПРОЦЕДУРНАЯ ЛОКАЦИЯ(ПОДПРОГРАММА) С ПАРАМЕТРАМИ
\(скорость1=расстояние1/время1)
\(скорость1)
\СТОП

//--------------------------------------------------------------КОНЕЦ ПОДПРОГРАММ

\конец_примера
Текст кода примера доступен для скачивания, если нажать в браузере F5 и кликнуть ссылку [i]Скачать[/i].
\(АПЕРО.конец=1)//----------------------------------------------КОМАНДА БЕЗУСЛОВНОГО ЗАВЕРШЕНИЯ КОНЦОВКИ
\СТОП
//--------------------------------------------------------------КОНЕЦ КОДА