Can I automate a Script with a dialog?

Question

Hello everyone. I have an Applescript that I'd like to make completely automatic. The Applescript is a droplet app that converts audio files into AAC, AIFF, Loseless, WAV or MP3 by using iTunes. After choosing your desired format from a menu, it asks where you'd like to save it, desktop or otherwise. Then it finally goes to work. Basically, the dialogs are slowing me down. I'd like the script below to automatically convert to MP3 and place the resulting MP3 onto the desktop.
If anyone could help me out, I'd be very grateful. Thanks.
"Drop A Few My Way" for iTunes
written by Doug Adams
[email protected]
Drag and drop files to this droplet
to convert each file with an iTunes encoder
selected on the fly, restoring your
Preferences-set encoder afterwards
Each converted file is saved to the Desktop,
or other user-selected folder.
Tracks added to iTunes are deleted. Track properties
are not transferred between original and converted track.
It will be as though iTunes "never saw them".
Uses some UNIX shell scripting; OS X only.
v1.0 mar 9 04
initial release
Get more free AppleScripts and info on writing your own
at Doug's AppleScripts for iTunes
http://www.malcolmadams.com/itunes/
property enc_list : {"AAC", "AIFF", "MP3", "WAV"}
property encoder_possibilities : {".m4a", ".aif", ".mp3", ".wav"}
property errTxt : ("(One or more files may not have been converted correctly.)" & return & return)
global filebefore_added_toiTunes -- place where file is dropped from
global fileafter_added_toiTunes -- reference to original dropped fileglobal
global orig_Track -- reference to original dropped track
global new_Track -- reference to converted track
global newFile -- reference to converted file
global backup_encoder -- stash encoder from Preferences
global uD -- path to folder where converted files will be saved
global newfilename_andextension -- name created from type of
global encoder_options -- list of encoders
global new_extension -- extension of new file, based on encoder selection
global encoder_type -- parse first item of selected encoder to get string to use in dialogs
global err_mess -- mention an error
on run
display dialog ("This is a droplet. Drop audio files on this script's icon to convert them.") buttons {"OK"} default button 1
error number -128
--set fs to (choose file) as list -- debugging
--carry_on(fs)
end run
on open fs
set err_mess to ""
carry_on(fs)
end open
-- ============================
-- main handler
on carry_on(fs)
-- plural for dialogs
set s to "s"
if (count of items in fs) is 1 then set s to ""
-- choose encoder
tell application "iTunes"
launch
set encoder_options to (get name of every encoder)
set backup_encoder to name of current encoder
end tell
--set m1 to "Convert the file" & s & " using..."
set selected_encoder to (choose from list encoder_options with prompt ("Convert the file" & s & " using...") default items (backup_encoder as list) without multiple selections allowed and empty selection allowed) as string
if selected_encoder is "false" then error number -128 -- exit if cancel
-- determine the file extension and the display text from selected encoder
repeat with i from 1 to count items of enc_list
if selected_encoder starts with (item i of enc_list) then
set new_extension to item i of encoder_possibilities
set encoder_type to first item of textto_list(selectedencoder, " ")
end if
end repeat
-- path to desktop as default, or whatever
set uD to (path to desktop from user domain) as text
if button returned of (display dialog "Save converted " & encoder_type & " file" & s & " to Desktop?" buttons {"Cancel", "Elsewhere", "Yes"} default button 3) is not "Yes" then
-- set m2 to ("Choose folder to save " & encoder_type & s & "...")
set uD to (choose folder with prompt ("Choose folder to save " & encoder_type & s & " to...")) as text
end if
-- ok, committed --
-- NOW load encoder
tell application "iTunes"
set current encoder to encoder selected_encoder
end tell
-- ok, do the dropped files
repeat with f in fs
copy f to filebefore_added_toiTunes
try -- skip bad files
with timeout of 30000 seconds -- plenty of time
fixfilename(file_before_added_toiTunes)
addto_iTunes(file_before_added_toiTunes)
-- get properties?
-- copy properties before moving and deleting?
convert_track()
end timeout
on error m number n
-- log (m & return & n)
-- restore_encoder()
end try
end repeat
-- restore encoder
tell application "iTunes" to set current encoder to encoder backup_encoder
-- comment the next 2 lines to keep from being notified
tell me to activate
display dialog (err_mess & "Done converting audio file" & s & " to " & encoder_type & ".") buttons {"Thanks"} default button 1 giving up after 3
end carry_on
--==============================================================
-- add file to iTunes given alias
-- sets 'fileafter_added_toiTunes' to location of file added (it may be different
-- from original if iTunes is managing files) to delete later
-- sets 'orig_Track' to reference to new track to delete later
to addtoiTunes(f)
tell application "iTunes"
try
set orig_Track to (add f)
set fileafter_added_toiTunes to (location of orig_Track)
on error m number n
--log (m & n) -- debugging
set err_mess to errTxt
end try
end tell
end addtoiTunes
to convert_track()
tell application "iTunes"
try
-- convert the original file
set new_Track to item 1 of (convert fileafter_added_toiTunes)
-- get path to new file
set fileafterconverted to location of new_Track
-- delete original track from iTunes
delete orig_Track
-- delete the new converted track from iTunes
delete new_Track
-- move new file to uD (Desktop or user selected location)
do shell script "mv " & (quoted form of POSIX path of fileafterconverted) & " " & (quoted form of POSIX path of (uD & newfilename_andextension))
-- the original file that was dropped
-- may have been copied to the iTunes
-- Music folder. Delete that copy.
-- Otherwise, if the two filepaths are the same
-- then don't delete.
-- Never delete the original dropped file
if (filebefore_added_toiTunes as text) is not (fileafter_added_toiTunes as text) then
-- delete fileafter_added_toiTunes
do shell script "rm " & (quoted form of POSIX path of fileafter_added_toiTunes)
end if
on error m number n
-- log (m & return & n) -- debugging
set err_mess to errTxt
end try
end tell
end convert_track
to fixfilename(file_before_added_toiTunes)
set finfo to get info for filebefore_added_toiTunes
set newfilename_andextension to ((text 1 thru -((length of name extension of finfo) + 2) of (name of finfo)) & new_extension)
end fix_filename
on texttolist(txt, delim)
set saveD to AppleScript's text item delimiters
try
set AppleScript's text item delimiters to {delim}
set theList to every text item of txt
on error errStr number errNum
set AppleScript's text item delimiters to saveD
error errStr number errNum
end try
set AppleScript's text item delimiters to saveD
return (theList)
end texttolist

Answer 1

Try making the following modifications:
Replace…
--set m1 to "Convert the file" & s & " using..."
set selected_encoder to (choose from list encoder_options with prompt ("Convert the file" & s & " using...") default items (backup_encoder as list) without multiple selections allowed and empty selection allowed) as string
if selected_encoder is "false" then error number -128 -- exit if cancel
…with…set selected_encoder to "MP3 Encoder"
Then replace…-- path to desktop as default, or whatever
set uD to (path to desktop from user domain) as text
if button returned of (display dialog "Save converted " & encoder_type & " file" & s & " to Desktop?" buttons {"Cancel", "Elsewhere", "Yes"} default button 3) is not "Yes" then
-- set m2 to ("Choose folder to save " & encoder_type & s & "...")
set uD to (choose folder with prompt ("Choose folder to save " & encoder_type & s & " to...")) as text
end if
…with…set uD to (path to desktop from user domain) as text
Then optionally also remove…-- comment the next 2 lines to keep from being notified
tell me to activate
display dialog (err_mess & "Done converting audio file" & s & " to " & encoder_type & ".") buttons {"Thanks"} default button 1 giving up after 3