global gMusicList
on startmovie
preLoadMember member 1, 4
initAudioList
end
on initAudioList
set gMusicList =[1,1,2,2,2,2,3,3,3,4,4,4]
end
on DoAudio
if NOT soundbusy(2) then
set x= getat(gMusicList,1)
deleteat(gMusicList,1)
puppetsound(2,x)
if count(gMusicList) < 1 then initAudioList
set the text of cast "loopnum"= string(x)
end if
end