Sorry your browser is not supported!

gamestate=logo

do

if gamestate="logo"
  //display logo here
  wait 2000
  gamestate="menu"
  cls
elseif gamestate="menu"
  //display menu here
  //when button clicked, set gamestate = "game"
  cls
elseif gamestate = "game"
  //gamecode here
endif

loop

///Game State Setup 
type t_GameState   
	name as string
	fnPtrRender as dword
	fnPtrSetup as dword
	fnPtrCleanup as dword
endtype

///Create a new Game State and push it onto the Game State Stack
function CreateNewGameState(strGameStateName as string, strRenderFn as string, strSetupFn as string, strCleanUpFn as string)
	Local fnptrRender as dword
	fnptrRender = get ptr to function(strRenderFn)
	Local fnptrSetup as dword
	fnptrSetup = get ptr to function(strSetupFn)
	Local fnptrCleanup as dword
	fnptrCleanup = get ptr to function(strCleanUpFn)
	if function ptr is valid(fnPtrRender) and function ptr is valid(fnptrSetup) and function ptr is valid(fnptrCleanup)
		array insert at bottom GameStates()
		GameStates().name = strGameStateName
		GameStates().fnPtrRender = fnPtrRender
		GameStates().fnPtrCleanup = fnptrCleanup
		GameStates().fnPtrSetup = fnptrSetup
	else
		exitfunction FALSE
	endif
	//Create all objects for Game State
	//and push Game State onto the Game State stack
	call function ptr GameStates().fnPtrSetup
endfunction TRUE

///Initialize Global variables for handling Game States
function GameStateSetup() 
	global dim GameStates() as t_GameState    
endfunction

///Load DBPro objects
///and Initialize Global Arrays used in Game State 1
function GameState1Setup() 
	global dim GameState1Objs() as integer  
	local Cube1 as integer : Cube1 = reserve free object()    
	make object box Cube1,32,32,32  
	array insert at bottom GameState1Objs() 
	GameState1Objs() = Cube1
	bGameState1 = TRUE
endfunction

///Cleanup DBPro Objects and Global Arrays used in Game State 1
function GameState1CleanUp()
	for i = 0 to get array count(GameState1Objs(),1)
		delete object GameState1Objs(i)
	next i
	remove from stack GameStates()
endfunction

///Render Loop for Game State 1
function GameState1Render() 
	 d3d_starttext
		d3d_Text 1,desktop width()/2-(d3d_gettextwidth(1,"Press #2 to Switch to Game State Two" )/2),80,0,"Press #2 to Switch to Game State Two" 
	d3d_endtext
	yrotate object GameState1Objs(0),hitimer()*0.02   
endfunction 

///Load DBPro objects
///and Initialize Global Arrays used in Game State 2
function GameState2Setup() 
	global dim GameState2Objs() as integer 
	local Cube1 as integer : Cube1 = reserve free object()    
	make object sphere Cube1, 32
	array insert at bottom GameState2Objs() 
	GameState2Objs() = Cube1
	bGameState1 = FALSE
endfunction

///Cleanup DBPro Objects and Global Arrays used in Game State 2
function GameState2CleanUp()
	for i = 0 to get array count(GameState2Objs(),1)
		delete object GameState2Objs(i)
	next i
	remove from stack GameStates()
endfunction

///Render Loop for Game State 2
function GameState2Render() 
	d3d_starttext
		d3d_Text 1,desktop width()/2-(d3d_gettextwidth(1,"Press #1 to Switch to Game State One" )/2),80,0,"Press #1 to Switch to Game State One" 
	d3d_endtext
	zrotate object GameState2Objs(0),hitimer()*0.02
endfunction

]

rem different game states
#constant GAME_STATE_LOGO 1
#constant GAME_STATE_MENU 2
#constant GAME_STATE_GAME 3

rem define a global UDT for our game state information
type GameState_VT
   active as integer
endtype
global GameState as GameState_VT

rem load stuff here

rem initial game state
set_game_state( GAME_STATE_LOGO )

rem in your main loop
do

   rem handle game states
   select GameState.active
      case GAME_STATE_LOGO:
         handle_game_state_logo()
      endcase
      case GAME_STATE_MENU:
         handle_game_state_menu()
      endcase
      case GAME_STATE_GAME:
         handle_game_state_game()
      endcase
   endselect

   rem refresh screen
   sync

rem end of main loop
loop

rem switch game states with this
function set_game_state( gameState )

   rem if a game state is already active, unload it
   if GameState.active = GAME_STATE_LOGO then unload_game_state_logo()
   if GameState.active = GAME_STATE_MENU then unload_game_state_menu()
   if GameState.active = GAME_STATE_GAME then unload_game_state_game()

   rem set the new game state
   GameState.active = gameState

   rem load the game state
   if GameState.active = GAME_STATE_LOGO then load_game_state_logo() : endfunction
   if GameState.active = GAME_STATE_MENU then load_game_state_menu() : endfunction
   if GameState.active = GAME_STATE_GAME then load_game_state_game() : endfunction

   rem if we arrive here, something went seriously wrong (game state isn't defined)
   print "faaaaaag"
endfunction