Jouer un film sur un sprite

Programmation d'applications complexes
Avatar de l’utilisateur
Thyphoon
Messages : 2706
Inscription : mer. 25/août/2004 6:31
Localisation : Eragny
Contact :

Jouer un film sur un sprite

Message par Thyphoon »

je n'ai pas trouvé d'exemple pour jouer un film sur un sprite
ça plante mechant lorsque j'execute se code

Code : Tout sélectionner

InitMovie()
createsprite(700,640,480)
LoadMovie(0,"data/Title/video.avi")
PlayMovie(0, #PB_Movie_Rendered) 
Repeat
FlipBuffers()
ExamineKeyboard()
RenderMovieFrame(700) 
DisplayTransparentSprite(700, 0, 0)


Until KeyboardPushed(#PB_Key_tab)
Est ce que c'est bien comme ça qu'on utilise RenderMovieFrame() ?
Avatar de l’utilisateur
Thyphoon
Messages : 2706
Inscription : mer. 25/août/2004 6:31
Localisation : Eragny
Contact :

Message par Thyphoon »

Bon j'ai trouvé l'erreur...il faut absolument que ça soit un film mpg et non un avi :o/
Mais des que je veux faire une boucle du film ça plante
je voudrais pour faire tourner le film de l'image A a l'image B
mais lorsque j'utilise l'une des lignes de commandes suivante ça plante :o( Une idée ?

Code : Tout sélectionner

;If MovieInfo(0)>50:MovieSeek(5):EndIf
;If MovieStatus()=0:StopMovie():PlayMovie(0, #PB_Movie_Rendered):EndIf
J'allais oublié le code qui fonctionne pour lire le film ;oP

Code : Tout sélectionner

InitMovie()

a=LoadMovie(0,"data/Title/video.mpg"):If a=0:MessageRequester("Error","Unknown movie format",0):EndIf 
id=CreateSprite(700,640,480,0)
LoadSprite(701, "data/Title/parchemin.png", 0)
Length = MovieLength()
ResizeMovie(0,0, 640, 480) 
PlayMovie(0, #PB_Movie_Rendered) 

Repeat
FlipBuffers()
ExamineKeyboard()
;If MovieInfo(0)>50:MovieSeek(5):EndIf
;If MovieStatus()=0:StopMovie():PlayMovie(0, PB_Movie_Rendered):EndIf
RenderMovieFrame(id) 
DisplayTransparentSprite(700, 0, 0)
DisplayTransparentSprite(701, 50, 50)

Until KeyboardPushed(#PB_Key_tab)
Répondre