Sorry your browser is not supported!

// ****************************************************************
// ****************************************************************
// Title	:		4 Directional Movement
// Version	:		0.1.0
// Created	:		Wayne Rayner 
// ****************************************************************
// ****************************************************************

// Set the FPS of the game
SetSyncRate(60,0)

// ****************************************************************
// ****************************************************************
// 						SET UP CONSTANTS
// ****************************************************************
// ****************************************************************

// Set Key Press Constants
#constant keyLeft 		= GetRawKeyState (37)
#constant keyRight 		= GetRawKeyState (39)
#constant keyUp 		= GetRawKeyState (38)
#constant keyDown 		= GetRawKeyState (40)
#constant keyEsc 		= GetRawKeyState (27)

// Set boolean Constants

// Set Display Constants
#constant windowWidth = 1024
#constant windowHeight = 768
#constant displayCentreX 	= 1024 * 0.5
#constant displayCentreY 	= 768 * 0.5
#constant blockSize 		= 64

// blockSize is the size of a sqaure tile that makes a level

// ****************************************************************
// ****************************************************************
// 						SET UP ALL TYPE SETTINGS
// ****************************************************************
// ****************************************************************

Type playerType			
	MovementSpeed as integer			// create MovementSpeed as varaible
	depth as integer				// Player depth value which will be set to zero so it is always in front of other sprites
	ID as integer
	x as integer
	y as integer
EndType

global player as playerType

player.MovementSpeed		= 2 	// Set movement speed
player.depth				= 0		// Set player depth to be on top of other sprites
player.x                    = 512	// set x position for player
player.y 					= 380	// set y position for player

// ****************************************************************
// ****************************************************************
// 				SET UP THE MAIN SCREEN
// ****************************************************************
// ****************************************************************

SetWindowTitle( "4 Directional Movement" )
SetVirtualResolution( windowWidth, windowHeight )
SetWindowSize( windowWidth, windowHeight, 0 )
SetWindowPosition( 0, 0 )

// ****************************************************************
// ****************************************************************
// 					INITIATE FUNCTION CALLS
// ****************************************************************
// ****************************************************************

createPlayer()

// ****************************************************************
// ****************************************************************
// 						MAIN GAME LOOP
// ****************************************************************
// ****************************************************************

do
	
	SetSpritePosition( player.ID, player.x, player.y )
	if keyEsc				// Quite the game after deleting all sprites
		DeleteAllSprites()
		DeleteAllImages()
		End
	endif
	
	// call the playerMovement Function
	playerMovement()
	
	// These if statements check to see if multiple direction keys are pressed at the same time
	if keyLeft and keyUp
		// we call stop moving as we only want 4 directional movement and not 8 
		stopMoving()
	endif
	if keyLeft and keyDown
		stopMoving()
	endif
	if keyRight and keyUp
		stopMoving()
	endif
	if keyRight and keyDown
		stopMoving()
	endif
	
	sync ()
loop

Function createPlayer()

	// Here we create the player sprite, set it's size and colour of RED
	// Set it's depth and position it on screen.
	// The screen position was set with the map data and the character "&" in that data,
	// this can be done using a map editor then and also things like coins, eggs and enemy
	// positions can be set easily this way.
	// If you look in the text level data you will see "&" somewhere
	
	player.ID = CreateSprite(0)

	SetSpriteSize(player.ID, blockSize * 0.5, blockSize)
	SetSpriteColor(player.ID, 255, 0, 0, 255)
	SetSpritePosition( player.ID, player.x, player.y )
	SetSpriteOffset(player.ID, GetSpriteWidth(player.ID)/2, GetSpriteHeight(player.ID)/2)
	SetSpriteDepth(player.ID, player.depth)

EndFunction

Function stopMoving()
	
	// Here we set the movement speed to 0 to make the character not move
	
	player.MovementSpeed = 0
	
EndFunction

Function playerMovement()
	
	// we make the player move by adding or subtracting movement speed from the player.x or player.y position
	if keyLeft
		player.x = player.x - player.MovementSpeed
	endif
	if keyRight
		player.x = player.x + player.MovementSpeed
	endif
	if keyUp
		player.y = player.y - player.MovementSpeed
	endif
	if keyDown
		player.y = player.y + player.MovementSpeed
	endif
	
	// we set the movement speed to 2 to make sure movement speed returns to 2 after the stopMoving function has been called
	player.MovementSpeed = 2
	
	
EndFunction

Function playerMovement()
     
    // we make the player move by adding or subtracting movement speed from the player.x or player.y position
    if keyLeft and not keyRight and not keyUp and not keyDown
        player.x = player.x - player.MovementSpeed
    endif
    if keyRight and not keyLeft and not keyUp and not keyDown
        player.x = player.x + player.MovementSpeed
    endif
    if keyUp and not keyLeft and not keyRight and not keyDown
        player.y = player.y - player.MovementSpeed
    endif
    if keyDown and not keyLeft and not keyRight and not keyUp
        player.y = player.y + player.MovementSpeed
    endif
     
    // we set the movement speed to 2 to make sure movement speed returns to 2 after the stopMoving function has been called
    player.MovementSpeed = 2
     
     
EndFunction

// Set the FPS of the game
SetSyncRate(60,0)
 
// ****************************************************************
// ****************************************************************
//                      SET UP CONSTANTS
// ****************************************************************
// ****************************************************************
 
// Set Key Press Constants
#constant keyLeft       = GetRawKeyState (37)
#constant keyRight      = GetRawKeyState (39)
#constant keyUp         = GetRawKeyState (38)
#constant keyDown       = GetRawKeyState (40)
#constant keyEsc        = GetRawKeyState (27)
 
// Set boolean Constants
 
// Set Display Constants
#constant windowWidth = 1024
#constant windowHeight = 768
#constant displayCentreX    = 1024 * 0.5
#constant displayCentreY    = 768 * 0.5
#constant blockSize         = 64
 
// blockSize is the size of a sqaure tile that makes a level
 
// ****************************************************************
// ****************************************************************
//                      SET UP ALL TYPE SETTINGS
// ****************************************************************
// ****************************************************************
 
Type playerType         
    MovementSpeed as integer            // create MovementSpeed as varaible
    depth as integer                // Player depth value which will be set to zero so it is always in front of other sprites
    ID as integer
    x as integer
    y as integer
EndType
 
global player as playerType
 
player.MovementSpeed        = 2     // Set movement speed
player.depth                = 0     // Set player depth to be on top of other sprites
player.x                    = 512   // set x position for player
player.y                    = 380   // set y position for player

// ****************************************************************
// ****************************************************************
//                      SET UP GLOBALS
// ****************************************************************
// ****************************************************************

global firstDirection as integer
 
// ****************************************************************
// ****************************************************************
//              SET UP THE MAIN SCREEN
// ****************************************************************
// ****************************************************************
 
SetWindowTitle( "4 Directional Movement" )
SetVirtualResolution( windowWidth, windowHeight )
SetWindowSize( windowWidth, windowHeight, 0 )
SetWindowPosition( 0, 0 )
 
// ****************************************************************
// ****************************************************************
//                  INITIATE FUNCTION CALLS
// ****************************************************************
// ****************************************************************
 
createPlayer()
 
// ****************************************************************
// ****************************************************************
//                      MAIN GAME LOOP
// ****************************************************************
// ****************************************************************
 
do
     
    SetSpritePosition( player.ID, player.x, player.y )
    if keyEsc               // Quite the game after deleting all sprites
        DeleteAllSprites()
        DeleteAllImages()
        End
    endif
     
    // call the playerMovement Function
    playerMovement()
     
    // These if statements check to see if multiple direction keys are pressed at the same time
    if keyLeft and keyUp
        // we call stop moving as we only want 4 directional movement and not 8 
        //stopMoving()
    endif
    if keyLeft and keyDown
        //stopMoving()
    endif
    if keyRight and keyUp
        //stopMoving()
    endif
    if keyRight and keyDown
        //stopMoving()
    endif
     
    sync ()
loop
 
Function createPlayer()
 
    // Here we create the player sprite, set it's size and colour of RED
    // Set it's depth and position it on screen.
    // The screen position was set with the map data and the character "&" in that data,
    // this can be done using a map editor then and also things like coins, eggs and enemy
    // positions can be set easily this way.
    // If you look in the text level data you will see "&" somewhere
     
    player.ID = CreateSprite(0)
 
    SetSpriteSize(player.ID, blockSize * 0.5, blockSize)
    SetSpriteColor(player.ID, 255, 0, 0, 255)
    SetSpritePosition( player.ID, player.x, player.y )
    SetSpriteOffset(player.ID, GetSpriteWidth(player.ID)/2, GetSpriteHeight(player.ID)/2)
    SetSpriteDepth(player.ID, player.depth)
 
EndFunction
 
Function stopMoving()
     
    // Here we set the movement speed to 0 to make the character not move
     
    player.MovementSpeed = 0
     
EndFunction
 
Function playerMovement()
      
    // we make the player move by adding or subtracting movement speed from the player.x or player.y position
    if keyLeft and firstDirection <> 1
		if not keyRight and not keyUp and not keyDown
			firstDirection = 1
		endif
    endif
    if keyRight and firstDirection <> 2
		if not keyLeft and not keyUp and not keyDown
			firstDirection = 2
		endif
    endif
    if keyUp and firstDirection <> 3
		if not keyLeft and not keyRight and not keyDown
			firstDirection = 3
		endif
    endif
    if keyDown and firstDirection <> 4
		if not keyLeft and not keyRight and not keyUp
			firstDirection = 4
		endif
    endif

    if not keyLeft and not keyRight and not keyUp and not keyDown then firstDirection = 0

    // we set the movement speed to 2 to make sure movement speed returns to 2 after the stopMoving function has been called
    player.MovementSpeed = 2

    if firstDirection = 1 then player.x = player.x - player.MovementSpeed
    if firstDirection = 2 then player.x = player.x + player.MovementSpeed
	if firstDirection = 3 then player.y = player.y - player.MovementSpeed
	if firstDirection = 4 then player.y = player.y + player.MovementSpeed      
      
EndFunction

// Set the FPS of the game
SetSyncRate(60,0)
 
// ****************************************************************
// ****************************************************************
//                      SET UP CONSTANTS
// ****************************************************************
// ****************************************************************
 
// Set Key Press Constants
#constant keyLeft       = GetRawKeyState (37)
#constant keyRight      = GetRawKeyState (39)
#constant keyUp         = GetRawKeyState (38)
#constant keyDown       = GetRawKeyState (40)
#constant keyEsc        = GetRawKeyState (27)
 
// Set boolean Constants
 
// Set Display Constants
#constant windowWidth = 1024
#constant windowHeight = 768
#constant displayCentreX    = 1024 * 0.5
#constant displayCentreY    = 768 * 0.5
#constant blockSize         = 64
 
// blockSize is the size of a sqaure tile that makes a level
 
// ****************************************************************
// ****************************************************************
//                      SET UP ALL TYPE SETTINGS
// ****************************************************************
// ****************************************************************
 
Type playerType         
    MovementSpeed as integer            // create MovementSpeed as varaible
    depth as integer                // Player depth value which will be set to zero so it is always in front of other sprites
    ID as integer
    x as integer
    y as integer
EndType
 
global player as playerType
 
player.MovementSpeed        = 2     // Set movement speed
player.depth                = 0     // Set player depth to be on top of other sprites
player.x                    = 512   // set x position for player
player.y                    = 380   // set y position for player

// ****************************************************************
// ****************************************************************
//                      SET UP GLOBALS
// ****************************************************************
// ****************************************************************

global lastDirection as integer
global keyLeftSinglePress as integer
global keyRightSinglePress as integer
global keyUpSinglePress as integer
global keyDownSinglePress as integer
 
// ****************************************************************
// ****************************************************************
//              SET UP THE MAIN SCREEN
// ****************************************************************
// ****************************************************************
 
SetWindowTitle( "4 Directional Movement" )
SetVirtualResolution( windowWidth, windowHeight )
SetWindowSize( windowWidth, windowHeight, 0 )
SetWindowPosition( 0, 0 )
 
// ****************************************************************
// ****************************************************************
//                  INITIATE FUNCTION CALLS
// ****************************************************************
// ****************************************************************
 
createPlayer()
 
// ****************************************************************
// ****************************************************************
//                      MAIN GAME LOOP
// ****************************************************************
// ****************************************************************
 
do
     
    SetSpritePosition( player.ID, player.x, player.y )
    if keyEsc               // Quite the game after deleting all sprites
        DeleteAllSprites()
        DeleteAllImages()
        End
    endif
     
    // call the playerMovement Function
    playerMovement()
     
    // These if statements check to see if multiple direction keys are pressed at the same time
    if keyLeft and keyUp
        // we call stop moving as we only want 4 directional movement and not 8 
        //stopMoving()
    endif
    if keyLeft and keyDown
        //stopMoving()
    endif
    if keyRight and keyUp
        //stopMoving()
    endif
    if keyRight and keyDown
        //stopMoving()
    endif

    sync ()
loop
 
Function createPlayer()
 
    // Here we create the player sprite, set it's size and colour of RED
    // Set it's depth and position it on screen.
    // The screen position was set with the map data and the character "&" in that data,
    // this can be done using a map editor then and also things like coins, eggs and enemy
    // positions can be set easily this way.
    // If you look in the text level data you will see "&" somewhere
     
    player.ID = CreateSprite(0)
 
    SetSpriteSize(player.ID, blockSize * 0.5, blockSize)
    SetSpriteColor(player.ID, 255, 0, 0, 255)
    SetSpritePosition( player.ID, player.x, player.y )
    SetSpriteOffset(player.ID, GetSpriteWidth(player.ID)/2, GetSpriteHeight(player.ID)/2)
    SetSpriteDepth(player.ID, player.depth)
 
EndFunction
 
Function stopMoving()
     
    // Here we set the movement speed to 0 to make the character not move
     
    player.MovementSpeed = 0
     
EndFunction
 
Function playerMovement()
      
    // we make the player move by adding or subtracting movement speed from the player.x or player.y position
    if keyLeft and lastDirection <> 1 and keyLeftSinglePress = 0 or keyLeft and not keyRight and not keyUp and not keyDown
		keyLeftSinglePress = 1
		lastDirection = 1
    endif
    if keyRight and lastDirection <> 2 and keyRightSinglePress = 0 or not keyLeft and keyRight and not keyUp and not keyDown
		keyRightSinglePress = 1
		lastDirection = 2
    endif
    if keyUp and lastDirection <> 3 and keyUpSinglePress = 0 or not keyLeft and not keyRight and keyUp and not keyDown
		keyUpSinglePress = 1
		lastDirection = 3
    endif
    if keyDown and lastDirection <> 4 and keyDownSinglePress = 0 or not keyLeft and not keyRight and not keyUp and keyDown
		keyDownSinglePress = 1
		lastDirection = 4
    endif

    if not keyLeft and not keyRight and not keyUp and not keyDown then lastDirection = 0
    
    if not keyLeft then keyLeftSinglePress = 0
    if not keyRight then keyRightSinglePress = 0
    if not keyUp then keyUpSinglePress = 0
    if not keyDown then keyDownSinglePress = 0

    // we set the movement speed to 2 to make sure movement speed returns to 2 after the stopMoving function has been called
    player.MovementSpeed = 2

    if lastDirection = 1 then player.x = player.x - player.MovementSpeed
    if lastDirection = 2 then player.x = player.x + player.MovementSpeed
	if lastDirection = 3 then player.y = player.y - player.MovementSpeed
	if lastDirection = 4 then player.y = player.y + player.MovementSpeed      
      
EndFunction

// ****************************************************************
// ****************************************************************
// Title	:		4 Directional Movement (main.agc)
// Version	:		0.1.0
// Created	:		Wayne Rayner (aka DaRealWAZY)
// ****************************************************************
// ****************************************************************


// include any addition files
#include "initialise.agc"
#include "playerMovement.agc"

// call Initialise function
Initialise()

do
    playerMovement()


    Sync()
loop

/* File Name: 	initialise.agc

   Description:	Initialise everything!
				Set the screen dimensions, set the sync rate, load atlas textures and fonts etc.
				Anything that needs an initial value can get set here..
  */


 // Create two booleans that give the values 0 and 1 real names (TRUE and FALSE)
#constant TRUE 1
#constant FALSE 0


global displayWidth as integer
global displayHeight as integer
//global atlas as integer


function Initialise()	
	displayWidth = 1280
	displayHeight = 720
	
	// show all errors
	SetErrorMode(2)

	// set window properties
	SetWindowTitle( "BattleMonsters" )
	SetWindowSize( displayWidth, displayHeight, 0 )

	// set display properties
	SetVirtualResolution( displayWidth, displayHeight )
	SetOrientationAllowed( 0, 0, 1, 1 ) // Landscape mode only
	SetSyncRate( 30, 0 ) // Lock the game to 30 frames per second
	//LoadFont(1, "Animated.ttf") //Load a font to use for the display. This is a TTF font that is stored in the media folder
	
	//atlas = LoadImage("atlas.png") 	// Load an atlas image ready for cutting up
	
	//Call the initialse functions in each file
	createPlayer()

endfunction

/* File Name: 	playerMovement.agc

   Description:	Make a character move this will be the code for 4 directional movement (for now will also store player data here but later on that will be moved
  */

// ****************************************************************
// ****************************************************************
// 						SET UP CONSTANTS
// ****************************************************************
// ****************************************************************

// Set Key Press Constants
#constant keyLeft 		= GetRawKeyState (37)
#constant keyRight 		= GetRawKeyState (39)
#constant keyUp 		= GetRawKeyState (38)
#constant keyDown 		= GetRawKeyState (40)
#constant keyEsc 		= GetRawKeyState (27)


// ****************************************************************
// ****************************************************************
// 						SET UP ALL TYPE SETTINGS
// ****************************************************************
// ****************************************************************

Type playerType			
	MovementSpeed as integer			// create MovementSpeed as varaible
	depth as integer				// Player depth value which will be set to zero so it is always in front of other sprites
	ID as integer
	x as integer
	y as integer
EndType

global player as playerType




// ****************************************************************
// ****************************************************************
//                      SET UP GLOBALS
// ****************************************************************
// ****************************************************************
 
global firstDirection as integer

Function createPlayer()

	// Here we create the player sprite, set it's size and colour of RED
	// Set it's depth and position it on screen.
	// The screen position was set with the map data and the character "&" in that data,
	// this can be done using a map editor then and also things like coins, eggs and enemy
	// positions can be set easily this way.
	// If you look in the text level data you will see "&" somewhere
	
	player.ID = CreateSprite(0)

	SetSpriteSize(player.ID, 32, 32)
	SetSpriteColor(player.ID, 255, 0, 0, 255)
	SetSpritePosition( player.ID, player.x, player.y )
	SetSpriteOffset(player.ID, GetSpriteWidth(player.ID)/2, GetSpriteHeight(player.ID)/2)
	SetSpriteDepth(player.ID, player.depth)
	player.depth				= 0		// Set player depth to be on top of other sprites
	player.x                    = 700	// set x position for player
	player.y 					= 300	// set y position for player

EndFunction



Function playerMovement()
    player.MovementSpeed = 10 
    SetSpritePosition( player.ID, player.x, player.y )  
    // we make the player move by adding or subtracting movement speed from the player.x or player.y position
    if keyLeft and firstDirection <> 1
        if not keyRight and not keyUp and not keyDown
            firstDirection = 1
        endif
    endif
    if keyRight and firstDirection <> 2
        if not keyLeft and not keyUp and not keyDown
            firstDirection = 2
        endif
    endif
    if keyUp and firstDirection <> 3
        if not keyLeft and not keyRight and not keyDown
            firstDirection = 3
        endif
    endif
    if keyDown and firstDirection <> 4
        if not keyLeft and not keyRight and not keyUp
            firstDirection = 4
        endif
    endif
 
    if not keyLeft and not keyRight and not keyUp and not keyDown then firstDirection = 0
 
    // we set the movement speed to 2 to make sure movement speed returns to 2 after the stopMoving function has been called
    
 
    if firstDirection = 1 then player.x = player.x - player.MovementSpeed
    if firstDirection = 2 then player.x = player.x + player.MovementSpeed
    if firstDirection = 3 then player.y = player.y - player.MovementSpeed
    if firstDirection = 4 then player.y = player.y + player.MovementSpeed      
       
EndFunction

if keyLeft
        player.x = player.x - player.MovementSpeed
    elseif keyRight
        player.x = player.x + player.MovementSpeed
    elseif  keyUp
        player.y = player.y - player.MovementSpeed
    elseif keyDown
        player.y = player.y + player.MovementSpeed
    endif

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "move in one axis only" )
SetWindowSize( 1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery


// create a sprite to move around
CreateSprite(1,0)
SetSpriteSize(1,50,50)

// speed and initial position
speed# = 5.0
xpos# = 1024/2
ypos# = 768/2


do

	// using this method if both left and right are pressed the input is zero (same for up and down keys)
	input_move_x = GetRawKeyState(39) - GetRawKeyState(37)
	input_move_y = GetRawKeyState(40) - GetRawKeyState(38)

	// multiply the two input together.
	// if no keys or only one key is pressed then the answer equals zero
	if input_move_x * input_move_y = 0

		// if at least one key is pressed then sprite will move
		// if neither key is pressed then input_move_x*speed# = 0 and  input_move_y*speed# = 0 so the sprite does not move

		xpos# = xpos# + input_move_x*speed#
		ypos# = ypos# + input_move_y*speed#

	endif

	SetSpritePositionByOffset(1,xpos#,ypos#)

	print("use arrow keys to move")

    Sync()
loop

#constant LeftPress 37
#constant RightPress 39
#constant UpPress 38
#constant DownPress 40
global LastKey

do
	// set current movement key
	if not LastKey
		if GetRawKeyState(LeftPress)
			LastKey=LeftPress
		elseif GetRawKeyState(RightPress)
			LastKey=RightPress
		elseif GetRawKeyState(UpPress)
			LastKey=UpPress
		elseif GetRawKeyState(DownPress)
			LastKey=DownPress
		endif
	endif
	
	// clear movement key
	if LastKey>0 and GetRawKeyReleased(LastKey)
		LastKey=0
	endif
	
	// check last key press
	Select LastKey
		Case LeftPress
			print("move left")
		EndCase
		Case RightPress
			print("move right")
		EndCase
		Case UpPress
			print("move up")
		EndCase
		Case DownPress
			print("move down")
		EndCase
		Case Default
			print("dont move")
		EndCase
	EndSelect
	
    Print( ScreenFPS() )
    Sync()
loop