42 procedure PauseMusic;

    42 procedure PauseMusic;

    43 procedure ResumeMusic;

    43 procedure ResumeMusic;

    44 procedure ChangeMusic;

    44 procedure ChangeMusic;

    45 procedure StopSound(snd: TSound);

    45 procedure StopSound(snd: TSound);

    46 procedure StopSound(chn: LongInt);

    46 procedure StopSound(chn: LongInt);

    47 function  ChangeVolume(voldelta: LongInt): LongInt;

    48 function  ChangeVolume(voldelta: LongInt): LongInt;

    48 function  AskForVoicepack(name: shortstring): Pointer;

    49 function  AskForVoicepack(name: shortstring): Pointer;

    49 

    50 

    50 

    51 

    51 implementation

    52 implementation