author | unc0rr |
Fri, 18 Aug 2006 21:02:11 +0000 | |
changeset 119 | 665c07365cb6 |
parent 97 | e7c1df9cce2c |
child 174 | 0b2c5b22f644 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
2 |
* Hedgewars, a worms-like game |
|
3 |
* Copyright (c) 2005 Andrey Korotaev <unC0Rr@gmail.com> |
|
4 |
* |
|
5 |
* Distributed under the terms of the BSD-modified licence: |
|
6 |
* |
|
7 |
* Permission is hereby granted, free of charge, to any person obtaining a copy |
|
8 |
* of this software and associated documentation files (the "Software"), to deal |
|
9 |
* with the Software without restriction, including without limitation the |
|
10 |
* rights to use, copy, modify, merge, publish, distribute, sublicense, and/or |
|
11 |
* sell copies of the Software, and to permit persons to whom the Software is |
|
12 |
* furnished to do so, subject to the following conditions: |
|
13 |
* |
|
14 |
* 1. Redistributions of source code must retain the above copyright notice, |
|
15 |
* this list of conditions and the following disclaimer. |
|
16 |
* 2. Redistributions in binary form must reproduce the above copyright notice, |
|
17 |
* this list of conditions and the following disclaimer in the documentation |
|
18 |
* and/or other materials provided with the distribution. |
|
19 |
* 3. The name of the author may not be used to endorse or promote products |
|
20 |
* derived from this software without specific prior written permission. |
|
21 |
* |
|
22 |
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED |
|
23 |
* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF |
|
24 |
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO |
|
25 |
* EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
26 |
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, |
|
27 |
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; |
|
28 |
* OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, |
|
29 |
* WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR |
|
30 |
* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF |
|
31 |
* ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
32 |
*) |
|
33 |
||
34 |
unit uSound; |
|
35 |
interface |
|
36 |
uses SDLh, uConsts; |
|
37 |
{$INCLUDE options.inc} |
|
38 |
||
39 |
procedure InitSound; |
|
40 |
procedure ReleaseSound; |
|
41 |
procedure SoundLoad; |
|
42 |
procedure PlaySound(snd: TSound); |
|
43 |
procedure PlayMusic; |
|
13 | 44 |
procedure StopTPUSound; |
4 | 45 |
|
46 |
implementation |
|
47 |
uses uMisc, uConsole; |
|
13 | 48 |
const chanTPU = 12; |
4 | 49 |
var Mus: PMixMusic; |
50 |
||
51 |
procedure InitSound; |
|
52 |
begin |
|
53 |
if not isSoundEnabled then exit; |
|
54 |
WriteToConsole('Init sound...'); |
|
11 | 55 |
isSoundEnabled:= SDL_Init(SDL_INIT_AUDIO) >= 0; |
56 |
if isSoundEnabled then |
|
57 |
isSoundEnabled:= Mix_OpenAudio(22050, $8010, 2, 512) = 0; |
|
4 | 58 |
if isSoundEnabled then WriteLnToConsole(msgOK) |
59 |
else WriteLnToConsole(msgFailed); |
|
13 | 60 |
Mix_AllocateChannels(Succ(chanTPU)); |
4 | 61 |
Mix_VolumeMusic(48) |
62 |
end; |
|
63 |
||
64 |
procedure ReleaseSound; |
|
65 |
var i: TSound; |
|
66 |
begin |
|
67 |
for i:= Low(TSound) to High(TSound) do |
|
68 |
Mix_FreeChunk(Soundz[i].id); |
|
69 |
Mix_FreeMusic(Mus); |
|
70 |
Mix_CloseAudio |
|
71 |
end; |
|
72 |
||
73 |
procedure SoundLoad; |
|
74 |
var i: TSound; |
|
75 |
s: string; |
|
76 |
begin |
|
77 |
if not isSoundEnabled then exit; |
|
78 |
for i:= Low(TSound) to High(TSound) do |
|
79 |
begin |
|
70 | 80 |
s:= Pathz[Soundz[i].Path] + '/' + Soundz[i].FileName; |
4 | 81 |
WriteToConsole(msgLoading + s + ' '); |
82 |
Soundz[i].id:= Mix_LoadWAV_RW(SDL_RWFromFile(PChar(s), 'rb'), 1); |
|
83 |
TryDo(Soundz[i].id <> nil, msgFailed, true); |
|
84 |
WriteLnToConsole(msgOK); |
|
85 |
end; |
|
86 |
||
97
e7c1df9cce2c
- make the game be run from ${PREFIX}/bin with data in ${PREFIX}/share/hedgewars/Data
unc0rr
parents:
70
diff
changeset
|
87 |
s:= PathPrefix + 'Data/Music/kahvi140a_alexander_chereshnev-illusion.ogg'; |
4 | 88 |
WriteToConsole(msgLoading + s + ' '); |
89 |
Mus:= Mix_LoadMUS(PChar(s)); |
|
90 |
TryDo(Mus <> nil, msgFailed, false); |
|
91 |
WriteLnToConsole(msgOK) |
|
92 |
end; |
|
93 |
||
94 |
procedure PlaySound(snd: TSound); |
|
95 |
begin |
|
96 |
if not isSoundEnabled then exit; |
|
13 | 97 |
if snd <> sndThrowPowerUp then Mix_PlayChannelTimed(-1, Soundz[snd].id, 0, -1) |
98 |
else Mix_PlayChannelTimed(chanTPU, Soundz[snd].id, 0, -1) |
|
4 | 99 |
end; |
100 |
||
13 | 101 |
procedure StopTPUSound; |
4 | 102 |
begin |
103 |
if not isSoundEnabled then exit; |
|
13 | 104 |
if Mix_Playing(chanTPU) <> 0 then |
105 |
Mix_HaltChannel(chanTPU) |
|
4 | 106 |
end; |
107 |
||
108 |
procedure PlayMusic; |
|
109 |
begin |
|
110 |
if not isSoundEnabled then exit; |
|
111 |
if Mix_PlayingMusic = 0 then |
|
112 |
Mix_PlayMusic(Mus, -1) |
|
113 |
end; |
|
114 |
||
115 |
end. |