; HIER NAME DES AVI-CLIPS EINFÜGEN:
moviefilename$ = "Mouse.avi"
; ---------------------------------

Graphics3D 800,600,0,2
SetBuffer BackBuffer()

FrameTimer = CreateTimer(60)

cam   = CreateCamera()
light = CreateLight(2,cam)

movie = OpenMovie( moviefilename$ )
mw    = MovieWidth(movie)
mh    = MovieHeight(movie)

Texture = CreateTexture(mw,mh)
ox      = (TextureWidth(Texture)-mw)/2
oy      = (TextureHeight(Texture)-mh)/2

Obj     = CreateCube()
EntityTexture Obj,Texture
ScaleEntity   Obj,1.2,1.2,1.2
MoveEntity    Obj,0,0,5
EntityBlend   Obj,3

Room      = CreateCube()
ScaleEntity Room,4,4,4
Moveentity  Room,0,0,5
flipmesh    Room
EntityTexture Room,Texture

Center   = CreatePivot()
moveEntity Center,0,0,5

Sphere      = CreateSphere(8,Center)
MoveEntity    Sphere,0,0,-3
Scaleentity   Sphere,.7,.7,.7
EntityTexture Sphere,Texture

Repeat
   WaitTimer(FrameTimer)
 
   While MoviePlaying(movie) And (Not KeyDown(1))
      TurnEntity Obj,0,-1,-1
      TurnEntity Room,0,-1,-1
      TurnEntity Center,1,1,-1
        If KeyDown(200) Then TurnEntity Obj,-3,0,0
      If KeyDown(208) Then TurnEntity Obj,3,0,0
          If KeyDown(203) Then TurnEntity Obj,0,-3,0
      If KeyDown(205) Then TurnEntity Obj,0,3,0
      SetBuffer TextureBuffer(Texture)
      DrawMovie (movie,ox,oy)
      SetBuffer BackBuffer()
          
          UpdateWorld
          RenderWorld
      Text 400,0,"ARROW KEYS TO ROTATE CUBE - BY MIKE DOGAN",1
      
      Flip
     Wend
   
   movie = OpenMovie (moviefilename)
Until KeyHit(1)

End