UpdatesHEADmaster

1 files changed, 70 insertions, 54 deletions

diff --git a/sounds.bmx b/sounds.bmx
index 19a2596..95e03c9 100644
--- a/sounds.bmx
+++ b/sounds.bmx
@@ -1,54 +1,70 @@
-' Hardwire

-'

-' Copyright 2005 Ian Cowburn

-'

-' $Id$

-'

-Strict

-Import brl.audio

-Import brl.freeaudioaudio

-Import brl.wavloader

-

-Incbin "SFX/pop.wav"

-Incbin "SFX/click.wav"

-Incbin "SFX/path.wav"

-

-Type Sound

-	Global popsfx:TSound

-	Global clicksfx:TSound

-	Global pathsfx:TSound

-	

-	Global play_pop:Int

-	Global play_click:Int

-	Global play_path:Int

-

-	Function Init()

-		popsfx=LoadSound("incbin::SFX/pop.wav")

-		clicksfx=LoadSound("incbin::SFX/click.wav")

-		pathsfx=LoadSound("incbin::SFX/path.wav")

-		play_pop=False

-		play_click=False

-		play_path=False

-	End Function

-	

-	Function Pop()

-		play_pop=True

-	End Function

-	

-	Function Click()

-		play_click=True

-	End Function

-	

-	Function Path()

-		play_path=True

-	End Function

-	

-	Function Process()

-		If play_pop Then popsfx.Play()

-		If play_click Then clicksfx.Play()

-		If play_path Then pathsfx.Play()

-		play_pop=False

-		play_click=False

-		play_path=False

-	End Function

-End Type

+' Hardwire
+'
+' Copyright (C) 2005  Ian Cowburn (ianc@noddybox.co.uk)
+'
+' This program is free software; you can redistribute it and/or modify
+' it under the terms of the GNU General Public License as published by
+' the Free Software Foundation; either version 2 of the License, or
+' (at your option) any later version.
+'
+' This program is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+' GNU General Public License for more details.
+'
+' You should have received a copy of the GNU General Public License
+' along with this program; if not, write to the Free Software
+' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+'
+' -------------------------------------------------------------------------
+'
+' $Id$
+'
+Strict
+Import brl.audio
+Import brl.freeaudioaudio
+Import brl.wavloader
+
+Incbin "SFX/pop.wav"
+Incbin "SFX/click.wav"
+Incbin "SFX/path.wav"
+
+Type Sound
+	Global popsfx:TSound
+	Global clicksfx:TSound
+	Global pathsfx:TSound
+	
+	Global play_pop:Int
+	Global play_click:Int
+	Global play_path:Int
+
+	Function Init()
+		popsfx=LoadSound("incbin::SFX/pop.wav")
+		clicksfx=LoadSound("incbin::SFX/click.wav")
+		pathsfx=LoadSound("incbin::SFX/path.wav")
+		play_pop=False
+		play_click=False
+		play_path=False
+	End Function
+	
+	Function Pop()
+		play_pop=True
+	End Function
+	
+	Function Click()
+		play_click=True
+	End Function
+	
+	Function Path()
+		play_path=True
+	End Function
+	
+	Function Process()
+		If play_pop Then popsfx.Play()
+		If play_click Then clicksfx.Play()
+		If play_path Then pathsfx.Play()
+		play_pop=False
+		play_click=False
+		play_path=False
+	End Function
+End Type