/// /// Исходный код текстовой онлайн игры "КИ ОЧКО 21" скачан с сайта https://apero.ru/ /// Пройти онлайн или скачать последнюю версию этой игры можно по адресу: https://apero.ru/Текстовые-игры/КИ-ОЧКО-21 /// Авторы: Kamazok /// Версия: от 2021-08-15 17:51:43 /// \(АПЕРО.блок.выравнивание текста="по центру") \запуск Реализовано: 1. Примитивный ИИ 2. Игра 1х1 и 1х3 3. Подсчёт очков 4. Раздача имён 5. Интерфейс GG --- \(Играть000, НАЖМИТЕ СЮДА!) \(Играть000, ЧТОБЫ НАЧАТЬ!) \(Играть000, НОВУЮ ИГРУ!) --- Карточная Игра Двадцать Одно или ОЧКО :() \(_Победа=0) \(_Поражение=0) \(_Ничья=0) \(Шестёрка=6) \(Семёрка=7) \(Восьмёрка=8) \(Девятка=9) \(Десятка=10) \(Валет=2) \(Дама=3) \(Король=4) \(Туз=11) \(начало, цикл!) \СТОП \\ПЕРЕХОД С КОНЦА :) \Играть000 \(_Очки_За_Карты=0) \(_Как_Играть=0) \(_Обновления=0) \(_Очки_За_Карты.локация="Очки") \(_Как_Играть.локация="Правила") \(_Обновления.локация="Правка_Ошибок") \(Рандом4=0) \(Конец=0) \(Всё=0) \(отказ=0) \(На_Ваших_Руках=0) \(В_Руках_Соперника=0) \(В_Руках_СоперникаY=0) \(В_Руках_СоперникаX=0) \(Руки_Ваши0=0) \(Руки_Соперника0=0) \(Руки_СоперникаX0=0) \(Руки_СоперникаY0=0) \(Руки_Ваши1=0) \(Руки_Соперника1=0) \(Руки_СоперникаX1=0) \(Руки_СоперникаY1=0) \(Руки_Ваши2=0) \(Руки_Соперника2=0) \(Руки_СоперникаX2=0) \(Руки_СоперникаY2=0) \(Руки_Ваши3=0) \(Руки_Соперника3=0) \(Руки_СоперникаX3=0) \(Руки_СоперникаY3=0) \(Руки_Ваши4=0) \(Руки_Соперника4=0) \(Руки_СоперникаX4=0) \(Руки_СоперникаY4=0) \(Руки_Ваши5=0) \(Руки_Соперника5=0) \(Руки_СоперникаX5=0) \(Руки_СоперникаY5=0) \(Руки_Ваши6=0) \(Руки_Соперника6=0) \(Руки_СоперникаX6=0) \(Руки_СоперникаY6=0) \(Руки_Ваши7=0) \(Руки_Соперника7=0) \(Руки_СоперникаX7=0) \(Руки_СоперникаY7=0) \(Руки_Ваши8=0) \(Руки_Соперника8=0) \(Руки_СоперникаX8=0) \(Руки_СоперникаY8=0) \(Руки_Ваши9=0) \(Руки_Соперника9=0) \(Руки_СоперникаX9=0) \(Руки_СоперникаY9=0) \(Руки_Ваши10=0) \(Руки_Соперника10=0) \(Руки_СоперникаX10=0) \(Руки_СоперникаY10=0) \(Ваших_Очков=0) \(Очков_Соперника=0) \(Очков_СоперникаX=0) \(Очков_СоперникаY=0) \(Соперник_Отказался_Брать_Карты=0) \(Соперник1_Отказался_Брать_Карты=0) \(СоперникX_Отказался_Брать_Карты=0) \(СоперникY_Отказался_Брать_Карты=0) \(СоперникZ_Отказался_Брать_Карты=0) \(Ваших_Очков_до21=21) \(Очков_Соперника_до21=21) \(Очков_СоперникаX_до21=21) \(Очков_СоперникаY_до21=21) \(ОЧКО21=21) \(Конец=0) \(отказ=0) \(икс=0) \(иксX=0) \(иксY=0) \(зед=0) \(ход=0) \\-------- \(Массив=("Винни";"Алладина";"Джафара";"Яго";"Пяточка";"Жасмин";"Кролика";"Ариеэль";"Ослика";"Совы";"Робина";"Иа-Иа";"Кенги";"Шапокляк";"Тигры";"Букли";"Моськи";"Дяди Фёдора";"Матроскина";"Шарика";"Печкина";"Галчёнка";"Мамонтёнка";"Кузи";"Фунтика";"Енота";"Леопольда";"Чебурашки";"Кеши";"Львёнка";"Ёжика";"Умки";"Маугли";"Багиры";"Балу";"Акеллы";"Карлсона";"Чипполино";"Колобка";"К.Шапочки";"Незнайки";"Зайца";"Волка";"Ивангая";"Кибальчиша";"Мартышки";"Врунгеля";"Фукса";"Балбеса";"Коровина")) \(Имена1=\(АПЕРО.случайно(1;17))) \(Имена2=\(АПЕРО.случайно(18;37))) \(Имена3=\(АПЕРО.случайно(38;50))) \(Список1=Имена1) \(Список2=Имена2) \(Список3=Имена3) \(Номер=1) \ЦИКЛ(Номер<51) \СДЕЛАТЬ ( \ЕСЛИ (Список1=Номер) \ТО \(Имя1=Массив(Номер)) \ЕСЛИ (Список1=Номер) \ТО \(Номер=18) \ЕСЛИ (Список2=Номер) \ТО \(Имя2=Массив(Номер)) \ЕСЛИ (Список2=Номер) \ТО \(Номер=38) \ЕСЛИ (Список3=Номер) \ТО \(Имя3=Массив(Номер)) \ЕСЛИ (Список3=Номер) \ТО \(Номер=51) \ЕСЛИ (Список3>Номер) \ТО \(Номер=Номер+1) \) \(Имя01=Имя1) \(Имя02=Имя2) \(Имя03=Имя3) \(Условие=1) \(Условие1=1) \(Условие2=1) \(Условие3=1) \(Имена=\(АПЕРО.случайно(99))) \ЦИКЛ(Условие<2) \СДЕЛАТЬ ( \ЕСЛИ (Имена<100) \ТО \ЦИКЛ (Условие1<2) \СДЕЛАТЬ ( \(Имя1=Имя01) \(Имя3=Имя02) \(Имя2=Имя03) \(Условие1=Условие1+1) \) \ЕСЛИ (Имена<67) \ТО \ЦИКЛ (Условие2<2) \СДЕЛАТЬ ( \(Имя2=Имя01) \(Имя1=Имя02) \(Имя3=Имя03) \(Условие2=Условие2+1) \) \ЕСЛИ (Имена<34) \ТО \ЦИКЛ (Условие3<2) \СДЕЛАТЬ ( \(Имя3=Имя01) \(Имя2=Имя02) \(Имя1=Имя03) \(Условие3=Условие3+1) \) \(Условие=Условие+1) \) \\-------- [b]Выберите режим:[/b] \(2игрока, Один на Один) \(4игрока, Против Троих) \СТОП \2игрока \(2И=1) Был выбран Режим 2 игрока! \(Раздача, Продождить) \СТОП \4игрока \(4И=1) Был выбран Режим 4 игрока! На игру 3 хода \(Раздача, Продождить) \СТОП \Раздача \(_Вернуться_К_ИГРЕ=0) \(_Очки_За_Карты=0) \(_Как_Играть=0) \(_Обновления=0) \ЕСЛИ (Ваших_Очков=0) \ТО Банкир перемешал колоду. \ЕСЛИ (Ваших_Очков=0) \ТО Теперь он сдаёт карты. \ЕСЛИ (Ваших_Очков>0) \ТО Вы просите банкира, \ЕСЛИ (Ваших_Очков>0) \ТО сдать ещё \(Икс=Икс+1) \(Рандом=\(АПЕРО.случайно(36))) \ЕСЛИ (Рандом=1 ИЛИ Рандом=10 ИЛИ Рандом=19 ИЛИ Рандом=28) \ТО \(На_Ваших_Руках="Шестёрка") \ЕСЛИ (Рандом=2 ИЛИ Рандом=11 ИЛИ Рандом=20 ИЛИ Рандом=29) \ТО \(На_Ваших_Руках="Семёрка") \ЕСЛИ (Рандом=3 ИЛИ Рандом=12 ИЛИ Рандом=21 ИЛИ Рандом=30) \ТО \(На_Ваших_Руках="Восьмёрка") \ЕСЛИ (Рандом=4 ИЛИ Рандом=13 ИЛИ Рандом=22 ИЛИ Рандом=31) \ТО \(На_Ваших_Руках="Девятка") \ЕСЛИ (Рандом=5 ИЛИ Рандом=14 ИЛИ Рандом=23 ИЛИ Рандом=32) \ТО \(На_Ваших_Руках="Десятка") \ЕСЛИ (Рандом=6 ИЛИ Рандом=15 ИЛИ Рандом=24 ИЛИ Рандом=33) \ТО \(На_Ваших_Руках="Валет") \ЕСЛИ (Рандом=7 ИЛИ Рандом=16 ИЛИ Рандом=25 ИЛИ Рандом=34) \ТО \(На_Ваших_Руках="Дама") \ЕСЛИ (Рандом=8 ИЛИ Рандом=17 ИЛИ Рандом=26 ИЛИ Рандом=35) \ТО \(На_Ваших_Руках="Король") \ЕСЛИ (Рандом=9 ИЛИ Рандом=18 ИЛИ Рандом=27 ИЛИ Рандом=36) \ТО \(На_Ваших_Руках="Туз") \ЕСЛИ (зед=0) \ТО \(Руки_Ваши0=На_Ваших_Руках) \ЕСЛИ (зед=1) \ТО \(Руки_Ваши1="+"+На_Ваших_Руках) \ЕСЛИ (зед=2) \ТО \(Руки_Ваши2="+"+На_Ваших_Руках) \ЕСЛИ (зед=3) \ТО \(Руки_Ваши3="+"+На_Ваших_Руках) \ЕСЛИ (зед=4) \ТО \(Руки_Ваши4="+"+На_Ваших_Руках) \ЕСЛИ (зед=5) \ТО \(Руки_Ваши5="+"+На_Ваших_Руках) \ЕСЛИ (зед=6) \ТО \(Руки_Ваши6="+"+На_Ваших_Руках) \ЕСЛИ (зед=7) \ТО \(Руки_Ваши7="+"+На_Ваших_Руках) \ЕСЛИ (зед=8) \ТО \(Руки_Ваши8="+"+На_Ваших_Руках) \ЕСЛИ (зед=9) \ТО \(Руки_Ваши9="+"+На_Ваших_Руках) \ЕСЛИ (зед=10) \ТО \(Руки_Ваши10="+"+На_Ваших_Руках) \(зед=зед+1) \ЕСЛИ (На_Ваших_Руках="Шестёрка") \ТО \(Ваших_Очков=Ваших_Очков+Шестёрка) \ЕСЛИ (На_Ваших_Руках="Семёрка") \ТО \(Ваших_Очков=Ваших_Очков+Семёрка) \ЕСЛИ (На_Ваших_Руках="Восьмёрка") \ТО \(Ваших_Очков=Ваших_Очков+Восьмёрка) \ЕСЛИ (На_Ваших_Руках="Девятка") \ТО \(Ваших_Очков=Ваших_Очков+Девятка) \ЕСЛИ (На_Ваших_Руках="Десятка") \ТО \(Ваших_Очков=Ваших_Очков+Десятка) \ЕСЛИ (На_Ваших_Руках="Валет") \ТО \(Ваших_Очков=Ваших_Очков+Валет) \ЕСЛИ (На_Ваших_Руках="Дама") \ТО \(Ваших_Очков=Ваших_Очков+Дама) \ЕСЛИ (На_Ваших_Руках="Король") \ТО \(Ваших_Очков=Ваших_Очков+Король) \ЕСЛИ (На_Ваших_Руках="Туз") \ТО \(Ваших_Очков=Ваших_Очков+Туз) \(Ваших_Очков_до21=ОЧКО21-Ваших_Очков) \ЕСЛИ (Соперник1_Отказался_Брать_Карты=0) \ТО \(Играть0, Продолжить) \ЕСЛИ (Соперник1_Отказался_Брать_Карты=1) \ТО \(Играть-1, Продолжить1) \СТОП \Играть-1 \(_Вернуться_К_ИГРЕ=0) \(_Очки_За_Карты=0) \(_Как_Играть=0) \(_Обновления=0) Банкир сдал Вам 1 карту, это \(На_Ваших_Руках) \ЕСЛИ (Соперник1_Отказался_Брать_Карты=1) \ТО [color=Red]Ваш_Соперник[/color] \ЕСЛИ (Соперник1_Отказался_Брать_Карты=1) \ТО [color=Red]Отказался_Брать_Карты[/color] \(Играть, Продолжить) \СТОП \Играть0 \(_Вернуться_К_ИГРЕ=0) \(_Очки_За_Карты=0) \(_Как_Играть=0) \(_Обновления=0) \ЕСЛИ (отказ=0) \ТО Банкир сдал карты, \ЕСЛИ (отказ=0) \ТО [b]У Вас:[/b] \(На_Ваших_Руках) \ЕСЛИ (отказ=1) \ТО Настала \ЕСЛИ (отказ=1 И Соперник_Отказался_Брать_Карты=0) Очередь соперника, \ЕСЛИ (отказ=1 И Соперник_Отказался_Брать_Карты=1) Ваша очередь, \ЕСЛИ (отказ=1) Брать карты \ЕСЛИ (Соперник_Отказался_Брать_Карты=1) \ТО \(Рандом1=0) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \(Рандом1=\(АПЕРО.случайно(36))) \ЕСЛИ (Рандом1=1 ИЛИ Рандом1=10 ИЛИ Рандом1=19 ИЛИ Рандом1=28) \ТО \(В_Руках_Соперника="Шестёрка") \ЕСЛИ (Рандом1=2 ИЛИ Рандом1=11 ИЛИ Рандом1=20 ИЛИ Рандом1=29) \ТО \(В_Руках_Соперника="Семёрка") \ЕСЛИ (Рандом1=3 ИЛИ Рандом1=12 ИЛИ Рандом1=21 ИЛИ Рандом1=30) \ТО \(В_Руках_Соперника="Восьмёрка") \ЕСЛИ (Рандом1=4 ИЛИ Рандом1=13 ИЛИ Рандом1=22 ИЛИ Рандом1=31) \ТО \(В_Руках_Соперника="Девятка") \ЕСЛИ (Рандом1=5 ИЛИ Рандом1=14 ИЛИ Рандом1=23 ИЛИ Рандом1=32) \ТО \(В_Руках_Соперника="Десятка") \ЕСЛИ (Рандом1=6 ИЛИ Рандом1=15 ИЛИ Рандом1=24 ИЛИ Рандом1=33) \ТО \(В_Руках_Соперника="Валет") \ЕСЛИ (Рандом1=7 ИЛИ Рандом1=16 ИЛИ Рандом1=25 ИЛИ Рандом1=34) \ТО \(В_Руках_Соперника="Дама") \ЕСЛИ (Рандом1=8 ИЛИ Рандом1=17 ИЛИ Рандом1=26 ИЛИ Рандом1=35) \ТО \(В_Руках_Соперника="Король") \ЕСЛИ (Рандом1=9 ИЛИ Рандом1=18 ИЛИ Рандом1=27 ИЛИ Рандом1=36) \ТО \(В_Руках_Соперника="Туз") \ЕСЛИ (СоперникX_Отказался_Брать_Карты=1) \ТО \(Рандом2=0) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \(Рандом2=\(АПЕРО.случайно(36))) \ЕСЛИ (Рандом2=1 ИЛИ Рандом2=10 ИЛИ Рандом2=19 ИЛИ Рандом2=28) \ТО \(В_Руках_СоперникаX="Шестёрка") \ЕСЛИ (Рандом2=2 ИЛИ Рандом2=11 ИЛИ Рандом2=20 ИЛИ Рандом2=29) \ТО \(В_Руках_СоперникаX="Семёрка") \ЕСЛИ (Рандом2=3 ИЛИ Рандом2=12 ИЛИ Рандом2=21 ИЛИ Рандом2=30) \ТО \(В_Руках_СоперникаX="Восьмёрка") \ЕСЛИ (Рандом2=4 ИЛИ Рандом2=13 ИЛИ Рандом2=22 ИЛИ Рандом2=31) \ТО \(В_Руках_СоперникаX="Девятка") \ЕСЛИ (Рандом2=5 ИЛИ Рандом2=14 ИЛИ Рандом2=23 ИЛИ Рандом2=32) \ТО \(В_Руках_СоперникаX="Десятка") \ЕСЛИ (Рандом2=6 ИЛИ Рандом2=15 ИЛИ Рандом2=24 ИЛИ Рандом2=33) \ТО \(В_Руках_СоперникаX="Валет") \ЕСЛИ (Рандом2=7 ИЛИ Рандом2=16 ИЛИ Рандом2=25 ИЛИ Рандом2=34) \ТО \(В_Руках_СоперникаX="Дама") \ЕСЛИ (Рандом2=8 ИЛИ Рандом2=17 ИЛИ Рандом2=26 ИЛИ Рандом2=35) \ТО \(В_Руках_СоперникаX="Король") \ЕСЛИ (Рандом2=9 ИЛИ Рандом2=18 ИЛИ Рандом2=27 ИЛИ Рандом2=36) \ТО \(В_Руках_СоперникаX="Туз") \ЕСЛИ (СоперникY_Отказался_Брать_Карты=1) \ТО \(Рандом3=0) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \(Рандом3=\(АПЕРО.случайно(36))) \ЕСЛИ (Рандом3=1 ИЛИ Рандом3=10 ИЛИ Рандом3=19 ИЛИ Рандом3=28) \ТО \(В_Руках_СоперникаY="Шестёрка") \ЕСЛИ (Рандом3=2 ИЛИ Рандом3=11 ИЛИ Рандом3=20 ИЛИ Рандом3=29) \ТО \(В_Руках_СоперникаY="Семёрка") \ЕСЛИ (Рандом3=3 ИЛИ Рандом3=12 ИЛИ Рандом3=21 ИЛИ Рандом3=30) \ТО \(В_Руках_СоперникаY="Восьмёрка") \ЕСЛИ (Рандом3=4 ИЛИ Рандом3=13 ИЛИ Рандом3=22 ИЛИ Рандом3=31) \ТО \(В_Руках_СоперникаY="Девятка") \ЕСЛИ (Рандом3=5 ИЛИ Рандом3=14 ИЛИ Рандом3=23 ИЛИ Рандом3=32) \ТО \(В_Руках_СоперникаY="Десятка") \ЕСЛИ (Рандом3=6 ИЛИ Рандом3=15 ИЛИ Рандом3=24 ИЛИ Рандом3=33) \ТО \(В_Руках_СоперникаY="Валет") \ЕСЛИ (Рандом3=7 ИЛИ Рандом3=16 ИЛИ Рандом3=25 ИЛИ Рандом3=34) \ТО \(В_Руках_СоперникаY="Дама") \ЕСЛИ (Рандом3=8 ИЛИ Рандом3=17 ИЛИ Рандом3=26 ИЛИ Рандом3=35) \ТО \(В_Руках_СоперникаY="Король") \ЕСЛИ (Рандом3=9 ИЛИ Рандом3=18 ИЛИ Рандом3=27 ИЛИ Рандом3=36) \ТО \(В_Руках_СоперникаY="Туз") \(иксцикл=0) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЦИКЛ(иксцикл<1) \СДЕЛАТЬ ( \ЕСЛИ (икс=0) \ТО \(Руки_Соперника0=В_Руках_Соперника) \ЕСЛИ (икс=1) \ТО \(Руки_Соперника1="+"+В_Руках_Соперника) \ЕСЛИ (икс=2) \ТО \(Руки_Соперника2="+"+В_Руках_Соперника) \ЕСЛИ (икс=3) \ТО \(Руки_Соперника3="+"+В_Руках_Соперника) \ЕСЛИ (икс=4) \ТО \(Руки_Соперника4="+"+В_Руках_Соперника) \ЕСЛИ (икс=5) \ТО \(Руки_Соперника5="+"+В_Руках_Соперника) \ЕСЛИ (икс=6) \ТО \(Руки_Соперника6="+"+В_Руках_Соперника) \ЕСЛИ (икс=7) \ТО \(Руки_Соперника7="+"+В_Руках_Соперника) \ЕСЛИ (икс=8) \ТО \(Руки_Соперника8="+"+В_Руках_Соперника) \ЕСЛИ (икс=9) \ТО \(Руки_Соперника9="+"+В_Руках_Соперника) \ЕСЛИ (икс=10) \ТО \(Руки_Соперника10="+"+В_Руках_Соперника) \ЕСЛИ (В_Руках_Соперника="Шестёрка") \ТО \(Очков_Соперника=Очков_Соперника+Шестёрка) \ЕСЛИ (В_Руках_Соперника="Семёрка") \ТО \(Очков_Соперника=Очков_Соперника+Семёрка) \ЕСЛИ (В_Руках_Соперника="Восьмёрка") \ТО \(Очков_Соперника=Очков_Соперника+Восьмёрка) \ЕСЛИ (В_Руках_Соперника="Девятка") \ТО \(Очков_Соперника=Очков_Соперника+Девятка) \ЕСЛИ (В_Руках_Соперника="Десятка") \ТО \(Очков_Соперника=Очков_Соперника+Десятка) \ЕСЛИ (В_Руках_Соперника="Валет") \ТО \(Очков_Соперника=Очков_Соперника+Валет) \ЕСЛИ (В_Руках_Соперника="Дама") \ТО \(Очков_Соперника=Очков_Соперника+Дама) \ЕСЛИ (В_Руках_Соперника="Король") \ТО \(Очков_Соперника=Очков_Соперника+Король) \ЕСЛИ (В_Руках_Соперника="Туз") \ТО \(Очков_Соперника=Очков_Соперника+Туз) \(иксцикл=иксцикл+1) \) \(иксXцикл=0) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЦИКЛ(иксXцикл<1) \СДЕЛАТЬ ( \ЕСЛИ (иксX=0) \ТО \(Руки_СоперникаX0=В_Руках_СоперникаX) \ЕСЛИ (иксX=1) \ТО \(Руки_СоперникаX1="+"+В_Руках_СоперникаX) \ЕСЛИ (иксX=2) \ТО \(Руки_СоперникаX2="+"+В_Руках_СоперникаX) \ЕСЛИ (иксX=3) \ТО \(Руки_СоперникаX3="+"+В_Руках_СоперникаX) \ЕСЛИ (иксX=4) \ТО \(Руки_СоперникаX4="+"+В_Руках_СоперникаX) \ЕСЛИ (иксX=5) \ТО \(Руки_СоперникаX5="+"+В_Руках_СоперникаX) \ЕСЛИ (иксX=6) \ТО \(Руки_СоперникаX6="+"+В_Руках_СоперникаX) \ЕСЛИ (иксX=7) \ТО \(Руки_СоперникаX7="+"+В_Руках_СоперникаX) \ЕСЛИ (иксX=8) \ТО \(Руки_СоперникаX8="+"+В_Руках_СоперникаX) \ЕСЛИ (иксX=9) \ТО \(Руки_СоперникаX9="+"+В_Руках_СоперникаX) \ЕСЛИ (иксX=10) \ТО \(Руки_СоперникаX10="+"+В_Руках_СоперникаX) \ЕСЛИ (В_Руках_СоперникаX="Шестёрка") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Шестёрка) \ЕСЛИ (В_Руках_СоперникаX="Семёрка") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Семёрка) \ЕСЛИ (В_Руках_СоперникаX="Восьмёрка") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Восьмёрка) \ЕСЛИ (В_Руках_СоперникаX="Девятка") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Девятка) \ЕСЛИ (В_Руках_СоперникаX="Десятка") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Десятка) \ЕСЛИ (В_Руках_СоперникаX="Валет") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Валет) \ЕСЛИ (В_Руках_СоперникаX="Дама") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Дама) \ЕСЛИ (В_Руках_СоперникаX="Король") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Король) \ЕСЛИ (В_Руках_СоперникаX="Туз") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Туз) \(иксXцикл=иксXцикл+1) \) \(иксYцикл=0) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЦИКЛ(иксYцикл<1) \СДЕЛАТЬ ( \ЕСЛИ (иксY=0) \ТО \(Руки_СоперникаY0=В_Руках_СоперникаY) \ЕСЛИ (иксY=1) \ТО \(Руки_СоперникаY1="+"+В_Руках_СоперникаY) \ЕСЛИ (иксY=2) \ТО \(Руки_СоперникаY2="+"+В_Руках_СоперникаY) \ЕСЛИ (иксY=3) \ТО \(Руки_СоперникаY3="+"+В_Руках_СоперникаY) \ЕСЛИ (иксY=4) \ТО \(Руки_СоперникаY4="+"+В_Руках_СоперникаY) \ЕСЛИ (иксY=5) \ТО \(Руки_СоперникаY5="+"+В_Руках_СоперникаY) \ЕСЛИ (иксY=6) \ТО \(Руки_СоперникаY6="+"+В_Руках_СоперникаY) \ЕСЛИ (иксY=7) \ТО \(Руки_СоперникаY7="+"+В_Руках_СоперникаY) \ЕСЛИ (иксY=8) \ТО \(Руки_СоперникаY8="+"+В_Руках_СоперникаY) \ЕСЛИ (иксY=9) \ТО \(Руки_СоперникаY9="+"+В_Руках_СоперникаY) \ЕСЛИ (иксY=10) \ТО \(Руки_СоперникаY10="+"+В_Руках_СоперникаY) \ЕСЛИ (В_Руках_СоперникаY="Шестёрка") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Шестёрка) \ЕСЛИ (В_Руках_СоперникаY="Семёрка") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Семёрка) \ЕСЛИ (В_Руках_СоперникаY="Восьмёрка") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Восьмёрка) \ЕСЛИ (В_Руках_СоперникаY="Девятка") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Девятка) \ЕСЛИ (В_Руках_СоперникаY="Десятка") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Десятка) \ЕСЛИ (В_Руках_СоперникаY="Валет") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Валет) \ЕСЛИ (В_Руках_СоперникаY="Дама") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Дама) \ЕСЛИ (В_Руках_СоперникаY="Король") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Король) \ЕСЛИ (В_Руках_СоперникаY="Туз") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Туз) \(иксYцикл=иксYцикл+1) \) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \(икс=икс+1) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \(иксX=иксX+1) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \(иксY=иксY+1) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \(Очков_Соперника_до21=ОЧКО21-Очков_Соперника) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \(Очков_СоперникаX_до21=ОЧКО21-Очков_СоперникаX) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \(Очков_СоперникаY_до21=ОЧКО21-Очков_СоперникаY) \ЕСЛИ (2И=1 И Соперник_Отказался_Брать_Карты=0) \ТО [b]У \(Имя1):[/b] \(В_Руках_Соперника) \ЕСЛИ (2И=1 И Соперник_Отказался_Брать_Карты=0 И отказ=1) \ТО [b]У Вас:[/b][color=Red] —Отказ брать карты—[/color] \ЕСЛИ (2И=1 И Соперник_Отказался_Брать_Карты=1 И отказ=1) \ТО [b]У Вас:[/b] \(На_Ваших_Руках) \ЕСЛИ (2И=1 И Соперник_Отказался_Брать_Карты=1 И отказ=0) \ТО [b]У \(Имя1)[/b][color=Red] —Отказ брать карты—[/color] \ЕСЛИ (4И=1 И Соперник_Отказался_Брать_Карты=0) \ТО [b]У \(Имя1):[/b] \(В_Руках_Соперника) \ЕСЛИ (4И=1 И СоперникY_Отказался_Брать_Карты=0) \ТО [b]У \(Имя2):[/b] \(В_Руках_СоперникаX) \ЕСЛИ (4И=1 И СоперникX_Отказался_Брать_Карты=0) \ТО [b]У \(Имя3):[/b] \(В_Руках_СоперникаY) \ЕСЛИ (4И=1 И Соперник_Отказался_Брать_Карты=1) \ТО [b]У \(Имя1)[/b][color=Red] —Отказ брать карты—[/color] \ЕСЛИ (4И=1 И СоперникY_Отказался_Брать_Карты=1) \ТО [b]У \(Имя2)[/b][color=Red] —Отказ брать карты—[/color] \ЕСЛИ (4И=1 И СоперникX_Отказался_Брать_Карты=1) \ТО [b]У \(Имя3)[/b][color=Red] —Отказ брать карты—[/color] \ЕСЛИ (2И=1) \ТО \(Играть, Продолжить) \ЕСЛИ (4И=1) \ТО \(Играть1, Продолжить) \СТОП \Играть \(_Вернуться_К_ИГРЕ=1) \(_Очки_За_Карты=1) \(_Как_Играть=1) \(_Обновления=1) \(_Вернуться_К_ИГРЕ.локация="Играть") \(_Очки_За_Карты.локация="Очки") \(_Как_Играть.локация="Правила") \(_Обновления.локация="Правка_Ошибок") \\---------------------------------------------------------------------------------------------- \ЕСЛИ (Очков_Соперника_до21<Шестёрка И Соперник_Отказался_Брать_Карты=0) \ТО \(Рандом4=\(АПЕРО.случайно(Очков_Соперника_до21))) \ЕСЛИ (Рандом4=2 ИЛИ Рандом4=4 И И Соперник_Отказался_Брать_Карты=0) \ТО \(Соперник_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_Соперника_до21<Король И Соперник_Отказался_Брать_Карты=0) \ТО \(Рандом4=\(АПЕРО.случайно(Очков_Соперника_до21))) \ЕСЛИ (Рандом4=1 ИЛИ Рандом4=3 И И Соперник_Отказался_Брать_Карты=0) \ТО \(Соперник_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_Соперника_до21<Дама И Соперник_Отказался_Брать_Карты=0) \ТО \(Рандом4=\(АПЕРО.случайно(Очков_Соперника_до21))) \ЕСЛИ (Рандом4=1 ИЛИ Рандом4=3 И Соперник_Отказался_Брать_Карты=0) \ТО \(Соперник_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_Соперника_до21<Валет И Соперник_Отказался_Брать_Карты=0) \ТО \(Рандом4=\(АПЕРО.случайно(Очков_Соперника_до21))) \ЕСЛИ (Рандом4=2 И Соперник_Отказался_Брать_Карты=0) \ТО \(Соперник_Отказался_Брать_Карты=1) \\------------- \(АПЕРО.блок.выравнивание текста="по центру") [b]У Вас очков:[/b] \(Ваших_Очков) \ЕСЛИ (Ваших_Очков<21) \ТО [b]Очков до 21:[/b] \(Ваших_Очков_до21) [b]Карты в руках:[/b] \(Руки_Ваши0)\(Руки_Ваши1)\(Руки_Ваши2) \(Руки_Ваши3)\(Руки_Ваши4)\(Руки_Ваши5) \(Руки_Ваши6)\(Руки_Ваши7)\(Руки_Ваши8) \(Руки_Ваши9)\(Руки_Ваши10) [hr] \ЕСЛИ (Очков_Соперника=21 ИЛИ Ваших_Очков=21) \ТО \(Конец=1) \ЕСЛИ (Ваших_Очков>20 ИЛИ Очков_Соперника>20) \ТО [color=Green]Конец Партии[/color] \ЕСЛИ (Соперник_Отказался_Брать_Карты=0 И Ваших_Очков<20) \ТО \(Конец-1, -Отказаться брать карты-) \ЕСЛИ (Ваших_Очков<21 И Очков_Соперника<21 И Конец=0) \ТО \(Раздача, Взять ещё карту?) \ЕСЛИ (Ваших_Очков=21 ИЛИ Очков_Соперника=21 ИЛИ Ваших_Очков>21 ИЛИ Очков_Соперника>21) \ТО \(Конец1,[color=Red] --> Продолжить <--[/color]) \(Конец=1) \ЕСЛИ (Ваших_Очков>14 И Соперник_Отказался_Брать_Карты=1 И Конец=0 ИЛИ Соперник_Отказался_Брать_Карты=1 И Конец=0) \ТО \(Конец1,[color=Red] --> Завершить игру? <--[/color]) [hr] \\------------------- \ЕСЛИ (Соперник_Отказался_Брать_Карты=1 И Конец=0) \ТО [color=Red] -Отказ брать карты- [/color] [b]У \(Имя1) очков:[/b] \(Очков_Соперника) \ЕСЛИ (Очков_Соперника<21 И Соперник_Отказался_Брать_Карты=0 ИЛИ Соперник_Отказался_Брать_Карты=0 И Очков_Соперника<15) \ТО [b]Очков до 21:[/b] \(Очков_Соперника_до21) [b]Карты в руках:[/b] \(Руки_Соперника0)\(Руки_Соперника1)\(Руки_Соперника2) \(Руки_Соперника3)\(Руки_Соперника4)\(Руки_Соперника5) \(Руки_Соперника6)\(Руки_Соперника7)\(Руки_Соперника8) \(Руки_Соперника9)\(Руки_Соперника10) \СТОП \Играть1 \\---------------------------------------------------------------------------------------------- \ЕСЛИ (Очков_Соперника_до21<Шестёрка И Соперник_Отказался_Брать_Карты=0) \ТО \(Рандом4=\(АПЕРО.случайно(Очков_Соперника_до21))) \ЕСЛИ (Рандом4=2 ИЛИ Рандом4=4 И И Соперник_Отказался_Брать_Карты=0) \ТО \(Соперник_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_СоперникаX_до21<Шестёрка И СоперникX_Отказался_Брать_Карты=0) \ТО \(Рандом5=\(АПЕРО.случайно(Очков_СоперникаX_до21))) \ЕСЛИ (Рандом5=2 ИЛИ Рандом5=4 И И СоперникX_Отказался_Брать_Карты=0) \ТО \(СоперникX_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_СоперникаY_до21<Шестёрка И СоперникY_Отказался_Брать_Карты=0) \ТО \(Рандом6=\(АПЕРО.случайно(Очков_СоперникаX_до21))) \ЕСЛИ (Рандом6=2 ИЛИ Рандом6=4 И И СоперникY_Отказался_Брать_Карты=0) \ТО \(СоперникY_Отказался_Брать_Карты=1) \\----------------------------------------------------------------------------------------------- \\----------------------------------------------------------------------------------------------- \ЕСЛИ (Очков_Соперника_до21<Король И Соперник_Отказался_Брать_Карты=0) \ТО \(Рандом4=\(АПЕРО.случайно(Очков_Соперника_до21))) \ЕСЛИ (Рандом4=1 ИЛИ Рандом4=3 И И Соперник_Отказался_Брать_Карты=0) \ТО \(Соперник_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_СоперникаX_до21<Король И СоперникX_Отказался_Брать_Карты=0) \ТО \(Рандом5=\(АПЕРО.случайно(Очков_СоперникаX_до21))) \ЕСЛИ (Рандом5=1 ИЛИ Рандом5=3 И И СоперникX_Отказался_Брать_Карты=0) \ТО \(СоперникX_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_СоперникаY_до21<Король И СоперникY_Отказался_Брать_Карты=0) \ТО \(Рандом6=\(АПЕРО.случайно(Очков_СоперникаY_до21))) \ЕСЛИ (Рандом6=1 ИЛИ Рандом6=3 И И СоперникY_Отказался_Брать_Карты=0) \ТО \(СоперникY_Отказался_Брать_Карты=1) \\------------------------------------------------------------------------------------------------- \\------------------------------------------------------------------------------------------------- \ЕСЛИ (Очков_Соперника_до21<Дама И Соперник_Отказался_Брать_Карты=0) \ТО \(Рандом4=\(АПЕРО.случайно(Очков_Соперника_до21))) \ЕСЛИ (Рандом4=1 ИЛИ Рандом4=3 И Соперник_Отказался_Брать_Карты=0) \ТО \(Соперник_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_СоперникаX_до21<Дама И СоперникX_Отказался_Брать_Карты=0) \ТО \(Рандом4=\(АПЕРО.случайно(Очков_СоперникаX_до21))) \ЕСЛИ (Рандом5=1 ИЛИ Рандом5=3 И СоперникX_Отказался_Брать_Карты=0) \ТО \(СоперникX_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_СоперникаY_до21<Дама И СоперникY_Отказался_Брать_Карты=0) \ТО \(Рандом4=\(АПЕРО.случайно(Очков_СоперникаY_до21))) \ЕСЛИ (Рандом6=1 ИЛИ Рандом6=3 И СоперникY_Отказался_Брать_Карты=0) \ТО \(СоперникY_Отказался_Брать_Карты=1) \\-------------------------------------------------------------------------------------------------- \\-------------------------------------------------------------------------------------------------- \ЕСЛИ (Очков_Соперника_до21<Валет И Соперник_Отказался_Брать_Карты=0) \ТО \(Рандом4=\(АПЕРО.случайно(Очков_Соперника_до21))) \ЕСЛИ (Рандом4=2 И Соперник_Отказался_Брать_Карты=0) \ТО \(Соперник_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_СоперникаX_до21<Валет И СоперникX_Отказался_Брать_Карты=0) \ТО \(Рандом5=\(АПЕРО.случайно(Очков_СоперникаX_до21))) \ЕСЛИ (Рандом5=2 И СоперникX_Отказался_Брать_Карты=0) \ТО \(СоперникX_Отказался_Брать_Карты=1) \ЕСЛИ (Очков_СоперникаY_до21<Валет И СоперникY_Отказался_Брать_Карты=0) \ТО \(Рандом6=\(АПЕРО.случайно(Очков_СоперникаY_до21))) \ЕСЛИ (Рандом6=2 И СоперникY_Отказался_Брать_Карты=0) \ТО \(СоперникY_Отказался_Брать_Карты=1) \\-------------------------------------------------------------------------------------------------- \(АПЕРО.блок.выравнивание текста="по центру") \(ван=1) \(ход=ход+ван) \(ход1=3) \(ход1=ход1-ход) \ЕСЛИ (ход=1) \ТО [color=Red]До конца игры \(ход1) хода[/color] \ЕСЛИ (ход=2) \ТО [color=Red]До конца игры \(ход1) ход[/color] \ЕСЛИ (ход=3) \ТО [color=Red]Ходы кочились -> Конец Игры[/color] \\------------------------------------------------------------------------------------------------- \ЕСЛИ (Соперник_Отказался_Брать_Карты=1) \ТО [color=Red]X[/color] [color=Blue][b]У \(Имя1) -> \(Очков_Соперника) (+\(Очков_Соперника_до21)) очков:[/b] [color=Red]X[/color][/color] \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО [color=Blue][b]У \(Имя1) -> \(Очков_Соперника) (+\(Очков_Соперника_до21)) очков:[/b][/color] \(Руки_Соперника0)\(Руки_Соперника1)\(Руки_Соперника2)\(Руки_Соперника3)\(Руки_Соперника4)\(Руки_Соперника5)\(Руки_Соперника6)\(Руки_Соперника7)\(Руки_Соперника8)\(Руки_Соперника9)\(Руки_Соперника10) \\------------------------------------------------------------------------------------------------- \\------------------------------------------------------------------------------------------------- \ЕСЛИ (СоперникX_Отказался_Брать_Карты=1) \ТО [color=Red]X[/color] [color=Orange][b]У \(Имя2) -> \(Очков_СоперникаX) (+\(Очков_СоперникаX_до21)) очков: [/b][/color] [color=Red]X[/color] \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО [color=Orange][b]У \(Имя2) -> \(Очков_СоперникаX) (+\(Очков_СоперникаX_до21)) очков: [/b][/color] \(Руки_СоперникаX0)\(Руки_СоперникаX1)\(Руки_СоперникаX2)\(Руки_СоперникаX3)\(Руки_СоперникаX4)\(Руки_СоперникаX5)\(Руки_СоперникаX6)\(Руки_СоперникаX7)\(Руки_СоперникаX8)\(Руки_СоперникаX9)\(Руки_СоперникаX10) \\---------------------------------------------------------------------------------------------- \\---------------------------------------------------------------------------------------------- \ЕСЛИ (СоперникY_Отказался_Брать_Карты=1) \ТО [color=Red]X[/color] [b]У \(Имя3) -> \(Очков_СоперникаY) (+\(Очков_СоперникаY_до21)) очков: [/b] [color=Red]X[/color] \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО [b]У \(Имя3) -> \(Очков_СоперникаY) (+\(Очков_СоперникаY_до21)) очков: [/b] \(Руки_СоперникаY0)\(Руки_СоперникаY1)\(Руки_СоперникаY2)\(Руки_СоперникаY3)\(Руки_СоперникаY4)\(Руки_СоперникаY5)\(Руки_СоперникаY6)\(Руки_СоперникаY7)\(Руки_СоперникаY8)\(Руки_СоперникаY9)\(Руки_СоперникаY10) \\---------------------------------------------------------------------------------------------- [color=Green][b]У Вас -> \(Ваших_Очков) (+\(Ваших_Очков_до21)) очков:[/b] [/color] \(Руки_Ваши0)\(Руки_Ваши1)\(Руки_Ваши2)\(Руки_Ваши3)\(Руки_Ваши4)\(Руки_Ваши5)\(Руки_Ваши6)\(Руки_Ваши7)\(Руки_Ваши8)\(Руки_Ваши9)\(Руки_Ваши10) \ЕСЛИ (Ваших_Очков=21 ИЛИ Очков_Соперника=21 ИЛИ Очков_СоперникаX=21 ИЛИ Очков_СоперникаY=21 ИЛИ Ваших_Очков>21 ИЛИ Очков_Соперника>21 ИЛИ Очков_СоперникаX>21 ИЛИ Очков_СоперникаY>21 ИЛИ ход=3) \ТО \(Конец1,[color=Red] --> Конец Игры <--[/color]) \(Конец=1) \ЕСЛИ (Ваших_Очков<20 И Очков_Соперника<22 И Очков_СоперникаX<22 И Очков_СоперникаY<22 И Конец=0 И ход<3) \ТО \(Раздача, Взять ещё карту?) \ЕСЛИ (Конец=0 И ход<3) \ТО \(Конец-1, -Отказаться брать карты-) \СТОП \Конец-1 \(_Вернуться_К_ИГРЕ=0) \(_Очки_За_Карты=0) \(_Как_Играть=0) \(_Обновления=0) Вы отказываетесь брать карты! \(отказ=1) \ЕСЛИ (Соперник1_Отказался_Брать_Карты=1) \ТО \(Конец1, Продолжить) \ЕСЛИ (Соперник_Отказался_Брать_Карты=1) \ТО \(Конец1, Продолжить) \ЕСЛИ (Соперник1_Отказался_Брать_Карты=0) \ТО \(Играть0, Продолжить) \СТОП \Конец1 \(_Вернуться_К_ИГРЕ=0) \(_Очки_За_Карты=0) \(_Как_Играть=0) \(_Обновления=0) \(_Победа.слева=" [") \(_Победа.справа="] ") \(_Поражение.слева=" [") \(_Поражение.справа="] ") \(_Ничья.слева=" [") \(_Ничья.справа="] ") Конец партии... Ваши \(Ваших_Очков) Против \(Очков_Соперника) У Соперника \ЕСЛИ (Ваших_Очков>Очков_Соперника И Ваших_Очков<22 ИЛИ Ваших_Очков<22 И Очков_Соперника>21) \ТО [color=Green] Вы победили! [/color] \ (_Победа=_Победа+1) \(П1=+1) \ЕСЛИ (Очков_Соперника>Ваших_Очков И Очков_Соперника<22 ИЛИ Очков_Соперника<22 И Ваших_Очков>21) \ТО [color=Green] Вы Проиграли! [/color] \(_Поражение=_Поражение+1) \(П2=+1) \ЕСЛИ (Очков_Соперника=Ваших_Очков ИЛИ Ваших_Очков>21 И Очков_Соперника>21) \ТО [color=Green] Это Ничья! [/color] \(_Ничья=_Ничья+1) \(П3=+1) Вы хотите, \(Играть000, Продолжить?!) \(АПЕРО.конец=1) \СТОП \Правила \(Играть, Вернуться_К_ИГРЕ?!) Это аналог БлекДжека. Есть колода из 36 карт. Вы берёте карты из колоды, Чтобы сумме составить 21. Если у вас более 21, то вы 100% проиграли. Если у вас меньше 21, то можете закончить. Если у противника будет БОЛЬШЕ ОЧКОВ, чем у вас, вы проиграли. Есле меньше, то победа. Кто первым набрал 21, Тот и побеждает. Удачки :) \СТОП \Очки \(Играть, Вернуться_К_ИГРЕ?!) Каждая из карт, Даёт определённое Количество очков. [b]Шестёрка[/b] = [u]6 очков[/u] [b]Семёрка[/b]= [u]7 очков[/u] [b]Восьмёрка[/b] = [u]8 очков[/u] [b]Девятка[/b] = [u]9 очков[/u] [b]Десятка[/b] = [u]10 очков[/u] [b]Валет[/b] = [u]2 очка[/u] [b]Дама[/b] = [u]3 очка[/u] [b]Король[/b] = [u]4 очка[/u] [b]Туз[/b] = [u]11 очка[/u] \СТОП \Правка_Ошибок \(Играть, Вернуться_К_ИГРЕ?!) 12.01.2017 10.01.2017 07.01.2017 НАДО СДЕЛАТЬ: 1) добавить счёт при игра 1х3 2) доработать 1х3 чтобы выводил конец игры, кто победил! 3) Добавить меню 4) При 20 очках запрет брать карты 5) Если у тебя 20 очков, а противник отказ брать карты, то конец игры! 6) Возможность подбадривать игрока ТЕКСТОМ ЗЕЛЁНЫМ, чтобы он рисковал брать карты. 7).... \СТОП \Начало \(Массив1=("Шест";"Семёр";"Восьм";"Девят";"Десят";"Валет";"Дама";"Король";"Туз")) \(x=1) \(y=1) \(z=1) \(шаг=25) \ЦИКЛ (шаг>x) \СДЕЛАТЬ ( \(Число=\(АПЕРО.случайно(9))) \(Карта=Массив1(\(Число))) \(Игрок\(z)=Игрок\(z)+"+"+Карта) \(x=x+1) \(y=y+1) \ЕСЛИ (y=7) \ТО ( \(z=z+1) \) \ЕСЛИ (y=7) \ТО \(y=1) \) У [b]Игрока1[/b] на руках \(Игрок1) [br] У [b]Игрока2[/b] на руках \(Игрок2) У [b]Игрока3[/b] на руках \(Игрок3) [br] У [b]Игрока4[/b] на руках \(Игрок4) \СТОП