Boomjack (C64) by romwer

#################################
# BASIC Tenliners Contest 2022  #
#                               #
# Boom Jack                     #
# (c) 2022 Roman Werner @romwer #
# email: roman.werner@gmail.com #
#################################

This is simply a love letter to the great Bomb Jack arcade game (c) by Tehkan that we all love and have fond memories of.

Task and Goal

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

skillfully maneuver your character through the airy heights and collect all the red bombs without coming in contact with the dangerous black mines.

When you managed to collect all the bombs then you will be taken to the next level. Collect as many bombs on your journey as you can.

Control:

========

Use Joystick in Port 2 for moving your hero left and right.

Use the fire button to jump.

Tip: Repeat hitting the fire button while falling back down to remain floating at that height for a little while. Apply this technique to tackle the growing minefield.

Game Requirements:

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

- C64/C128* with BASIC 2.0 runtime environment (or compatible)

- 1 Player

*Also playable on Windows/MacOS/iOS/Android (C64 Emulator required)

Boom Jack BASIC program code:

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

0m=23:x=26:y=12:s=4^5:b=81:w=160:c=s*55:d=s*53:print"{red}{clear}{blue}{down*2}":poke53280,0:poke53281,14
1l=l+1:fori=0to39:o=1984+i:poked+o,7:pokeo,w:next:fori=1to4:poke1073+i*4,b:poke1260+i*80,b
2poke1146+i*80,b:poke1666+i*4,b:printtab(i*l*13and31)"{down*3}{reverse on}{space*5}":next:n=40:r=16:e=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)-sgn(z):f=-(z>.):z=.:goto5
6ifpeek(p+sgn(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:next
9pokeq,e:print"{home}{down*3}"tab(r)"{black}game over":printtab(11)"b0mbs collected:"h:waitc,r:waitc,r,r:run

Boom Jack BASIC program code (PUR-80 version using command abbreviations):

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

0m=23:x=26:y=12:s=4^5:b=81:w=160:c=s*55:d=s*53:?"{red}{clear}{blue}{down*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)"{down*3}{reverse on}{space*5}":nE:n=40:r=16:e=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:nE
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)"b0mbs collected:"h:wAc,r:wAc,r,r:rU

Tip: Copy/paste the program-Code into CBM prg Studio (http://www.ajordison.co.uk/).

There you can see the commands in nice color highlighting and you can directly execute the game in an emulator of your choice.