tell application "QuickTime Player"
  set movieRef to (choose file with prompt "Odaberi film:")
  open movieRef
  tell document 1
    set movieDuration to round (duration / time scale) rounding as taught in school
    close
  end tell
end tell
display dialog movieDuration

-- DurationQT
-- (11/04/2009) 1.00 release

on run
	display dialog "Drag multiple movies or a single movie folder onto this icon!"
end run

on open draggeditems
  set sourcefiles to filelistFromSelection(draggeditems)
  -- main loop
  repeat with thisFile in sourcefiles
    -- get movie duration
    tell application "QuickTime Player"
      set movieRef to thisFile
      open movieRef
      tell document 1
        set movieDuration to round (duration / time scale) rounding as taught in school
        close
      end tell
    end tell
    -- format duration stamp (mmss)
    set thisMinutes to movieDuration div 60 -- minutes
    set thisSeconds to movieDuration mod 60 -- seconds
    if (thisMinutes < 100) then
      set thisMinutes to text -2 thru -1 of ("00" & thisMinutes)
    end if
    set thisSeconds to text -2 thru -1 of ("00" & thisSeconds)
    -- rename file
    set thisInfo to info for thisFile
    set thisName to name of thisInfo
    set thisDot to offset of "." in thisName
    set thisLen to length of thisName
    if (thisDot > 0) then
      set thisPrefix to text 1 thru (thisDot - 1) of thisName
      set thisSuffix to text (thisDot + 1) thru thisLen of thisName
      set newName to (thisPrefix & "_" & thisMinutes & thisSeconds & "." & thisSuffix)
    else
      -- no extension
      set thisPrefix to thisName
      set newName to (thisPrefix & "_" & thisMinutes & thisSeconds)
    end if
    tell application "Finder"
      set the name of thisFile to newName
    end tell
  end repeat
end open

-- returns dragged files OR files at first level of one dragged folder
on filelistFromSelection(theselection)
  set hasfolder to false
  tell application "Finder"
    repeat with thisItem in (theselection as list)
      if (class of item thisItem is folder) or (class of item thisItem is disk) then
        set hasfolder to true
      end if
    end repeat
  end tell
  if ((count item of (theselection as list)) > 1) and hasfolder then
    display dialog "Drag multiple files or a single folder." buttons {"OK"} default button 1
    return ""
  end if
  tell application "Finder"
    if hasfolder then
      set filelist to (every item of folder (item 1 of (theselection as list))) as alias list
    else
      set filelist to (theselection as list)
    end if
  end tell
  return filelist
end filelistFromSelection

-- DurationQT
-- (11/04/2009) 1.00 release
-- (12/04/2009) 1.01 update: extension finding is now based on the last dot

on run
	display dialog "Drag multiple movies or a single movie folder onto this icon!"
end run

on open draggeditems
	set sourcefiles to filelistFromSelection(draggeditems)
	-- main loop
  repeat with thisFile in sourcefiles
    -- get movie duration
    tell application "QuickTime Player"
      set movieRef to thisFile
      open movieRef
      tell document 1
        set movieDuration to round (duration / time scale) rounding as taught in school
        close
      end tell
    end tell
    -- format duration stamp (mmss)
    set thisMinutes to movieDuration div 60 -- minutes
    set thisSeconds to movieDuration mod 60 -- seconds
    if (thisMinutes < 100) then
      set thisMinutes to text -2 thru -1 of ("00" & thisMinutes)
    end if
    set thisSeconds to text -2 thru -1 of ("00" & thisSeconds)
    -- rename file
    set thisInfo to info for thisFile
    set thisName to name of thisInfo
    set reversedName to reverse of characters of thisName as text
    set thisDot to offset of "." in reversedName -- find last dot
    set thisLen to length of thisName
    set thisDot to (thisLen - thisDot + 1)
    if (thisDot < thisLen) then
      set thisPrefix to text 1 thru (thisDot - 1) of thisName
      set thisSuffix to text (thisDot + 1) thru thisLen of thisName
      set newName to (thisPrefix & "_" & thisMinutes & thisSeconds & "." & thisSuffix)
    else
      -- no extension (even when ending with dot!)
      set thisPrefix to thisName
      set newName to (thisPrefix & "_" & thisMinutes & thisSeconds)
    end if
    tell application "Finder"
      set the name of thisFile to newName
    end tell
  end repeat
end open

-- returns dragged files OR files at first level of one dragged folder
on filelistFromSelection(theselection)
  set hasfolder to false
  tell application "Finder"
    repeat with thisItem in (theselection as list)
      if (class of item thisItem is folder) or (class of item thisItem is disk) then
        set hasfolder to true
      end if
    end repeat
  end tell
  if ((count item of (theselection as list)) > 1) and hasfolder then
    display dialog "Drag multiple files or a single folder." buttons {"OK"} default button 1
    return ""
  end if
  tell application "Finder"
    if hasfolder then
      set filelist to (every item of folder (item 1 of (theselection as list))) as alias list
    else
      set filelist to (theselection as list)
    end if
  end tell
  return filelist
end filelistFromSelection

typedef enum {
   NSRoundPlain,
   NSRoundDown,
   NSRoundUp,
   NSRoundBankers
} NSRoundingMode;