![Постер Grand Theft Auto V](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/3498.jpg)
![Постер Cyberpunk 2077](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/41494.jpg)
![Постер Elden Ring](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/326243.jpg)
![Постер The Witcher 3: Wild Hunt](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/3328.jpg)
![Постер Euro Truck Simulator 2](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/9609.jpg)
![Постер God of War](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/58175.jpg)
![Постер Marvel's Spider-Man](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/58134.jpg)
![Постер Forza Horizon 5](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/622492.jpg)
![Постер Baldur's Gate III](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/324997.jpg)
![Постер Red Dead Redemption 2](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/28.jpg)
![Постер Horizon Zero Dawn](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/278.jpg)
![Постер Monster Hunter: World](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/46889.jpg)
![Постер The Elder Scrolls V: Skyrim](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/5679.jpg)
![Постер Palworld](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/718135.jpg)
![Постер No Man's Sky](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/2093.jpg)
![Постер DOOM Eternal](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/58777.jpg)
![Постер Starfield](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/58779.jpg)
![Постер Far Cry 6](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/463723.jpg)
![Постер Resident Evil 4](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/795632.jpg)
![Постер Devil May Cry 5](/_ipx/f_webp,q_70,fit_cover,s_200x113/static_files/uploads/58755.jpg)
ViperTen16 by Kimono
![](/static_files/7b56cf_0d604419775d4dceab72c4f7820c7d3e~mv2.gif)
БАЗОВЫЙ КОНКУРС TENLINER 2022
Название: ViperTen16
Язык: Basic v3.5 для Commodore 16 – Plus/4
Категория: PUR80
Автор: Феликс Нарделла, он же "Кимоно"
Цель:
===================
Цель этой игры - управлять змеей, которая перемещает и собирает еду (цифры от 1 до 9) на карте экрана. Если вы соберете все 9 чисел, вы выиграете, и игра окончена. Если вы попытаетесь переместить змейку движением, противоположным ее движению (например, переместить ее вправо, пока она движется влево), вы проиграете, и игра окончена.
Там же, где число съедено, остается препятствие. Если змея коснется одного из препятствий или краев экрана, игра окончена. Чтобы снова начать игру, просто напишите RUN и нажмите RETURN.
Источник:
===================
0 print"{white}{clear}viperten for c16/plus4 - радость в порту2":a=3112:b=102:c=-1024:px=10 1 py=13:f=3072:e=49:x(0)=1:z=5:dimp(30):fori=atoa+920step40:pokei,b:pokei+39,b 2 color4,7,0:color0,7,0:w=160:pokei+c,2:pokei+39+c,2:следующий:x=rnd(-ti):data0,-1,1 3 fori=atoa+38:pokei,b:pokei+920,b:pokei+c,2:pokei+920+c,2:next:data0,0,1,-1,0 4 восстановление: fori=1to4:readx(i),y(i):next:o=int(rnd(1)*919):ifpeek(a+o)-32goto4 5 pokea+o,e:ifz>29thenprint"{clear}"tab(252)"congratulations!":end 6 j=int((joy(2)+1)/2):px=px+x(j):py=py+y(j):ifjthenx(0)=x(j):y(0)= у (j) 7 h=f+py*40+px:c=peek(h):ifc=borc=wthenprint"{147}вы проиграли!":end 8 fori=zto1step-1:p(i)=p(i-1):next:ifc=ethene=e+1:z=z+3:pokeh,w:goto4 9 p(0)=h:pokep(0),w:pokep(z),32:goto6Совет: скопируйте/вставьте программный код в CBM prg Studio IDE (http://www.ajordison.co.uk/)
Комментарий к коду
===================
§ СТРОКА 0:
0 print"{white}{clear}viperten for c16/plus4 - радость в порту2":a=3112:b=102:c=-1024:px=10
Установите белый цвет шрифта, чистый экран и напечатайте название игры.
'a' базовое значение второй строки местоположения экрана (1024 + 40).
значение 'b' символьного кода тыка.
значение 'c' базового значения цвета ram (- расположение на экране).
Значение 'px' положения змеи по оси x.
==========================================
§ СТРОКА 1:
1 py=13:f=3072:e=49:x(0)=1:z=5:dimp(30):fori=atoa+920step40:pokei,b:pokei+39,b
'py' значение положения змеи по оси Y.
'f' базовое значение положения на экране.
Символ 'e' указывает код первого числа (еда).
значение 'x(0)', увеличивающее положение змеи.
Значение 'z' начальной длины змеи.
Инициализирует массив, содержащий символы змеи.
Нарисуйте правый и левый края.
==========================================
§ СТРОКА 2:
2 color4,7,0:color0,7,0:w=160:pokei+c,2:pokei+39+c,2:следующий:x=rnd(-ti):data0,-1,1
Задает цвета границ и фона.
'w' содержит значение символа змеи.
Окрашивает верхний и нижний края в красный цвет.
Данные содержат первые три значения, которые массивы x() и y() могут принимать для позиции i.приращение.
=========================================
§ СТРОКА 3:
3 fori=atoa+38:pokei,b:pokei+920,b:pokei+c,2:pokei+920+c,2:next:data0,0,1,-1,0
Рисует и окрашивает левый и правый края в красный цвет.
Данные содержат остальные пять значений, которые массивы x() и y() могут принимать для увеличения позиции.
=========================================
§ СТРОКА 4:
4 restore:fori=1to4:readx(i),y(i):next:o=int(rnd(1)*919):ifpeek(a+o)-32goto4
Очищает указатель следующего значения данных. Чтение значений данных.
Генерирует случайное число, чтобы определить, куда положить еду (цифры от 1 до 9).
Проверьте, свободна ли позиция.
==========================================
§ СТРОКА 5:
5 pokea+o,e:ifz>29thenprint"{clear}"tab(252)"congratulations!":end
Поместите еду на экран.
Если длина змейки больше 29, вы выигрываете, и игра окончена.
=========================================
§ СТРОКА 6:
6 j=int((joy(2)+1)/2):px=px+x(j):py=py+y(j):ifjthenx(0)=x(j):y( 0)=у(к)
1 добавляется к значению радости, а затем делится на 2, чтобы получить 1,2,3 и 4 вместо 1,3,5 и 7 в четырех сторонах света.
Обновляет координаты x/y змеи.
Если радостного движения нет, увеличение позиции не меняется.
=========================================
§ СТРОКА 7:
7 h=f+py*40+px:c=peek(h):ifc=borc=wthenprint"{147}вы проиграли!":end
Рассчитать положение змеи.
Если змея касается краев, вы проигрываете, и игра окончена.
==========================================
§ СТРОКА 8:
8 fori=zto1step-1:p(i)=p(i-1):next:ifc=ethene=e+1:z=z+3:pokeh,w:goto4
Повторно прослеживает всю длину змеи, содержащейся в массиве. Если змея
съедает число, увеличивает число, чтобы изменить его положение на экране и увеличивает
длина змеи.
Цикл из строки 4.
===========================================
§ СТРОКА 9:
9 p(0)=h:pokep(0),w:pokep(z),32:goto6
Обновите голову, хвост и петлю змеи из строки 6.
===========================================
![](https://media.rawg.io/media/screenshots/d4d/d4d2b6b9cee0eb736204817c3e44b510.jpg)
![](https://media.rawg.io/media/screenshots/771/77111ee8badd6a0faba386ff7dd6ddf7.jpg)
Как скачать ViperTen16 by Kimono через торрент
Всего несколько простых шагов:
- Устанавливаем программу μTorrent, через которую мы будем скачивать торренты
- Выбираем и скачиваем подходящий торрент-файл репака ViperTen16 by Kimono
- Двойным кликом открываем скаченный файл, программа μTorrent запустится автоматически и предложит выбрать место для сохранения дистрибутива.
- После того как репак скачается, запускайте его. Начнется установка и... это все, приятной игры!