QuickTime Full Screen

Yet another script to make non-Pro QuickTime display a movie in full screen:

(*
Works only as "Drag & Drop" program.

Written by F-3000
*)

on run
 -- if invoked w/o movie, see if quicktime player is running
 tell application "Finder"
  using terms from application "Finder"
   if "QuickTime Player" is in (get name of every process) then
    -- if quicktime player is running, try to maximize a movie
    tell application "QuickTime Player"
     try
      -- if no movies are loaded, the try block degrades graceful
      present front document scale screen
     end try
    end tell
   else
    -- quicktime player is NOT running
    display dialog "Drop a movie on the application icon." buttons {"OK"} ¬
     default button 1 with icon stop
   end if
  end using terms from
 end tell
 
end run

on open (dMovie)
 if (count (dMovie)) > 1 then
  display dialog ¬
   "Try dropping a single movie, if you don't mind." buttons ¬
   {"Quit"} default button 1 with icon stop
 else
  tell application "QuickTime Player"
   activate
   try -- Prevents error when QT is already open.
    close document 1 -- Closes any possibly opening advertises.
   end try
   open dMovie
   present document 1
   play
  end tell
 end if
end open