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()/8if(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,800dof=rnd()r=rnd(99)x=r*h(f)y=r*j(f)o(x,y,1,abs(pget(x,y)-1))endfor i=a,a+.01,.001doline(0,0,h(i)*s,j(i)*s,7)endfor f in all(q)dog=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]=1if(f[4])o(x,y,1)for k in all(q)doif(k!=f and k[1]==g and abs(k[2]-p)<1)del(q,f)o(x,y,7)u+=1endend?u,-s,58if(e>0)flip()goto _
