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

久しぶりにエロスクリプト
Real movie を連続再生のドロップレット

on open fileList
set LengthList to {}
set counter to 0
repeat with aFile in fileList
tell application "RealOne Player"
open aFile
set end of LengthList to (GetLength) / 1000
end tell
end repeat
tell application "RealOne Player"
repeat with aFile in fileList
set counter to counter + 1
activate
open aFile
delay (item counter of LengthList as number)
end repeat
end tell
end open