hedgewars/uSound.pas
changeset 7061 4e0fc59ab1ce
parent 7053 8c9dcaedc7a8
child 7151 ec15d9e1a7e3
equal deleted inserted replaced
7060:861d6897917f 7061:4e0fc59ab1ce
    38 procedure initModule;
    38 procedure initModule;
    39 procedure freeModule;
    39 procedure freeModule;
    40 
    40 
    41 procedure InitSound;                            // Initiates sound-system if isSoundEnabled.
    41 procedure InitSound;                            // Initiates sound-system if isSoundEnabled.
    42 procedure ReleaseSound(complete: boolean);      // Releases sound-system and used resources.
    42 procedure ReleaseSound(complete: boolean);      // Releases sound-system and used resources.
    43 procedure SetSound;                             // Reset sound state to the previous state.
    43 procedure ResetSound;                           // Reset sound state to the previous state.
    44 procedure SetSound(enabled: boolean);           // Enable/disable sound-system and backup status.
    44 procedure SetSound(enabled: boolean);           // Enable/disable sound-system and backup status.
    45 
    45 
    46 // MUSIC
    46 // MUSIC
    47 
    47 
    48 // Obvious music commands for music track
    48 // Obvious music commands for music track
   181 
   181 
   182     Mix_AllocateChannels(Succ(chanTPU));
   182     Mix_AllocateChannels(Succ(chanTPU));
   183     ChangeVolume(cInitVolume);
   183     ChangeVolume(cInitVolume);
   184 end;
   184 end;
   185 
   185 
   186 procedure SetSound;
   186 procedure ResetSound;
   187 begin
   187 begin
   188     isSoundEnabled:= isSEBackup;
   188     isSoundEnabled:= isSEBackup;
   189 end;
   189 end;
   190 
   190 
   191 procedure SetSound(enabled: boolean);
   191 procedure SetSound(enabled: boolean);