blob: 95e03c9b471cd498a9bbbc097456323ce647d599 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
' 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
|