Sorry your browser is not supported!

sync on
sync rate 30

Rem Load the sprite sheet into an animated sprite
create animated sprite 1,"TargWR1.png",4,1,1
mrspriteX=200
mrspriteY=200
mx = MouseX()
my = MouseY()

WalkR:
do
Rem Show the sprite at 200,200
 sprite 1,mrspriteX,mrspriteY,1
 
Rem Play the sprite 4 frames at a rate of 200
 play sprite 1,1,4,200
	if mouseclick() = 1 then mrsspriteX=mrsspriteY+mx+my

		if downkey()=1 then mrspriteY=mrspriteY+8
		if upkey()=1 then mrspriteY=mrspriteY-8
		if leftkey()=1 then mrspriteX=mrspriteX-8
		if rightkey()=1 then mrspriteX=mrspriteX+8
 Sync

loop

sync on
sync rate 30


//Initial coordinates
//hero
x as float=100.0
y as float=100.0
speed as float=3.0

//Goal
xdest as float =450.0
ydest as float =300.0

//aux var 
angle as float

Rem Load the sprite sheet into an animated sprite
create animated sprite 1,"TargWR1.png",4,1,1

WalkR:
do
	text 0,0,"Click where you want to go"

Rem Show the sprite at 100,100
 	sprite 1,X,Y,1
 
 //change goal position 
 if mouseclick()=1
 	xdest=mousex()
 	ydest=mousey()
  endif
  	
  //move hero towards the goal
 angle = atanfull(ydest-y,xdest-x)
 x= x+speed*cos(angle)
 y=y+speed*sin(angle)

 
 //"draw" hero and goal
 Rem text x,y,"H"
 //text xdest,ydest,"G"
  Sync
loop

end

sync on
sync rate 30


//Initial coordinates
//hero
x as float=100.0
y as float=100.0
speed as float=3.0

//Goal
xdest as float =450.0
ydest as float =300.0

//aux var
angle as float

Rem Load the sprite sheet into an animated sprite
create animated sprite 1,"TargWR1.png",4,1,1
mc = 0
WalkR:
disable escapekey
do
  if mc = 0 then text 0,0,"Click where you want to go"

  Rem Show the sprite at 100,100
  sprite 1,X,Y,1
  
  //change goal position
  if mouseclick()=1 and mc = 0
    mc = 1
    xdest=mousex()
    ydest=mousey()
    play sprite 1,1,4,50
  endif

  if abs(x - xdest) < speed and abs(y - ydest) < speed and mc = 1
   time = timer() + 1000
   repeat
     text 100,200,"You are there"
     sync
   until timer() > time
   mc = 0
  else
    if mc = 1
      //move hero towards the goal
      angle = atanfull(ydest - y,xdest - x)
      x = x + speed * cos(angle)
      y = y + speed * sin(angle)
    endif
  endif

  //"draw" hero and goal
  Rem text x,y,"H"
  //text xdest,ydest,"G"
  Sync
  if keystate(1) = 1 then exit
loop
delete sprite 1
end

sync on
sync rate 30

Rem Load the sprite sheet into an animated sprite
create animated sprite 1,"TargWR1.png",4,1,1
Load Image "LeftRightCont1.png",5
mrspriteX=200
mrspriteY=200
mx = MouseX()
my = MouseY(

Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  Gosub WalkR
  Sync
Loop
End

WalkR:

Rem Show the sprite at 200,200
 sprite 1,mrspriteX,mrspriteY,1

Rem Load Buttons
 sprite 5,5,5,5

Rem Play the sprite 4 frames at a rate of 200
Rem play sprite 1,1,4,200
 
Rem Check Area Of Button Left
    If Mx > 0 and My > 0 And Mx < 18 And My < 17
    	If Mc=1 then mrspriteX=mrspriteX-20
    		play sprite 1,1,4,200
    Else mrspriteX=mrspriteX + 0

Rem Check Area Of Button Right    
    If Mx > 22 and My > 0 And Mx < 36 And My < 17
    	If Mc=1 then mrspriteX=mrspriteX+20
    		play sprite 1,1,4,200
    Else mrspriteX=mrspriteX + 0
			
 Sync

endif
endif
Return