property pass : ""
 
set binput to "HELP:クエリについて"
repeat until (binput is not "HELP:クエリについて")
	set input to display dialog "クエリを入力してください。" default answer "" buttons {"OK", "キャンセル", "HELP:クエリについて"} default button 1
	set binput to button returned of input
	set tinput to text returned of input
 
	if binput = "HELP:クエリについて" then
		set help1 to "クエリは【動作,時間】で表記します。
(時間は省略可)
 
・動作
　sh:シャットダウン
　re:再起動
　sl:スリープ
　ss:スクリーンセーバー
　slkill:スリープしなくなる
　slmode:スリープモード変更
 
・時間
　◯◯s/m/h　(s=秒、m=分,h=時)
　◯◯:◯◯
 
詳細
http://www.hw2-suito.com/archives/579
"
		my tellhelp(help1)
	else if tinput contains "," then
		set que to text2list(tinput, ",")
		set que1 to text item 1 of que
		set que2 to text item 2 of que
	else
		set que1 to tinput
		set que2 to "0s"
	end if
end repeat
 
if pass = "" then
	display dialog "ユーザーパスワードを入力してください" default answer ""
	set pass to text returned of result
end if
 
set pmlog to do shell script "pmset -g"
set pmloglist to my text2list(pmlog, return)
-- スリープモードの確認
set slmode to last item of characters of text item 5 of pmloglist as string
if slmode = "3" then
	set slmode to "セーフスリープ"
else if slmode = "0" then
	set slmode to "スリープ"
else
	set slmode to "ディープスリープ"
end if
-- スリープ時間の格納
set sltime to text item 10 of pmloglist as string
set sltimelist to my text2list(sltime, "	")
set sltime to last text item of sltimelist
-- ディスプレイスリープ時間の格納
set dsltime to text item 15 of pmloglist as string
set dsltimelist to my text2list(dsltime, "	")
set dsltime to last text item of dsltimelist
 
--動作
if que1 = "slkill" then
	do shell script "pmset -a sleep 0 displaysleep 0" password pass with administrator privileges
end if
 
set dtime to my waittime(que2)
delay dtime
 
if que1 = "slmode" then
	set rebutton to ""
	display dialog "現在のスリープモードは「" & slmode & "」です。" & return & "変更するモードを選択してください。" buttons {"スリープ", "ディープスリープ", "セーフスリープ"} default button 1
	set rebutton to button returned of result
	if rebutton = "スリープ" then
		set slmodecode to "pmset -a hibernatemode 0"
		do shell script slmodecode password pass with administrator privileges
		display dialog "スリープに変更しました。" buttons {"はい"} default button 1
	else if rebutton = "ディープスリープ" then
		set slmodecode to "pmset -a hibernatemode 25"
		do shell script slmodecode password pass with administrator privileges
		display dialog "ディープスリープに変更しました。" buttons {"はい"} default button 1
	else if rebutton = "セーフスリープ" then
		set slmodecode to "pmset -a hibernatemode 3"
		do shell script slmodecode password pass with administrator privileges
		display dialog "セーフスリープに変更しました。" buttons {"はい"} default button 1
	end if
 
else if que1 = "sd" then
	tell application "Finder" to shut down
else if que1 = "re" then
	tell application "Finder" to restart
else if que1 = "sl" then
	do shell script "pmset sleepnow"
else if que1 = "ss" then
	tell application "Finder"
		open application file "/System/Library/Frameworks/ScreenSaver.framework/Resources/ScreenSaverEngine.app" as POSIX file
	end tell
	--スリープの設定を戻す
else if que1 = "slkill" then
	do shell script "pmset -a sleep " & sltime & " displaysleep " & dsltime password pass with administrator privileges
end if
 
(*
9割参考にした記事、ありがとうございます
 
スリープに関する知識まとめ - ザリガニが見ていた...。
http://d.hatena.ne.jp/zariganitosh/20110706/about_sleep
 
スリープ可能⇔不可能をすばやく切り替えるAppleScript『Sleep Enable/Disable Switcher』 -  Macの手書き説明書
http://veadardiary.blog29.fc2.com/blog-entry-2952.html
*)
 
 
--hms表記をs単位(秒)に変換、◯◯:◯◯表記を現時刻から引き算した秒に変換
on waittime(query)
	if query contains ":" then
		set time1 to text2list(query, ":")
		set ctime to (do shell script "date '+%H:%M'")
		set time2 to text2list(ctime, ":")
		set timeh to (60 * ((item 1 of time2) - (item 1 of time1)))
		set timem to (item 2 of time2) - (item 2 of time1)
		set time3 to 60 * (timeh + timem)
	else
		set hms to last item of characters of query
		set time3 to reverse of rest of reverse of characters of query as string
		if hms = "h" then
			set time3 to time3 * 3600
		else if hms = "m" then
			set time3 to time3 * 60
		end if
	end if
	set time3 to time3 as number
end waittime
 
-- HELPテキストを表示
on tellhelp(disp)
	display dialog disp buttons {"OK"} default button 1
end tellhelp
 
--DelTextをNewDelimで分割してリスト化
on text2list(DelText, NewDelim)
	set LastDelim to AppleScript's text item delimiters
	set AppleScript's text item delimiters to NewDelim
	set DelList to ""
	repeat with i from 1 to (count text item of DelText)
		set demo to text item i of DelText
		set DelList to DelList & demo as list
	end repeat
	set AppleScript's text item delimiters to LastDelim
	DelList
end text2list

-- Sleepモードを変更するときのサンプル
set pass to "パスワード平打ち"
set slmodecode to "pmset -a hibernatemode 1"
do shell script slmodecode password pass with administrator privileges

on adding folder items to this_folder after receiving added_items
	set added_items to added_items as alias
	delay 10 --Dropboxから同期する時間
	tell application "Finder"
		copy properties of added_items to {name:a3, name extension:a4}
		if a3 contains "000" then
			set iname to a3's characters 1 thru -((count character of a4) + 7) as Unicode text --連番を抜いたファイル名
			try
				set name of added_items to "この名前のファイルは作らないでください" --この名前に仮リネーム
			end try
			set fpath to POSIX path of this_folder
			set query to "rm -rf `find " & fpath & ". -name \"" & iname & "\"*`"
			do shell script query
			delay 3 --削除までの余裕、いらないかも
			set name of added_items to iname & "." & a4
		end if
	end tell
end adding folder items to