FilaxTeroid :) Can you test this ?

a simple createtimer and a wait timer in the main loop !
the next release include an online scoring :) a top ten :)

Here is the main loop :

'
' Appliquer un son quand on prend un bonus (voix ?)
' Faire routine affichant des gros text qui partent en fade
'
' Changer le logo des lance missile par du nucleaire
' Faire le logo biohasard pour les destruction totale d'asteroide
' Le truc qui lance un enorme missile nuclaire pour la destruction totale (humour)
' 
' Bonus :
' -------
' Créer le bonus qui fait exploser tout les asteroides
' Créer le bonus aleatoire
' Créer le bonus qui augmente la vitesse de tir

' Malus :
' -------
' Créer le bonus qui inverse les commandes  (Pour l'aleatoire)
' Créer le bonus qui dimunue la vitesse  (Pour l'aleatoire)
' Créer le bonus ralentissement / inertie  (Pour l'aleatoire)
' 

Strict 

' -------------------------------------
Framework brl.glmax2d
Import brl.freeaudioaudio
Import brl.filesystem
Import brl.freetypefont
Import brl.jpgloader
Import brl.linkedlist
Import brl.oggloader
Import brl.pngloader
Import brl.ramstream
Import brl.random
Import brl.retro
Import brl.wavloader
Import pub.igl
' -------------------------------------
SetGraphicsDriver GLMax2DDriver()

Include "Inc_Game.bmx"
Include "Inc_Hud.bmx"
Include "Inc_Gui.bmx"
Include "Inc_Sound.bmx"
Include "Inc_Media.bmx"
Include "Inc_Alien.bmx"
Include "Inc_Timer.bmx"
Include "Inc_Ship.bmx"
Include "Inc_Shoot.bmx"
Include "Inc_Missil.bmx"
Include "Inc_Flash.bmx"
Include "Inc_Message.bmx"
Include "Inc_Bonus.bmx"
Include "Inc_Rock.bmx"
Include "Inc_Explode.bmx" 
Include "Inc_Background.bmx"
Include "Inc_FPS.bmx"
Include "./IGL_Classe/Inc_IGlass.bmx"

'Graphics 1024,768,32,75
Graphics 800,600,32,75
SeedRnd MilliSecs()

Global frameTimer = CreateTimer(75)

InitGame()
LoadScore()

'Game_PlaySound=False

Repeat
	Cls
	
	Select Game_ModeCurrent
	' ------------------
	' Mode de jeu : Play
	' ------------------
	Case Game_ModePlay
		UpdateGame()
	' ------------------
	' Mode de jeu : Menu
	' ------------------
	Case Game_ModeMenu
		UpdateMenu()
	' ------------------
	' Mode de jeu : Dead
	' ------------------
	Case Game_ModeDead
		ResetScore()
		
		CreatePlayer()
		CenterPlayer()
		
		CreateLevel(Game_CurrentLevel)
		Game_ModeCurrent=Game_ModePlay
	End Select

	WaitTimer(frameTimer)	
	FlushMem()
	Flip	
Forever