Sorry your browser is not supported!

Sync on
Sync rate 30


Rem Initial coordinates
Rem Player
x as float=100.0
y as float=100.0
speed as float=3.0

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

Rem aux var
angle as float

Rem Load the sprite sheet into an animated sprite
create animated sprite 1,"OgreWALK01.png",8,8,1

mc = 0

WalkR:
disable escapekey
do
  Rem 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
  
  Rem play sprite 1,3,3,100
  
  Rem change goal position
  if mouseclick()=1 and mc = 0
    mc = 1
    xdest=mousex()
    ydest=mousey()
  
  endif

  if abs(x - xdest) < speed and abs(y - ydest) < speed and mc = 1
     time = timer() + 1000
   repeat
     Rem text 100,200,"You are there"
     sync
   until timer() > time
   mc = 0
  else
    if mc = 1
    
      Rem Play Correct Animation For Direction Traveling
      if xdest >= x and ydest = y then play sprite 1,1,8,100 // Sprite Left
      if xdest <= x and ydest = y then play sprite 1,57,64,100 // Sprite Right
      if xdest <= x and ydest > y then play sprite 1,16,24,100 // Sprite Up Right
      if xdest <= x and ydest > y then play sprite 1,25,32,100 // Sprite Up Left
      if ydest >= y and xdest = x then play sprite 1,33,40,100 // Sprite up
      if ydest <= y and xdest = x then play sprite 1,9,16,100 // Sprite Down
      if ydest <= y and xdest < x then play sprite 1,41,48,100 // Sprite Down Right
      if ydest <= y and xdest > x then play sprite 1,51,56,100 // Sprite Down Left
     
      Rem Move Palyer Towards Mouse (X,Y)
      angle = atanfull(ydest - y,xdest - x)
      x = x + speed * cos(angle)
      y = y + speed * sin(angle)
    endif
  endif
  Sync
  if keystate(1) = 1 then exit
loop
delete sprite 1
end

Sync on
Sync rate 60

Initialize:
	Rem Initial coordinates
	Rem Player
	x as float = 100.0
	y as float = 100.0
	speed as float = 1.0
	
	Rem Goal
	xdest as float = 450.0
	ydest as float = 300.0
	
	Rem aux var
	angle as float
	
	Rem Load the sprite sheet into an animated sprite
	create animated sprite 1,"OgreWALK01.png",8,8,1

	REM Added
	MoveX as float
	MoveY as float
	Frame as float
	Direct as integer
	AnimationSpeed as float = 0.1

do
	`Setting up subroutines makes it easier to track down.
	gosub Displays
	gosub Controls
	`Shows which direction the character is facing.
	text 0,0,"Direct: "+str$(Direct)
	sync
	cls
loop

	`Also easier to track if you indent your codes.
	Displays:
		sprite 1,X-48,Y-48,1
	return

	`Naming lots of subroutine also helps keep things easier to follow.
	Controls:
		gosub MouseHandle
    	gosub PlayerHandle
	return
	
		MouseHandle:
			mc = mouseclick()
			mx = mousex()
			my = mousey()
			
			if mc
				GoalX = mx
				GoalY = my
				angle = atanfull(GoalY - Y,GoalX - X)
				MoveX = speed * cos(angle)
				MoveY = speed * sin(angle)
				`Finding the Direction in 8 ways.
				`These values are like this because the way your sprite sheet is setup.
				a = int(angle)/40
				if a = 0 then Direct = 0
				if a = -2 then Direct = 1
				if a = -1 then Direct = 2
				if a = -3 then Direct = 3
				if a = 2 then Direct = 4
				if a = 1 then Direct = 5
				if a = 3 then Direct = 6
				if a = 4 then Direct = 7
    		endif
		return
		
		PlayerHandle:
			`Only run this if the Character is set to Move with these value.
			if MoveX or MoveY
				inc X,MoveX
				inc Y,MoveY
				`Frame is the variable to keep track of animation frame.
				inc Frame,AnimationSpeed
				if Frame => 8-AnimationSpeed then Frame = 0
				`Check the distance difference between the 2 x and y values and null if
				`you reach the goal. We check them both seperately because at times one
				`may reach near the goal befor the other do.
				if (x-GoalX)*(x-GoalX) < 10 then MoveX = 0
				if (y-GoalY)*(y-GoalY) < 10 then MoveY = 0
			endif
			`Setting th proper image frame for the sprite, Direct*8 because there
			`are 8 frames in each direction. This should be easy to figure out.
			set sprite frame 1,1+Direct*8+Frame
		return