PADAR

Live the exciting life of a ABM operator! Use your busted old radar and lone Boomrang-X8 missile to defend yourself from incoming hostile bogeys!

Controls

• Hold Z/C/X down to ready missile.
• Hold down the arrow keys to aim missile.
• Release Z/C/X to fire missile.
  • Limit of one missile out at a time.
  • Missile penetrates through enemies.
  • Score is gained by destroying enemies.
• Radar beam marks hidden enemy bogeys.
• You lose if any enemies get to the center.
  • Ctrl-R to restart.

Code

s=63q={}e=9u=0camera(-s,-s)pal({[0]=-15,1,-13,3,-5,11,-6},1)o,j,h=circfill,cos,sin::_::p=btn()a=t()/8
if(rnd()>.98)add(q,{rnd(8)\1/8,50,-.1})
if(p>16)q[1]={atan2(p\8%2-p\4%2,p\2%2-p%2),5,2,1}
for i=0,800do
f=rnd()r=rnd(99)x=r*h(f)y=r*j(f)o(x,y,1,abs(pget(x,y)-1))end
for i=a,a+.01,.001do
line(0,0,h(i)*s,j(i)*s,7)end
for f in all(q)do
g=f[1]p=f[2]e=min(p,e)d=abs(g-a+.1)%1x=p*h(g)y=p*j(g)f[2]+=f[3]
if((d<.5and d or 1-d)<.1)f[4]=1
if(f[4])o(x,y,1)
for k in all(q)do
if(k!=f and k[1]==g and abs(k[2]-p)<1)del(q,f)o(x,y,7)u+=1end
end
?u,-s,58
if(e>0)flip()goto _