This should get you started. Move player around with cursors and left mouse button to fire bullet at mouse pointer. You can shoot again when bullet goes off screen.
sync on : sync rate 60
x=screen width()/2
y=screen height()/2
s=1
b=0
do
cls
mx=mousex()
my=mousey()
if leftkey() then dec x,s
if rightkey() then inc x,s
if upkey() then dec y,s
if downkey() then inc y,s
circle x,y,5
a#=1.0*atanfull(mx-x,my-y)
x2=newxvalue(x,a#,20)
y2=newzvalue(y,a#,20)
line x,y,x2,y2
if mouseclick()=1 and b=0
bsx=x
bsy=y
ba#=a#
bd#=1.0
b=1
endif
if b=1
inc bd#,2
bx=newxvalue(bsx,ba#,bd#)
by=newzvalue(bsy,ba#,bd#)
circle bx,by,2
if bx < 0 or bx > screen width() or by < 0 or by > screen height()
b=0
endif
endif
sync
loop
Boo!