weird music problem?

BlitzMax Forums/BlitzMax Programming/weird music problem?

Yahfree

(Posted 2009) [#1]

Hey,

I have a music loop for the main menu of my game and the actual gameplay. The code is basically this:

Global peoplechan:TChannel = AllocChannel()
Global people:TSound = LoadSound("media/crowd.wav", SOUND_LOOP)
Global jinglebellschan:TChannel = AllocChannel()
Global jinglebells:TSound = LoadSound("media/jb.ogg", SOUND_LOOP)

Repeat
	Select SCREEN
		Case "MENU"
			StopChannel(peoplechan)
			If Not ChannelPlaying(jinglebellschan) PlaySound(jinglebells, jinglebellschan)
			Menu()
		Case "GAME"
			If Not ChannelPlaying(peoplechan) PlaySound(people, peoplechan)
			StopChannel(jinglebellschan)
			Game()
	End Select
Forever

When I enter the game, the main menu music stops as predicted, and the game music begins. This is correct. However, returning to the main menu from the game, the game music continues playing. And then returning to the game from there, the main menu music keeps playing along with two instances of the game music loop.

This effect keeps repeating aswell. What am I doing wrong?

Yahfree

(Posted 2009) [#2]

Fixed it... for anyone interested here's the fixed Pseudo Code:


Global peoplechan:TChannel = AllocChannel()
Global people:TSound = LoadSound("media/crowd.wav", SOUND_LOOP)
Global jinglebellschan:TChannel = AllocChannel()
Global jinglebells:TSound = LoadSound("media/jb.ogg", SOUND_LOOP)

Repeat
	Select SCREEN
		Case "MENU"
			jinglebellschan = AllocChannel()
			If peoplechan.Playing() StopChannel(peoplechan)
			PlaySound(jinglebells, jinglebellschan)
			Menu()
		Case "GAME"
			peoplechan = AllocChannel()
			If jinglebellschan.Playing() StopChannel(jinglebellschan)
			PlaySound(people, peoplechan)
			Game()
	End Select
Forever