35 

    35 

    36 procedure InitSound;

    36 procedure InitSound;

    37 procedure ReleaseSound;

    37 procedure ReleaseSound;

    38 procedure SoundLoad;

    38 procedure SoundLoad;

    39 procedure PlaySound(snd: TSound);

    39 procedure PlaySound(snd: TSound);

    40 procedure PlaySound(snd: TSound; voicepack: PVoicepack);

    41 procedure PlaySound(snd: TSound; voicepack: PVoicepack);

    41 procedure PlaySound(snd: TSound; voicepack: PVoicepack; keepPlaying: boolean);

    42 procedure PlaySound(snd: TSound; voicepack: PVoicepack; keepPlaying: boolean);

    42 function LoopSound(snd: TSound): LongInt;

    43 function LoopSound(snd: TSound): LongInt;

    43 function LoopSound(snd: TSound; voicepack: PVoicepack): LongInt;

    44 function LoopSound(snd: TSound; voicepack: PVoicepack): LongInt;

    44 procedure PlayMusic;

    45 procedure PlayMusic;

   164 procedure PlaySound(snd: TSound);

   165 procedure PlaySound(snd: TSound);

   165 begin

   166 begin

   166     PlaySound(snd, nil, false);

   167     PlaySound(snd, nil, false);

   167 end;

   168 end;

   168 

   169 

   169 procedure PlaySound(snd: TSound; voicepack: PVoicepack);

   175 procedure PlaySound(snd: TSound; voicepack: PVoicepack);

   170 begin

   176 begin

   171     PlaySound(snd, voicepack, false);

   177     PlaySound(snd, voicepack, false);

   172 end;

   178 end;

   173 

   179