Sorry your browser is not supported!

Function PlayerMovement()
	
	Rem Save and update the X and Y positions of the player sprite.
	Player.X = Sprite X(Player.SpriteNumber)
	Player.Y = Sprite Y(Player.SpriteNumber)
	
	Rem Save and update the mouse X and Y position.
	MouseX#=MouseX()
	MouseY#=MouseY()
	
	Rem Calculate the angle difference between the player and the mouse.
	Angle# = Atanfull(Player.X - MouseX# , Player.Y - MouseY#)
	
	Rem Calculate the distance between the player and mouse position.
	Distance_To_Mouse# = ((Player.X - MouseX#)^2+(Player.Y -MouseY#)^2)
	
	Rem Rotate the player sprite, it's always facing the (mouse)cursor.
	Rotate sprite Player.Spritenumber,-Angle#

	Rem Print the distance variable to the screen.
	Print "Distance to mouse ";Distance_To_Mouse#
		
	Rem When "W" is pressed we move the player forwards.	
	If Keys(17,0) = 1
		Player.X = NewXvalue2D(Player.X,Angle#,-Player.Speed)
		Player.Y = NewYvalue2D(Player.Y,Angle#,-Player.Speed)
	endif
	
	Rem When "S" is pressed we move the player backwards.
	If Keys(31,0) = 1
		Player.X = NewXValue2D(Player.X,Angle#,Player.Speed)
		Player.Y = NewYValue2D(Player.Y,Angle#,Player.Speed)
	Endif

EndFunction

If Keys(30,0) = 1
NewAngle# = Angle#
Player.X = etc..
Endif

Function NewXValue2D(X, Angle, MoveSpeed)
	X = X + sin(Angle)*MoveSpeed
EndFunction X

Function NewYValue2D(Y, Angle, MoveSpeed)
	Y = Y + cos(Angle)*MoveSpeed
EndFunction Y

Function UpdateKeystate()
    For x = 1 to 88
    	Rem - If we press a key.
        If Keystate(x)=1
            If KeyS(x,0)=0
                KeyS(x,1)=1
                KeyS(x,0)=1
             else
                KeyS(x,1)=0
            Endif
         else
            KeyS(x,0)=0
        Endif
    Next x       
Endfunction

x# = 200
y# = 200

sync on
sync rate 60
do
    cls
    
    
    
    rem move toward the mouse
    if upkey()
        a# = atanfull(x#-mousex(), y#-mousey())
        x# = x# + sin(a#)*-5
        y# = y# + cos(a#)*-5
    endif
    rem move away from the mouse
    if downkey()
        a# = atanfull(x#-mousex(), y#-mousey())
        x# = x# + sin(a#)*5
        y# = y# + cos(a#)*5
    endif
    
    rem strafe right
    if rightkey()
        x# = x# + sin(a#+90)*-5
        y# = y# + cos(a#+90)*-5
    endif
    rem strafe left
    if leftkey()
        x# = x# + sin(a#+90)*5
        y# = y# + cos(a#+90)*5
    endif    
    
    
    
    drawChar(x#, y#,a#)
    
    
    sync
loop



rem ignore the math here, it just draws an arrow
rem for sake of demonstration purposes.
function drawChar(x, y, a#)
    a# = wrapvalue(a#+90)
    for i = 0 to 2
        x1 = x + sin(a#+i*90)*20
        y1 = y + cos(a#+i*90)*20
        j = i+1
        if i=2 then j=0
        x2 = x + sin(a#+j*90)*20
        y2 = y + cos(a#+j*90)*20
        line x1, y1, x2, y2
    next i
    line x, y, x+sin(a#-90)*40, y+cos(a#-90)*40
endfunction