set fileCount to 0
set baseName to ""
set baseNumber to 1

tell application "Finder"
	set selectedFiles to selection
	
	repeat with aFile in selectedFiles
		set fileCount to fileCount + 1
	end repeat
	
	set baseName to text returned of (display dialog "변경할 파일명을 입력하세요:" default answer "")
	
	repeat with aFile in selectedFiles
		set fileNumber to text -2 thru -1 of ("0" & baseNumber)
		set fileName to name of aFile
		set fileExtension to name extension of aFile
		set baseNameWithExtension to baseName & "_" & fileNumber & "." & fileExtension
		set newName to my updateExtension(fileName, baseNameWithExtension)
		set name of aFile to newName
		set baseNumber to baseNumber + 1
	end repeat
end tell

on updateExtension(oldName, newFullName)
	set AppleScript's text item delimiters to "."
	set nameParts to text items of oldName
	set extension to last item of nameParts
	set newNameParts to text items 1 thru -2 of newFullName
	set AppleScript's text item delimiters to ""
	return (newNameParts as text) & "." & extension
end updateExtension

set userResponse to display dialog "각 파일별로 압축 작업을 실행하시겠습니까?" buttons {"No", "Yes"} default button "Yes" with icon note
if button returned of userResponse is "Yes" then
	tell application "Finder"
		set selectedItems to selection
	end tell
	
	set output to {}
	set skippedItems to {}
	set destinationFolder to missing value
	
	repeat with someItem in selectedItems
		try
			set someItem to someItem as text
			if the last character of someItem is in {":", "/"} then set someItem to text 1 thru -2 of someItem
			set archiveSource to POSIX path of someItem
			if destinationFolder is missing value then
				set archiveName to archiveSource & ".zip"
			else
				set theName to name of (info for someItem as alias)
				set archiveName to (POSIX path of destinationFolder) & theName & ".zip"
			end if
			do shell script "ditto -ck " & (quoted form of archiveSource) & space & (quoted form of archiveName)
			set the end of output to (POSIX file archiveName) as alias -- success
		on error errorMessage number errorNumber
			log errorMessage
			set the end of skippedItems to someItem
		end try
	end repeat
	
	if skippedItems is not {} then
		set theCount to (count skippedItems) as text
		display alert "압축 작업 중 오류가 발생했습니다." message theCount & "개의 항목을 압축하지 못했습니다."
	end if
	
	return output
end if

tell application "Finder"
	set selectedFiles to selection
	if selectedFiles is {} then
		display alert "No files selected." message "Please select one or more files."
		return
	end if
end tell

tell application "Mail"
	set newMessage to make new outgoing message with properties {visible:true}
	repeat with aFile in selectedFiles
		make new attachment with properties {file name:(aFile as alias)} at after the last paragraph of newMessage
	end repeat
end tell

tell application "Finder"
	set currentPath to (POSIX path of (folder of the front window as alias))
end tell

set the clipboard to currentPath

tell application "iTerm"
	activate
	tell current session of (create window with default profile)
		write text "cd " & quoted form of currentPath
	end tell
end tell

tell application "Finder"
	set currentPath to (POSIX path of (folder of the front window as alias))
end tell

tell application "Terminal"
	activate
	do script "cd " & quoted form of currentPath
end tell