Sorry your browser is not supported!

// set window properties
SetWindowTitle( "DiceRoller" )
SetWindowSize( 1024, 768, 0 )
//SetDisplayAspect( 4.0 / 3.0 )
//SetWindowAllowResize( 1 )
//SetVirtualResolution( 600,800)
SetOrientationAllowed( 1, 1, 1, 1 ) 
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

//Load Images
btn_press = LoadImage ("GUIFrame_Sci-Fi3_Button1.png")
btn_unpress = LoadImage ("GUIFrame_Sci-Fi3_Button2.png")

//Creating buttons
btn_press_spr = CreateSprite(btn_press)
setspritesize(btn_press_spr, 10, -1)
SetSpritePosition(btn_press_spr,36.0,38.5)
SetSpriteVisible(btn_press_spr, 0)
SetSpriteScale(btn_press_spr,2,2)

btn_unpress_spr = CreateSprite(btn_unpress)
setspritesize(btn_unpress_spr, 10, -1)
SetSpritePosition(btn_unpress_spr,36.0,38.5)
SetSpriteVisible(btn_unpress_spr,1)
//SetSpriteScale(btn_unpress_spr,2,2)
Setspritesize(btn_unpress_spr, 40, 9)

// sets background color to black
SetClearColor(0,0,0)
// Creates text
CreateText(1, "Test Text")
SetTextSize(1,10)
SetTextPosition(1,35.0,20.0)
//// Creates text
CreateText(2, "Option 1")
SetTextSize(2,5)
SetTextPosition(2,40.0,40.0)



do
	//Changes the color of the Title text
    SetTextColor(1, (random(1,255)),(random(1,255)),(random(1,255)), 255)
    
    
    changebutten(btn_press_spr,btn_unpress_spr)
	//* If sprite hit is hidden circle *
	//if GetPointerPressed() = 1 and GetSpriteHit(GetPointerX(),GetPointerY()) = btn_unpress_spr
		////** Show appropriate circle **
		//SetSpriteVisible(btn_press_spr,1)
		//SetSpriteVisible(btn_unpress_spr,0)
	//endif
	//if getpointerstate() = 1
		//print("Press held")
	//endif
	//if GetPointerReleased() = 1
		//SetSpriteVisible(btn_press_spr,0)
		//SetSpriteVisible(btn_unpress_spr,1)
	//endif
    
    Sync()
loop




function changebutten(on as integer, off as integer)
	
	if GetPointerPressed() = 1 and GetSpriteHit(GetPointerX(),GetPointerY()) = off
		//** Show appropriate circle **
		SetSpriteVisible(on,1)
		SetSpriteVisible(off,0)
	endif
	if GetPointerReleased() = 1
		SetSpriteVisible(on,0)
		SetSpriteVisible(off,1)
	endif
	
endfunction 

// In the Points system a value of 72 is equivalent to 1 inch

// Calculate & store what 1/72 of a Point value is in pixels for the device this is running on
Global PointSize as Float
PointSize = ( GetDeviceWidth() / ( DeviceWidth() / GetDeviceDPI() ) / 72.0 )

// Convert a Point value into a pixel value, i.e 72pt = 300px on a 300DPI display, 36pt = 150px on a 300DPI display
Function ToPT( pt as Float )
EndFunction ( pt * PointSize )

// Will draw a 1 inch line, 1/2 inch indented on top and left on any phone display regardless of resolution and DPI
DrawLine( ToPT(36), ToPT(36), ToPT(98), ToPT(36), 255, 0, 255 )

SetWindowSize( 1024, 768, 0 )
//SetDisplayAspect( 4.0 / 3.0 )
//SetWindowAllowResize( 1 )
//SetVirtualResolution( 600,800)
SetOrientationAllowed( 1, 1, 1, 1 ) 
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