U need to make sure the video is in screen widht and height boundaries. Also make the codec is pretty common, and I didnt seem to get sound work at all.
I used this in 1 of my games:
Movie = OpenMovie("gfx\video\guera.avi")
If (Movie <> 0) And (MoviePlaying(Movie))
;Play starting movie
Repeat
DrawMovie Movie,0,0,800,600
Flip
Cls
For a=0 To 102
If KeyHit(a) Then SkipMovie = True
Next
If SkipMovie Then Exit
If MouseHit(1) Or MouseHit(2) Then Exit
Until Not MoviePlaying(Movie)
CloseMovie(Movie)
EndIf
|