Sorry your browser is not supported!

// Project: PlatTest
// Created: 2018-03-04
// Amon - Imagination Engineer

// show all errors
SetErrorMode(2)


Global DeviceWidth
Global DeviceHeight




DeviceWidth = GetDeviceWidth()
DeviceHeight = GetDeviceHeight()


SetFolder( "/media" )
// set window properties
SetWindowTitle( "PlatTest" )
SetWindowSize( DeviceWidth, DeviceHeight, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window


// set display properties
SetVirtualResolution( 512, 960 ) // doesn't have to match the window
SetOrientationAllowed( 1, 0, 0, 0 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


#include "Constants.agc"


Global GreyPlat
Global imgDude


GreyPlat = LoadImage("grey.png")
imgDude = LoadImage("dude.png")


Type Dude
	id as integer
	x as float
	y as float
	speed as float
	jumpHeight as float
	gravity as float
	isJumping as integer
	canJump as integer
	isFalling as integer
EndType


Global DudeList as Dude[]


type Plat
	id as integer
	x as float
	y as float
EndType


Global PlatList as Plat[]






Global GameArray as integer [8,12]


file = OpenToRead("level1.txt")
level$ =  ReadLine(file)
CloseFile(file)


local X = 0
local y = 0


For iter=1 to Len(level$)
	if x = 8
		x = 0
		y = y + 1
	endif
	GameArray[x,y] = val((Mid(level$, iter, 1)))
	x = x + 1
next


for xi = 0 to 8
	for yi = 0 to 12
		if GameArray[xi,yi] = 1
			local p as Plat
			p.x = xi * 64
			p.y = yi * 64
			GreyPlatSprite = CreateSprite(GreyPlat)
			SetSpritePosition(GreyPlatSprite, p.x, p.y)
			PlatList.insert(p)
		endif
		if GameArray[xi,yi] = 2
			local d as Dude
			d.x = xi * 64
			d.y = yi * 64
			d.canJump = 1
			d.isFalling = 0
			d.isJumping = 0
			d.jumpHeight = 8.0
			d.gravity = 0.25
			DudeSprite = CreateSprite(imgDude)
			SetSpritePosition(DudeSprite, d.x, d.y)
			DudeList.insert(d)
		endif
	next
next




do

	if GetRawKeyState(KEY_RIGHT) = 1
		d.x = d.x + 6.1
	endif
	if GetRawKeyState(KEY_LEFT) = 1
		d.x = d.x- 6.1
	endif
	if GetRawKeyState(KEY_SPACE) = 1 and d.canJump = 1
		d.isJumping = 1
		d.canJump = 0
	endif
	If d.isJumping = 1
		d.y = d.y - d.jumpHeight
		d.jumpHeight = d.jumpHeight - d.gravity
		If d.jumpHeight <0
			d.isFalling = 1
			d.isJumping = 0
			d.jumpHeight = 8.0
		Endif
	Endif


	if d.isFalling = 1
		d.canJump = 0
		d.y = d.y + d.jumpHeight
		d.jumpHeight = d.jumpHeight + d.gravity
		If GameArray[ floor(d.x) / 64 , floor(d.y) / 64 + 1] = 1
			If  mod(d.y, 64) < d.jumpHeight * 2.0
				d.y = d.y - Mod(d.y,64)
				d.isFalling = 0
				d.canJump = 1
				d.jumpHeight = 8.0
			Endif
		Endif
	Endif


	If d.isFalling = 0 And d.isJumping = 0
		If GameArray[floor(d.x) / 64, floor(d.y) / 64 + 1 ] = 0
			d.isFalling = 1
			d.canJump = 0
		Endif
	Endif

	SetSpritePosition(DudeSprite, d.x, d.y)
    Print( ScreenFPS() )
    Sync()
loop