From f6b1934a27375bb633e70757d672eae1e3485f5a Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Tue, 14 Jun 2005 00:21:33 +0000
Subject: *** empty log message ***
---
.cvsignore | 2 +
GFX/backdrop.bmp | Bin 0 -> 1440054 bytes
GFX/backdrop.c4d | Bin 0 -> 106459 bytes
font_fade.bmx | 108 +++++++++++++++++++++++++++++++++++
main.bmx | 167 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
5 files changed, 277 insertions(+)
create mode 100644 .cvsignore
create mode 100644 GFX/backdrop.bmp
create mode 100644 GFX/backdrop.c4d
create mode 100644 font_fade.bmx
create mode 100644 main.bmx
diff --git a/.cvsignore b/.cvsignore
new file mode 100644
index 0000000..953a728
--- /dev/null
+++ b/.cvsignore
@@ -0,0 +1,2 @@
+main.debug.exe
+.bmx
\ No newline at end of file
diff --git a/GFX/backdrop.bmp b/GFX/backdrop.bmp
new file mode 100644
index 0000000..7e4a969
Binary files /dev/null and b/GFX/backdrop.bmp differ
diff --git a/GFX/backdrop.c4d b/GFX/backdrop.c4d
new file mode 100644
index 0000000..4183fe7
Binary files /dev/null and b/GFX/backdrop.c4d differ
diff --git a/font_fade.bmx b/font_fade.bmx
new file mode 100644
index 0000000..62f5e82
--- /dev/null
+++ b/font_fade.bmx
@@ -0,0 +1,108 @@
+'
+' Provides text fade routines
+'
+' $Id$
+'
+Type FontFade
+ Field list:TList
+ Field font:BitmapFont
+
+ Function Create:FontFade(f:BitmapFont)
+ Local ff:FontFade=New FontFade
+
+ ff.list=New TList
+ ff.font=f
+
+ Return ff
+ End Function
+
+ Method Add(s:String, x:Float, y:Float, col:Int, a:Float, ai:Float, dx:Float, dy:Float)
+ Local f:FontFadeEnt=New FontFadeEnt
+
+ f.s=s
+ f.x=x
+ f.y=y
+ f.dx=dx
+ f.dy=dy
+ f.r=(col & $ff0000) Shr 16
+ f.g=(col & $ff00) Shr 8
+ f.r=(col & $ff)
+ f.a=a
+ f.ai=ai
+ f.centre=False
+
+ list.AddLast(f)
+ End Method
+
+ Method Centre(s:String, y:Float, col:Int, a:Float, ai:Float, dy:Float)
+ Local f:FontFadeEnt=New FontFadeEnt
+
+ f.s=s
+ f.x=0
+ f.y=y
+ f.dx=0
+ f.dy=dy
+ f.r=(col & $ff0000) Shr 16
+ f.g=(col & $ff00) Shr 8
+ f.b=(col & $ff)
+ f.a=a
+ f.ai=ai
+ f.centre=True
+
+ list.AddLast(f)
+ End Method
+
+ Method Clear()
+ list.Clear()
+ End Method
+
+ Method IsEmpty:Int()
+ Return list.IsEmpty()
+ End Method
+
+ Method Count:Int()
+ Return list.Count()
+ End Method
+
+ Method Process()
+ Local a:Float=GetAlpha()
+
+ For Local f:FontFadeEnt=EachIn list
+ If f.a<0.001 And f.ai<0
+ list.Remove(f)
+ Else
+ SetAlpha(f.a)
+
+ If f.centre
+ font.CentreColoured(f.s,f.y,f.r,f.g,f.b)
+ Else
+ font.DrawColoured(f.s,f.x,f.y,f.r,f.g,f.b)
+ EndIf
+
+ f.a:+f.ai
+ f.x:+f.dx
+ f.y:+f.dy
+
+ If f.a>1
+ f.a=1
+ f.ai=-f.ai
+ EndIf
+ EndIf
+ Next
+
+ SetAlpha(a)
+ End Method
+
+End Type
+
+Type FontFadeEnt
+ Field s:String
+ Field x:Float
+ Field y:Float
+ Field dx:Float
+ Field dy:Float
+ Field r,g,b:Int
+ Field a:Float
+ Field ai:Float
+ Field centre:Int
+End Type
\ No newline at end of file
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"
--
cgit v1.2.3