property idleTime : 900 -- スリープするまでの時間（秒）「0」にするとスリープしない

on run

tell application "System Events"

set processList to name of every application process

end tell

if processList contains "iTunes" then

tell application "iTunes"

if player state is playing then

try

tell application id "com.apple.ScreenSaver.Engine" to quit

end try

activate

--set minimized of window 1 to false

set full screen to true

set visuals enabled to true

my sleepRun()

end if

end tell

end if

end run

on sleepRun()

if idleTime is 0 then return

repeat with i from 1 to idleTime

delay 1

tell application "System Events" to set currentApp to (name of the first process whose frontmost is true)

if currentApp is not "iTunes" then

return

else

tell application "iTunes"

if visuals enabled is false then return

end tell

end if

end repeat

--tell application "iTunes" to set full screen to false

tell application "iTunes" to set visuals enabled to false

tell application "System Events" to sleep

end sleepRun

-- 日/週/月ごとのメンテナンススクリプトをまとめて実行します

-- 下の行の "管理者アカウント名" と "パスワード" を入力してから保存して下さい。

do shell script "/usr/sbin/periodic daily weekly monthly" user name "管理者アカウント名" password "パスワード" with administrator privileges

set theseSongs to {"say -v Good oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo", "say -v Bad oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo", "osascript -e" & quoted form of "say \"Dum dum dum dum dum dum dum he he he ho ho ho fa lah lah lah lah lah lah fa lah full hoo hoo hoo\" using \"Cellos\"", "osascript -e" & quoted form of "say \"oh This is a silly song silly song silly song this is the silliest song ive ever ever heard So why keep you listening listening listening while you are supposed to work to work to work to work its because i hate my job hate my job hate my job its because i hate my job more than anything else No its because youve no life youve no life youve no life and you better go get one after forwarding this crap\" using \"cellos\"", "osascript -e" & quoted form of "say \"Dum dum dee dum dum dum dum dee Dum dum dee dum dum dum dum dee dum dee dum dum dum de dum dum dum dee dum dee dum dum dee dummmmmmmmmmmmmmmmm\" using \"Hysterical\""}

set singCommand to item (random number from 1 to 5) of theseSongs

do shell script singCommand