Sorry your browser is not supported!

#include 'Keycodes.agc'
#include 'Functions.agc'
LoadImage(001, "meh.jpg")
CreateSprite(001, 1)
SetSpriteSize(001, 100, 100)
Playerx = GetScreenWidthCenter(1280) // a function that gets the center of the screen
Playery = GetScreenHeightCenter(720) // the same function
do
  SetSpritePosition(1, Playerx, Playery)
  Move(Key_Right, 'Right', 10, Playerx, Playery)
  Sync()
loop

#Constant Key_Escape 27 // Tecla de escape
#Constant Key_Right 39 // Tecla de flecha derecha
#Constant Key_Left 37 // Tecla de Flecha izquierda
#Constant Key_Up 38 // Tecla de Flecha arriba
#Constant Key_Down 40 // Tecla de flecha abajo
#Constant Key_Z 90 // Tecla Z
#Constant Key_Shift 16 // Tecla Shift
#Constant Key_X 88 // Tecla X

#include 'Keycodes.agc'

function Move(Key, Direction as String, Speed, SpriteX, SpriteY)
	if GetRawKeyState(Key)
		if Direction = 'Left'
			SpriteX = SpriteX - (Speed * (GetFrameTime() * 10))
		elseif Direction = 'Right'
			SpriteX = SpriteX + (Speed * (GetFrameTime() * 10))
		elseif Direction = 'Up'
			SpriteY = SpriteY - (Speed * (GetFrameTime() * 10))
		else
			SpriteY = SpriteY + (Speed * (GetFrameTime() * 10))
		endif
	endif
endfunction

// user-defined type to hold player data, can be passed by reference to functions
type tPlayer
  MoveSpeed as float
  KeyMoveLeft as integer
  KeyMoveRight as integer
  KeyMoveUp as integer
  KeyMoveDown as integer
  X as float
  Y as float
  Img as integer
  Spr as integer
endtype

// setup player
Player as tPlayer
Player.Img = LoadImage("meh.jpg")
Player.Spr = CreateSprite(Player.Img)
Player.MoveSpeed = 2.0
Player.KeyMoveUp = Key_Up
Player.KeyMoveDown = Key_Down
Player.KeyMoveRight = Key_Right
Player.KeyMoveLeft = Key_Left
Player.X = GetVirtualWidth() / 2
Player.Y = GetVirtualHeight() / 2

do
  MovePlayer(Player)
  Sync()
loop

// move the player with the arrow keys
function MovePlayer(p ref as tPlayer)
  xVelocity = (GetRawKeyState(p.KeyMoveRight) - GetRawKeyState(p.KeyMoveLeft)) * p.MoveSpeed
  yVelocity = (GetRawKeyState(p.KeyMoveDown) - GetRawKeyState(p.KeyMoveUp)) * p.MoveSpeed
  p.X = p.X + xVelocity
  p.Y = p.Y + yVelocity
  SetSpritePosition(p.Spr, p.X, p.Y)
endfunction