MoviePlaying не нашел в твоем коде, выдели жирным
ето, я так понял интродукционный фильм. то есть сначала фильм - потом игра.
делаем так:
s=OpenMovie("33.avi")
; пока проигрывается фильм или никто не нажимает пробел играем фильм
while MoviePlaying(s) or keydown(57)=0
DrawMovie s
flip
wend
дальше идет код игры
p.s. не нашел FreeMovie, если найдеш допиши после Wend/