Stone Design Forums

on run
   display dialog "Drop iMaginator packages on this droplet to export them to other formats." giving up after 5
end run

on open (the_files)
   tell application "Finder"
      activate
      
      if the_files ? "" then
         set the_files_count to count of the_files
         
         set this_file to 1
         
         set export_format to button returned of (display dialog "Please choose format." buttons {"TIFF", "JPG", "PNG"} default button "PNG")
         
         set folder_path to choose folder with prompt "Choose a folder"
         
         repeat until this_file > the_files_count
            set this_imaj_package to (item this_file of the_files)
            
            set the_file_kind to kind of this_imaj_package
            
            if the_file_kind = "Imaginator Package" then
               
               tell application "iMaginator"
                  open this_imaj_package
                  set doc_name to name of document 1
                  
                  set char_count to count of doc_name
                  
                  set AppleScript's text item delimiters to "."
                  
                  set imaj_checklist to every text item of doc_name
                  
                  if the last item of imaj_checklist is "imaj" then
                     
                     set imaj_checklist_count to count of imaj_checklist
                     set new_name_list to items 1 through (imaj_checklist_count - 1) of imaj_checklist
                     set AppleScript's text item delimiters to ""
                     set new_name to new_name_list as text
                     
                  end if
                  
                  if export_format = "JPG" then set des_file to ((folder_path & new_name & ".jpg") as text)
                  if export_format = "PNG" then set des_file to ((folder_path & new_name & ".png") as text)
                  if export_format = "TIFF" then set des_file to ((folder_path & new_name & ".tiff") as text)
                  
                  export (document 1) in des_file
                  close (document 1)
               end tell
            end if
            
            set this_file to this_file + 1
         end repeat
         
      end if
      
      activate
      display dialog "Finished" giving up after 3
      
   end tell
end open