property masterAccount : "piyomaru" –監視対象のアカウント

idleMain(true) of me

repeat
　　idleMain(false) of me
　　delay 5
end repeat

on idleMain(initF)
　　tell application "Twitterrific"
　　　　set aList to every tweet whose screen name = masterAccount and text of it contains "#m2tv"
　　　　if aList is not equal to {} then
　　　　　　set anItem to contents of first item of aList
　　　　　　set thisPostDate to date of anItem
　　　　　　
　　　　　　
　　　　　　–初期化フラグをtrueにして呼んだ場合には、処理に必要な変数の初期化のみ行ってリターン
　　　　　　if initF = true then
　　　　　　　　set lastTweetDate to thisPostDate
　　　　　　　　return
　　　　　　end if
　　　　　　
　　　　　　
　　　　　　if thisPostDate is not equal to lastTweetDate then
　　　　　　　　
　　　　　　　　set lastCommand to text of anItem
　　　　　　　　
　　　　　　　　try
　　　　　　　　　　with timeout of 30 seconds
　　　　　　　　　　　　post update ("@" & masterAccount & " (echo)" & lastCommand)
　　　　　　　　　　　　
　　　　　　　　　　　　if lastCommand contains "beep" then
　　　　　　　　　　　　　　say "Message from twitter"
　　　　　　　　　　　　end if
　　　　　　　　　　end timeout
　　　　　　　　end try
　　　　　　　　
　　　　　　　　set lastTweetDate to thisPostDate
　　　　　　end if
　　　　end if
　　end tell
end idleMain

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set sortedList to shellSortListAscending(textList, 1) of me

set pureText to {}
repeat with i in sortedList
　　set {aDate, aText} to i
　　set the end of pureText to (aText & return & return)
end repeat

set pureText to pureText as string

–Journalの階層状況は個人によって異なるので、このまま動くわけではありません
–ご自分の環境に合わせて書き換えて使ってみてください
tell application "MacJournal"
　　tell document 1
　　　　tell journal "個人"
　　　　　　tell journal "業界動向"
　　　　　　　　tell journal "音楽配信"
　　　　　　　　　　tell journal "津田大介"
　　　　　　　　　　　　set jRes to make new journal entry
　　　　　　　　　　　　tell jRes
　　　　　　　　　　　　　　set plain text content to pureText
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　end tell
end tell

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListAscending

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set sortedList to shellSortListAscending(textList, 1) of me

set pureText to {}
repeat with i in sortedList
　　set {aDate, aText} to i
　　set the end of pureText to (aText & return & return)
end repeat

set pureText to pureText as string

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListAscending

–シェルソートで入れ子のリストを降順ソート
on shellSortListDecending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) < (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListDecending

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application “Twitterrific“
　　set theTweeter to screen name of selection
end tell

try
　　tell application “System Events“
　　　　tell process “Twitterrific“
　　　　　　key code 53
　　　　end tell
　　end tell
end try

open location “http://search.twitter.com/search?q=“ & “@“ & theTweeter

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に