Grey Alien BlitzMax Game Framework V1.0 (HOT!)

How To Play
-----------

Just move left and right and shoot the UFOs with Z, that's it for now...

Keys
----

Press <Esc> to exit the game.
Press <F> to toggle full screen/windowed mode.
Press <V> to toggle VSync on/off.
Press <G> to toggle DirectX/OpenGL.
Press <D> to bring up the debug display
Whilst in debug mode, press <J> to jump level.
Whilst in debug mode, press <R> to restart level.
Whilst in debug mode, press <T> to toggle fast (full speed).
Whilst in debug mode, press <L> to toggle slow motion.
Whilst in debug mode, press <I> to toggle Flip modes.
Whilst in debug mode, press <A> to toggle anti-lag fix.
Whilst in debug mode, press <N> to toggle No Timing.
Press <P> to pause the game.
Press <Q> to quit the game.
Press <S> to toggle sound on/off.
Press <M> to toggle music on/off.
Press <-> and <=> to adjust sound volume.
Press <F12> to take a screenshot.
Press <Ctrl+X> to exit the game instantly.

Smooth Fixed Rate Logic timing. 
Dynamically change between Full-Screen and Windowed Mode. 
Dynamically change between DirectX and OpenGL. 
Windowed mode has working minimise and close buttons. 
Game and music pauses whenever focus is lost. 
Full icon support. 
Ini file to save user settings. 
Extensive debug suite. 
Take screenshots with F12. 
Integrated mouse pointer. 
Sound and music functions. 
Sprite type. 
Button type. 
Menu type. 
Font and Label types. 
Animation type for handling multi-phase animations. 
Splash screen. 
Loading screen. 
Title screen. 
Fully working options screen. 
Fully working Player Profile Manager dialog. 
Dialog type extended to DialogOK, DialogYesNo and DialogTextInput. 
Load, save and enter High Scores. 
Other example screens such as Level Complete, Game Complete, Game Over, and Credits. 
Select Level Map which zooms and scrolls. 
Example types such as Player (with shield, lives, target, and level), Bullet, Alien etc. 
Fast fade. 
Manage multiple game screens easily. 
Event-based input instead of PolledInput. 
BlitzMax fixes and workarounds. 
And more!
(For a full list of features, please see the FAQ.)

myGame:TMatch3Game = TMatch3Game.Create()
Repeat
   myGame.Update()
Until myGame.End()

Type TCreditsScreen Extends TScreen
	Method Load()
		name = "credits"
		'no loading text as it will be quick
		'leave title screen music playing
		Menu = TMenu.Create("buttonMO", "buttonclick",0,0,0)
		OKButtonCreate(Menu)
		Game.FadeMusic = 0 'prevent music fading when escape pressed
	End Method 

	Method Logic()
		Super.Logic()

		If Menu.Clicked("ok") Then
			Game.GameFade.Init(FADE_SPEED,1,Null, True)
			Game.DestinationTScreen = OptionsScreen
		EndIf
	EndMethod

	Method Draw()
		Cls
		SetImageFont(MainFont)
		ccDrawTextCentre("Credits", 10)
		ccDrawTextCentre("AOTMG", 240)
		ccDrawTextCentre("by Jake Birkett", 270)
		ccDrawTextCentre("(this will scroll soon)", 300)
		Menu.Draw()
	End Method

	Method SetEscDestination() 'overridden
		Game.DestinationTScreen = OptionsScreen
	End Method	
End Type

Function ErrorDialog:TDialogOK(text$)
	'Show an error dialog in my preferred style
	Local d:TDialogOK = TDialogOK.Create(text)
	d.Shadow = TShadow.Create(3,3,0.4)
	d.SetupCaption(MainFontSmall, TColor.Create(255,0,0), TShadow.Create(1,1,0.6))
	d.Start()
	Game.FixedRateLogic.Init() 'call now in case of delay due to setup
	Return d
End Function

Type TGameImage
	Field name$ 'for easy identification when stored in lists
	Field image:TImage
	Field w% 'width
	Field h% 'height
	Field w2# 'width/2 for use with MidHandle
	Field h2# 'height/2 for use with MidHandle

	Function Create:TGameImage(file$)
		'file is full path
		Local gi:TGameImage = New TGameImage
		gi.Load(file)
		gi.MidHandle(True)
		Return gi
	End Function
		
	Method GetSize()
		'sets w and h based on the current image
		If image <> Null Then
			w = ImageWidth(image)
			h = ImageHeight(image)
			w2 = w/2
			h2 = h/2
		EndIf	
	End Method
	
	Method Load(file$, flags=-1)
		'file should should be full path inc. extension
		name$ = Upper(StripAll(file)) 'store uppercase for ease of searching
		Image = ccLoadBitmap(file, flags)
		'set the width and height
		GetSize()
	End Method
	
	Method LoadAnim(file$,w,h,start,total,flags=-1)
		'file should should be full path inc. extension
		name$ = Upper(StripAll(file)) 'store uppercase for ease of searching
		Image = ccLoadAnimBitmap(file,w,h,start,total,flags)	
		'set the width and height
		GetSize()
	End Method
	
	Method MidHandle(On%)
		If On Then
			MidHandleImage(Image)
		Else
			SetImageHandle(Image,0,0)
		EndIf 
	End Method
End Type