Dig Doug 500

Dig Doug game made in 500 characters for TweetTweetJam9

Features:

• Dig Dug in-game music using P8SCII audio ( G#, F, etc)

?"\asil0wcgcgb2gb2ga#2ga#2ga2ga2gg#2fg#2fg#2fg#2fg2fg2fa2fb2 -"

• Uses P8SCII for image drawing
  

?"\fb\#0\^.○ツ…ッ○、|エ",i,j

• Using map to track "dug" portions of the screen
• Movement aligned to 8x8 map using button mask math

p=btn()
x += ((p&2)\2-(p&1)\1)*8

• Delay/Sleep every frame to reduce FPS to accommodate moving 8 pixels per move

?"\^4"

• Attacking (touching) "Dragon" causes it to respawn
• Uses pattern-fill for Dig Dug dirt creation

Uses 500 characters to implement a basic arcade-like game (no external images or sound files allowed, everything is part of the code).

i=0j=24m={}u=0v=0c={1,10,9,8,4}r=rectfill
fillp(0x8050)pal(0,1)for y=-1,16 do m[y]={} for x=-1,16 do m[y][x]=true end end
?"\asil0wcgcgb2gb2ga#2ga#2ga2ga2gg#2fg#2fg#2fg#2fg2fg2fa2fb2 -"
::_::r(0,0,127,23,1)p=btn()u=mid(4,u+((p&2)\2-(p&1)\1)*8,124)v=mid(28,v+((p&8)\8-(p&4)\4)*8,116)m[v\8][u\8]=false
for y=24,119,8 do for x=0,127,8 do if(m[y\8][x\8])r(x,y,x+8,y+8,c[y\24+1])end end
if(i+4==u and j+4==v)i=rnd(15)\1*8 j=rnd(11)\1*8+24
?"\fb\#0\^.○ツ…ッ○、|エ",i,j
?"\f7\^.「<BB<~$f",u-4,v-4
flip()?"\^4"
cls()goto _