Auto insert photos to MarsEdit editor

AutoInsertPhoto4MarsEdit.scpt

on run
	tell application "MarsEdit" to activate
	tell application "System Events"
		
		openUploadWindow() of me
		try
			set uploadWindow to getUploadWindow() of me
			click button 6 of uploadWindow
		on error
			openUploadWindow() of me
			delay 2
			set uploadWindow to getUploadWindow() of me
			click button 6 of uploadWindow
		end try
		
		set itemCount to getItemCount() of me
		
		if itemCount is not 0 then
			repeat with index from 1 to itemCount - 1
				selectItem(index) of me
				click button 5 of uploadWindow
				try
					openUploadWindow() of me
					delay 2
					set uploadWindow to getUploadWindow() of me
					click button 6 of uploadWindow
				on error
					openUploadWindow() of me
					delay 2
					set uploadWindow to getUploadWindow() of me
					click button 6 of uploadWindow
				end try
			end repeat
			selectItem(itemCount) of me
			click button 5 of uploadWindow
		end if
	end tell
end run

on openUploadWindow()
	tell application "MarsEdit" to activate
	
	tell application "System Events"
		key down {command}
		keystroke "3"
		key up {command}
	end tell
end openUploadWindow

on getUploadWindow()
	tell application "System Events"
		tell process "MarsEdit"
			set targetWindow to ""
			set currentWindows to windows
			repeat with currentWindow in currentWindows
				if (name of currentWindow as string is "Upload Utility") then
					set targetWindow to currentWindow
					exit repeat
				end if
			end repeat
		end tell
	end tell
	
	if targetWindow is "" then
		error "Can't find Upload Utility"
	else
		return targetWindow
	end if
	
end getUploadWindow

on getItemCount()
	tell application "System Events"
		tell process "MarsEdit"
			tell list 1 of scroll area 2 of scroll area 1 of browser 1 of splitter group 1 of group 1 of sheet 1 of window 1
				set lCount to count of UI elements
			end tell
		end tell
	end tell
	return lCount
end getItemCount

on selectItem(index)
	tell application "System Events"
		tell process "MarsEdit"
			select text field index of list 1 of scroll area 2 of scroll area 1 of browser 1 of splitter group 1 of group 1 of sheet 1 of window 1
			click button 1 of sheet 1 of window 1
		end tell
	end tell
end selectItem