1 files changed, 167 insertions, 0 deletions
diff --git a/main.bmx b/main.bmx
new file mode 100644
index 0000000..f360e90
--- /dev/null
+++ b/main.bmx
@@ -0,0 +1,167 @@
+'
+' Main code for NutterShoot
+'
+' $Id$
+'
+
+Strict
+Import noddybox.bitmapfont
+
+' Includes
+'
+Include "font_fade.bmx"
+
+' Included binaries
+'
+Incbin "GFX/font.bmf"
+Incbin "GFX/font_shadow.bmf"
+Incbin "GFX/backdrop.bmp"
+
+SetGraphicsDriver GLMax2DDriver()
+Graphics 800,600,32,60
+HideMouse
+
+SetBlend(ALPHABLEND)
+
+' Globals
+'
+Global font:BitmapFont=BitmapFont.Load("incbin::GFX/font.bmf",0)
+Global font_shadow:BitmapFont=BitmapFont.Load("incbin::GFX/font_shadow.bmf",0)
+Global quit:Int=True
+Global fade:FontFade=FontFade.Create(font)
+Global fade_shadow:FontFade=FontFade.Create(font_shadow)
+Global bdrop:TImage=LoadImage("incbin::GFX/backdrop.bmp",0)
+
+SetImageHandle(bdrop,400,300)
+
+Intro()
+
+MainMenu()
+
+While Not quit
+	MainMenu()
+Wend
+
+End
+
+Function StartPage(bground:Int=True,sx:Float=1,sy:Float=1)
+	Cls
+	If bground
+		Local x:Float,y:Float,r:Float,a:Float
+		a=GetAlpha()
+		r=GetRotation()
+		GetScale(x,y)
+		
+		SetAlpha(2)
+		SetTransform(0,sx,sy)
+		DrawImage(bdrop,400,300)
+		SetAlpha(a)
+		SetTransform(r,x,y)
+	EndIf
+End Function
+
+
+Function EndPage(flush:Int=True)
+	If flush Then FlushMem
+	Flip
+End Function
+
+
+Function Intro()
+	Local c=20
+	Local a$
+	Local f:FontFade=fade_shadow
+	
+	SetTransform(0,2,2)
+	
+	RestoreData intro_data
+	
+	While Not KeyHit(KEY_SPACE)
+		StartPage()
+		
+		c:-1
+		
+		If c=0
+			c=20
+			
+			ReadData a$
+			
+			If a$="XXX"
+				RestoreData intro_data
+				c=200
+			Else
+				f.Centre(a$,500,$ffff80,0,0.008,-2)
+			EndIf
+		EndIf
+		
+		f.Process()
+		
+		EndPage()
+	Wend
+	SetTransform(0,1,1)
+End Function
+
+
+Function MainMenu()
+End Function
+
+
+Rem
+sc=10
+t$="THIS IS SOME VERY, VERY, *VERY* ~~LARGE SCROLLING TEXT....."
+x#=0
+ang#=0
+angi#=0.2
+
+While Not KeyHit(KEY_ESCAPE)
+	Cls
+
+	For f=0 Until NO
+		st[f].Update()
+	Next
+	
+	SetTransform(ang,sc,sc)
+	
+	ang:+angi
+	
+	If ang<=-10 Or ang>=10 Then angi=-angi
+
+	fnt.DrawColoured(t$,x,0,255,255,255)'128,128)
+	
+	If Not KeyDown(KEY_P)
+		x:-5
+		
+		If x<-fnt.TextWidth(t[0..1])
+			x:+fnt.TextWidth(t[0..1])
+			t=t[1..]+t[0..1]
+		EndIf
+	EndIf
+		
+	FlushMem
+
+	Flip
+	
+Wend
+
+End Rem
+
+
+' PROGRAM DATA
+'
+#intro_data
+	DefData "NUTTER SHOOT"
+	DefData " "
+	DefData "(C) IAN C 2005"
+	DefData " "
+	DefData "THIS IS FREE SOFTWARE."
+	DefData "SEE THE GNU GENERAL"
+	DefData "PUBLIC LICENSE FOR"
+	DefData "DETAILS."
+	DefData " "
+	DefData " "
+	DefData "PRESS SPACE TO PLAY"
+	DefData " "
+	DefData " "
+	DefData "DEVELOPED WITH BLITZMAX"
+	DefData "HTTP://WWW.BLITZBASIC.COM"
+	DefData "XXX"