[Slepetc]

Знаю, что не в тему, но раз уж подняли тему, то птицы преимущественно со случайными перерывами.
Поэтому бы вот так изменил код:

const N=10
Dim AmbientSnds[N,3]

AmbientSnds[0,0]=LoadSound(...) ; хендл
AmbientSnds[0,1]=10000 ; к интервалу будет добавляться случайное число в пределах этого
AmbientSnds[0,1]=0 ;обязательный интервал

For i=0 to N
    If AmbientSnds[i,0]<> 0 then ; Если звука нет то обрабатывать уже нечего, выходим
        If rand(AmbientSnds[i,1])+AmbientSnds[i,3]+AmbientSnds[i,2]<Millisecs() then 
             PlaySound(AmbientSnds[i,0])
             AmbientSnds[i,2] = Millisecs()
        end if
    else
        exit
    end if
next

З.Ы. не знаю, может где-то ошибки, давно не работал с Блитцем.