Re: Comment faire pour avoir joué la musique dans une boucl
Publié : mar. 07/juin/2016 13:56
personne pour m'aider svp?
Forums PureBasic - Français
http://forums.purebasic.com/french/
Code : Tout sélectionner
;---Affichage des procedures :
CreationEtoiles()
Initialisation()
JoueMusique=#True
PlaySound(#Music, #PB_Sound_Loop) ;Joue en boucle
;--- On joue la musique
Code : Tout sélectionner
If JoueMusique= #True
PlaySound(#Music)
SoundVolume(#Music,30)
EndIf
Code : Tout sélectionner
Select gScenes
Case 0 ; Intro du jeu
If JoueMusique=#False ;Si la musique est en cours de lecture #True alors inutile de la relancer
PlaySound(#Music, #PB_Sound_Loop)
JoueMusique = #True
EndIf
Intro_Game()
;Si on appuie sur Espace on lance le jeu
If KeyboardPushed(#PB_Key_Space)
StopSound(#Music)
gScenes =1
EndIf
Case 1 ; le jeu
EndSelect
FlipBuffers()
Until KeyboardReleased(#PB_Key_Escape)
Code : Tout sélectionner
Case 0 ; Intro du jeu
If JoueMusique=#False
PlaySound(#Music, #PB_Sound_Loop)
JoueMusique = #True
EndIf