1:

C:\Users\Sebastian\AppData\Local\VirtualStore\Program Files (x86)\Minigolf\Levels\Not_Delete					

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:

{
Version: 2.3.0.2
Initialisieren: StartBass;
Beenden: EndBass;
Sound Laden: LoadMusicData  //0..128 mögliche Streams
Sound freigeben: FreeMusicData //0..128 mögliche Streams
}

unit MyBass_Unit;

interface

Function StartBass:Boolean;
Procedure EndBass;
Function LoadMusicData(Dateiname:String; Index:Byte; Playloop:Boolean):Boolean;
Procedure FreeMusicData(Index:Byte);
Function PlayMusic(Index:Byte):Boolean;
Function StopMusic(Index:Byte):Boolean;
Function MusicPlaying(Index:Byte):Integer;
Function Continue_Music(Index:Byte):Boolean;
Function PauseMusic(Index:Byte):Boolean;
Function Music_GetVolume(Index:Integer):Integer;
Function Music_SetVolume(Index:Integer; Volume:Integer):Boolean;

implementation
Uses Windows, Bass;
Var     strs: array[0..128] of HSTREAM;    //Maximum an Streams

Function StartBass:Boolean;
Begin
Result:=True;
IF (HIWORD(BASS_GetVersion) <> BASSVERSION) then
   Result:=False else
IF not(BASS_Init(-1, 44100, 0, 0, nil))then
   Result:=False;
End;

Procedure EndBass;
Begin
BASS_Free();
End;

//Playloop => Spielt Sound in Endlosschleife
Function LoadMusicData(Dateiname:String; Index:Byte; Playloop:Boolean):Boolean;
Begin
  IF Playloop then
     strs[Index] := BASS_StreamCreateFile(False, Pchar(Dateiname), 0, 0, BASS_SAMPLE_LOOP) else
     strs[Index] := BASS_StreamCreateFile(False, Pchar(Dateiname), 0, 0, 0);
End;

Procedure FreeMusicData(Index:Byte);
Begin
BASS_StreamFree(strs[Index]);
End;

Function PlayMusic(Index:Byte):Boolean;
Begin
Result:=True;
IF not(BASS_ChannelPlay(strs[Index], True)) then Result:=False;
End;

Function Continue_Music(Index:Byte):Boolean;
Begin
Result:=True;
IF not(BASS_ChannelPlay(strs[Index], False)) then Result:=False;
End;

//0 = Stopped; 1 = Playing; 2 = Stalled; 3 = Paused
Function MusicPlaying(Index:Byte):Integer;
Begin
Result:=Bass_ChannelisActive(strs[Index]);
End;

Function StopMusic(Index:Byte):Boolean;
Begin
BASS_ChannelStop(strs[Index]);
End;

Function PauseMusic(Index:Byte):Boolean;
Begin
BASS_ChannelPause(strs[Index]);
End;

Function Music_GetVolume(Index:Integer):Integer;
Var Freq, Vol:Cardinal;
    Pan:Integer;
Begin
Bass_ChannelGetAttributes(Strs[Index],Freq,Vol,Pan);
Result:=Vol;
End;

Function Music_SetVolume(Index:Integer; Volume:Integer):Boolean;
Var Freq, Vol:Cardinal;
    Pan:Integer;
Begin
Result:=False;
Bass_ChannelGetAttributes(Strs[Index],Freq,Vol,Pan);
Vol:=Volume;
IF Bass_ChannelSetAttributes(Strs[Index],Freq,Vol,Pan) then
   Result:=True;
End;

end.