| changeset 4361 | 64ea345ab655 |
| parent 4359 | 83ef50815535 |
| child 4374 | bcefeeabaa33 |
| 4359:83ef50815535 | 4361:64ea345ab655 |
|---|---|
20 |
20 |
21 unit uSound; |
21 unit uSound; |
22 interface |
22 interface |
23 uses SDLh, uConsts, uTypes; |
23 uses SDLh, uConsts, uTypes; |
24 |
24 |
25 type PVoicepack = ^TVoicepack; |
|
26 TVoicepack = record |
|
27 name: shortstring; |
|
28 chunks: array [TSound] of PMixChunk; |
|
29 end; |
|
30 |
|
31 var MusicFN: shortstring; |
25 var MusicFN: shortstring; |
32 |
26 |
33 procedure initModule; |
27 procedure initModule; |
34 procedure freeModule; |
28 procedure freeModule; |
35 |
29 |