Here is a contribution:
Sync On
Make object cube 1,10
Make object sphere 2,1
position object 2,0,400,0
Make object sphere 3,8 : color object 3,rgb(125,60,180)
position object 3,rnd(40),0,rnd(40)
shoot=0 : s#=0
Do
a#=object angle y(1)
x#=object position x(1)
y#=object position y(1)
z#=object position z(1)
if upkey()=1 then move object 1,5
if downkey()=1 then move object 1,-5
if rightkey()=1 then turn object right 1,6
if leftkey()=1 then turn object left 1,6
if spacekey()=1 and shoot=0 then s#=0 : shoot=1
if shoot=1
position object 2,x#+s#*sin(a#),y#,z#+s#*cos(a#)
inc s#,5
if s#>200 then position object 2,0,400,0 : shoot=0
endif
if object exist(3)=0 then goto end_game
if object collision(2,3) then delete object 3
Position camera x#+20*sin(a#+180),y#+20,z#+20*cos(a#+180)
Point camera x#,y#+4,z#
Sync
Loop
end_game:
repeat
text 200,250,"You Win!"
sync
until scancode()>0
"Forgiveness is a good thing"
"Forgiveness is between them, and God. I set up the meeting"
-Man on Fire