Sorry your browser is not supported!

Global MasterTimer As Integer
Global ResumeTimer As Integer
Global TimePassed As Integer

Do
	Game()
	Sync()
	If GetResumed()
		MasterTimer = ResumeTimer
	Else
		TimePassed = TimePassed + Abs(MasterTimer - Timer() * 1000)
		MasterTimer = Timer() * 1000
		ResumeTimer = MasterTimer
	EndIf
Loop

Global MasterTimer As Integer
Global ResumeTimer As Integer
Global TimePassed As Integer
Do
	Game()
	Sync()
	TimePassed = TimePassed + Abs(MasterTimer - Timer() * 1000)
    If Abs(MasterTimer - Timer() * 1000) > 250  //no loop takes this long, so the app minimized and then resumed?????
		TimePassed = TimePassed - Abs(MasterTimer - Timer() * 1000)
		//PauseScreen Here!
	EndIf
	MasterTimer = Timer() * 1000    
Loop

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "getresumedtest" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape 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

setuptextandbutton()
 
Do
      
    If GetResumed() //If getresumed = 1 (occurs when game loses focus and then returns to focus)
        SetTextString(textnum, resumetext)
        SetVirtualButtonVisible(button, 1)
        Repeat
			Sync()
		Until GetVirtualButtonReleased(button) = 1 //click virtual button to retun to game
    Else
        If GetTextString(textnum) = resumetext
			SetTExtString(textnum, gametext)
			SetVirtualButtonVisible(button, 0)
		EndIf
    EndIf
    
    Sync()
Loop

Function setuptextandbutton()
	Global resumetext as String = "Press 'Press Virtual Button' to Return to Game" //text to show when game is to resume--after getresume() = 1
	Global gametext as String = "Game Running!" //text to show when game is playing
	Global textnum as Integer //text number for text
	Global button as Integer = 1 //virtual button number
	
	textnum = CreateText(gametext)
	SetTextSize(textnum, 50)
	SetTextPosition(textnum, 10,10)
	SetTextColor(textnum, 255, 255, 255, 255)

       AddVirtualButton(button, 100, 100, 50)
       SetVirtualButtonAlpha(button, 255)  
       SetVirtualButtonColor(button, 255, 50, 50)
       SetVirtualButtonText(button, "Click Me")
       SetVirtualButtonVisible(button, 0)

EndFunction

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "getresumedtimer" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape 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

Global MasterTimer as Integer
Global ResumeTimer as Integer
Global TimePassed as Integer
Global PauseTimer as Integer
Global pausetime as Integer
Global pauseon as Integer = 0
 
Do
    //Game()
    Sync()
    
    If GetPaused() And pauseon = 0
	PauseTimer = Timer() * 1000
	pauseon = 1
    EndIf
    
    If GetResumed()
	ResumeTimer = Timer() * 1000
        pausetime = ResumeTimer - PauseTimer
        TimePassed = (TimePassed + Abs(MasterTimer - Timer() * 1000)) - pausetime
        pauseon = 0
    Else
	TimePassed = TimePassed + Abs(MasterTimer - Timer() * 1000)
        MasterTimer = Timer() * 1000
     EndIf
    
    Print("MasterTimer: " + Str(MasterTimer))
    Print("ResumeTimer: " + Str(ResumeTimer))
    Print("PauseTimer: " + Str(PauseTimer))   
    Print("pausetime: " + Str(pausetime))
    Print("TimePassed: " + Str(TimePassed)) 
    
    
Loop

// Common
#Constant True -1
#Constant False 0

#Constant Enable 1
#Constant Disable 0

// Key Flags
#Constant KEY_ESCAPE 27

// App Globals
Global AppRunning As Integer : AppRunning = True

// Initialisation
SetSyncRate( 0, Enable )
SetWindowSize( 1280, 720, Disable )
SetVirtualResolution( 1280, 720 )
SetScissor( Disable, Disable, Disable, Disable )
SetWindowAllowResize( Enable )
UseNewDefaultFonts( Enable )

Global Paused As Integer
Global Resumed As Integer


// Main Loop
Repeat
	Main( )
	
	// Always allow EscapeKey to Exit
	If GetRawKeyPressed( KEY_ESCAPE )
		AppRunning = False
	EndIf
Until AppRunning = False

// Main Function
Function Main( )
	SetClearColor( 128, 128, 192 )
	ClearScreen()
	
	If GetPaused( )
		Inc Paused
	EndIf
	
	If GetResumed( )
		Inc Resumed
	EndIf
	
	Print( Paused )
	Print( Resumed )
	
	Render( )	
	Swap( )
EndFunction