Unable to keep QuickTime formost and fullscreen when looping movie list (MBP m4, Sequoia)

I have created the following script. When run, the first file/document goes full screen and plays to the end. Subsequent documents play but stay in the background and obviously are not full screen. I understood that presenting would resolve this but it appears it only does it for the first file. I have seen issues posted about adding activates to help with this.

Ideas?

repeat -- forever

repeat with aFile in movieFiles

--display dialog " movie name " & aFile

set activeMovie to open file aFile

tell activeMovie

set looping to true

set scale to 1

activate

play

set presenting to true

set foo to (duration)

delay foo

close

end tell

activate

end -- loop movieFiles

end -- forever

end tell -- QuickTime