#スクリプト同じフォルダのiniファイルを読み込み、フォルダのパスを取得
IniFilePath = SystemPath( "ScriptPath" ) \ "rndsndplay.ini"
FolderPath = IniRead( IniFilePath, "FOLDER", "PATH" )

FileCnt = 0

#フォルダ内の全てのwavファイルを検索して配列にファイル名を格納
ForEach FileName in files (FolderPath \ "*.wav")

	FileList[Filecnt] = Filename
	FileCnt = FileCnt + 1

EndForEach

#配列内のwavファイルをランダムで1つ鳴らす
PlaySound( FileList[Rnd( FileCnt )] )

#画面を回転。Anはmortscriptにパラメータで渡す

If( An eq "" )
Else
	Rotate( An )
Endif