如何随机播不同的背景音乐

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

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

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

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

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

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

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