diff options
author | Ian C <ianc@noddybox.co.uk> | 2006-05-27 23:24:02 +0000 |
---|---|---|
committer | Ian C <ianc@noddybox.co.uk> | 2006-05-27 23:24:02 +0000 |
commit | 26c98ba56e72beaf8a99eafbedd2b0c64ac13954 (patch) | |
tree | 6460c30f185bfdf0647055a9a32af111b8f87894 /sounds.bmx | |
parent | 0129dc56ba73e43f148b779d9ff549f286e66f1d (diff) |
Diffstat (limited to 'sounds.bmx')
-rw-r--r-- | sounds.bmx | 124 |
1 files changed, 70 insertions, 54 deletions
@@ -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 |