How to play a sound only if variable=x?

[Bzyk]

I need help. I have got one hotspot, which converts variable value on every click. In my game it is a on/off switch. I want it to play sound only if we turn it off.

[reneuend]

I do this kind of thing from VB Script. Is this okay or do you prefer using the Adventure Maker Variables tab?

Either way, you'll be calling a procedure to start the sound and the other to stop it.

Also, do you realize that variables default to 0? This is ok if you intend for the sound to stop playing when the hotspot is first clicked. This also means that you should already be playing the sound - probably from the frame properties.


///// The following goes under the Advanced Tab of the hotspot /////

Code: Select all


'User clicked on the hotspot, so toggle the value of the variable
if play_music = 0 then
    play_music = 1
else
    play_music = 0
end if

'Now decide if the sound should be played
if play_music = 0 then
    PlaySoundWin7 "soundfile", 1, 10
else
    StopSoundWin7 10
end if

///// The following goes in your procedure area //////

Code: Select all

Sub PlaySoundWin7(SoundFile, NumRepeat, ChannelNumber)
   If ChannelNumber < 9 Then
      'With VBScript it is currently not possible to interact with the 8 first audio channels.
      MsgBox "The specified audio channel is invalid.", vbCritical, "Error"
      Exit Sub
   End If
   If Action.IsComponentInstalled("NSPlay.NSPlayCtl.1") = False Then
      MsgBox "Unable to find the media player component.", vbCritical, "Error"
   Else
      If Action.DoesComponentExist("MediaPlayer" + CStr(ChannelNumber)) = false Then
         AddComponent "NSPlay.NSPlayCtl.1", "MediaPlayer" + CStr(ChannelNumber)
      End If
      Component("MediaPlayer" + CStr(ChannelNumber)).Object.FileName = SoundFile
      Component("MediaPlayer" + CStr(ChannelNumber)).Object.PlayCount = NumRepeat
      Component("MediaPlayer" + CStr(ChannelNumber)).Object.Play
   End If
End Sub



Sub StopSoundWin7(ChannelNumber)
   If ChannelNumber < 9 Then
      'With VBScript it is currently not possible to interact with the 8 first audio channels.
      MsgBox "The specified audio channel is invalid.", vbCritical, "Error"
      Exit Sub
   End If
   If Action.DoesComponentExist("MediaPlayer" + CStr(ChannelNumber)) = true Then
      Component("MediaPlayer" + CStr(ChannelNumber)).Object.Stop
   End If
End Sub




[Bzyk]

Thanks! But I don't get it. I must do something wrong, because it doesn't work...

[reneuend]

Did you use something like this to call the sound routine?

Code: Select all

PlaySoundWin7 GetPath(4) & "wolves_howling.wav", 1, 9

- you need GetPath(4) if the sound file is in your Areas folder
- you must use a channel value of 9 or greater
- don't forget the filename
- Did you place the routines in the procedures area? Advanced Tab - Procedure button at the bottom.
- Did you define an integer variable?