Try this...
create bitmap 1,10,10
cls rgb(255,255,255)
get image 1,0,0,10,10,1
set current bitmap 0
delete bitmap 1
sprite 1,screen width()/2,screen height()/2,1
offset sprite 1,5,5
scale sprite 1,200
h as float
a as float
do
cls
c1=mousex()-sprite x(1)
c2=sprite y(1) - mousey()
h=sqrt(c1^2+c2^2)
if c1<0
a=asin(c2/h)
else
a=asin(c1/h)
if c2<0 then a=acos(c1/h)
endif
sprite 1,screen width()/2,screen height()/2,1
rotate sprite 1,a
if mouseclick()=1
line sprite x(1),sprite y(1),mousex(),mousey()
endif
loop
I know its not the best way to do it, but may give you an idea of what to do...
