Boomjack by romwer

################################### # BASIC Tenliners Contest 2022 # # # # Бум Джек # # (c) 2022 Роман Вернер @romwer # # электронная почта: [email protected] # ###################################

Это просто любовное письмо замечательной аркадной игре Bomb Jack (c) от Tehkan, которую мы все любим и о которой у нас остались теплые воспоминания.

Задача и цель

=============

искусно маневрируйте своим персонажем по воздушным высотам и соберите все красные бомбы, не вступая в контакт с опасными черными минами.

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

Управление:

========

Используйте джойстик в порту 2 для перемещения вашего героя влево и вправо.

Используйте кнопку огня, чтобы прыгнуть.

Совет: повторно нажимайте кнопку огня, падая обратно, чтобы какое-то время оставаться на этой высоте. Примените эту технику, чтобы справиться с растущим минным полем.

Требования к игре:

===================

- C64/C128* со средой выполнения BASIC 2.0 (или совместимой)

- 1 игрок

*Также можно играть на Windows/MacOS/iOS/Android (требуется эмулятор C64)

Код программы Boom Jack BASIC:

============================

0m=23:x=26:y=12:s=4^5:b=81:w=160:c=s*55:d=s*53:print"{red}{clear}{blue}{ вниз*2}":тыкать53280,0:тыкать53281,14 1l=l+1:fori=0to39:o=1984+i:ткнул+o,7:pokeo,w:следующий:fori=1to4:poke1073+i*4,b:poke1260+i*80,b 2poke1146+i*80,b:poke1666+i*4,b:printtab(i*l*13and31)"{вниз*3}{перевернуть на}{пробел*5}":следующий:n=40:r=16 :е=32 3g=a:j=127-peek(c):a=jandr:j=j-a:ifathenz=z*-(g>.):ifg=.theng=1:iffthenf=.:z=-2.4 4x=x+(j=4andx>.)-(j=8andx<39):y=y+z:z=z+.2:ify<.ory>mtheny=m*-(y>.):z=. :ify=mthenf=1 5p=s+int(y)*n+x:t=peek(p):ift=wtheny=(yand30)-sign(z):f=-(z>.):z=.:goto5 6ifpeek(p+sign(z)*n)=wthenz=z/4:f=1 7ift=bthenh=h+1:on1+hand15goto:fori=1tol:o=s+rnd(1)*959:ifpeek(o)=32thenpoked+o,.:pokeo,42:next 8on-(q=p)goto3:pokeq,e:pokep,1+21*-(z>.7):q=p:on-(t<>42)goto3:fori=.tow:pokeq,91: pokeq,86:следующий 9pokeq,e:print"{home}{down*3}"tab(r)"{black}game over":printtab(11)"b0mbs собрано:"h:waitc,r:waitc,r,r:run

Код программы Boom Jack BASIC (версия PUR-80 с использованием сокращений команд):

============================================== ======

0m=23:x=26:y=12:s=4^5:b=81:w=160:c=s*55:d=s*53:?"{red}{clear}{blue}{ вниз*2}":pO53280,0:pO53281,14 1l=l+1:fOi=0to39:o=1984+i:pOd+o,7:pOo,w:nE:fOi=1to4:pO1073+i*4,b:pO1260+i*80,b 2pO1146+i*80,b:pO1666+i*4,b:?tAi*l*13aN31)"{вниз*3}{назад на {пробел*5}":nE:n=40:r=16: е=32 3g=a:j=127-pE(c):a=jaNr:j=j-a:ifatHz=z*-(g>.):ifg=.tHg=1:ifftHf=.:z=-2.4 4x=x+(j=4aNx>.)-(j=8aNx<39):y=y+z:z=z+.2:ify<.ory>mtHy=m*-(y>.):z=. :ify=mtHf=1 5p=s+int(y)*n+x:t=pE(p):ift=wtHy=(yaN30)-sG(z):f=-(z>.):z=.:gO5 6ifpE(p+sG(z)*n)=wtHz=z/4:f=1 7ift=btHh=h+1:on1+haN15gO:fOi=1tol:o=s+rN(1)*959:ifpE(o)=32tHpOd+o,.:pOo,42:nЕ 8on-(q=p)gO3:pOq,e:pOp,1+21*-(z>.7):q=p:on-(t<>42)gO3:fOi=.tow:pOq,91: pOq,86:nE 9pOq,e:?"{home}{down*3}"tAr)"{black}game over":?tA11)"б0мб ​​собрано:"h:wAc,r:wAc,r,r:rU

Совет: скопируйте/вставьте программный код в CBM prg Studio (http://www.ajordison.co.uk/).

Там вы можете увидеть команды, выделенные красивым цветом, и вы можете напрямую запустить игру в эмуляторе по вашему выбору.