Программы на двабе

clrscr 'Узнал царь, что в некотором царстве, тридевятом государстве растут молодильные яблоки. Решил царь послать трех своих сыновей за яблоками. Два старших сына отправились первыми. Немного погодя отправился и младший сын, Иван. Ехал на коне Иван до перепутья. Видит - большой камень посреди дороги лежит. На камне написано : "Налево пойдешь - коня потеряешь. Направо - сам сгинешь. Прямо пойдешь - и коня потеряешь, и сам сгинешь.". Расстроился Иван, сел на камень и думает. Думал-думал, и придумал. Достал он свой трехгранный кубик, загадал для каждой грани направление и бросил под ноги. ' write 'Выбор' var 1 4 rand 'Выбор' mov Выбор 4 = 'label0002' jt 'В путь! ' write 'label0001' jmp :label0002 'Вдруг, откуда ни возьмись… ' write :label0001 read Выбор 1 = 'Прямо' jt Выбор 2 = 'Налево' jt Выбор 3 = 'Направо' jt Выбор 4 = 'Василиса' jt clrscr :Прямо clrscr 'Выпало Ивану ехать прямо. Вдруг появился змей Горыныч. Пока Иван просил змея его не трогать, конь возьми да и помри со страху. Змей хотел коня забрать, но не вышло. Решил он тогда Ивана себе на золотые прииски в рабство угнать. Работал Иван у Горыныча три года и три дня. Выдохся полностью, все здоровье начисто растерял… ' write read 'Проиграл' jmp :Налево clrscr 'Выпало Ивану ехать налево. Вдруг выскочили разбойники, сбили Ивана с коня, а самого пощадили. Погоревал он о своем добром коне и отправлися в путь. ' write read 'Локация2' jmp :Направо clrscr 'Выпало Ивану ехать направо. Вдруг выскочили разбойники, сбили Ивана с коня. Пока Иван дрался с разбойниками, конь возьми да и ускачи обратно в царские конюшни. Разбойники одолели Ивана и решили его продать в рабство змею Горынычу. Работал Иван у Горыныча три года и три дня. Выдохся полностью, все здоровье начисто растерял… ' write read 'Проиграл' jmp :Василиса clrscr 'Появляется Василиса Предудрая, красна девица, и молвит Ивану: - Что стоишь, как пень, добрый молодец! Пришёлся ты мне по сердцу, хочу за тебя замуж выйти, а в приданое у меня пара килограммов молодильных яблочек! Обрадовался тут Иван-царевич неожиданному счастью. Вернулся домой, женился на Василисе по-быстрому и стали они поживать, да добра наживать. А молодильные яблочки отдали царю-батюшке и прожил он после этого тыщу лет! ' write read 'конец' jmp :Локация2 clrscr 'Вот идет Иван через рощу. В роще заяц, попал в капкан. Просит заяц Ивана человеческим голосом освободить его. Как Ивану поступить? 1. Убить зайца, съесть и дальше пойти. 2. Помочь несчастной зверюшке. 'write read dup '1' = 'Локация3' jt dup '2' = 'Локация3' jt 'Локация2' jmp :Локация3 clrscr 'Шел, шел Иван и забрел в тридевятое царство. Долго ему пришлось стараться, чтобы добыть молодильные яблоки. Вот возвращается Иван обратно домой. А тут старшие братья его уже ждут в засаде. Не смог справиться Иван с братьями, убили они его и разрубили тело на мелкие кусочки, а яблоки отобрали и сами решили отнести домой. ' write read swap dup '2' = 'Заяцжив' jt '############################ Да, может стоило все же помочь зайцу? А то лежит Иван, изрубленный на кусочки и уже никогда не оживет. ' write 'совсемконец' jmp :Заяцжив clrscr 'Не проходит и часа… ' write read 'Прибегает Заяц с мертвой и живой водой. Мертвой оросил Ивана - стало тело целым. Живой оросил - поднялся Иван на ноги, отер лоб и промолвил: "Как долго я спал!". Рассказал ему Заяц о том, что братья сделали. Разгневался Иван, нагнал братьев, отобрал яблоки и прочитал им нравоучительную лекцию.' write read clrscr 'Обрадовался Царь возвращению сыновей, наелся яблок и закатил пир на весь мир!' write read 'конец' jmp :Проиграл ' Сожрал Ивана Горыныч на ужин, так как работать царевич больше не мог. ' write 'совсемконец' jmp :конец 'Поздравляю!' write :совсемконец

Spoiler (Click to View)

Code:

{2b}

clrscr

'Узнал царь, что в некотором царстве, тридевятом государстве

растут молодильные яблоки. Решил царь послать трех 

своих сыновей за яблоками. 

Два старших сына отправились первыми. 

Немного погодя отправился и младший сын, Иван.

Ехал на коне Иван до перепутья. 

Видит - большой камень посреди дороги лежит. 

На камне написано : 

"Налево пойдешь - коня потеряешь. 

Направо - сам сгинешь. 

Прямо  пойдешь - и коня потеряешь, и сам сгинешь.". 

Расстроился Иван, сел на камень и думает. 

Думал-думал, и придумал. Достал он свой трехгранный кубик, 

загадал для каждой грани направление и бросил под ноги.

' write

'Выбор' var

1 4 rand 'Выбор' mov

Выбор 4 = 'label0002' jt

'В путь!

' write

'label0001' jmp

:label0002

'Вдруг, откуда ни возьмись…

' write

:label0001

read

Выбор 1 = 'Прямо' jt

Выбор 2 = 'Налево' jt

Выбор 3 = 'Направо' jt

Выбор 4 = 'Василиса' jt

clrscr

:Прямо

clrscr

'Выпало Ивану ехать прямо. Вдруг появился змей 

Горыныч. Пока Иван просил змея его не трогать, 

конь возьми да и помри со страху. 

Змей хотел коня забрать, но не вышло. 

Решил он тогда Ивана себе на золотые 

прииски в рабство угнать.

Работал Иван у Горыныча три года и три дня. 

Выдохся полностью, все здоровье начисто растерял…

' write

read

'Проиграл' jmp

:Налево

clrscr

'Выпало Ивану ехать налево. Вдруг выскочили разбойники, 

сбили Ивана с коня, а самого пощадили. 

Погоревал он о своем добром коне и отправлися в путь.

' write

read

'Локация2' jmp

:Направо

clrscr

'Выпало Ивану ехать направо. Вдруг выскочили 

разбойники, сбили Ивана с коня. Пока Иван 

дрался с разбойниками, конь возьми да 

и ускачи обратно в царские конюшни. 

Разбойники одолели Ивана и решили его 

продать в рабство змею Горынычу. 

Работал Иван у Горыныча три года и три дня. 

Выдохся полностью, все здоровье начисто растерял…

' write

read

'Проиграл' jmp

:Василиса

clrscr

'Появляется Василиса Предудрая, 

красна девица, и молвит Ивану:

- Что стоишь, как пень, добрый молодец! 

Пришёлся ты мне по сердцу, 

хочу за тебя замуж выйти, 

а в приданое у меня пара килограммов молодильных яблочек!

Обрадовался тут Иван-царевич неожиданному счастью. 

Вернулся домой, женился на Василисе по-быстрому 

и стали они поживать, да добра наживать. 

А молодильные яблочки отдали царю-батюшке 

и прожил он после этого тыщу лет!

' write

read

'конец' jmp

:Локация2

clrscr

'Вот идет Иван через рощу. В роще заяц, попал в капкан. 

Просит заяц Ивана человеческим голосом освободить его. 

Как Ивану поступить?

1. Убить зайца, съесть и дальше пойти.

2. Помочь несчастной зверюшке.

'write

read

dup '1' = 'Локация3' jt

dup '2' = 'Локация3' jt

'Локация2' jmp

:Локация3

clrscr

'Шел, шел Иван и забрел в тридевятое царство. 

Долго ему пришлось стараться, чтобы добыть 

молодильные яблоки. Вот возвращается Иван 

обратно домой. А тут старшие братья его уже ждут 

в засаде. Не смог справиться Иван с братьями,

убили они его и разрубили тело на мелкие кусочки,

а яблоки отобрали и сами решили отнести домой.

' write read

swap

dup '2' = 'Заяцжив' jt

'############################

Да, может стоило все же помочь зайцу? 

А то лежит Иван, изрубленный на кусочки 

и уже никогда не оживет.

' write

'совсемконец' jmp

:Заяцжив

clrscr

'Не проходит и часа…

' write read

'Прибегает Заяц с мертвой и живой водой. Мертвой оросил 

Ивана - стало тело целым. Живой оросил - поднялся 

Иван на ноги, отер лоб и промолвил: "Как долго я спал!". 

Рассказал ему Заяц о том, что братья сделали. 

Разгневался Иван, нагнал братьев,  

отобрал яблоки и прочитал им нравоучительную лекцию.' write read

clrscr

'Обрадовался Царь возвращению сыновей, 

наелся яблок и закатил пир на весь мир!' write read

'конец' jmp

:Проиграл

'

Сожрал Ивана Горыныч на ужин, так как работать царевич больше не мог.

' write

'совсемконец' jmp

:конец

'Поздравляю!' write

:совсемконец

{/2b}

{con=80|20}

clrscr 'номерстроки' var 0 'номерстроки' mov 'номерстолбца' var 0 'номерстолбца' mov 'ent' var ' ' 'ent' mov 'массивреальногополя' var arr 'массивреальногополя' mov 'массиввидимогополя' var arr 'массиввидимогополя' mov 'заготовкасчислами' var arr 'заготовкасчислами' mov 'массивотправка' var arr 'массивотправка' mov 'суммапроверки' var 'произведениепроверки' var 'победитель' var 0 'победитель' mov 'команда' var 'каунтер' var 0 'каунтер' mov 'заготовка1' var 'hgifeadcbfecdgbaihdbacihgefidbghcfaecahbfeidggfeadihbcecgiafbhdbidhcgefaahfebdcgi' 'заготовка1' mov ;наглый копипастинг. 'заготовка2' var 'ifcdbgeaheadcihbgfhbgafedicbeaghfcdidcieabhfgghfidcaebfdhbgaicecibfedghaagehcifbd' 'заготовка2' mov ;наглый копипастинг. 'заготовка3' var 'bahdfgceiigfchebdaedcbiahgfgbefdcaihhfaiebdcgdcigahfbefigacdehbahdebigfccebhgfiad' 'заготовка3' mov ;наглый копипастинг. 'заготовка4' var 'gefadbhicdcbihgafeaihefcdgbbhadiefcgfgehcabdiidcgbfeahhagcedibfcbifahgedefdbgicha' 'заготовка4' mov ;наглый копипастинг. 'заготовка5' var 'iadchgbfebhgfaecdicefdbiaghhiagebfcddfbicheagegcadfhibgbihfcdeaachegdibffdebiaghc' 'заготовка5' mov ;наглый копипастинг. 'заготовка6' var 'hgacbdefiidbfegachcefihadbggbhdiecafafihcbgdedceagfihbbhceaifgdfigbdcheaeadgfhbic' 'заготовка6' mov ;наглый копипастинг. ;выбираем случайную заготовку 'заготовка' var 'заготовка' 1 6 rand str add val 'заготовка' mov ;получаем шаг ;'шаг' var 0 9 rand 'шаг' mov ;заполняем массив замены букв на цифры ;'массивзамены' var arr 'массивзамены' mov :циклзаполнениямассивазамены каунтер заготовка get dup 'a' = 'заменаA' callt dup 'b' = 'заменаB' callt dup 'c' = 'заменаC' callt dup 'd' = 'заменаD' callt dup 'e' = 'заменаE' callt dup 'f' = 'заменаF' callt dup 'g' = 'заменаG' callt dup 'h' = 'заменаH' callt 'i' = 'заменаI' callt каунтер inc 'каунтер' mov каунтер 82 < 'циклзаполнениямассивазамены' jt 'label100500' jmp :заменаA '1' каунтер заготовкасчислами set ret :заменаB '2' каунтер заготовкасчислами set ret :заменаC '3' каунтер заготовкасчислами set ret :заменаD '4' каунтер заготовкасчислами set ret :заменаE '5' каунтер заготовкасчислами set ret :заменаF '6' каунтер заготовкасчислами set ret :заменаG '7' каунтер заготовкасчислами set ret :заменаH '8' каунтер заготовкасчислами set ret :заменаI '9' каунтер заготовкасчислами set ret :label100500 ;заполняем реальную таблицу числами 1 'номерстроки' mov 0 'номерстолбца' mov 0 'каунтер' mov :циклзаполнения01 0 'номерстолбца' mov :циклзаполнения02 номерстолбца inc 'номерстолбца' mov каунтер заготовкасчислами get номерстроки str номерстолбца str add массивреальногополя set каунтер inc 'каунтер' mov номерстолбца 9 < 'циклзаполнения02' jt номерстроки inc 'номерстроки' mov номерстроки 10 < 'циклзаполнения01' jt ;заполняем виртуальную таблицу 1 'номерстроки' mov 0 'номерстолбца' mov :циклзаполнения1 0 'номерстолбца' mov :циклзаполнения2 номерстолбца inc 'номерстолбца' mov 0 1 rand 1 = 'надозаполнитьфигней' jt номерстроки str номерстолбца str add массивреальногополя get номерстроки str номерстолбца str add массиввидимогополя set 'аненадозаполнятьфигней' jmp :надозаполнитьфигней '.' номерстроки str номерстолбца str add массиввидимогополя set :аненадозаполнятьфигней номерстолбца 9 < 'циклзаполнения2' jt номерстроки inc 'номерстроки' mov номерстроки 10 < 'циклзаполнения1' jt :начатьотрисовку 0 'номерстроки' mov 0 'номерстолбца' mov :отрисовкаполя номерстроки 9 = 'конецотрисовки' jt 'white' col ' +-+-+-+ +-+-+-+ +-+-+-+' ent add write :новаястрока номерстроки inc 'номерстроки' mov номерстроки '|' add 0 'номерстолбца' mov :столбец номерстолбца inc 'номерстолбца' mov номерстроки str номерстолбца str add массиввидимогополя get add '|' add номерстолбца 3 mod 0 > 'столбец' jt ' |' add номерстолбца 9 < 'столбец' jt :конецстолбца номерстроки add ent add write номерстроки 3 mod 0 > 'новаястрока' jt ' +-+-+-+ +-+-+-+ +-+-+-+' ent add write ' 1 2 3 4 5 6 7 8 9' ent add write 'отрисовкаполя' jmp :конецотрисовки read 'команда' mov 'добавитьчисло' call 1 'победитель' mov 'проверитьвсё' call победитель 1 = 'победилже' jt clrscr 'начатьотрисовку' jmp :добавитьчисло 3 команда get 0 команда get 1 команда get add массиввидимогополя set ret :проверкавходящего ;сложим '1' массивотправка get num '2' массивотправка get num add '3' массивотправка get num add '4' массивотправка get num add '5' массивотправка get num add '6' массивотправка get num add '7' массивотправка get num add '8' массивотправка get num add '9' массивотправка get num add 'суммапроверки' mov ;перемножим '1' массивотправка get num '2' массивотправка get num mul '3' массивотправка get num mul '4' массивотправка get num mul '5' массивотправка get num mul '6' массивотправка get num mul '7' массивотправка get num mul '8' массивотправка get num mul '9' массивотправка get num mul 'произведениепроверки' mov суммапроверки 45 = 'непобедил' callf произведениепроверки 362880 = 'непобедил' callf ret :непобедил 0 'победитель' mov ret :проверитьвсё 1 'номерстроки' mov :циклпроверки01 0 'номерстолбца' mov :циклпроверки02 номерстолбца inc 'номерстолбца' mov номерстолбца str номерстроки str номерстолбца str add массиввидимогополя get массивотправка set номерстолбца 9 < 'циклпроверки02' jt 'проверкавходящего' call номерстроки inc 'номерстроки' mov номерстроки 10 < 'циклпроверки01' jt ret :победилже clrscr 'ВЫПОБЕДИТЕЛЬ!' write

Код (осторожно, ненормативная лексика) (Click to View)

clrscr ;вдруг кликнули 2 раза 'ent' var ' ' 'ent' mov ;nl нифига не работает у меня 'количествоходов' var ;любые пятнашки решаются за 0-80 ходов. 'массивполя' var arr 'массивполя' mov 'номерстроки' var 'номерстолбца' var 'пятнашка' var 1 'пятнашка' mov 'команда' var 0 'команда' mov 'победитель' var 0 'победитель' mov 'пустышкаX' var ;понадобятся дальше. Для временного хранения. 'пустышкаY' var 'пятнашкаX' var 'пятнашкаY' var ;массив со случайными пятнашками. 'пятнашки' var arr 'пятнашки' mov ;заполняем по порядку :ЦФпятнашек пятнашка str пятнашка str пятнашки set пятнашка inc 'пятнашка' mov пятнашка 16 < 'ЦФпятнашек' jt ;теперь всё это тусуем, 50 пробежек, 2 шашки меняем местами. Использую переменную 'пятнашка'. 1 'пятнашка' mov :ЦТпятнашек 1 15 rand dup пятнашки get 1 15 rand dup пятнашки get ;в буфере теперь 'ячейка/пятнашка/ячейка/пятнашка', в обратном порядке 'команда' mov пятнашки set команда swap пятнашки set пятнашка inc 'пятнашка' mov пятнашка 51 < 'ЦТпятнашек' jt ;Init() ;заполняем поле пятнашками 1 'номерстроки' mov 1 'пятнашка' mov :ЦЗстроки 1 'номерстолбца' mov :ЦЗстолбца пятнашка пятнашки get номерстроки str номерстолбца str add массивполя set пятнашка inc 'пятнашка' mov номерстолбца inc 'номерстолбца' mov номерстолбца 5 < 'ЦЗстолбца' jt номерстроки inc 'номерстроки' mov номерстроки 5 < 'ЦЗстроки' jt ' ' '44' массивполя set ;16 ячейка пуста :циклигры;********************************************************************* clrscr ;рисуем игровое поле: 1 'номерстроки' mov :ЦОстроки 1 'номерстолбца' mov '╔═══╗╔═══╗╔═══╗╔═══╗' ent add write :ЦОстолбца '║ ' номерстроки str номерстолбца str add массивполя get 'добавитьпробел' call '║' add write ;рисует клетку. Если число меньше 10 то добавляет справа отступ. номерстолбца inc 'номерстолбца' mov номерстолбца 5 < 'ЦОстолбца' jt ent '╚═══╝╚═══╝╚═══╝╚═══╝' add ent add write номерстроки inc 'номерстроки' mov номерстроки 5 < 'ЦОстроки' jt ;нарисовали поле ;получить действие пользователя read num round 'команда' mov ;округляем туда-сюда 'возможностьхода' call 'циклигры' jmp;********************************************************************* ;functions ;function StepPossible(Number) :возможностьхода ;во первых проверим правильно ли ввели число команда num 1 < 'циклигры' jt команда num 15 > 'циклигры' jt ;теперь проверяем, возможен ли вообще такой ход? ;для этого получаем координаты пустышки и нужного нам числа 1 'номерстроки' mov :ЦПстроки 1 'номерстолбца' mov :ЦПстолбца команда num номерстроки str номерстолбца str add массивполя get num = 'запомнитьпятнашку' callt ' ' номерстроки str номерстолбца str add массивполя get str = 'запомнитьпусто' callt номерстолбца inc 'номерстолбца' mov номерстолбца 5 < 'ЦПстолбца' jt номерстроки inc 'номерстроки' mov номерстроки 5 < 'ЦПстроки' jt ;запомнили. Что же дальше? Ход возможен только если пятнашка и пустышка рядом. ;пятнашка над пустышкой пустышкаX пятнашкаX = пустышкаY пятнашкаY sub 1 = and 'ходим' callt ;пятнашка под пустышкой пустышкаX пятнашкаX = пятнашкаY пустышкаY sub 1 = and 'ходим' callt ;пятнашка слева от пустышки пустышкаX пятнашкаX sub 1 = пятнашкаY пустышкаY = and 'ходим' callt ;пятнашка справа от пустышки пятнашкаX пустышкаX sub 1 = пятнашкаY пустышкаY = and 'ходим' callt ;'ходим' call ret ;function Step(number) :ходим ' ' пятнашкаY str пятнашкаX str add массивполя set;меняем местами пятнашку команда пустышкаY str пустышкаX str add массивполя set;и пустышку количествоходов inc 'количествоходов' mov 1 'победитель' mov 'проверитьпобедитель' call 1 победитель = 'theend' jt ret ;function Razrad(number) :добавитьпробел dup num 9 > 'недобавлятьпробел' jt add ' ' add 'конецдобавления' jmp :недобавлятьпробел add :конецдобавления ret ;function SaveFifteen(X,Y) :запомнитьпятнашку номерстроки 'пятнашкаY' mov номерстолбца 'пятнашкаX' mov ret ;function SaveNull(X,Y) :запомнитьпусто номерстроки 'пустышкаY' mov номерстолбца 'пустышкаX' mov ret ;function CheckWinner() :проверитьпобедитель 1 'пятнашка' mov 1 'номерстроки' mov :ППстроки 1 'номерстолбца' mov :ППстолбца команда num номерстроки str номерстолбца str add массивполя get dup пятнашка <> ' ' <> or 'непобедитель' callt пятнашка inc 'пятнашка' mov номерстолбца inc 'номерстолбца' mov номерстолбца 5 < 'ППстолбца' jt номерстроки inc 'номерстроки' mov номерстроки 5 < 'ППстроки' jt ret :непобедитель 0 'победитель' mov ret :theend 'THE END' write