-
Notifications
You must be signed in to change notification settings - Fork 251
Expand file tree
/
Copy pathUserMusic.lua
More file actions
146 lines (115 loc) · 3.89 KB
/
UserMusic.lua
File metadata and controls
146 lines (115 loc) · 3.89 KB
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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
----****************************************************************************
---- UserMusic
---- Copyright © 2006 Gas Powered Games, Inc. All rights reserved.
----
----****************************************************************************
----****************************************************************************
---- Config options
----****************************************************************************
-- List of battle cues to cycle through
local BattleCues = {
Sound({Cue = 'Battle', Bank = 'Music'}),
}
-- List of peace cues to cycle through
local PeaceCues = {
Sound({ Cue = 'Base_Building', Bank = 'Music' }),
}
-- How many battle events do we receive before switching to battle music
local BattleEventThreshold = 20
-- Current count of battle events
local BattleEventCounter = 0
-- How many ticks can elapse between NotifyBattle events before we reset the
-- BattlceEventCounter (only used in peace time)
local BattleCounterReset = 30 -- 3 seconds
-- How many ticks of battle inactivity until we switch back to peaceful music
local PeaceTimer = 200 -- 20 seconds
----****************************************************************************
---- Internal
----****************************************************************************
-- The last tick in which we got a battle notification
local LastBattleNotify = 0
-- Current music loop if music is active
local Music = false
-- Watcher thread
local musicThread = nil
-- Tick when battle started, or 0 if at peace
local BattleStart = 0
local BattleCueIndex = 1
local PeaceCueIndex = 1
local currentMusic = nil
local battleWatch = nil
local paused = GetVolume("Music") == 0
local nomusicSwitchSet = HasCommandLineArg("/nomusic")
function NotifyBattle()
if nomusicSwitchSet then return end -- nomusic set - save threading
local tick = GameTick()
local prevNotify = LastBattleNotify
LastBattleNotify = tick
if BattleStart == 0 then
if tick - prevNotify > BattleCounterReset then
BattleEventCounter = 1
else
BattleEventCounter = BattleEventCounter + 1
if BattleEventCounter > BattleEventThreshold then
StartBattleMusic()
end
end
end
end
function StartBattleMusic()
if nomusicSwitchSet then return end -- nomusic set - save threading
BattleStart = GameTick()
PlayMusic(BattleCues[BattleCueIndex], 0) -- immediately
BattleCueIndex = math.mod(BattleCueIndex,table.getn(BattleCues)) + 1
if battleWatch then KillThread(battleWatch) end
battleWatch = ForkThread(
function ()
while GameTick() - LastBattleNotify < PeaceTimer do
WaitSeconds(1)
end
StartPeaceMusic()
end
)
end
function StartPeaceMusic()
if nomusicSwitchSet then return end -- nomusic set - save threading
BattleStart = 0
BattleEventCounter = 0
LastBattleNotify = GameTick()
PlayMusic(PeaceCues[PeaceCueIndex], 3)
PeaceCueIndex = math.mod(PeaceCueIndex, table.getsize(PeaceCues)) + 1
end
function PlayMusic(cue, delay)
if(musicThread) then KillThread(musicThread) end
musicThread = ForkThread(
function()
local delay = delay or 0
if currentMusic then
StopSound(currentMusic, delay == 0)
if delay > 0 then
WaitFor(currentMusic)
WaitSeconds(delay)
end
currentMusic = nil
end
currentMusic = PlaySound(cue)
if paused then
WaitSeconds(1)
PauseSound("Music", true)
end
end)
end
function PauseMusic(pause)
if pause ~= paused then
PauseSound("Music", pause)
paused = pause
end
end
function SetMusicVolume(v)
if v == 0 then
PauseMusic(true)
else
PauseMusic(false)
end
SetVolume("Music", v)
end