(*
set a to the clipboard
set aList to paragraphs of a
*)
set aList to {"211x3gk1", "7g2tf3gk"}

set erList to {}

set aaList to uniquify1DList(aList, true) of me –IDのユニーク化を追加

repeat with i in aaList
　　
　　set j to contents of i
　　if j is not equal to "" then
　　　　
　　　　–キーコードからURLへの変換を行う
　　　　set aURL to convKeyToURL(j) of me
　　　　
　　　　if aURL is not equal to "" or aURL is not equal to false then
　　　　　　if (aURL starts with "https://") or (aURL starts with "http://") then
　　　　　　　　
　　　　　　　　–指定URLのYouTubeのムービーをダウンロードする
　　　　　　　　set aRes to downloadYoutubeMovieViaOffLiberty(aURL) of me
　　　　　　　　set the end of erList to aRes
　　　　　　　　
　　　　　　end if
　　　　end if
　　　　
　　end if
end repeat

return erList –ダウンロード（エラー）結果

(*
–ダウンロードしたいYouTubeのムービーのURL
set aURL to "https://www.youtube.com/watch?t=261&v=k95yIQn2Sdg"
set aRes to downloadYoutubeMovieViaOffLiberty(aURL) of me
–> true （OK) / false (NG)
*)

–指定のURLのYouTubeのムービーをOffLiverty経由でローカルにダウンロード（2015/7/18 Version）
on downloadYoutubeMovieViaOffLiberty(aURL)
　　
　　set groupList to {6, 3} –Click Link Group in OffLiberty Page
　　
　　–OffLibertyの呼び出しブックマークレット
　　set jsText to "var title = window.location.href;
　　if (title.indexOf(’http://offliberty.com’) == 0) { (function(){ location.href=’http://offliberty.com/#bookmarklet’; })(); }
　　else { (function(){ window.open(’http://offliberty.com/#’+encodeURIComponent(location.href)); })(); }"
　　
　　tell application "Safari"
　　　　close every document
　　end tell
　　
　　
　　tell application "Safari"
　　　　make new document with properties {URL:aURL}
　　　　delay 1
　　　　do JavaScript jsText in document 1
　　　　activate
　　end tell
　　
　　tell current application
　　　　delay 10
　　end tell
　　
　　–delay後に実行しないとHTML Viewへの参照が取得できなかった（要注意ポイント）
　　set aHTMLView to retSafariHTMLViewReference() of safari_gui_lib
　　
　　tell application "Safari"
　　　　activate
　　end tell
　　
　　
　　set hitF to false
　　
　　repeat with aCount from 1 to 1000
　　　　
　　　　tell current application
　　　　　　delay 5
　　　　end tell
　　　　
　　　　set aTitle to ""
　　　　repeat with ii in groupList
　　　　　　
　　　　　　set jj to contents of ii
　　　　　　
　　　　　　tell application "System Events"
　　　　　　　　tell aHTMLView
　　　　　　　　　　
　　　　　　　　　　tell group jj –１回変換したものはサイト側でキャッシュしているようなのでループ（6–>3）で対応
　　　　　　　　　　　　tell UI element 1
　　　　　　　　　　　　　　try
　　　　　　　　　　　　　　　　set aTitle to title
　　　　　　　　　　　　　　end try
　　　　　　　　　　　　end tell
　　　　　　　　　　end tell
　　　　　　　　　　
　　　　　　　　　　if (jj = 3 and aTitle = "Right-click here and ’Save link as…’") then
　　　　　　　　　　　　–オーディオファイルをダウンロードさせようとして、ビデオを直接ダウンロードさせない場合の対応
　　　　　　　　　　　　tell group 4
　　　　　　　　　　　　　　click button 1 –"I want video file"ボタンをクリック
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　tell current application
　　　　　　　　　　　　　　　　delay 5
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　
　　　　　　　　　　　　end tell
　　　　　　　　　　else if jj = 6 and aTitle = "Right-click here and ’Save link as…’" then
　　　　　　　　　　　　set hitF to true
　　　　　　　　　　　　tell group jj
　　　　　　　　　　　　　　tell UI element 1
　　　　　　　　　　　　　　　　click –Download by clicking link
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　tell current application
　　　　　　　　　　　　　　　　　　delay 5
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　return hitF
　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　end tell
　　　　　　　　　　　　
　　　　　　　　　　end if
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　end tell
　　　　　　
　　　　end repeat
　　　　
　　end repeat
　　
　　return hitF
　　
end downloadYoutubeMovieViaOffLiberty

–Safariでオープン中のURLのローディング完了を待つ
on page_loaded(timeout_value)
　　tell current application
　　　　delay 1
　　end tell
　　
　　repeat with i from 1 to the timeout_value
　　　　tell application "Safari"
　　　　　　if (do JavaScript "document.readyState" in document 1) is "complete" then
　　　　　　　　return true
　　　　　　else if i is the timeout_value then
　　　　　　　　return false
　　　　　　else
　　　　　　　　tell current application
　　　　　　　　　　delay 1
　　　　　　　　end tell
　　　　　　end if
　　　　end tell
　　end repeat
　　return false
end page_loaded

–バージョン番号文字列からメジャーバージョンを取り出し数値として返す
on retMajorVersionNumber(a)
　　
　　set aStr to current application’s NSString’s stringWithString:a
　　–> "10.0.1" (NSString)
　　
　　set aRes to (aStr’s componentsSeparatedByString:".")
　　–> {"10","0","1"} (NSArray)
　　
　　set bRes to aRes’s firstObject()
　　–> "10" (NSString)
　　
　　set cRes to bRes’s integerValue()
　　–> 10
　　
　　return cRes as integer
　　
end retMajorVersionNumber

–Window 1が通常のWebページを表示しているかどうか判定
on detectSafariWindow1Status()
　　
　　–最前面のWindowの表示状態を取得して「処理対象外」のケースを検出する
　　tell application "Safari"
　　　　–Windowの枚数をかぞえる
　　　　set wCount to count every window
　　　　if wCount = 0 then return false –Windowなしの場合には処理対象外
　　　　
　　　　tell window 1
　　　　　　set aProp to properties
　　　　end tell
　　　　
　　end tell
　　
　　
　　try
　　　　–Window 1に該当するdocumentを取得する
　　　　set aDoc to document of aProp
　　　　
　　　　tell application "Safari"
　　　　　　tell aDoc
　　　　　　　　set bProp to properties
　　　　　　end tell
　　　　end tell
　　　　
　　on error
　　　　–エラーが発生するのは通常ページ「ではない」ものを表示しているため、と判断
　　　　return false –Displaying pages of iCloud connected devices
　　　　
　　end try
　　
　　
　　tell application "Safari"
　　　　set aURL to (URL of bProp)
　　end tell
　　
　　
　　–「お気に入り」か「Pages of iCloud connected devices」表示中なら
　　if aURL = "favorites://" or aURL = missing value then
　　　　return false
　　end if
　　
　　
　　return true
　　
end detectSafariWindow1Status

on convKeyToURL(aKey)
　　
　　tell application "Safari"
　　　　set dCount to count every document
　　　　if dCount > 0 then
　　　　　　set URL of document 1 to "http://gundam-kizuna.jp/detail/replay/search/index.php"
　　　　else
　　　　　　make new document with properties {URL:"http://gundam-kizuna.jp/detail/replay/search/index.php"}
　　　　end if
　　end tell
　　
　　–ローディング待ち
　　set aRes to page_loaded(60) of me
　　if aRes = false then return aRes
　　—
　　
　　–SafariのGUI Scripting的な観点からWebViewへの参照を取得する
　　set aHTMLView to retSafariHTMLViewReference() of safari_gui_lib
　　if aHTMLView = false then return
　　
　　tell application "System Events"
　　　　tell aHTMLView
　　　　　　tell text field 1 of group 2
　　　　　　　　set value to aKey
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　tell current application to delay 1
　　
　　tell application "System Events"
　　　　tell aHTMLView
　　　　　　–tell text field 1 of group 2
　　　　　　tell group 3
　　　　　　　　click
　　　　　　end tell
　　　　end tell
　　end tell
　　
　　tell current application to delay 1
　　
　　–結果待ち
　　repeat 100 times
　　　　
　　　　–キー文字列による検索がエラーになったかを判定
　　　　tell application "System Events"
　　　　　　tell aHTMLView
　　　　　　　　tell group 4
　　　　　　　　　　set bTitle to value of static text 1
　　　　　　　　　　if bTitle is in {"まだ動画が公開されていません。", "リプレイ動画検索に失敗しました。"} then return false
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　　　
　　　　–結果のURLを取り出す
　　　　tell application "System Events"
　　　　　　tell aHTMLView
　　　　　　　　tell group 4
　　　　　　　　　　tell UI element 2
　　　　　　　　　　　　–Link
　　　　　　　　　　　　set aTitle to title
　　　　　　　　　　end tell
　　　　　　　　end tell
　　　　　　end tell
　　　　end tell
　　　　
　　　　
　　　　if aTitle starts with "http://youtu.be/" then
　　　　　　return aTitle
　　　　end if
　　　　
　　　　tell current application to delay 1
　　　　
　　end repeat
　　
　　–結果が得られなかった場合
　　return ""
　　
end convKeyToURL