Sorry your browser is not supported!

ang = atanful((A.x - B.x), (A.y - B.y))

d.x = cos(ang)
d.y = sin(ang)

x = x + d.x*speed
y = y + d.y*speed


if (x-B.x)^2 + (y-B.y)^2 <= speed*speed then you reached the area

SetWindowSize ( 1920, 1080, 1 )
SetVirtualResolution ( 1920, 1080 )
SetSyncRate ( 60, 1 )
  
type vector
    x as float
    y as float
endtype
  
start   as vector
target  as vector
  
target.x = 100
target.y = 1000
  
speed   = 13.37
red     = MakeColor ( 255, 0, 0 )
green   = MakeColor ( 0, 255, 0 )
  
  
repeat
      
    if GetRawMouseLeftReleased()
        moving = 1
        start.x = GetRawMouseX()
        start.y = GetRawMouseY()
        angle#   = ATan2 ( ( target.y - start.y ), ( target.x - start.x ) )
    endif   
      
    if moving
        inc start.x, cos ( angle# ) * speed
        inc start.y, sin ( angle# ) * speed
        DrawBox ( start.x-10, start.y-10, start.x+10, start.y+10, green, green, green, green, 1 )
        if ( target.x - start.x )^2 + ( target.y - start.y )^2 < 400
            moving = 0
        endif   
    endif   
  
    DrawBox ( target.x-10, target.y-10, target.x+10, target.y+10, red, red, red, red, 1 )
    print ( "Click anywhere" )
    sync()
      
until GetRawKeyPressed ( 27 )
end