OK, it didnt work, try again...
rem *************************
rem * CLAY PIDGEON SHOOTING *
rem *************************
rem * By Hamish McHaggis *
rem *************************
rem Setup environment
sync on:hide mouse:dim explode_x#(200,2):dim explode_y#(200,2)
start:
ammo=50:points=0:do
rem Randomize clay pidgeon properties if not shot and reset if off of screen
if clay_shoot=0 and ammo>0:clay_speed#=rnd(5)+5:clay_gravity#=rnd(3)+2:clay_x#=640:clay_y#=rnd(100)+150
clay_shoot=1:endif:if (clay_x#<0 or clay_y#>480) and clay_shoot=1 and ammo>0 then clay_shoot=0:points=points-1
rem Control the movement of explosion particles
for x=1 to 200:explode_x#(x,1)=explode_x#(x,1)+explode_x#(x,2):explode_y#(x,1)=explode_y#(x,1)+explode_y#(x,2):explode_y#(x,2)=explode_y#(x,2)+0.1
ink rgb(200,0,0),rgb(210,230,255):dot explode_x#(x,1),explode_y#(x,1):next x
rem Detect whether pidgeon is shot or not
if mouseclick()=1 and ammo>0:if hold=0 then ammo=ammo-1
if mousex()>=clay_x#-10 and mousex()<=clay_x#+10 and mousey()>=clay_y#-10 and mousey()<=clay_y#+10 and hold=0
clay_shoot=0:points=points+2:explode=1:r=r+1
if r>=5 then r=1
rem Control placement and properties of new explosion particles
for x=1+r*40 to 40+r*40:explode_x#(x,1)=clay_x#:explode_y#(x,1)=clay_y#:explode_a#=rnd(360)
explode_s#=rnd(50):explode_s#=explode_s#/10.0:explode_x#(x,2)=sin(explode_a#)*explode_s#:explode_y#(x,2)=cos(explode_a#)*explode_s#:next x
endif:hold=1:else:hold=0:endif
rem Move clay pidgeon
clay_x#=clay_x#-clay_speed#:clay_y#=clay_y#-clay_gravity#:clay_gravity#=clay_gravity#-0.1
rem Draw stuff
ink rgb(200,0,0),rgb(210,230,255):box clay_x#,clay_y#,clay_x#+10,clay_y#+2
ink rgb(0,100,0),rgb(210,230,255):box 0,450,639,479:ink rgb(0,0,0),rgb(210,230,255):circle mousex(),mousey(),5
circle mousex(),mousey(),10:line mousex()-12,mousey(),mousex()+12,mousey():line mousex(),mousey()-12,mousex(),mousey()+12:text 20,20,"Score:"+str$(points):text 20,40,"Ammo:"+str$(ammo)
rem If you run out of ammo, display message
if ammo=0 then center text 320,240,"Your Score is "+str$(points)+", press space to play again":if spacekey()=1 then goto start
rem Refresh screen and loop to the beginning
sync:cls:loop
Yum! Yum! Yum! Yum!
