TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Functions

Version: 1.0

Information

Uploaded: 11th Apr 2018 07:08

Modified: 11th Apr 2018 07:08

Author: fubarpk

Summary

Displays a rolling menu for use in games

Full Description

Displays a rolling menu for use in games does need your own images

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

#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)

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

//limits

if xpos>5

xspd=xspd/2

if GetPointerState()=0

xspd=xspd-1.5

endif

if xpos<-(256*(inventoryTotal-4))

xspd=xspd/2

if GetPointerState()=0

xspd=xspd+1.5

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

rollingMenu=0

endif

if rollingMenu=0

SetSpritePositionByOffset(id,GetPointerX(),GetPointerY())

if GetPointerPressed()

rollingMenu=1

endif

sync()

until exitSelected=1

end

function setInventorySprites()

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

Author Name:	fubarpk
CodeBase Entries:	12

CodeBase - Rolling Menu

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments