// Project: Sprite Sheet Test 
// Created: 2016-07-13

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Sprite Sheet Test" )
SetWindowSize( 1024, 768, 0 )
adjustScreenPercentage()
// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )

global lastkey as integer
global spr as integer
global img as integer
global stfrm as integer
global endfrm as integer
spr=CreateSprite(0)
img1=LoadImage("HatrixDNUPspritesheet.png") //500*800


setspritepositionbyoffset(spr,50,50)
SetSpriteImage ( spr, img1, 1 )
SetSpriteAnimation( spr, 800/8, 500/5, 40 )	
setspritesize(spr,-1,100)
SetSpriteOffset(spr,getspritewidth(spr)/2.0,getspriteheight(spr))
SetSpritePosition(spr,100,100)	

PlaySprite( spr, 10, 1, stfrm, endfrm )
// 
do
	GetKeyPress(img1,spr)
	
    Sync()
loop

function adjustScreenPercentage()
	w as float
	h as float	
	SetDisplayAspect(w/h)
	endfunction

Function GetKeyPress(img1,spr)
	SELECT GetRawLastKey()
		CASE 87 	// "W" UP 
			stfrm=21
			endfrm=40
			lastkey=87
		ENDCASE
		CASE 83		//"S" DOWN   
			stfrm=1
			endfrm=20
			lastkey=83			
		ENDCASE
		CASE DEFAULT  
			stfrm=1
			endfrm=20
			ENDCASE
		ENDSELECT
		setspritesize(spr,-1,100)
		SetSpriteOffset(spr,getspritewidth(spr)/2.0,getspriteheight(spr))
		SetSpritePosition(spr,100,100)	
EndFunction