хм...я таким не занимался,но могу предположыть что можно релизовать такое и в одном цыкле.
Примерно так в теории.
g_width=GraphicsWidth()-1
g_height=GraphicsHeight()-1
SetBuffer BackBuffer()
ClsColor 0,0,0
Color 0,255,0
movie=OpenMovie(".\movies\intro.MPG")
Repeat
local_var=local_var+1
if local_var=1 loadGrass()
if local_var=2 loadSprites()
if local_var=2 loadPlayer()
Cls
DrawMovie MOVIE,1,1,g_width,g_height
Flip
Until MoviePlaying (movie)=0
CloseMovie(movie)