http://www.codinghorror.com/blog/archives/000356.html

After turning it on, I couldn't use Courier New. Consolas is sexy with cleartype though, so all is well

I'll get a pic of the rocket attack later. For now, you can have the surprisingly short code that powers it

if!dead{r*=2;if r>c{c+=1;r=1}}

var v,i;i=id;v=1;while(v){v+=1

x=xstart+lengthdir_x(sqr(v)-v>>1,d);y=ystart+lengthdir_y(sqr(v)-v>>1,d)

if v=c{v=-r}

with foe{if ptdis(x-i.x,y-i.y,(v-i.dead)*(v>i.dead||!v)){hp-=1;i.en-=1}}

draw_set_color(own.image_blend);draw_circle(x,y,(v-i.dead)*(v>dead||!v),0)

draw_set_color(-1);draw_circle(x,y,(v-i.dead)*(v>dead||!v),1)}

dead+=sqr©-c>>1>en;x=xstart;y=ystart

if dead>c{instance_destroy()}

var v,vv;x=256-own.x;y=256-own.y

en=min(max(en+own.o_z/9-.05,.5),1)

draw_set_blend_mode(1)

draw_sprite_ext(scp,0,x,y,2,2,mplay.tim<<2,own.image_blend,en)

draw_sprite_ext(scp,0,x,y,2,2,-mplay.tim<<2,own.image_blend,en)

draw_set_blend_mode(0)

if own.o_z{own.en-=6

own.x+=999

v=instance_nearest(x,y,foe)

if mplay.tim&1{with instance_create(own.x,own.y,vul){direction=point_direction(x-999,y,v.x,v.y);x-=999}}

own.x-=999

v=id;with foe{if ptdis(x-v.x,y-v.y,image_xscale+32){

v.own.x+=999

vv=id<<2|3;while(vv&3){

vv-=1;with instance_create(v.own.x,v.own.y,bom){trg=vv>>2;direction=(vv&3)*90;x-=999}}

v.own.x-=999

}}}

LOCKON!!

Fires at nearest enemy with a stream of vulcans, 4 homing missles fire at the foe that the crosshair goes over. This requires some aiming therefore, since the scope goes to your inverted coordinates

We really need a [gml]