sounds.bmx


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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118

' Vectoroids
'
' Copyright 2005 Ian Cowburn
'
' $Id$
'
Strict

Incbin "SFX/explode1.wav"
Incbin "SFX/explode2.wav"
Incbin "SFX/explode3.wav"
Incbin "SFX/fire.wav"
Incbin "SFX/life.wav"
Incbin "SFX/lsaucer.wav"
Incbin "SFX/sfire.wav"
Incbin "SFX/ssaucer.wav"
Incbin "SFX/thrust.wav"
Incbin "SFX/thumphi.wav"
Incbin "SFX/thumplo.wav"


Type Sounds
	Global explode:TSound[]
	Global fire:TSound
	Global life:TSound
	Global lsaucer:TSound
	Global sfire:TSound
	Global ssaucer:TSound
	Global thrust:TSound
	Global thumphi:TSound
	Global thumplo:TSound
	
	Global thrust_channel:TChannel
	Global ssaucer_channel:TChannel
	Global lsaucer_channel:TChannel
	
	Global frame:Int
	Global hi:Int

	Function Init()
		explode=New TSound[3]
		explode[2]=LoadSound("incbin::SFX/explode1.wav")
		explode[1]=LoadSound("incbin::SFX/explode2.wav")
		explode[0]=LoadSound("incbin::SFX/explode3.wav")
		fire=LoadSound("incbin::SFX/fire.wav")
		life=LoadSound("incbin::SFX/life.wav")
		lsaucer=LoadSound("incbin::SFX/lsaucer.wav",True)
		sfire=LoadSound("incbin::SFX/sfire.wav")
		ssaucer=LoadSound("incbin::SFX/ssaucer.wav",True)
		thrust=LoadSound("incbin::SFX/thrust.wav",True)
		thumplo=LoadSound("incbin::SFX/thumplo.wav")
		thumphi=LoadSound("incbin::SFX/thumphi.wav")
		
		frame=0
		hi=True
		
		thrust_channel=thrust.Cue()
		ssaucer_channel=ssaucer.Cue()
		lsaucer_channel=lsaucer.Cue()
	End Function
	
	Function Update(freq:Int)
		If frame>freq
			frame=0
			
			If hi
				thumphi.Play()
			Else
				thumplo.Play()
			EndIf
			
			hi=Not hi
		EndIf
		frame:+1
	End Function
	
	Function AsteroidExplosion(size:Int)
		explode[size].Play()
	End Function
	
	Function ShipExplosion()
		explode[0].Play()
	End Function
	
	Function PlayerFire()
		fire.Play()
	End Function
	
	Function SaucerFire()
		sfire.Play()
	End Function
	
	Function ExtraLife()
		life.Play()
	End Function

	Function PlayerThrust(on:Int)
		thrust_channel.SetPaused(Not on)
	End Function
	
	Function SmallSaucer()
		ssaucer_channel.SetPaused(False)
	End Function
	
	Function LargeSaucer()
		lsaucer_channel.SetPaused(False)
	End Function
	
	Function NoSaucer()
		lsaucer_channel.SetPaused(True)
		ssaucer_channel.SetPaused(True)
	End Function
	
	Function Clear()
		PlayerThrust(False)
		NoSaucer()
	End Function
End Type