something like this:
cls rgb(255,0,0)
ink rgb(255,255,255),0
line 0,5,5,0
line 5,0,10,5
get image 1,0,0,10,20
sprite 1,320,240,1
offset sprite 1, 5,10
do
pointsprite(1,mousex(),mousey())
sync
loop
function pointsprite(s,x,y)
dx = sprite x(s) - x
dy = sprite y(s) - y
ang# = wrapvalue(atanfull(dx,dy)*-1)
rotate sprite s,ang#
endfunction
(modified version of
this)
Virtual Nomad @ California, USA . DBPro V7.5
AMD Phenomâ„¢ X4 9750 Quad-Core @ 2.4 GHz . 8 GB PC2-6400 RAM
ATI Radeon HD 3650 @ 512 MB . Vista Home Premium 64 Bit