///
/// Исходный код текстовой онлайн игры "Официальный онлайн чат" скачан с сайта https://apero.ru/
/// Пройти онлайн или скачать последнюю версию этой игры можно по адресу:  https://apero.ru/Текстовые-игры/Официальный-онлайн-чат
/// Авторы: Администрация Apero
/// Версия: от 2020-01-31 17:47:50
///
Приветствие: \ВВОД(приветствие,"Приветствую тебя в официальном онлайн чате!")
Максимум сообщений: \ВВОД(макс сообщ,"10")
\(АПЕРО.ввод.подсказка="Сказать что-нибудь")
\(АПЕРО.ввод.локация="чат")
\(Ввести,Создать новый чат)
\СТОП



\Ввести

\(АПЕРО.режим вывода="")
\(_Обновить=1)
\(АПЕРО.игрок.добавлено=2)
\(_Обновить.название="Присоединиться")
\(_Обновить.локация="добавить поле ввода")
\(АПЕРО.игрок.времяонлайн=0)
\(времятекста=АПЕРО.время)
\(АПЕРО.мультиплеер="открыт")
\СТОП

\добавить поле ввода
\ЕСЛИ(АПЕРО.игрок.добавлено=2) \ТО (
\(АПЕРО.режим вывода="добавить")
\(АПЕРО.игрок.добавлено=1)
\ВВОД(введено)[s]
\(_Обновить.локация="Ввести")
\) \ИНАЧЕ (
\(АПЕРО.игрок.добавлено=2)
\)
\СТОП


\чат
\ЕСЛИ(введено<>"") \ТО \(текст=добавитьтекст)\(обновить)
\СТОП



\обновить
\(АПЕРО.режим вывода="динамичный")
\(АПЕРО.игрок.времяонлайн=АПЕРО.время)
\(приветствие)
\(текст)
\(т=0)
Онлайн:
\ЦИКЛ (т<АПЕРО.посетители.количество) \СДЕЛАТЬ(\(т=т+1) \ЕСЛИ (АПЕРО.посетители.номер\(т).времяонлайн > АПЕРО.время-300) \ТО [b]\(АПЕРО.посетители.номер\(т).имя)[/b](\(АПЕРО.посетители.номер\(т).ключ)) \(АПЕРО.время("H:i:s";АПЕРО.посетители.номер\(т).времяонлайн))[s]
\)
\СТОП


\добавитьтекст
\(н=0)
\ЦИКЛ (н<макс сообщ) \СДЕЛАТЬ(\(н=н+1)\(сообщение\(н)=сообщение\(н+1))\(сообщение\(н))\)\(сообщение\(макс сообщ)=написатьтекст)\(сообщение\(макс сообщ))\(введено=0)\(времятекста=АПЕРО.время)
\СТОП

\написатьтекст
[br]\(АПЕРО.время(3)) [i]\(АПЕРО.игрок.имя)[/i]: [b]\(введено)[/b]
\СТОП

\АПЕРО.события
\ЕСЛИ(АПЕРО.игрок.времятекста<>времятекста) \ТО \(АПЕРО.игрок.времятекста=времятекста)\ЗВУК("icq.mp3")\(обновить)
\ЕСЛИ(АПЕРО.игрок.времяонлайн>0 И АПЕРО.игрок.времяонлайн<АПЕРО.время-250-АПЕРО.игрок.номер*2) \ТО \(обновить)
\СТОП



/*
\загрузка
Приветствеие: \ВВОД(приветствие,"Приветствую тебя в официальном онлайн чате!")
Максимум сообщений: \ВВОД(макс сообщ,"10")
\(АПЕРО.ввод.подсказка="Сказать что-нибудь")
\(АПЕРО.ввод.локация="чат")
\(Ввести,Создать новый чат)
\СТОП

\Ввести
\(_Обновить=1)
\(_Обновить.название="Присоединиться/Обновить")
\(_Обновить.локация="обновить")
\(АПЕРО.мультиплеер="открыт")
\(времятекста=АПЕРО.время)
Загрузка
\СТОП


\чат
\ЕСЛИ(введено<>"") \ТО \(текст=добавитьтекст)\(обновить)
\СТОП

\обновить
\(АПЕРО.игрок.времяонлайн=АПЕРО.время)
\(приветствие)
\(текст)
\ВВОД(введено)[s]
\(т=0)
Онлайн:
\ЦИКЛ (т<АПЕРО.посетители.количество) \СДЕЛАТЬ(\(т=т+1) 
\ЕСЛИ (АПЕРО.посетители.номер\(т).времяонлайн > АПЕРО.время-300) \ТО \(АПЕРО.посетители.номер\(т).имя) \(АПЕРО.время("H:i:s";АПЕРО.посетители.номер\(т).времяонлайн))
\)
\СТОП


\добавитьтекст
\(н=0)
\ЦИКЛ (н<макс сообщ) \СДЕЛАТЬ(\(н=н+1)\(сообщение\(н)=сообщение\(н+1))\(сообщение\(н))\)\(сообщение\(макс сообщ)=написатьтекст)\(сообщение\(макс сообщ))\(введено=0)\(времятекста=АПЕРО.время)
\СТОП

\написатьтекст
[br]\(АПЕРО.время(4)) [i]\(АПЕРО.игрок.имя)[/i]: [b]\(введено)[/b]
\СТОП

\АПЕРО.события
\ЕСЛИ(АПЕРО.игрок.времятекста<>времятекста) \ТО \(АПЕРО.игрок.времятекста=времятекста)\ЗВУК("icq.mp3")\(обновить)
\ЕСЛИ(АПЕРО.игрок.времяонлайн<АПЕРО.время-250-АПЕРО.игрок.номер*2) \ТО \(обновить)
\СТОП
*/