This is what I had:
Sync On
Sync rate 60
DO
mx=mousex():my=mousey()
`calculate
if abs(mx-x#)>10 or abs(my-y#)>10
a# = curveangle( atanfull(mx-x#,my-y#) ,a#, abs((mx-x#)+(my-y#))/10)
if mouseclick()=1 then s=s-1
if mouseclick()=2 then s=s+1
x# = x# + sin(a#)*s
y# = y# + cos(a#)*s
else
s=0
endif
`draw
circle x#,y#,10
line x#,y#,x#+sin(a#)*15,y#+cos(a#)*15
print s
print a#
print x#
print y#
sync:cls
LOOP
Wow, forgot about this. I got this from Obese's 20 line challenge.(Thanks, I'll be useing it on my Dot wars game, I need a follow system)
Razerx
