//ループプレイヤ
!母艦設計=「母艦の可視はオフ」
母艦のタイトルは「ループプレイヤ」
母艦のクライアント高さは120
母艦のクライアント幅は80
母艦のXは、デスクトップX+デスクトップワークエリアW-母艦の幅。
母艦のYは、デスクトップY+デスクトップワークエリアH-母艦の高さ。
母艦の閉じたときは
	終了処理

回数=0
temp=「」

開くボタンとはボタン
	そのクリックした時は
		開く処理
再生ボタンとはボタン
	そのクリックした時は
		再生処理
停止ボタンとはボタン
	そのクリックした時は
		停止処理
母艦の可視はオン

//サブルーチン
●終了処理
	「music{回数}」をMCI閉じる

●開く処理
	もし、回数<>0ならば
		「music{回数}」をMCI閉じる
	「C:\Documents and Settings\tetz\My Documents\My Music」へ作業フォルダ変更
	「再生可能な全てのメディアファイル|*.mp3;*.wma;*.wav;*.mid;*.midi;*.mml;*.mpg;*.mpeg;*.wmv;*.avi」のファイル選択
	それを音楽ファイルに代入
	もし、音楽ファイル≠空ならば
		temp=「再生中」
		回数=回数+1
		音楽ファイルを「music{回数}」でMCI開く
		「music{回数}」をループ再生
●再生処理
	「C:\Documents and Settings\tetz\My Documents\My Music」へ作業フォルダ変更
	もし、temp=「停止」ならば
		temp=「再生中」
		「music{回数}」を一時停止解除
		
●停止処理
	もし、temp=「再生中」ならば
		temp=「停止」
		「music{回数}」を一時停止

●ループ再生(Aを)
　　「play {A} repeat」をMCI送信。

●一時停止(Aを)
　　「pause {A}」をMCI送信。

●一時停止解除(Aを)
　　「resume {A}」をMCI送信。