High or Low by Neurox66

Вход: высокий или низкий

Платформа: Amstrad CPC

Автор: Паоло 'Neurox66' Борзини

Язык: Locomotive BASIC 1.1 

Категория: ПУР-120

ИНФОРМАЦИЯ:

Это воссоздание популярной карточной игры.

Цель проста: показывается карта, затем игрок выбирает, будет ли следующая карта выше или ниже по значению показанной карты.

После 41-й карты колода перемешивается.

ИНСТРУКЦИИ:

Нажмите H (высокий) или L (низкий), чтобы угадать достоинство следующей карты.

После отображения сообщения независимо от того, угадали вы или нет, нажмите клавишу, чтобы отобразить следующую карту.

КОММЕНТАРИЙ К СПИСКУ:

1 Определите функцию для отображения и центрирования сообщений. Объявить массив для карточек.

2 Оцените массив.

3..4 Перетасовка карт.

5..8 Покажите карточки и проверьте ответ.

9..10 Нарисуйте карту символами.

1 DEF FNm$(i$)=CHR$(31)+CHR$(1)+CHR$(24)+ПРОБЕЛ$((80-LEN(i$))/2)+i$+ПРОБЕЛ$(( 80-LEN(i$))/2):MODE 2:DIM C(52,2):DIM C$(13) 2 FOR I=1 to 13:READ E$:C$(I)=E$:NEXT I:DATA A,2,3,4,5,6,7,8,9,10,J,Q,K :U$=CHR$(30)+"ВЫСОКИЙ ИЛИ НИЗКИЙ" от Neurox66 2021":Z$=U$ 3 T=0:L=0:P=0:FOR I=1 до 4:FOR II=1 до 13:P=P+1:C(P,1)=I:C(P,2)=II :СЛЕДУЮЩИЙ II:СЛЕДУЮЩИЙ I:ПЕЧАТАТЬ FNm$("Перемешивание.."):ДЛЯ I=0 до 9 4 FOR II=1 TO 52:P=1+int(rnd*52):D=C(P,1):E=C(P,2):C(P,1)=C(II,1) :C(P,2)=C(II,2):C(II,1)=D:C(II,2)=E:ДАЛЕЕ:ДАЛЕЕ:I=1 5 cls:T=T+1:PRINT Z$:X=10:Y=205:gosub 9:если C(I+1,2) > C(I,2), то R$="H" ELSE R$ ="L": если C(I+1,2) = C(I,2), то R$ = "Т" 6 НАЙТИ 2,24: введите «Следующая карта старше или младше»; Q$:Q$=UPPER$(Q$):IF Q$ <> «H» и Q$<> «L» перейти к 6 7 X=105:Y=205:I=I + 1:gosub 9:если Q$ = R$ или R$="T", то выведите FNm$("Вы выиграли") иначе выведите FNm$("Вы проиграл"):L=L+1 8 Z$=U$+" Выигрыш: "+STR$(T-L)+" Проигрыш: "+STR$(L): Y$=inkey$:IF Y$="" тогда 8 ИНАЧЕ, если I > 42, то 3 еще 5 9 MOVE X,Y:ящик 80,0:ящик 0,120: ящик -80,0: ящик 0,-120:T$=CHR$(225+C(I,1)):S$=C$(C( я, 2)) 10 НАЙТИ 2+X/8,32-Y/8: ПЕЧАТЬ S$;T$:НАЙТИ 6+X/8,35-Y/8: ПЕЧАТЬ T$:НАЙТИ 8+X/8,37-Y/8 : ПЕЧАТЬ S$;T$:возврат 20 БЭМ 1 1 1 21 РЭМ 1 2 3 4 5 6 7 8 9 0 1 2 22 REM789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 23 БДГ ВЫСОКИЙ ИЛИ НИЗКИЙ 25 REM ОТ PAOLO 'NEUROX66' Borzini 26 REM 2021 КОНКУРС 10-ЛИНЕРОВ