/// /// Исходный код текстовой онлайн игры "JoyCasino - Игровые Автоматы" скачан с сайта https://apero.ru/ /// Пройти онлайн или скачать последнюю версию этой игры можно по адресу: https://apero.ru/Текстовые-игры/JoyCasino-Игровые-Автоматы /// Авторы: Kamazok /// Версия: от 2021-04-02 21:08:49 /// \запуск \(Шестёрка=6) \(Семёрка=7) \(Восьмёрка=8) \(Девятка=9) \(Десятка=10) \(Валет=2) \(Дама=3) \(Король=4) \(Туз=11) \(АПЕРО.блок.выравнивание текста="по центру") \КАРТИНКА("avtomaty-vulkan.net/wp-content/themes/777-avtomatyvulkan.com/img/777_logo.png") \ЕСЛИ (Число=0) \ТО \(Число=\(АПЕРО.случайно(10))) \ЕСЛИ (Число=1) \ТО \(Название="Borgata") \(Место="Атлантик Сити") \(Описание="В Лучшем казино США") \ЕСЛИ (Число=2) \ТО \(Название="Lisboa") \(Место="Лиссабон") \(Описание="В Лучшем казино Европы") \ЕСЛИ (Число=3) \ТО \(Название="MGM Grand") \(Место="Лас-Вегас") \(Описание="Испытай свою удачу") \ЕСЛИ (Число=4) \ТО \(Название="MGM Macau") \(Место="Макао") \(Описание="Выиграй миллион баксов") \ЕСЛИ (Число=5) \ТО \(Название="Sands Macao") \(Место="Макао") \(Описание="Закажи всех тёлочек") \ЕСЛИ (Число=6) \ТО \(Название="Rio Resort") \(Место="Клерксдорп") \(Описание="Жги всю ночь напролёт") \ЕСЛИ (Число=7) \ТО \(Название="Ponte 16") \(Место="Макао") \(Описание="Помацай китаянок") \ЕСЛИ (Число=8) \ТО \(Название="Foxwoods Resorts") \(Место="Машантакет") \(Описание="Выкури трубку мира") \ЕСЛИ (Число=9) \ТО \(Название="City of Dreams") \(Место="Макао") \(Описание="Воплоти мечты в жизнь") \ЕСЛИ (Число=10) \ТО \(Название="Venetian") \(Место="Макао") \(Описание="Возьми от жизни всё") \(Игра=1) Это [color=red][b]\(Место)[/b][/color], Детка! Ма в казино [color=green][b]\(Название)[/b][/color] [color=blue][b]\(Описание)[/b][/color] \(Начало, -->[i][u][color=red]Are[/color] [color=Green]You[/color] [color=Blue]Ready?[/color] [color=Gold]GO! :D[/color][/u][/i]<--) \СТОП \Начало \(АПЕРО.блок.выравнивание текста="по центру") \КАРТИНКА("img0.liveinternet.ru/images/attach/d/1/135/812/135812960_casinovulkanlogoi26141.gif") \(_Победа=0) \(_Поражение=0) \(_Ничья=0) \(Игра1=1) Куда пойдёте развлекаться?! 1. \(Рулетка0, Рулетка) \ЕСЛИ (Игра=1) \ТО 2. \(Играть000, БлекДжек) \ЕСЛИ (Игра=0) \ТО 2. На ремонте :) 3. \(Кости6, Кости) 4. \(Однорукий_Бандит0, Однорукий Бандит) 5. На ремонте :) 6. \(Бои_Петухов0, Петушиные-Бои) 7. \(Логика0, На Логику) |_|_| \СТОП \Логика0 \(ЧислоЛ1=\(АПЕРО.случайно(3))) \(ЧислоЛ2=\(АПЕРО.случайно(1))) \(ЧислоЛ3=\(АПЕРО.случайно(3))) Ищем ответы на вопросы \(Логика01, Простые) \(Логика02, Сложные) \СТОП \Логика01 \(ЧислоЛ2=0) \(ЧислоЛ1=\(АПЕРО.случайно(3))) Вы выбрали Простые Вопросы \(Логика1, Начать) \СТОП \Логика02 \(ЧислоЛ1=0) \(ЧислоЛ2=\(АПЕРО.случайно(1))) Вы выбрали Сложные Вопросы \(Логика22, Начать) \СТОП \Логика1 \(Число=1) \ЕСЛИ (ЧислоЛ1=1) \ТО На футбольный матч любимой команды, каждые выходные, приходил один и тот же человек. До начала игры он всегда угадывал счет. Как он это делал !? Введите сумму счëта двух команд как X:X или X=X (7:3) или (1=9) \ЕСЛИ (ЧислоЛ1=1) \ТО \(АПЕРО.ввод.локация="Логика2") \ЕСЛИ (ЧислоЛ1=1) \ТО \(АПЕРО.ввод.подсказка=число+"Раньше игры") \ЕСЛИ (ЧислоЛ1=1) \ТО Ввод \ВВОД(Число1,"") \ЕСЛИ (ЧислоЛ1=2) \ТО Что больше часа, меньше минуты. Напишите ответ одним словом. \ЕСЛИ (ЧислоЛ1=2) \ТО \(АПЕРО.ввод.локация="Логика2") \ЕСЛИ (ЧислоЛ1=2) \ТО \(АПЕРО.ввод.подсказка=число+"Часы в помощь") \ЕСЛИ (ЧислоЛ1=2) \ТО Ввод \ВВОД(Число1,"") \ЕСЛИ (ЧислоЛ1=3) \ТО Идет то в гору, то с горы, но остается на месте. \ЕСЛИ (ЧислоЛ1=3) \ТО \(АПЕРО.ввод.локация="Логика2") \ЕСЛИ (ЧислоЛ1=3) \ТО \(АПЕРО.ввод.подсказка=число+"Одна из двух бед") \ЕСЛИ (ЧислоЛ1=3) \ТО Ввод \ВВОД(Число1,"") \СТОП \Логика22 \(Число=1) \(Имя1=\(АПЕРО.случайно(5))) \ЕСЛИ (Имя1=1) \ТО \(Имя1="Ивана") \(Имя11="Ваня") \ЕСЛИ (Имя1=2) \ТО \(Имя1="Васи") \(Имя11="Вася") \ЕСЛИ (Имя1=3) \ТО \(Имя1="Пети") \(Имя11="Петя") \ЕСЛИ (Имя1=4) \ТО \(Имя1="Коли") \(Имя11="Коля") \ЕСЛИ (Имя1=5) \ТО \(Имя1="Димы") \(Имя11="Дима") \(Имя2=\(АПЕРО.случайно(5))) \ЕСЛИ (Имя2=1) \ТО \(Имя2="Саши") \(Имя22="Саша") \ЕСЛИ (Имя2=2) \ТО \(Имя2="Маши") \(Имя22="Маша") \ЕСЛИ (Имя2=3) \ТО \(Имя2="Гали") \(Имя22="Галя") \ЕСЛИ (Имя2=4) \ТО \(Имя2="Юли") \(Имя22="Юля") \ЕСЛИ (Имя2=5) \ТО \(Имя2="Вали") \(Имя22="Валя") \(Икс1=\(АПЕРО.случайно(5))) \ЕСЛИ (Икс1=1) \ТО \(Икс1=6) \(Икс11=17) \ЕСЛИ (Икс1=2) \ТО \(Икс1=7) \(Икс11=21) \ЕСЛИ (Икс1=3) \ТО \(Икс1=8) \(Икс11=27) \ЕСЛИ (Икс1=4) \ТО \(Икс1=9) \(Икс11=29) \ЕСЛИ (Икс1=5) \ТО \(Икс1=10) \(Икс11=23) \(Икс2=\(АПЕРО.случайно(5))) \ЕСЛИ (Икс2=1) \ТО \(Икс2=25) \(Икс22=15) \ЕСЛИ (Икс2=2) \ТО \(Икс2=23) \(Икс22=13) \ЕСЛИ (Икс2=3) \ТО \(Икс2=19) \(Икс22=11) \ЕСЛИ (Икс2=4) \ТО \(Икс2=17) \(Икс22=9) \ЕСЛИ (Икс2=5) \ТО \(Икс2=15) \(Икс22=7) \(Фрукт1=\(АПЕРО.случайно(5))) \ЕСЛИ (Фрукт1=1) \ТО \(Фрукт1="Персиков") \ЕСЛИ (Фрукт1=2) \ТО \(Фрукт1="Бананов") \ЕСЛИ (Фрукт1=3) \ТО \(Фрукт1="Абрикосов") \ЕСЛИ (Фрукт1=4) \ТО \(Фрукт1="Яблок") \ЕСЛИ (Фрукт1=5) \ТО \(Фрукт1="Лимонов") \(Фрукт2=\(АПЕРО.случайно(5))) \ЕСЛИ (Фрукт2=1) \ТО \(Фрукт2="Дынь") \ЕСЛИ (Фрукт2=2) \ТО \(Фрукт2="Мандаринов") \ЕСЛИ (Фрукт2=3) \ТО \(Фрукт2="Ананасов") \ЕСЛИ (Фрукт2=4) \ТО \(Фрукт2="Арбузов") \ЕСЛИ (Фрукт2=5) \ТО \(Фрукт2="Лаймов") \(Первое_Имя=\(АПЕРО.случайно(2))) \ЕСЛИ (Первое_Имя=1) \ТО \(Первое_Имя=Имя1) \(Второе_Имя=Имя2) \ЕСЛИ (Первое_Имя=2) \ТО \(Первое_Имя=Имя2) \(Второе_Имя=Имя1) \(Отдал_Икс=\(АПЕРО.случайно(2))) \ЕСЛИ (Отдал_Икс=1) \ТО \(Отдал_Икс=Икс1) \(Было_Икс=Икс11) \ЕСЛИ (Отдал_Икс=2) \ТО \(Отдал_Икс=Икс22) \(Было_Икс=Икс2) \(Был_Фрукт=\(АПЕРО.случайно(2))) \ЕСЛИ (Был_Фрукт=1) \ТО \(Был_Фрукт=Фрукт1) \(Отдал_Фрукт=Фрукт2) \ЕСЛИ (Был_Фрукт=2) \ТО \(Был_Фрукт=Фрукт2) \(Отдал_Фрукт=Фрукт1) \(Кто_Отдал=\(АПЕРО.случайно(2))) \ЕСЛИ (Кто_Отдал=1) \ТО \(Кто_Отдал=Имя11) \(Кто_Взял=Имя2) \ЕСЛИ (Кто_Отдал=2) \ТО \(Кто_Отдал=Имя22) \(Кто_Взял=Имя1) \(Укого=\(АПЕРО.случайно(2))) \ЕСЛИ (Укого=1) \ТО \(Укого=Кто_Взял) \(Сколько=Был_Фрукт) \(Ответ=Отдал_Икс) \ЕСЛИ (Укого=2) \ТО \(Укого=Кто_Отдал) \(Сколько=Отдал_Фрукт) \(Ответ=Было_Икс-Отдал_Икс) \ЕСЛИ (ЧислоЛ2=1) \ТО Задача на внимательность: \ЕСЛИ (ЧислоЛ2=1) \ТО У \(Первое_Имя) было \(Было_Икс) \(Был_Фрукт) и столько же \(Отдал_Фрукт) у \(Кто_Взял). \(Кто_Отдал) обменял(а) их на \(Отдал_Икс) \(Отдал_Фрукт) у \(Кто_Взял). Сколько у \(Укого) осталось \(Сколько)? Ответ напишите числом, не словом. \ЕСЛИ (ЧислоЛ2=1) \ТО \(АПЕРО.ввод.локация="Логика2") \ЕСЛИ (ЧислоЛ2=1) \ТО \(АПЕРО.ввод.подсказка=число+"внимательность") \ЕСЛИ (ЧислоЛ2=1) \ТО Ввод \ВВОД(Число1,"") \СТОП \Логика2 \(Ошибка=1) \ЕСЛИ (ЧислоЛ1=1 И Число1="0:0" ИЛИ ЧислоЛ1=1 И Число1="0=0") \ТО \(Ошибка=0) \ЕСЛИ (ЧислоЛ1=1 И Ошибка=0) \ТО Ответ верный :) \ЕСЛИ (ЧислоЛ1=1 И Ошибка=0) \ТО \(Логика0, Дальше!) \ЕСЛИ (ЧислоЛ1=1 И Ошибка=1) \ТО Не верно! \ЕСЛИ (ЧислоЛ1=1 И Ошибка=1) \ТО До начала игры счëт всегда равен 0:0 \ЕСЛИ (ЧислоЛ1=1 И Ошибка=1) \ТО \(Логика0, Дальше!) \ЕСЛИ (ЧислоЛ1=2 И Число1="Секунда" ИЛИ ЧислоЛ1=2 И Число1="секунда") \ТО \(Ошибка=0) \ЕСЛИ (ЧислоЛ1=2 И Ошибка=0) \ТО Ответ верный :) \ЕСЛИ (ЧислоЛ1=2 И Ошибка=0) \ТО \(Логика0, Дальше!) \ЕСЛИ (ЧислоЛ1=2 И Ошибка=1) \ТО Не верно! \ЕСЛИ (ЧислоЛ1=2 И Ошибка=1) \ТО Секундная стрелка на часах. \ЕСЛИ (ЧислоЛ1=2 И Ошибка=1) \ТО \(Логика0, Дальше!) \ЕСЛИ (ЧислоЛ1=3 И Число1="Дорога" ИЛИ ЧислоЛ1=3 И Число1="дорога") \ТО \(Ошибка=0) \ЕСЛИ (ЧислоЛ1=3 И Ошибка=0) \ТО Ответ верный :) \ЕСЛИ (ЧислоЛ1=3 И Ошибка=0) \ТО \(Логика0, Дальше!) \ЕСЛИ (ЧислоЛ1=3 И Ошибка=1) \ТО Не верно! \ЕСЛИ (ЧислоЛ1=3 И Ошибка=1) \ТО Это дорога. Слоупок :) \ЕСЛИ (ЧислоЛ1=3 И Ошибка=1) \ТО \(Логика0, Дальше!) \ЕСЛИ (ЧислоЛ2=1 И Число1=Ответ) \ТО \(Ошибка=0) \ЕСЛИ (ЧислоЛ2=1 И Ошибка=0) \ТО Ответ верный :) \ЕСЛИ (ЧислоЛ2=1 И Ошибка=0) \ТО \(Логика0, Дальше!) \ЕСЛИ (ЧислоЛ2=1 И Ошибка=1) \ТО Не верно! \ЕСЛИ (ЧислоЛ2=1 И Ошибка=1) \ТО Ответ это \(Ответ) \ЕСЛИ (ЧислоЛ2=1 И Ошибка=1) \ТО \(Логика0, Дальше!) \СТОП \Кости6 \(Граней=6) \(К2=0) \(К4=0) \(К6=0) \(К8=0) \(АПЕРО.блок.выравнивание текста="по центру") \КАРТИНКА("www.casinoz.biz/userfiles/casino%20chips%20dice%20cards.jpg") Кол-во кубиков: \(КостиК2, Один) \(КостиК4, Два) \(КостиК6, Три) \(КостиК8, Четыре) И кол-во граней: \(Кости6, -->[u]Шесть[/u]<--) \(Кости9, Девять) \(Кости12, Двенадцать) \СТОП \Кости9 \(Граней=9) \(К2=0) \(К4=0) \(К6=0) \(К8=0) \(АПЕРО.блок.выравнивание текста="по центру") \КАРТИНКА("www.casinoz.biz/userfiles/casino%20chips%20dice%20cards.jpg") Кол-во кубиков: \(КостиК2, Один) \(КостиК4, Два) \(КостиК6, Три) \(КостиК8, Четыре) И кол-во граней: \(Кости6, Шесть) \(Кости9, -->[u]Девять[/u]<--) \(Кости12, Двенадцать) \СТОП \Кости12 \(Граней=12) \(К2=0) \(К4=0) \(К6=0) \(К8=0) \(АПЕРО.блок.выравнивание текста="по центру") \КАРТИНКА("www.casinoz.biz/userfiles/casino%20chips%20dice%20cards.jpg") Кол-во кубиков: \(КостиК2, Один) \(КостиК4, Два) \(КостиК6, Три) \(КостиК8, Четыре) И кол-во граней: \(Кости6, Шесть) \(Кости9, Девять) \(Кости12, -->[u]Двенадцать[/u]<--) \СТОП \КостиК2 \(К2=1) \\(АПЕРО.блок.выравнивание текста="по центру") \КАРТИНКА("www.cadouripentrubarbati.ro/images/Z/medie/8057_02%20mic.jpg")[s] \(АПЕРО.блок.выравнивание текста="по центру") Вы выбрали Один Куб \(Кости1, Продолжить) \СТОП \КостиК4 \(К2=1) \(К4=1) \(АПЕРО.блок.выравнивание текста="по центру") \КАРТИНКА("igra1.com/img/04701.jpg")[s] \(АПЕРО.блок.выравнивание текста="по центру") Вы выбрали Два Куба \(Кости1, Продолжить) \СТОП \КостиК6 \(К2=1) \(К4=1) \(К6=1) \(АПЕРО.блок.выравнивание текста="по центру") \КАРТИНКА("trenermag.ru/image/cache/data/boardgames/kubiki-metallik-250x250.jpg")[s] \(АПЕРО.блок.выравнивание текста="по центру")\ Вы выбрали Три Куба \(Кости1, Продолжить) \СТОП \КостиК8 \(К2=1) \(К4=1) \(К6=1) \(К8=1) \(АПЕРО.блок.выравнивание текста="по центру") \КАРТИНКА("hsto.org/files/b0e/4ba/559/b0e4ba5599cc492bb390fd23f7693143.png")[s] \(АПЕРО.блок.выравнивание текста="по центру") Вы выбрали Четыре Куба \(Кости1, Продолжить) \СТОП \Кости1 \(Куб1=0) \(Куб3=0) \(Куб5=0) \(Куб7=0) \(Куб2=0) \(Куб4=0) \(Куб6=0) \(Куб8=0) \ЕСЛИ (К2=1) \ТО \(Число1=\(АПЕРО.случайно(Граней))) \(Куб1=Число1) \ЕСЛИ (К2=1) \ТО \(Число2=\(АПЕРО.случайно(Граней))) \(Куб2=Число2) \ЕСЛИ (К4=1) \ТО \(Число3=\(АПЕРО.случайно(Граней))) \(Куб3=Число3) \ЕСЛИ (К4=1) \ТО \(Число4=\(АПЕРО.случайно(Граней))) \(Куб4=Число4) \ЕСЛИ (К6=1) \ТО \(Число5=\(АПЕРО.случайно(Граней))) \(Куб5=Число5) \ЕСЛИ (К6=1) \ТО \(Число6=\(АПЕРО.случайно(Граней))) \(Куб6=Число6) \ЕСЛИ (К8=1) \ТО \(Число7=\(АПЕРО.случайно(Граней))) \(Куб7=Число7) \ЕСЛИ (К8=1) \ТО \(Число8=\(АПЕРО.случайно(Граней))) \(Куб8=Число8) \(Ваших=Куб1+Куб3+Куб5+Куб7) \(Соперника=Куб2+Куб4+Куб6+Куб8) [color=Gold]Сумма_Кубов :D[/color] \ЕСЛИ (К2=1 И К4=0 И К6=0 И К8=0) \ТО [color=Green]Ваших:[/color]\(Куб1) \ЕСЛИ (К2=1 И К4=1 И К6=0 И К8=0) \ТО [color=Green]Ваших:[/color]\(Куб1)+\(Куб2)=[color=Red]\(Ваших)[/color] \ЕСЛИ (К2=1 И К4=1 И К6=1 И К8=0) \ТО [color=Green]Ваших:[/color]\(Куб1)+\(Куб3)+\(Куб5)=[color=Red]\(Ваших)[/color] \ЕСЛИ (К2=1 И К4=1 И К6=1 И К8=1) \ТО [color=Green]Ваших:[/color]\(Куб1)+\(Куб3)+\(Куб5)+\(Куб7)=[color=Red]\(Ваших)[/color] [] \ЕСЛИ (К2=1 И К4=0 И К6=0 И К8=0) \ТО [color=Green]Соперника:[/color]\(Куб2) \ЕСЛИ (К2=1 И К4=1 И К6=0 И К8=0) \ТО [color=Green]Соперника:[/color]\(Куб2)+\(Куб4)=[color=Red]\(Соперника)[/color] \ЕСЛИ (К2=1 И К4=1 И К6=1 И К8=0) \ТО [color=Green]Соперника:[/color]\(Куб2)+\(Куб4)+\(Куб6)=[color=Red]\(Соперника)[/color] \ЕСЛИ (К2=1 И К4=1 И К6=1 И К8=1) \ТО [color=Green]Соперника:[/color]\(Куб2)+\(Куб4)+\(Куб6)+\(Куб8)=[color=Red]\(Соперника)[/color] \ЕСЛИ (Ваших>Соперника) \ТО \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Ваших>Соперника) \ТО \КАРТИНКА("casinozerkalo.online/wp-content/uploads/2017/04/casino_pobeda.jpg")[s] \ЕСЛИ (Ваших>Соперника) \ТО \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Ваших<Соперника) \ТО \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Ваших<Соперника) \ТО \КАРТИНКА("scientificstar.ru/_ph/18/2/563071383.gif")[s] \ЕСЛИ (Ваших<Соперника) \ТО \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Ваших>Соперника) \ТО [color=gray]ВЫ ПОБЕДИЛИ! [/color] \ЕСЛИ (Ваших>Соперника) \ТО \(Кости1, [color=Red]ЕЩЁ РАЗОК!?[/color]) \ЕСЛИ (Ваших>Соперника) \ТО \(Начало, [color=Blue]В ДРУГОЕ[/color]) \ЕСЛИ (Ваших<Соперника) \ТО [color=gray]ВЫ ПРОИГРАЛИ![/color] \ЕСЛИ (Ваших<Соперника) \ТО \(Кости1, [color=Red]ЕЩЁ РАЗОК!?[/color]) \ЕСЛИ (Ваших<Соперника) \ТО \(Начало, [color=Blue]В ДРУГОЕ[/color]) \ЕСЛИ (Ваших=Соперника) \ТО [color=gray]ЭТО НИЧЬЯ![/color] \ЕСЛИ (Ваших=Соперника) \ТО \(Кости1, [color=Red]ПЕРЕИГРАТЬ?![/color]) \ЕСЛИ (Ваших=Соперника) \ТО \(Начало, [color=Blue]В ДРУГОЕ[/color]) \СТОП \Рулетка0 \(Ошибка=2) \(Число=\(АПЕРО.случайно(37))) \ЕСЛИ (Число=1) \ТО \(Цвет="Красный") \(Чётно=0) \(Малое=1) \ЕСЛИ (Число=20) \ТО \(Цвет="Чёрный") \(Чётно=1) \(Малое=0) \ЕСЛИ (Число=2) \ТО \(Цвет="Чёрный") \(Чётно=1) \(Малое=1) \ЕСЛИ (Число=21) \ТО \(Цвет="Красный") \(Чётно=0) \(Малое=0) \ЕСЛИ (Число=3) \ТО \(Цвет="Красный") \(Чётно=0) \(Малое=1) \ЕСЛИ (Число=22) \ТО \(Цвет="Чёрный") \(Чётно=1) \(Малое=0) \ЕСЛИ (Число=4) \ТО \(Цвет="Чёрный") \(Чётно=1) \(Малое=1) \ЕСЛИ (Число=23) \ТО \(Цвет="Красный") \(Чётно=0) \(Малое=0) \ЕСЛИ (Число=5) \ТО \(Цвет="Красный") \(Чётно=0) \(Малое=1) \ЕСЛИ (Число=24) \ТО \(Цвет="Чёрный") \(Чётно=1) \(Малое=0) \ЕСЛИ (Число=6) \ТО \(Цвет="Чёрный") \(Чётно=1) \(Малое=1) \ЕСЛИ (Число=25) \ТО \(Цвет="Красный") \(Чётно=0) \(Малое=0) \ЕСЛИ (Число=7) \ТО \(Цвет="Красный") \(Чётно=0) \(Малое=1) \ЕСЛИ (Число=26) \ТО \(Цвет="Чёрный") \(Чётно=1) \(Малое=0) \ЕСЛИ (Число=8) \ТО \(Цвет="Чёрный") \(Чётно=1) \(Малое=1) \ЕСЛИ (Число=27) \ТО \(Цвет="Красный") \(Чётно=0) \(Малое=0) \ЕСЛИ (Число=9) \ТО \(Цвет="Красный") \(Чётно=0) \(Малое=1) \ЕСЛИ (Число=28) \ТО \(Цвет="Чёрный") \(Чётно=1) \(Малое=0) \ЕСЛИ (Число=10) \ТО \(Цвет="Чёрный") \(Чётно=1) \(Малое=1) \ЕСЛИ (Число=29) \ТО \(Цвет="Чёрный") \(Чётно=0) \(Малое=0) \ЕСЛИ (Число=11) \ТО \(Цвет="Чёрный") \(Чётно=0) \(Малое=1) \ЕСЛИ (Число=30) \ТО \(Цвет="Красный") \(Чётно=1) \(Малое=0) \ЕСЛИ (Число=12) \ТО \(Цвет="Красный") \(Чётно=1) \(Малое=1) \ЕСЛИ (Число=31) \ТО \(Цвет="Чёрный") \(Чётно=0) \(Малое=0) \ЕСЛИ (Число=13) \ТО \(Цвет="Чёрный") \(Чётно=0) \(Малое=1) \ЕСЛИ (Число=32) \ТО \(Цвет="Красный") \(Чётно=1) \(Малое=0) \ЕСЛИ (Число=14) \ТО \(Цвет="Красный") \(Чётно=1) \(Малое=1) \ЕСЛИ (Число=33) \ТО \(Цвет="Чёрный") \(Чётно=0) \(Малое=0) \ЕСЛИ (Число=15) \ТО \(Цвет="Чёрный") \(Чётно=0) \(Малое=1) \ЕСЛИ (Число=34) \ТО \(Цвет="Красный") \(Чётно=1) \(Малое=0) \ЕСЛИ (Число=16) \ТО \(Цвет="Красный") \(Чётно=1) \(Малое=1) \ЕСЛИ (Число=35) \ТО \(Цвет="Чёрный") \(Чётно=0) \(Малое=0) \ЕСЛИ (Число=17) \ТО \(Цвет="Чёрный") \(Чётно=0) \(Малое=1) \ЕСЛИ (Число=36) \ТО \(Цвет="Красный") \(Чётно=1) \(Малое=0) \ЕСЛИ (Число=18) \ТО \(Цвет="Красный") \(Чётно=1) \(Малое=1) \ЕСЛИ (Число=37) \ТО \(Цвет="Зелёный") \(Чётно=0) \(Малое=0) \(Число=0) \ЕСЛИ (Число=19) \ТО \(Цвет="Красный") \(Чётно=0) \(Малое=0) \(АПЕРО.блок.выравнивание текста="по центру") \КАРТИНКА("lh3.googleusercontent.com/7_uCZpafCMBvnWaTIGn2jcyL49xZXtfryQz3VttLYVRJ3qJB5l10uUUlnPQblogHZ8s=w300") На что ставите? \(Рулетка_Ввод0, [color=Blue]Выбрать Самому[/color]) \(Рулетка_Красное, [color=Red]Красное:[/color])\(Рулетка_Красное_Чёт, [color=gray]{Чёт[/color]) \(Рулетка_Красное_НеЧет, [color=gray]НеЧет}[/color]) \(Рулетка_Чёрное, Чёрное:)\(Рулетка_Чёрное_Чёт, [color=gray]{Чёт[/color]) \(Рулетка_Чёрное_НеЧет, [color=gray]НеЧет}[/color]) [color=brown]Всë_Поле:[/color]\(Рулетка_Чётное, [color=Gray]{Чёт[/color]) \(Рулетка_НеЧётное, [color=Gray]НеЧет}[/color]) [color=brown]Всë_Поле:[/color]\(Рулетка_Малое, [color=Gray]{Малые[/color]) \(Рулетка_Большое, [color=Gray]Большие}[/color]) \(Рулетка_Однозначное, [color=gray]{Однозначное[/color]) \(Рулетка_Двухзначное, [color=Gray]Двухзначное}[/color]) \(Рулетка_Зелёное, [color=Green]{Ноль[/color]) \(Рулетка_Два_Нуля, [color=Green]Два-Нуля}[/color]) \(Рулетка_Случайное, [color=Blue]{Случайное}[/color]) \(Начало, В МЕНЮ) \(ШАБЛОНЫ.таймер.установить(0;"Рулетка_Ввод0")) \СТОП \Рулетка_Ввод0 \(Победа=0) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Ошибка=2) \ТО \КАРТИНКА("casinomir.ru/_nw/0/51740084.jpg") \ЕСЛИ (Ошибка=2) \ТО \(АПЕРО.ввод.локация="Рулетка_Ввод0") \ЕСЛИ (Ошибка=2) \ТО \(АПЕРО.ввод.подсказка=число+"От 0 до 36") \ЕСЛИ (Ошибка=2) \ТО Пожалуйста, \ЕСЛИ (Ошибка=2) \ТО Выберите число \ЕСЛИ (Ошибка=2) \ТО Ввод \ВВОД(Число,"") \ЕСЛИ (Число<0 И Ошибка=0 ИЛИ Число>36 И Ошибка=0) \ТО \(Ошибка=1) \ЕСЛИ (Ошибка=1) \ТО \КАРТИНКА("1mobilecasino.ru/wp-content/uploads/2016/06/zhivoy-diler-v-kazino-230x230.jpg") \ЕСЛИ (Ошибка=1) \ТО \(АПЕРО.ввод.локация="Рулетка_Ввод0") \ЕСЛИ (Ошибка=1) \ТО \(АПЕРО.ввод.подсказка=число+"От 0 до 36") \ЕСЛИ (Ошибка=1) \ТО [color=Blue]\(Число)[/color] Неверно! \ЕСЛИ (Ошибка=1) \ТО Нужно выбрать, \ЕСЛИ (Ошибка=1) \ТО Другое число \ЕСЛИ (Ошибка=1) \ТО Ввод \ВВОД(Число,"") \ЕСЛИ (Число=0 И Ошибка=0 ИЛИ Число<37 И Ошибка=0) \ТО \(Ошибка=0) \ЕСЛИ (Ошибка=0) \ТО \(ЧислоX=\(АПЕРО.случайно(37))) \ЕСЛИ (Ошибка=0) \ТО \ЕСЛИ (Число=0) \ТО \(Число=37) \ЕСЛИ (Ошибка=0) \ТО \ЕСЛИ (ЧислоX=Число) \ТО \(Победа=1) \ЕСЛИ (Ошибка=0) \ТО \ЕСЛИ (Число=37) \ТО \(Число="0") \ЕСЛИ (Ошибка=0) \ТО \ЕСЛИ (ЧислоX=37) \ТО \(ЧислоX="0") \ЕСЛИ (Ошибка=0) \ТО \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Ошибка=0) \ТО \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Ошибка=0) \ТО \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") \ЕСЛИ (Ошибка=0) \ТО Вы поставили на \ЕСЛИ (Ошибка=0) \ТО Число № \(Число) \ЕСЛИ (Ошибка=0) \ТО Выпало число \(ЧислоX) \ЕСЛИ (Ошибка=0) \ТО \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Ошибка=0) \ТО \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (Ошибка=0) \ТО \(Рулетка_Ввод0, ЕЩЁ_РАЗ?!) \ЕСЛИ (Ошибка=0) \ТО \(Начало, В МЕНЮ) \(Ошибка=0) \СТОП \Рулетка_Чёрное_НеЧет \(Победа=0) \ЕСЛИ (Число=11 ИЛИ Число=13 ИЛИ Число=15) \ТО \(Победа=1) \ЕСЛИ (Число=17 ИЛИ Число=29 ИЛИ Число=31) \ТО \(Победа=1) \ЕСЛИ (Число=33 ИЛИ Число=35) \ТО \(Победа=1) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Чёрное НеЧётное Выпало число \(Число) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Красное_НеЧет \(Победа=0) \ЕСЛИ (Число=1 ИЛИ Число=3 ИЛИ Число=5) \ТО \(Победа=1) \ЕСЛИ (Число=7 ИЛИ Число=9 ИЛИ Число=19) \ТО \(Победа=1) \ЕСЛИ (Число=21 ИЛИ Число=23 ИЛИ Число=27) \ТО \(Победа=1) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Красное НеЧётное Выпало число \(Число) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Чёрное_Чёт \(Победа=0) \ЕСЛИ (Число=2 ИЛИ Число=4 ИЛИ Число=6) \ТО \(Победа=1) \ЕСЛИ (Число=8 ИЛИ Число=10 ИЛИ Число=20) \ТО \(Победа=1) \ЕСЛИ (Число=22 ИЛИ Число=24 ИЛИ Число=26) \ТО \(Победа=1) \ЕСЛИ (Число=28) \ТО \(Победа=1) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Чёрное Чётное Выпало число \(Число) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Красное_Чёт \(Победа=0) \ЕСЛИ (Число=12 ИЛИ Число=14 ИЛИ Число=16) \ТО \(Победа=1) \ЕСЛИ (Число=18 ИЛИ Число=32 ИЛИ Число=34) \ТО \(Победа=1) \ЕСЛИ (Число=36 ИЛИ Число=30) \ТО \(Победа=1) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Красное Чётное Выпало число \(Число) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Случайное \(Победа=0) \(ЧислоX=\(АПЕРО.случайно(37))) \ЕСЛИ (ЧислоX=37) \ТО \(ЧислоX=0) \ЕСЛИ (ЧислоX=Число) \ТО \(Победа=1) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Случайное \(ЧислоX) Выпало число \(Число) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Двухзначное \(Победа=0) \ЕСЛИ (Число<10) \ТО \(Победа=0) \ЕСЛИ (Число>9) \ТО \(Победа=1) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Двухзначное Выпало число \(Число) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Однозначное \(Победа=0) \ЕСЛИ (Число<10 И Число>0) \ТО \(Победа=1) \ЕСЛИ (Число>9) \ТО \(Победа=0) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Однозначное Выпало число \(Число) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Два_Нуля \ЕСЛИ (Число=0) \ТО \(ЧислоX=\(АПЕРО.случайно(6))) \ЕСЛИ (ЧислоХ=1 ИЛИ ЧислоХ=3 ИЛИ ЧислоХ=5) \ТО \(Победа=1) \(ЧислоX=00) \ЕСЛИ (ЧислоХ=2 ИЛИ ЧислоХ=4 ИЛИ ЧислоХ=6) \ТО \(Победа=0) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Два Нуля. \ЕСЛИ (Победа=1) \ТО Выпало число \(ЧислоX) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО Выпало число \(Число) \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Малое \(Победа=0) \ЕСЛИ (Малое=1 И Число>1) \ТО \(Победа=1) \ЕСЛИ (Малое=0 ИЛИ Число=0) \ТО \(Победа=0) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на малое Это диапазон 1-18 Выпало число \(Число) \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Большое \(Победа=0) \ЕСЛИ (Малое=1 ИЛИ Число=0) \ТО \(Победа=0) \ЕСЛИ (Малое=0 И Число>0) \ТО \(Победа=1) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на малое Это диапазон 19-36 Выпало число \(Число) \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Чётное \(Победа=0) \ЕСЛИ (Чётно=0 ИЛИ Число=0) \ТО \(Победа=0) \ЕСЛИ (Чётно=1 И Число>0) \ТО \(Победа=1) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Чётное Это 2-4-6...32-34-36 Выпало число \(Число) \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_НеЧётное \(Победа=0) \ЕСЛИ (Чётно=1 ИЛИ Число=0) \ТО \(Победа=0) \ЕСЛИ (Чётно=0 И Число>0) \ТО \(Победа=1) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на НеЧётное Это 1-3-5...31-33-35 Выпало число \(Число) \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Чёрное \(Победа=0) \ЕСЛИ (Цвет="Чёрный") \ТО \(Победа=1) \ЕСЛИ (Цвет="Красный" ИЛИ Цвет="Зелёный") \ТО \(Победа=0) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Чёрное Выпало число \(Число) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Красное \(Победа=0) \ЕСЛИ (Цвет="Красный") \ТО \(Победа=1) \ЕСЛИ (Цвет="Чёрный" ИЛИ Цвет="Зелёный") \ТО \(Победа=0) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Красное Выпало число \(Число) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Рулетка_Зелёное \(Победа=0) \ЕСЛИ (Цвет="Зелёный") \ТО \(Победа=1) \ЕСЛИ (Цвет="Чёрный" ИЛИ Цвет="Красный") \ТО \(Победа=0) \(АПЕРО.блок.выравнивание текста="по центру") \ЕСЛИ (Победа=0) \ТО \КАРТИНКА("www.baraholkin.ru/assets/images/01-2016/casino_lose.jpg") \ЕСЛИ (Победа=1) \ТО \КАРТИНКА("st2.depositphotos.com/5954192/10086/i/450/depositphotos_100868994-stock-photo-young-pretty-women-playing-roulette.jpg") Вы поставили на Зелёное Выпало число \(Число) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Рулетка0, ЕЩЁ_РАЗ?!) \(Начало, В МЕНЮ) \СТОП \Однорукий_Бандит0 \КАРТИНКА("casino777online.ru/wp-content/uploads/2014/02/odnorukiy-bandit1.jpg") Режим Бандита :) 1. \(Однорукий_Бандит1, Три_в_Ряд) 2. \(Однорукий_Бандит2, Крест_на_Крест) 3. \(Однорукий_Бандит3, Ромбом) 4. \(Однорукий_Бандит4, Квадрат) 4. \(Однорукий_Бандит5, Три_на_Три) \(Начало, В МЕНЮ) \СТОП \Однорукий_Бандит1 \(Победа=0) \(Число1=\(АПЕРО.случайно(6))) \ЕСЛИ (Число1=1) \ТО \(Слот1="Вишня") \ЕСЛИ (Число1=2) \ТО \(Слот1="Ром") \ЕСЛИ (Число1=3) \ТО \(Слот1="Доллар") \ЕСЛИ (Число1=4) \ТО \(Слот1="Бар") \ЕСЛИ (Число1=5) \ТО \(Слот1="Лемон") \ЕСЛИ (Число1=6) \ТО \(Слот1="Семь") \(Число2=\(АПЕРО.случайно(6))) \ЕСЛИ (Число2=1) \ТО \(Слот2="Вишня") \ЕСЛИ (Число2=2) \ТО \(Слот2="Ром") \ЕСЛИ (Число2=3) \ТО \(Слот2="Доллар") \ЕСЛИ (Число2=4) \ТО \(Слот2="Бар") \ЕСЛИ (Число2=5) \ТО \(Слот2="Лемон") \ЕСЛИ (Число2=6) \ТО \(Слот2="Семь") \(Число3=\(АПЕРО.случайно(6))) \ЕСЛИ (Число3=1) \ТО \(Слот3="Вишня") \ЕСЛИ (Число3=2) \ТО \(Слот3="Ром") \ЕСЛИ (Число3=3) \ТО \(Слот3="Доллар") \ЕСЛИ (Число3=4) \ТО \(Слот3="Бар") \ЕСЛИ (Число3=5) \ТО \(Слот3="Лемон") \ЕСЛИ (Число3=6) \ТО \(Слот3="Семь") \ЕСЛИ (Слот1="Вишня" И Слот2="Вишня" И Слот3="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот1="Ром" И Слот2="Ром" И Слот3="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот1="Доллар" И Слот2="Доллар" И Слот3="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Бар" И Слот2="Бар" И Слот3="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Лемон" И Слот2="Лемон" И Слот3="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот1="Семь" И Слот2="Семь" И Слот3="Семь") \ТО \(Победа=1) XXXXX - XXXXX - XXXXX \(Слот1) - \(Слот2) - \(Слот3) XXXXX - XXXXX - XXXXX \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Однорукий_Бандит1, ЕЩЁ РАЗ!) \(Однорукий_Бандит0, НАЗАД) \СТОП \Однорукий_Бандит2 \(Победа=0) \(Число1=\(АПЕРО.случайно(6))) \ЕСЛИ (Число1=1) \ТО \(Слот1="Вишня") \ЕСЛИ (Число1=2) \ТО \(Слот1="Ром") \ЕСЛИ (Число1=3) \ТО \(Слот1="Доллар") \ЕСЛИ (Число1=4) \ТО \(Слот1="Бар") \ЕСЛИ (Число1=5) \ТО \(Слот1="Лемон") \ЕСЛИ (Число1=6) \ТО \(Слот1="Семь") \(Число2=\(АПЕРО.случайно(6))) \ЕСЛИ (Число2=1) \ТО \(Слот2="Вишня") \ЕСЛИ (Число2=2) \ТО \(Слот2="Ром") \ЕСЛИ (Число2=3) \ТО \(Слот2="Доллар") \ЕСЛИ (Число2=4) \ТО \(Слот2="Бар") \ЕСЛИ (Число2=5) \ТО \(Слот2="Лемон") \ЕСЛИ (Число2=6) \ТО \(Слот2="Семь") \(Число3=\(АПЕРО.случайно(6))) \ЕСЛИ (Число3=1) \ТО \(Слот3="Вишня") \ЕСЛИ (Число3=2) \ТО \(Слот3="Ром") \ЕСЛИ (Число3=3) \ТО \(Слот3="Доллар") \ЕСЛИ (Число3=4) \ТО \(Слот3="Бар") \ЕСЛИ (Число3=5) \ТО \(Слот3="Лемон") \ЕСЛИ (Число3=6) \ТО \(Слот3="Семь") \(Число4=\(АПЕРО.случайно(6))) \ЕСЛИ (Число4=1) \ТО \(Слот4="Вишня") \ЕСЛИ (Число4=2) \ТО \(Слот4="Ром") \ЕСЛИ (Число4=3) \ТО \(Слот4="Доллар") \ЕСЛИ (Число4=4) \ТО \(Слот4="Бар") \ЕСЛИ (Число4=5) \ТО \(Слот4="Лемон") \ЕСЛИ (Число4=6) \ТО \(Слот4="Семь") \(Число5=\(АПЕРО.случайно(6))) \ЕСЛИ (Число5=1) \ТО \(Слот5="Вишня") \ЕСЛИ (Число5=2) \ТО \(Слот5="Ром") \ЕСЛИ (Число5=3) \ТО \(Слот5="Доллар") \ЕСЛИ (Число5=4) \ТО \(Слот5="Бар") \ЕСЛИ (Число5=5) \ТО \(Слот5="Лемон") \ЕСЛИ (Число5=6) \ТО \(Слот5="Семь") \ЕСЛИ (Слот1="Вишня" И Слот3="Вишня" И Слот5="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот1="Ром" И Слот3="Ром" И Слот5="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот1="Доллар" И Слот3="Доллар" И Слот5="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Бар" И Слот3="Бар" И Слот5="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Лемон" И Слот3="Лемон" И Слот5="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот1="Семь" И Слот3="Семь" И Слот5="Семь") \ТО \(Победа=1) \ЕСЛИ (Слот2="Вишня" И Слот3="Вишня" И Слот4="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот2="Ром" И Слот3="Ром" И Слот4="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот2="Доллар" И Слот3="Доллар" И Слот4="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот2="Бар" И Слот3="Бар" И Слот4="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот2="Лемон" И Слот3="Лемон" И Слот4="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот2="Семь" И Слот3="Семь" И Слот4="Семь") \ТО \(Победа=1) \(Слот1) - XXXXX - \(Слот2) XXXXX - \(Слот3) - XXXXX \(Слот4) - XXXXX - \(Слот5) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Однорукий_Бандит2, ЕЩЁ РАЗ!) \(Однорукий_Бандит0, НАЗАД) \СТОП \Однорукий_Бандит3 \(Победа=0) \(Число1=\(АПЕРО.случайно(6))) \ЕСЛИ (Число1=1) \ТО \(Слот1="Вишня") \ЕСЛИ (Число1=2) \ТО \(Слот1="Ром") \ЕСЛИ (Число1=3) \ТО \(Слот1="Доллар") \ЕСЛИ (Число1=4) \ТО \(Слот1="Бар") \ЕСЛИ (Число1=5) \ТО \(Слот1="Лемон") \ЕСЛИ (Число1=6) \ТО \(Слот1="Семь") \(Число2=\(АПЕРО.случайно(6))) \ЕСЛИ (Число2=1) \ТО \(Слот2="Вишня") \ЕСЛИ (Число2=2) \ТО \(Слот2="Ром") \ЕСЛИ (Число2=3) \ТО \(Слот2="Доллар") \ЕСЛИ (Число2=4) \ТО \(Слот2="Бар") \ЕСЛИ (Число2=5) \ТО \(Слот2="Лемон") \ЕСЛИ (Число2=6) \ТО \(Слот2="Семь") \(Число3=\(АПЕРО.случайно(6))) \ЕСЛИ (Число3=1) \ТО \(Слот3="Вишня") \ЕСЛИ (Число3=2) \ТО \(Слот3="Ром") \ЕСЛИ (Число3=3) \ТО \(Слот3="Доллар") \ЕСЛИ (Число3=4) \ТО \(Слот3="Бар") \ЕСЛИ (Число3=5) \ТО \(Слот3="Лемон") \ЕСЛИ (Число3=6) \ТО \(Слот3="Семь") \(Число4=\(АПЕРО.случайно(6))) \ЕСЛИ (Число4=1) \ТО \(Слот4="Вишня") \ЕСЛИ (Число4=2) \ТО \(Слот4="Ром") \ЕСЛИ (Число4=3) \ТО \(Слот4="Доллар") \ЕСЛИ (Число4=4) \ТО \(Слот4="Бар") \ЕСЛИ (Число4=5) \ТО \(Слот4="Лемон") \ЕСЛИ (Число4=6) \ТО \(Слот4="Семь") \ЕСЛИ (Слот1="Вишня" И Слот2="Вишня" И Слот3="Вишня" И Слот4="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот1="Ром" И Слот2="Ром" И Слот3="Ром" И Слот4="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот1="Доллар" И Слот2="Доллар" И Слот3="Доллар" И Слот4="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Бар" И Слот2="Бар" И Слот3="Бар" И Слот4="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Лемон" И Слот2="Лемон" И Слот3="Лемон" И Слот4="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот1="Семь" И Слот2="Семь" И Слот3="Семь" И Слот4="Семь") \ТО \(Победа=1) XXXXX - \(Слот1) - XXXXX \(Слот2) - XXXXX - \(Слот3) XXXXX - \(Слот4) - XXXXX \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Однорукий_Бандит3, ЕЩЁ РАЗ!) \(Однорукий_Бандит0, НАЗАД) \СТОП \Однорукий_Бандит4 \(Победа=0) \(Число1=\(АПЕРО.случайно(6))) \ЕСЛИ (Число1=1) \ТО \(Слот1="Вишня") \ЕСЛИ (Число1=2) \ТО \(Слот1="Ром") \ЕСЛИ (Число1=3) \ТО \(Слот1="Доллар") \ЕСЛИ (Число1=4) \ТО \(Слот1="Бар") \ЕСЛИ (Число1=5) \ТО \(Слот1="Лемон") \ЕСЛИ (Число1=6) \ТО \(Слот1="Семь") \(Число2=\(АПЕРО.случайно(6))) \ЕСЛИ (Число2=1) \ТО \(Слот2="Вишня") \ЕСЛИ (Число2=2) \ТО \(Слот2="Ром") \ЕСЛИ (Число2=3) \ТО \(Слот2="Доллар") \ЕСЛИ (Число2=4) \ТО \(Слот2="Бар") \ЕСЛИ (Число2=5) \ТО \(Слот2="Лемон") \ЕСЛИ (Число2=6) \ТО \(Слот2="Семь") \(Число3=\(АПЕРО.случайно(6))) \ЕСЛИ (Число3=1) \ТО \(Слот3="Вишня") \ЕСЛИ (Число3=2) \ТО \(Слот3="Ром") \ЕСЛИ (Число3=3) \ТО \(Слот3="Доллар") \ЕСЛИ (Число3=4) \ТО \(Слот3="Бар") \ЕСЛИ (Число3=5) \ТО \(Слот3="Лемон") \ЕСЛИ (Число3=6) \ТО \(Слот3="Семь") \(Число4=\(АПЕРО.случайно(6))) \ЕСЛИ (Число4=1) \ТО \(Слот4="Вишня") \ЕСЛИ (Число4=2) \ТО \(Слот4="Ром") \ЕСЛИ (Число4=3) \ТО \(Слот4="Доллар") \ЕСЛИ (Число4=4) \ТО \(Слот4="Бар") \ЕСЛИ (Число4=5) \ТО \(Слот4="Лемон") \ЕСЛИ (Число4=6) \ТО \(Слот4="Семь") \(Число5=\(АПЕРО.случайно(6))) \ЕСЛИ (Число5=1) \ТО \(Слот5="Вишня") \ЕСЛИ (Число5=2) \ТО \(Слот5="Ром") \ЕСЛИ (Число5=3) \ТО \(Слот5="Доллар") \ЕСЛИ (Число5=4) \ТО \(Слот5="Бар") \ЕСЛИ (Число5=5) \ТО \(Слот5="Лемон") \ЕСЛИ (Число5=6) \ТО \(Слот5="Семь") \(Число6=\(АПЕРО.случайно(6))) \ЕСЛИ (Число6=1) \ТО \(Слот6="Вишня") \ЕСЛИ (Число6=2) \ТО \(Слот6="Ром") \ЕСЛИ (Число6=3) \ТО \(Слот6="Доллар") \ЕСЛИ (Число6=4) \ТО \(Слот6="Бар") \ЕСЛИ (Число6=5) \ТО \(Слот6="Лемон") \ЕСЛИ (Число6=6) \ТО \(Слот6="Семь") \(Число7=\(АПЕРО.случайно(6))) \ЕСЛИ (Число7=1) \ТО \(Слот7="Вишня") \ЕСЛИ (Число7=2) \ТО \(Слот7="Ром") \ЕСЛИ (Число7=3) \ТО \(Слот7="Доллар") \ЕСЛИ (Число7=4) \ТО \(Слот7="Бар") \ЕСЛИ (Число7=5) \ТО \(Слот7="Лемон") \ЕСЛИ (Число7=6) \ТО \(Слот7="Семь") \(Число8=\(АПЕРО.случайно(6))) \ЕСЛИ (Число8=1) \ТО \(Слот8="Вишня") \ЕСЛИ (Число8=2) \ТО \(Слот8="Ром") \ЕСЛИ (Число8=3) \ТО \(Слот8="Доллар") \ЕСЛИ (Число8=4) \ТО \(Слот8="Бар") \ЕСЛИ (Число8=5) \ТО \(Слот8="Лемон") \ЕСЛИ (Число8=6) \ТО \(Слот8="Семь") \ЕСЛИ (Слот1="Вишня" И Слот2="Вишня" И Слот3="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот1="Ром" И Слот2="Ром" И Слот3="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот1="Доллар" И Слот2="Доллар" И Слот3="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Бар" И Слот2="Бар" И Слот3="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Лемон" И Слот2="Лемон" И Слот3="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот1="Семь" И Слот2="Семь" И Слот3="Семь") \ТО \(Победа=1) \ЕСЛИ (Слот1="Вишня" И Слот4="Вишня" И Слот6="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот1="Ром" И Слот4="Ром" И Слот6="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот1="Доллар" И Слот4="Доллар" И Слот6="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Бар" И Слот4="Бар" И Слот6="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Лемон" И Слот4="Лемон" И Слот6="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот1="Семь" И Слот4="Семь" И Слот6="Семь") \ТО \(Победа=1) \ЕСЛИ (Слот3="Вишня" И Слот5="Вишня" И Слот8="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот3="Ром" И Слот5="Ром" И Слот8="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот3="Доллар" И Слот5="Доллар" И Слот8="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот3="Бар" И Слот5="Бар" И Слот8="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот3="Лемон" И Слот5="Лемон" И Слот8="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот3="Семь" И Слот5="Семь" И Слот8="Семь") \ТО \(Победа=1) \ЕСЛИ (Слот6="Вишня" И Слот7="Вишня" И Слот8="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот6="Ром" И Слот7="Ром" И Слот8="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот6="Доллар" И Слот7="Доллар" И Слот8="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот6="Бар" И Слот7="Бар" И Слот8="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот6="Лемон" И Слот7="Лемон" И Слот8="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот6="Семь" И Слот7="Семь" И Слот8="Семь") \ТО \(Победа=1) \(Слот1) - \(Слот2) - \(Слот3) \(Слот4) - XXXXX - \(Слот5) \(Слот6) - \(Слот7) - \(Слот8) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Однорукий_Бандит4, ЕЩЁ РАЗ!) \(Однорукий_Бандит0, НАЗАД) \СТОП \Однорукий_Бандит5 \(Победа=0) \(Число1=\(АПЕРО.случайно(6))) \ЕСЛИ (Число1=1) \ТО \(Слот1="Вишня") \ЕСЛИ (Число1=2) \ТО \(Слот1="Ром") \ЕСЛИ (Число1=3) \ТО \(Слот1="Доллар") \ЕСЛИ (Число1=4) \ТО \(Слот1="Бар") \ЕСЛИ (Число1=5) \ТО \(Слот1="Лемон") \ЕСЛИ (Число1=6) \ТО \(Слот1="Семь") \(Число2=\(АПЕРО.случайно(6))) \ЕСЛИ (Число2=1) \ТО \(Слот2="Вишня") \ЕСЛИ (Число2=2) \ТО \(Слот2="Ром") \ЕСЛИ (Число2=3) \ТО \(Слот2="Доллар") \ЕСЛИ (Число2=4) \ТО \(Слот2="Бар") \ЕСЛИ (Число2=5) \ТО \(Слот2="Лемон") \ЕСЛИ (Число2=6) \ТО \(Слот2="Семь") \(Число3=\(АПЕРО.случайно(6))) \ЕСЛИ (Число3=1) \ТО \(Слот3="Вишня") \ЕСЛИ (Число3=2) \ТО \(Слот3="Ром") \ЕСЛИ (Число3=3) \ТО \(Слот3="Доллар") \ЕСЛИ (Число3=4) \ТО \(Слот3="Бар") \ЕСЛИ (Число3=5) \ТО \(Слот3="Лемон") \ЕСЛИ (Число3=6) \ТО \(Слот3="Семь") \(Число4=\(АПЕРО.случайно(6))) \ЕСЛИ (Число4=1) \ТО \(Слот4="Вишня") \ЕСЛИ (Число4=2) \ТО \(Слот4="Ром") \ЕСЛИ (Число4=3) \ТО \(Слот4="Доллар") \ЕСЛИ (Число4=4) \ТО \(Слот4="Бар") \ЕСЛИ (Число4=5) \ТО \(Слот4="Лемон") \ЕСЛИ (Число4=6) \ТО \(Слот4="Семь") \(Число5=\(АПЕРО.случайно(6))) \ЕСЛИ (Число5=1) \ТО \(Слот5="Вишня") \ЕСЛИ (Число5=2) \ТО \(Слот5="Ром") \ЕСЛИ (Число5=3) \ТО \(Слот5="Доллар") \ЕСЛИ (Число5=4) \ТО \(Слот5="Бар") \ЕСЛИ (Число5=5) \ТО \(Слот5="Лемон") \ЕСЛИ (Число5=6) \ТО \(Слот5="Семь") \(Число6=\(АПЕРО.случайно(6))) \ЕСЛИ (Число6=1) \ТО \(Слот6="Вишня") \ЕСЛИ (Число6=2) \ТО \(Слот6="Ром") \ЕСЛИ (Число6=3) \ТО \(Слот6="Доллар") \ЕСЛИ (Число6=4) \ТО \(Слот6="Бар") \ЕСЛИ (Число6=5) \ТО \(Слот6="Лемон") \ЕСЛИ (Число6=6) \ТО \(Слот6="Семь") \(Число7=\(АПЕРО.случайно(6))) \ЕСЛИ (Число7=1) \ТО \(Слот7="Вишня") \ЕСЛИ (Число7=2) \ТО \(Слот7="Ром") \ЕСЛИ (Число7=3) \ТО \(Слот7="Доллар") \ЕСЛИ (Число7=4) \ТО \(Слот7="Бар") \ЕСЛИ (Число7=5) \ТО \(Слот7="Лемон") \ЕСЛИ (Число7=6) \ТО \(Слот7="Семь") \(Число8=\(АПЕРО.случайно(6))) \ЕСЛИ (Число8=1) \ТО \(Слот8="Вишня") \ЕСЛИ (Число8=2) \ТО \(Слот8="Ром") \ЕСЛИ (Число8=3) \ТО \(Слот8="Доллар") \ЕСЛИ (Число8=4) \ТО \(Слот8="Бар") \ЕСЛИ (Число8=5) \ТО \(Слот8="Лемон") \ЕСЛИ (Число8=6) \ТО \(Слот8="Семь") \(Число9=\(АПЕРО.случайно(6))) \ЕСЛИ (Число9=1) \ТО \(Слот9="Вишня") \ЕСЛИ (Число9=2) \ТО \(Слот9="Ром") \ЕСЛИ (Число9=3) \ТО \(Слот9="Доллар") \ЕСЛИ (Число9=4) \ТО \(Слот9="Бар") \ЕСЛИ (Число9=5) \ТО \(Слот9="Лемон") \ЕСЛИ (Число9=6) \ТО \(Слот9="Семь") \ЕСЛИ (Слот1="Вишня" И Слот2="Вишня" И Слот3="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот1="Ром" И Слот2="Ром" И Слот3="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот1="Доллар" И Слот2="Доллар" И Слот3="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Бар" И Слот2="Бар" И Слот3="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Лемон" И Слот2="Лемон" И Слот3="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот1="Семь" И Слот2="Семь" И Слот3="Семь") \ТО \(Победа=1) \ЕСЛИ (Слот4="Вишня" И Слот5="Вишня" И Слот6="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот4="Ром" И Слот5="Ром" И Слот6="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот4="Доллар" И Слот5="Доллар" И Слот6="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот4="Бар" И Слот5="Бар" И Слот6="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот4="Лемон" И Слот5="Лемон" И Слот6="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот4="Семь" И Слот5="Семь" И Слот6="Семь") \ТО \(Победа=1) \ЕСЛИ (Слот1="Вишня" И Слот4="Вишня" И Слот7="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот1="Ром" И Слот4="Ром" И Слот7="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот1="Доллар" И Слот4="Доллар" И Слот7="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Бар" И Слот4="Бар" И Слот7="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот1="Лемон" И Слот4="Лемон" И Слот7="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот1="Семь" И Слот4="Семь" И Слот7="Семь") \ТО \(Победа=1) \ЕСЛИ (Слот9="Вишня" И Слот7="Вишня" И Слот8="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот9="Ром" И Слот7="Ром" И Слот8="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот9="Доллар" И Слот7="Доллар" И Слот8="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот9="Бар" И Слот7="Бар" И Слот8="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот9="Лемон" И Слот7="Лемон" И Слот8="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот9="Семь" И Слот7="Семь" И Слот8="Семь") \ТО \(Победа=1) \ЕСЛИ (Слот2="Вишня" И Слот5="Вишня" И Слот8="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот2="Ром" И Слот5="Ром" И Слот8="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот2="Доллар" И Слот5="Доллар" И Слот8="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот2="Бар" И Слот5="Бар" И Слот8="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот2="Лемон" И Слот5="Лемон" И Слот8="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот2="Семь" И Слот5="Семь" И Слот8="Семь") \ТО \(Победа=1) \ЕСЛИ (Слот3="Вишня" И Слот6="Вишня" И Слот9="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот3="Ром" И Слот6="Ром" И Слот9="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот3="Доллар" И Слот6="Доллар" И Слот9="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот3="Бар" И Слот6="Бар" И Слот9="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот3="Лемон" И Слот6="Лемон" И Слот9="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот3="Семь" И Слот6="Семь" И Слот9="Семь") \ТО \(Победа=1) \ЕСЛИ (Слот2="Вишня" И Слот4="Вишня" И Слот6="Вишня" И Слот8="Вишня") \ТО \(Победа=1) \ЕСЛИ (Слот2="Ром" И Слот4="Ром" И Слот6="Ром" И Слот8="Ром") \ТО \(Победа=1) \ЕСЛИ (Слот2="Доллар" И Слот4="Доллар" И Слот6="Доллар" И Слот8="Доллар") \ТО \(Победа=1) \ЕСЛИ (Слот2="Бар" И Слот4="Бар" И Слот6="Бар" И Слот8="Бар") \ТО \(Победа=1) \ЕСЛИ (Слот2="Лемон" И Слот4="Лемон" И Слот6="Лемон" И Слот8="Лемон") \ТО \(Победа=1) \ЕСЛИ (Слот2="Семь" И Слот4="Семь" И Слот6="Семь" И Слот8="Семь") \ТО \(Победа=1) \(Слот1) - \(Слот2) - \(Слот3) \(Слот4) - \(Слот5) - \(Слот6) \(Слот7) - \(Слот8) - \(Слот9) \ЕСЛИ (Победа=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (Победа=0) \ТО ВЫ ПРОИГРАЛИ \(Однорукий_Бандит5, ЕЩЁ РАЗ!) \(Однорукий_Бандит0, НАЗАД) \СТОП \\ПЕРЕХОД С КОНЦА :) \Играть000 \(_Очки_За_Карты=0) \(_Как_Играть=0) \(_Обновления=0) \(_Очки_За_Карты.локация="Очки") \(_Как_Играть.локация="Правила") \(_Обновления.локация="Правка_Ошибок") \\РАНДОМ4=0 ЕБАНА В РОТ!!!! \\ДААА!!!! \(Рандом4=0) \(Конец=0) \(Всё=0) \(отказ=0) \(Руки_Ваши0=0) \(Руки_Ваши1=0) \(Руки_Ваши2=0) \(Руки_Ваши3=0) \(Руки_Ваши4=0) \(Руки_Ваши5=0) \(Руки_Ваши6=0) \(Руки_Ваши7=0) \(Руки_Ваши8=0) \(Руки_Ваши9=0) \(Руки_Ваши10=0) \(Руки_Соперника0=0) \(Руки_Соперника1=0) \(Руки_Соперника2=0) \(Руки_Соперника3=0) \(Руки_Соперника4=0) \(Руки_Соперника5=0) \(Руки_Соперника6=0) \(Руки_Соперника7=0) \(Руки_Соперника8=0) \(Руки_Соперника9=0) \(Руки_Соперника10=0) \(Ваших_Очков=0) \(Очков_Соперника=0) \(Соперник_Отказался_Брать_Карты=0) \(Соперник1_Отказался_Брать_Карты=0) \(СоперникX_Отказался_Брать_Карты=0) \(СоперникY_Отказался_Брать_Карты=0) \(СоперникZ_Отказался_Брать_Карты=0) \(Очков_Соперника_до21=21) \(ОЧКО21=21) \(Конец=0) \(икс=0) \(иксX=0) \(иксY=0) \(зед=0) \(ход=0) \\-------- \(Имена=\(АПЕРО.случайно(17))) \ЕСЛИ (Имена=1) \ТО \(Имя1="Винни") \ЕСЛИ (Имена=2) \ТО \(Имя1="Алладина") \ЕСЛИ (Имена=3) \ТО \(Имя1="Джафара") \ЕСЛИ (Имена=4) \ТО \(Имя1="Яго") \ЕСЛИ (Имена=5) \ТО \(Имя1="Пяточка") \ЕСЛИ (Имена=6) \ТО \(Имя1="Жасмин") \ЕСЛИ (Имена=7) \ТО \(Имя1="Кролика") \ЕСЛИ (Имена=8) \ТО \(Имя1="Ариеэль") \ЕСЛИ (Имена=9) \ТО \(Имя1="Ослика") \ЕСЛИ (Имена=10) \ТО \(Имя1="Совы") \ЕСЛИ (Имена=11) \ТО \(Имя1="Робина") \ЕСЛИ (Имена=12) \ТО \(Имя1="Иа-Иа") \ЕСЛИ (Имена=13) \ТО \(Имя1="Кенги") \ЕСЛИ (Имена=14) \ТО \(Имя1="Шапокляк") \ЕСЛИ (Имена=15) \ТО \(Имя1="Тигры") \ЕСЛИ (Имена=16) \ТО \(Имя1="Букли") \ЕСЛИ (Имена=17) \ТО \(Имя1="Моськи") \(Имена=\(АПЕРО.случайно(17))) \ЕСЛИ (Имена=1) \ТО \(Имя2="Дяди Фёдора") \ЕСЛИ (Имена=2) \ТО \(Имя2="Матроскина") \ЕСЛИ (Имена=3) \ТО \(Имя2="Шарика") \ЕСЛИ (Имена=4) \ТО \(Имя2="Печкина") \ЕСЛИ (Имена=5) \ТО \(Имя2="Галчёнка") \ЕСЛИ (Имена=6) \ТО \(Имя2="Мамонтёнка") \ЕСЛИ (Имена=7) \ТО \(Имя2="Кузи") \ЕСЛИ (Имена=8) \ТО \(Имя2="Фунтика") \ЕСЛИ (Имена=9) \ТО \(Имя2="Енота") \ЕСЛИ (Имена=10) \ТО \(Имя2="Леопольда") \ЕСЛИ (Имена=11) \ТО \(Имя2="Чебурашки") \ЕСЛИ (Имена=12) \ТО \(Имя2="Кеши") \ЕСЛИ (Имена=13) \ТО \(Имя2="Львёнка") \ЕСЛИ (Имена=14) \ТО \(Имя2="Ёжика") \ЕСЛИ (Имена=15) \ТО \(Имя2="Умки") \ЕСЛИ (Имена=16) \ТО \(Имя2="Маугли") \ЕСЛИ (Имена=17) \ТО \(Имя2="Багиры") \ЕСЛИ (Имена=18) \ТО \(Имя2="Балу") \ЕСЛИ (Имена=19) \ТО \(Имя2="Алкеллы") \ЕСЛИ (Имена=20) \ТО \(Имя2="Карлсона") \(Имена=\(АПЕРО.случайно(13))) \ЕСЛИ (Имена=1) \ТО \(Имя3="Чипполино") \ЕСЛИ (Имена=2) \ТО \(Имя3="Колобка") \ЕСЛИ (Имена=3) \ТО \(Имя3="К.Шапочки") \ЕСЛИ (Имена=4) \ТО \(Имя3="Незнайки") \ЕСЛИ (Имена=5) \ТО \(Имя3="Зайца") \ЕСЛИ (Имена=6) \ТО \(Имя3="Волка") \ЕСЛИ (Имена=7) \ТО \(Имя3="Ивангая") \ЕСЛИ (Имена=8) \ТО \(Имя3="Кибальчиша") \ЕСЛИ (Имена=9) \ТО \(Имя3="Мартышки") \ЕСЛИ (Имена=10) \ТО \(Имя3="Врунгеля") \ЕСЛИ (Имена=11) \ТО \(Имя3="Фукса") \ЕСЛИ (Имена=12) \ТО \(Имя3="Балбеса") \ЕСЛИ (Имена=13) \ТО \(Имя3="Коровина") \(Имя01=Имя1) \(Имя02=Имя2) \(Имя03=Имя3) \(Имена=\(АПЕРО.случайно(9))) \ЕСЛИ (Имена=1 ИЛИ Имена=4 ИЛИ Имена=7) \ТО \(Имя1=Имя01) \ЕСЛИ (Имена=1 ИЛИ Имена=4 ИЛИ Имена=7) \ТО \(Имя3=Имя02) \ЕСЛИ (Имена=1 ИЛИ Имена=4 ИЛИ Имена=7) \ТО \(Имя2=Имя03) \ЕСЛИ (Имена=2 ИЛИ Имена=5 ИЛИ Имена=8) \ТО \(Имя2=Имя01) \ЕСЛИ (Имена=2 ИЛИ Имена=5 ИЛИ Имена=8) \ТО \(Имя1=Имя02) \ЕСЛИ (Имена=2 ИЛИ Имена=5 ИЛИ Имена=8) \ТО \(Имя3=Имя03) \ЕСЛИ (Имена=3 ИЛИ Имена=6 ИЛИ Имена=9) \ТО \(Имя3=Имя01) \ЕСЛИ (Имена=3 ИЛИ Имена=6 ИЛИ Имена=9) \ТО \(Имя2=Имя02) \ЕСЛИ (Имена=3 ИЛИ Имена=6 ИЛИ Имена=9) \ТО \(Имя1=Имя03) \\-------- Играется 1 раз, затем ломается :) [b]Выберите режим:[/b] \(2И=0) \(4И=0) \(Соперник1_Отказался_Брать_Карты=0) \(Соперник_Отказался_Брать_Карты=0) \(СоперникX_Отказался_Брать_Карты=0) \(СоперникY_Отказался_Брать_Карты=0) \(Ваших_Очков=0) \(отказ=0) \(зед=0) \(икс=0) \(Очко21=21) \(2игрока, Один на Один) \(4игрока, Против Троих) \(Начало, В МЕНЮ) \СТОП \2игрока \(2И=1) \(4И=0) Был выбран Режим 2 игрока! \(Раздача, Продождить) \СТОП \4игрока \(4И=1) \(2И=0) Был выбран Режим 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) \ТО \(Руки_Соперника0=В_Руках_Соперника) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (икс=1) \ТО \(Руки_Соперника1="+"+В_Руках_Соперника) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (икс=2) \ТО \(Руки_Соперника2="+"+В_Руках_Соперника) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (икс=3) \ТО \(Руки_Соперника3="+"+В_Руках_Соперника) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (икс=4) \ТО \(Руки_Соперника4="+"+В_Руках_Соперника) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (икс=5) \ТО \(Руки_Соперника5="+"+В_Руках_Соперника) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (икс=6) \ТО \(Руки_Соперника6="+"+В_Руках_Соперника) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (икс=7) \ТО \(Руки_Соперника7="+"+В_Руках_Соперника) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (икс=8) \ТО \(Руки_Соперника8="+"+В_Руках_Соперника) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (икс=9) \ТО \(Руки_Соперника9="+"+В_Руках_Соперника) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (икс=10) \ТО \(Руки_Соперника10="+"+В_Руках_Соперника) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=0) \ТО \(Руки_СоперникаX0=В_Руках_СоперникаX) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=1) \ТО \(Руки_СоперникаX1="+"+В_Руках_СоперникаX) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=2) \ТО \(Руки_СоперникаX2="+"+В_Руках_СоперникаX) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=3) \ТО \(Руки_СоперникаX3="+"+В_Руках_СоперникаX) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=4) \ТО \(Руки_СоперникаX4="+"+В_Руках_СоперникаX) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=5) \ТО \(Руки_СоперникаX5="+"+В_Руках_СоперникаX) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=6) \ТО \(Руки_СоперникаX6="+"+В_Руках_СоперникаX) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=7) \ТО \(Руки_СоперникаX7="+"+В_Руках_СоперникаX) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=8) \ТО \(Руки_СоперникаX8="+"+В_Руках_СоперникаX) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=9) \ТО \(Руки_СоперникаX9="+"+В_Руках_СоперникаX) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксX=10) \ТО \(Руки_СоперникаX10="+"+В_Руках_СоперникаX) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=0) \ТО \(Руки_СоперникаY0=В_Руках_СоперникаY) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=1) \ТО \(Руки_СоперникаY1="+"+В_Руках_СоперникаY) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=2) \ТО \(Руки_СоперникаY2="+"+В_Руках_СоперникаY) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=3) \ТО \(Руки_СоперникаY3="+"+В_Руках_СоперникаY) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=4) \ТО \(Руки_СоперникаY4="+"+В_Руках_СоперникаY) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=5) \ТО \(Руки_СоперникаY5="+"+В_Руках_СоперникаY) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=6) \ТО \(Руки_СоперникаY6="+"+В_Руках_СоперникаY) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=7) \ТО \(Руки_СоперникаY7="+"+В_Руках_СоперникаY) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=8) \ТО \(Руки_СоперникаY8="+"+В_Руках_СоперникаY) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=9) \ТО \(Руки_СоперникаY9="+"+В_Руках_СоперникаY) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (иксY=10) \ТО \(Руки_СоперникаY10="+"+В_Руках_СоперникаY) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \(икс=икс+1) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \(иксX=иксX+1) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \(иксY=иксY+1) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_Соперника="Шестёрка") \ТО \(Очков_Соперника=Очков_Соперника+Шестёрка) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_Соперника="Семёрка") \ТО \(Очков_Соперника=Очков_Соперника+Семёрка) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_Соперника="Восьмёрка") \ТО \(Очков_Соперника=Очков_Соперника+Восьмёрка) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_Соперника="Девятка") \ТО \(Очков_Соперника=Очков_Соперника+Девятка) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_Соперника="Десятка") \ТО \(Очков_Соперника=Очков_Соперника+Десятка) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_Соперника="Валет") \ТО \(Очков_Соперника=Очков_Соперника+Валет) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_Соперника="Дама") \ТО \(Очков_Соперника=Очков_Соперника+Дама) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_Соперника="Король") \ТО \(Очков_Соперника=Очков_Соперника+Король) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_Соперника="Туз") \ТО \(Очков_Соперника=Очков_Соперника+Туз) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаX="Шестёрка") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Шестёрка) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаX="Семёрка") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Семёрка) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаX="Восьмёрка") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Восьмёрка) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаX="Девятка") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Девятка) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаX="Десятка") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Десятка) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаX="Валет") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Валет) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаX="Дама") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Дама) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаX="Король") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Король) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаX="Туз") \ТО \(Очков_СоперникаX=Очков_СоперникаX+Туз) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаY="Шестёрка") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Шестёрка) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаY="Семёрка") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Семёрка) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаY="Восьмёрка") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Восьмёрка) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаY="Девятка") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Девятка) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаY="Десятка") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Десятка) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаY="Валет") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Валет) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаY="Дама") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Дама) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаY="Король") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Король) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \ЕСЛИ (В_Руках_СоперникаY="Туз") \ТО \(Очков_СоперникаY=Очков_СоперникаY+Туз) \ЕСЛИ (Соперник_Отказался_Брать_Карты=0) \ТО \(Очков_Соперника_до21=ОЧКО21-Очков_Соперника) \ЕСЛИ (СоперникX_Отказался_Брать_Карты=0) \ТО \(Очков_СоперникаX_до21=ОЧКО21-Очков_СоперникаX) \ЕСЛИ (СоперникY_Отказался_Брать_Карты=0) \ТО \(Очков_СоперникаY_до21=ОЧКО21-Очков_СоперникаY) \ЕСЛИ (2И=1 И Соперник_Отказался_Брать_Карты=0) \ТО [b]У \(Имя1):[/b] \(В_Руках_Соперника) \ЕСЛИ (2И=1 И отказ=1 И Соперник_Отказался_Брать_Карты=0) \ТО [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) \ТО \(Играть, Продолжить 2Игрока) \ЕСЛИ (4И=1) \ТО \(Играть1, Продолжить 4Игрока) \СТОП \Играть \(_Вернуться_К_ИГРЕ=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 \(4И=0) \(2И=0) \(_Вернуться_К_ИГРЕ=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) \(Ваших_Очков=0) \(Очков_Соперника=0) \(Очков_СоперникаX=0) \(Очков_СоперникаY=0) \(Игра=0) Вы хотите, \(Начало, Продолжить?!) \(АПЕРО.конец=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] \СТОП \Правка_Ошибок \(Играть, Вернуться_К_ИГРЕ?!) Теперь игра в составе другой игры ЫЫЫ :) \СТОП \Бои_Петухов0 \(Петух1=100) \(Петух2=100) На какого из ПЕТУХОВ вы Хотите сделать СТАВКУ?! \(ПервыйПетух, Первый) \(ВторойПетух, Второй) \СТОП \ПервыйПетух \(Петух=0) Вы поставили на первого Петуха. \(Бои_Петухов1, Продолжить) \СТОП \ВторойПетух \(Петух=1) Вы поставили на второго Петуха. \(Бои_Петухов1, Продолжить) \СТОП \Бои_Петухов1 \ЕСЛИ (ИграНачалась=1) \ТО \(Атака1=\(АПЕРО.случайно(5;25))) \ЕСЛИ (ИграНачалась=1) \ТО \(Атака2=\(АПЕРО.случайно(5;25))) \ЕСЛИ (ИграНачалась=1) \ТО \(Петух1=Петух1-Атака2) \ЕСЛИ (ИграНачалась=1) \ТО \(Петух2=Петух2-Атака1) \ЕСЛИ (ИграНачалась=0) \ТО А теперь \ЕСЛИ (ИграНачалась=0) \ТО Скомандуйте \ЕСЛИ (ИграНачалась=0) \ТО \(Бои_Петухов1, Начать-БОЙ) \ЕСЛИ (ИграНачалась=1) \ТО Петухи начали \ЕСЛИ (ИграНачалась=1) \ТО Они атакуют \ЕСЛИ (ИграНачалась=1) \ТО {\(Петух1)} Первый на \(Атака1) \ЕСЛИ (ИграНачалась=1) \ТО {\(Петух2)} Второй на \(Атака2) \ЕСЛИ (ИграНачалась=1 И Петух1>0 И Петух2>0) \ТО Но оба выжывают :) \ЕСЛИ (ИграНачалась=1 И Петух1<0 И Петух2>0) \ТО Первый был убит \ЕСЛИ (ИграНачалась=1 И Петух1<0 И Петух2>0 И Петух=0) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (ИграНачалась=1 И Петух1<0 И Петух2>0 И Петух=1) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (ИграНачалась=1 И Петух1=0 И Петух2>0 И Петух=0) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (ИграНачалась=1 И Петух1=0 И Петух2>0 И Петух=1) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (ИграНачалась=1 И Петух1>0 И Петух2<0) \ТО Второй был убит \ЕСЛИ (ИграНачалась=1 И Петух1>0 И Петух2<0 И Петух=0) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (ИграНачалась=1 И Петух1>0 И Петух2<0 И Петух=1) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (ИграНачалась=1 И Петух1>0 И Петух2=0 И Петух=0) \ТО ВЫ ПОБЕДИЛИ \ЕСЛИ (ИграНачалась=1 И Петух1>0 И Петух2=0 И Петух=1) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (ИграНачалась=1 И Петух1<0 И Петух2<0) \ТО Оба были убиты \ЕСЛИ (ИграНачалась=1 И Петух1<0 И Петух2<0 И Петух=0) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (ИграНачалась=1 И Петух1<0 И Петух2<0 И Петух=1) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (ИграНачалась=1 И Петух1=0 И Петух2=0 И Петух=1) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (ИграНачалась=1 И Петух1=0 И Петух2=0 И Петух=0) \ТО ВЫ ПРОИГРАЛИ \ЕСЛИ (ИграНачалась=1 И Петух1>0 И Петух2>0) \ТО \(Бои_Петухов1, Продолжить) \ЕСЛИ (ИграНачалась=1 И Петух1<0 ИЛИ Петух2<0 И ИграНачалась=1 ИЛИ ИграНачалась=1 И Петух1=0 ИЛИ Петух2=0 И ИграНачалась=1) \ТО \(Бои_Петухов0, ЕЩЁ_РАЗ?!) \(ИграНачалась=1) \ЕСЛИ (ИграНачалась=1 И Петух1<0 ИЛИ Петух2<0) \ТО \(Начало, В МЕНЮ) \СТОП