use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

tell application "Script Debugger"
　　set dList to name of every document
　　set dRes to choose from list dList with prompt "Choose Script to check linked files (framework/script libraries)"
　　if dRes = false then return
　　set dName to contents of item 1 of dRes
　　
　　tell document dName
　　　　set myFile to path
　　　　
　　　　–Framework Check
　　　　set uList to used framework files
　　　　set fList to {}
　　　　repeat with i in uList
　　　　　　set j to POSIX path of i
　　　　　　if (j does not start with myFile) and (j does not start with "/System/Library/Frameworks/") then
　　　　　　　　set the end of fList to j
　　　　　　end if
　　　　end repeat
　　　　
　　　　–Script Library Check
　　　　set libList to used script library files
　　　　set sList to {}
　　　　repeat with i in sList
　　　　　　set j to POSIX path of i
　　　　　　if j does not start with myFile then
　　　　　　　　set the end of sList to POSIX path of i
　　　　　　end if
　　　　end repeat
　　　　
　　　　(*
　　　　–Scripting Additions Check (Omitted)
　　　　set sdList to used scripting addition files
　　　　set dList to {}
　　　　repeat with i in dList
　　　　　　set j to POSIX path of i
　　　　　　if j does not start with myFile then
　　　　　　　　set the end of dList to POSIX path of i
　　　　　　end if
　　　　end repeat
　　　　*)
　　end tell
end tell

set resList to {fList, sList}
set res2List to FlattenList(resList) of me
set res3List to cleanUp1DList(res2List, {""}) of me
if res3List = {} then
　　display dialog "Lib/Framework link check OK"
else
　　set aLen to length of res3List
　　set tmpStr to retDelimedText(res3List, return) of me
　　display dialog (aLen as string) & " Lib/Framework exists out of the bundle." & return & tmpStr
end if

–次元数上限なしの多次元配列を１次元配列にフラット化　By Paul Berkowitz
on FlattenList(aList)
　　set oldDelims to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {"????"}
　　set aString to aList as text
　　set aList to text items of aString
　　set AppleScript’s text item delimiters to oldDelims
　　return aList
end FlattenList

on cleanUp1DList(aList as list, cleanUpItems as list)
　　set bList to {}
　　repeat with i in aList
　　　　set j to contents of i
　　　　if j is not in cleanUpItems then
　　　　　　set the end of bList to j
　　　　end if
　　end repeat
　　return bList
end cleanUp1DList

on retDelimedText(aList, aDelim)
　　set aText to ""
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to aDelim
　　set aText to aList as text
　　set AppleScript’s text item delimiters to curDelim
　　return aText
end retDelimedText