PureBasic Forums - English

Code: Select all

InitMovie():InitEngine3D(#PB_Engine3D_DebugLog):InitSprite():InitKeyboard():InitMouse()
OpenWindow(0, 0,0, 1280,720, "Movie test",#PB_Window_ScreenCentered)
video= TextGadget(#PB_Any,0,0,WindowWidth(0)/2,WindowHeight(0)/2,""):SetGadgetColor(video,#PB_Gadget_BackColor,0):HideGadget(video,1)
OpenWindowedScreen(WindowID(0), 0, 0, WindowWidth(0),WindowHeight(0), 0, 0, 0)

e= CreateEntity(#PB_Any,MeshID(CreatePlane(#PB_Any,10,10,10,10,10,10)),MaterialID(CreateMaterial(#PB_Any,#Null,$555555)))
CreateCamera(0,0,0,100,100):MoveCamera(0,-20,10,-20,#PB_Absolute):CameraLookAt(0,0,0,0)
CreateLight(0,$ffffff,3,3,3)

movi.s="C:\yourmovie.wmv" ;6.02 use wmv for compatibility. 6.21 can play mp4 too
LoadMovie(0,movi): ResizeMovie(0,0,0,GadgetWidth(video),GadgetHeight(video))

Repeat
  While WindowEvent():Wend
  ExamineMouse(): ExamineKeyboard()
  
  If KeyboardReleased(#PB_Key_V)
    If IsMovie(0)
      If MovieStatus(0) > 0
        StopMovie(0):HideGadget(video,1)
      Else
        PlayMovie(0,GadgetID(video)):HideGadget(video,0)
      EndIf
    EndIf
  EndIf
  
  RotateEntity(e,0,1,0,#PB_Relative)
  renderTime= RenderWorld()
    
  FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
End