如何随机插放几个不同的背景音乐

如何随机插放几个不同的背景音乐
　　 当画面不变时，如何随机插放几个不同的背景音乐。

　　 有朋友问如何实现：当画面不变时，如何随机插放几个不同的背景音乐。而且要上一次放过的背景音乐下一次不能插放。也就是说，同一首音乐不能连续放两次，我觉得有点意思，就放上来了，给初学者们看看吧。

　　 在这里只用了一个帧行为。背景音乐用了三首不同的音乐。具体程序如下：

on exitFrame me
global k
if soundBusy ( 1 ) then
go to the frame
else
　　　　 j= random ( 3 )
if j=k then
　　　　　　 j= random ( 3 )
else
case j of
　　　　　　　　 1:sound( 1 ). play ( member ( "left" ))
member ( 6 ). text = "left"
　　　　　　　　 2:sound( 1 ). play ( member ( "right" ))
member ( 6 ). text = "right"
　　　　　　　　 3:sound( 1 ). play ( member ( "go" ))
member ( 6 ). text = "go"
end case
　　　　　　 k=j
go to the frame
end if
end if
end


　　 程序运行后的画面如图所示。




　　 演员表中所用的演员如图所示。



　　 在这里，三个背景音乐我用了完全导入影片的方式，实际应用时，不要用这种方式，应该用链接到外部文件的方式导入它们，因为采用完全导入方式时，背景音乐是要长期占用内存空间的，当背景音乐的容量很大时，会严重影响影片的速度，这是初学者常犯的错误。

本文章相关附件： musicloop2.rar

[1]