blob: b33ccecf7929a70afe05f978dbc7c6ac81b9affc (
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
|
' 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
Function Init()
popsfx=LoadSound("incbin::SFX/pop.wav")
clicksfx=LoadSound("incbin::SFX/click.wav")
pathsfx=LoadSound("incbin::SFX/path.wav")
End Function
Function Pop()
popsfx.Play()
End Function
Function Click()
clicksfx.Play()
End Function
Function Path()
pathsfx.Play()
End Function
End Type
|