LaunchBarからiTunesの現在の曲にレーティングするAppleScriptスクリプト

tell application "iTunes"
	set targetId to database ID of current track
	set targetTrack to item 1 of (every track of current playlist whose database ID is targetId)
 
	set ratings to {"・・・・・", "★・・・・", "★★・・・", "★★★・・", "★★★★・", "★★★★★"}
	set selectedItem to item 1 of {choose from list ratings}
	if selectedItem = false then return
 
	set selectedRating to item 1 of selectedItem
 
	if selectedRating = "・・・・・" then
		set ratingNumber to 0
	else if selectedRating = "★・・・・" then
		set ratingNumber to 20
	else if selectedRating = "★★・・・" then
		set ratingNumber to 40
	else if selectedRating = "★★★・・" then
		set ratingNumber to 60
	else if selectedRating = "★★★★・" then
		set ratingNumber to 80
	else if selectedRating = "★★★★★" then
		set ratingNumber to 100
	end if
 
	set rating of targetTrack to ratingNumber
end tell

tell application "iTunes" set targetId to database ID of current track set targetTrack to item 1 of (every track of current playlist whose database ID is targetId) set ratings to {"・・・・・", "★・・・・", "★★・・・", "★★★・・", "★★★★・", "★★★★★"} set selectedItem to item 1 of {choose from list ratings} if selectedItem = false then return set selectedRating to item 1 of selectedItem if selectedRating = "・・・・・" then set ratingNumber to 0 else if selectedRating = "★・・・・" then set ratingNumber to 20 else if selectedRating = "★★・・・" then set ratingNumber to 40 else if selectedRating = "★★★・・" then set ratingNumber to 60 else if selectedRating = "★★★★・" then set ratingNumber to 80 else if selectedRating = "★★★★★" then set ratingNumber to 100 end if set rating of targetTrack to ratingNumber end tell