95 if Mix_Playing(Soundz[snd].lastChan) <> 0 then

    95 if Mix_Playing(Soundz[snd].lastChan) <> 0 then

    96    Mix_HaltChannel(Soundz[snd].lastChan)

    96    Mix_HaltChannel(Soundz[snd].lastChan)

    97 end;

    97 end;

    98 

    98 

    99 procedure PlayMusic;

    99 procedure PlayMusic;

   100 var s: string;

   101 var s: string;

   101 begin

   103 begin

   102 {$IFDEF HAVE_MUSIC}

   104 {$IFDEF HAVE_MUSIC}

   103 if not isSoundEnabled then exit;

   105 if not isSoundEnabled then exit;

   104 if Mix_PlayingMusic() <> 0 then exit;

   106 if Mix_PlayingMusic() <> 0 then exit;

   105 

   107 

   130 Mix_VolumeMusic(Volume * 3 div 8);

   132 Mix_VolumeMusic(Volume * 3 div 8);

   131 ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME

   133 ChangeVolume:= Volume * 100 div MIX_MAX_VOLUME

   132 end;

   134 end;

   133 

   135 

   134 procedure InitPlaylistChunk(seed: LongWord);

   136 procedure InitPlaylistChunk(seed: LongWord);

   135 var i, t, nt: Longword;

   138 var i, t, nt: Longword;

   136 begin

   140 begin

   137 {$IFDEF HAVE_MUSIC}

   141 {$IFDEF HAVE_MUSIC}

   138 for i:= 0 to Pred(cPlayListLength) do

   142 for i:= 0 to Pred(cPlayListLength) do

   139     playlistchain[i]:= 0;

   143     playlistchain[i]:= 0;

   140 

   144