blob: 51f37e7ac45bf2b04b38b9f1a12a081707fc92ae (
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
|
' Hardwire
'
' Copyright 2005 Ian Cowburn
'
' $Id$
'
Strict
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
|