Sorry your browser is not supported!

createsprite(1,0)
setspritesize(1,2,2)

do
posx=getpointerx()
posy=getpointery()
movedir(1,getspritex(1),getspritey(1),posx,posy,0.1)
 Sync()
loop

function movedir(sprite,curx as float, cury as float,destx as float,desty as float, speed as float)
tmpx as float
tmpy as float
a as float
newx as float
newy as float
tmpx=destx-curx
tmpy=desty-cury
a=atanfull(tmpx,tmpy)-90
newx= curx+cos(a)*speed
newy= cury+sin(a)*speed
setspriteposition(sprite,newx,newy)
endfunction
function dist(x as float , y as float ,z as float, x1 as float ,y1 as float ,z1 as float)
dist as float
dist=sqrt(   ((x-x1)^2)+((y-y1)^2)+((z-z1)^2)   )
endfunction dist

// Values to use for movement - moveTime is in seconds
startX# = 100
startY# = 100
targetX# = 500
targetY# = 200
moveTime# = 2.0

// Calculate Speed
speedX# = ( targetX# - startX# ) / moveTime#
speedY# = ( targetY# - startY# ) / moveTime#
// Set Position variables
posX# = startX#
posY# = startY#
// Set time remaining
timeleft# = moveTime#

do 
  // Time Based movement
  lastLoopTime# = getFrameTime()
  if timeleft# > 0
    // Movement not finished yet
    if timeleft# > lastLoopTime#
      // Not last step yet
      timeleft# = timeleft# - lastLoopTime#
      posX# = posX# + speedX# * lastLoopTime#
      posY# = posY# + speedY# * lastLoopTime#
    else
      // Last Step
      timeleft# = 0
      posX# = targetX#
      posY# = targetY#
    endif
  endif
  // use movement here


  sync()
loop

sprite.x# = getSpriteXbyOffset(sprite.ID)
                sprite.y# = getSpriteYbyOffset(sprite.ID)
                sprite.targetX# = (screenToworldX(4.4) - sprite.x#) / 10
                sprite.targetY# = (screenToWorldY(96.6) - sprite.y#) / 10
                setSpritePositionByOffset(sprite.ID, sprite.x# + sprite.targetX#, sprite.y# + sprite.targetY#)

// walking
if (abs(newPointX-playerX#) > 2) or (abs(newPointY-playerY#) > 2)
ResumeSprite(1)
if abs(newPointX-playerX#) > abs(newPointY-playerY#)
    divstep# = abs(newPointY-playerY#) / abs(newPointX-playerX#)
    if (newPointX < playerX#) then walkLeft(1) else walkRight(1)
    if (newPointY < playerY#) then walkUp(divstep#) else walkDown(divstep#)
else
    divstep# = abs(newPointX-playerX#) / abs(newPointY-playerY#)
    if (newPointX < playerX#) then walkLeft(divstep#) else walkRight(divstep#)
    if (newPointY < playerY#) then walkUp(1) else walkDown(1)
endif
else
    StopSprite(1)
    SetSpriteFrame(1,1)
    newPointX = playerX#
    newPointY = playerY#
endif

function setPlayerDirection()
    deltaY = newPointY - playerY#
    deltaX = newPointX - playerX#
    playerAngle = atanfull(deltaX,deltaY)
    playerAngle = playerAngle - 22.5
    if playerAngle < 0 then playerAngle = 360 + playerAngle
    playerAngle = (playerAngle / 45) + 1
    SetSpriteImage(1,playerAngle)
    playerDir = playerAngle
endfunction

function walkRight(div#)
    vX# = vX# + div#*(playerSpeed#*(1+renderTime#))
    // stop on right edge
    if (vX# > mapWidth-vResX)
        vX# = mapWidth-vResX
        onEdgeRight = 1
        playerX# = playerX# + div#*(playerSpeed#*(1+renderTime#))
        if (playerX# > mapWidth-30)
            playerX# = mapWidth-30
            newPointX = playerX#
            newPointY = playerY#
        endif
    endif
    // on left edge
    if (onEdgeLeft = 1)
        vX# = vX# - div#*(playerSpeed#*(1+renderTime#))
        playerX# = playerX# + div#*(playerSpeed#*(1+renderTime#))
        if (playerX# > centreX) then onEdgeLeft = 0
    endif
endfunction