;
; ------------------------------------------------------------
;
;   PureBasic - Movie example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

If InitMovie() = 0
  MessageRequester("Ошибка", "Невозможно инициализировать воспроизведение Видео-файла !", 0) 
  End
EndIf

MovieName$ = OpenFileRequester("Выберите Видео-файл для воспроизведения", "", "Movie files|*.avi;*.mpg|All Files|*.*", 0)
If MovieName$
  If LoadMovie(0, MovieName$)
  
    OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0), "PureBasic - Movie")
    PlayMovie(0, WindowID(0))
      
    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  Else
    MessageRequester("Ошибка", "Невозможно открыть Видео-файл...", 0)
  EndIf
EndIf