Sorry your browser is not supported!

#constant xMax=1024
#constant yMax=600
#constant friction 0.09 
#constant inventoryTotal=10

global oldsc 
global sc=0
global level
   
xspd as float `X speed of tiles
xpos as float `X position of tiles
cpx as float `Current Pointer X  `(from this frame)
lpx as float `Last Pointer X  `(from last frame)

// set window properties
SetWindowSize( xMax, yMax, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( xMax, yMax ) // doesn't have to match the window
SetOrientationAllowed( 0, 0, 1, 1 ) // allow both portrait and landscoreape on mobile devices
SetSyncRate( 30, 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

for num = 100 to 99+inventoryTotal
	CreateSprite(num,0)
	SetSpriteSize(num,256,256)
	SetSpriteColor(num,random(1,255),random(1,255),random(1,255),255)
next num	
	
loadInventoryImages() //need a routine here to grab the images
setInventorySprites() //position them
vw=GetVirtualWidth():vh=GetVirtualHeight():iw=GetImageWidth(100):ih=GetImageHeight(100)

xpos=0
xspd=0
cpx=0
lpx=0
oldsc=-1
level=1
exitSelected=0
rollingMenu=1	

repeat
	lpx=cpx
    cpx=GetPointerX()
    `
    if GetPointerState()
		xspd=cpx-lpx
	endif 
	
	//friction
	for k=1 to 3
        if xspd<-friction*k*2
            xspd=xspd+friction
        elseif xspd>friction*k*2
            xspd=xspd-friction
        else
            xspd=0
        endif
    next
    
        
    //limits
    if xpos>5
        xspd=xspd/2
        if GetPointerState()=0
            xspd=xspd-1.5
        endif
    endif
    if xpos<-(256*(inventoryTotal-4))
        xspd=xspd/2
        if GetPointerState()=0
            xspd=xspd+1.5
        endif
    endif
    
    xpos=xpos+xspd
   
    count=0
    for t = 100 to 99+inventoryTotal
		SetSpritePosition(t,xpos+(count*256),vh-ih)
		if GetPointerReleased()
			exit
		endif
		inc count
	next t    
	
	if  GetPointerReleased()
		num=GetSpriteHit(GetPointerX(),GetPointerY())
		if num>=100 and num <=99+inventoryTotal
			//place the object here
			id=CloneSprite( num )
			SetSpriteVisible(id,0)
			SetSpriteImage(700,GetSpriteImageID(num))
			rollingMenu=0
		endif
	endif
	
	if rollingMenu=0 
		SetSpritePositionByOffset(id,GetPointerX(),GetPointerY())
		if GetPointerPressed()
			rollingMenu=1
		endif
	endif
	sync()
until exitSelected=1
end

function loadInventoryImages() 
	for num = 100 to 199
		createtexture(num,256,256,MakeColor(random(1,255),random(1,255),random(1,255)))
	next num
	
endfunction

function setInventorySprites()
	vw=GetVirtualWidth():vh=GetVirtualHeight():iw=GetImageWidth(100):ih=GetImageHeight(100)

	for num=100 to 99+inventoryTotal	
		SetSpritePositionByOffset(num,(num-100)*iw,vh-ih)
	next num
endfunction

function createTexture(ID as integer,width as integer, height as integer,color)
ClearScreen()
Render()
DrawBox(0,0,width,height,color,color,color,color,1)
Swap()
getimage(ID,0,0,width,height)
endfunction