「ご主人様ご命令を！」OS Xでスクリプトスレ

漏れも便乗して、Windows Mediaの連続再生。

property wm_List : {""}

on open file_List
tell application "Finder"
repeat with a_File in file_List
set a_File to "<entry><ref href=\"file://" & a_File & "\"/></entry>"
set end of wm_List to a_File
end repeat
end tell
end open

on run
tell application "Finder"
set the_button to button returned of (display dialog "asxファイルを作ってもいいんだな？" buttons {"キャンセル", "クリア", "いいよ"} default button 3)
if the_button is "いいよ" then
set old_Delim to AppleScript's text item delimiters
set AppleScript's text item delimiters to return
set the_text to {"<asx version=\"3.0\">", wm_List as string, "</asx>"}
set the_text to the_text as string
set AppleScript's text item delimiters to old_Delim
set asx_file to choose file name
set the_file to open for access asx_file with write permission
write the_text to the_file
close access the_file
set creator type of asx_file to "Ms01"
else if the_button is "クリア" then
set wm_List to {""}
end if
end tell
end run

ファイルをひとつづつドロップするとドロップレットが順番を憶える。
一括してドロップしてもOKっす。
ダブルクリックでasxとして書き出し。
ramやsmilにも応用できる。
バグ対策としてFinderにtellしたけど、必要無ければ省いちゃって。

OS9.04以下の場合は566のchoose file nameをnew fileに書き換えてね。