Sorry your browser is not supported!

load bitmap "1r.bmp",1
get image 102,0,0,15,15
sprite 102,600,480,102
delete bitmap 1


backdrop on
color backdrop 0

hide mouse

x=600
y=480


do
sync on
sync rate 1000
  circle mousex(),mousey(),5
  dot mousex(),mousey()
  ink rgb(255,10,0),1
  line mousex()-15,mousey(),mousex()+15,mousey()
    line mousex(),mousey()-15,mousex(),mousey()+15

circle wayx,wayy,10


set cursor sprite x(102),sprite y(102)+20
print "sprite x:- ",sprite x(102)

set cursor sprite x(102),sprite y(102)+35
print "sprite y:- ",sprite y(102)

if mouseclick()=1 then wayx=mousex() : wayy=mousey() : action=1


if action=1
if sprite x(102)<wayx then x=x+3 : sprite 102,x,y,102
if sprite x(102)>wayx then x=x-3 : sprite 102,x,y,102
if sprite y(102)<wayy then y=y+3 : sprite 102,x,y,102
if sprite y(102)>wayy then y=y-3 : sprite 102,x,y,102
endif

if sprite y(102)=wayy then if sprite x(102)=wayx then action=0

sync
loop

hide mouse
sync on
sync rate 1000

cls 255
get image 1,0,0,15,15
sprite 1,600,480,1

backdrop on
color backdrop 0

`sprite position (needs to be real for curvevalue)
SpriteX#=0 : SpriteY#=0

`the second ink parameter is also a colour integer, setting this to 1 is equivalent to rgb(0,0,1)
ink rgb(255,10,0),0

do
   if mouseclick()=1 then wayx=mousex() : wayy=mousey() : action=1

   if action=1
      SpriteX# = curvevalue(wayx,SpriteX#,100)
      SpriteY# = curvevalue(wayy,SpriteY#,100)

      if ABS(SpriteX#-WayX) + ABS(SpriteY#-WayY) < 1
         action=0
         SpriteX#=WayX
         SpriteY#=WayY
      endif
   endif

   `Display
   sprite 1,SpriteX#,SpriteY#,1

  circle mousex(),mousey(),5
  line mousex()-15,mousey(),mousex()+15,mousey()
  line mousex(),mousey()-15,mousex(),mousey()+15

   circle wayx,wayy,10

   set cursor sprite x(1),sprite y(1)+20
   print "sprite x: ",sprite x(1)

   set cursor sprite x(1),sprite y(1)+35
   print "sprite y: ",sprite y(1)

sync
loop