From 26c98ba56e72beaf8a99eafbedd2b0c64ac13954 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sat, 27 May 2006 23:24:02 +0000
Subject: Updates

---
 sounds.bmx | 124 ++++++++++++++++++++++++++++++++++---------------------------
 1 file changed, 70 insertions(+), 54 deletions(-)

(limited to 'sounds.bmx')

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
-- 
cgit v1.2.3