Moderators: time-killer-games, Vengeance66, Candle, reneuend, GM-Support
Sub PlaySound(FileName, Repeat)
Action.LoadControl MediaPlayerObject(2)
MediaPlayerObject(2).FileName = FileName
If Repeat = True Then
MediaPlayerObject(2).PlayCount = 0
Else
MediaPlayerObject(2).PlayCount = 1
End If
MediaPlayerObject(2).Play
End Sub
Sub StopSound()
MediaPlayerObject(2).Stop
MediaPlayerObject(2).FileName = ""
Action.UnloadControl MediaPlayerObject(2)
End Sub
PlaySound GetPath(2) + "filename.mp3", False
StopSound
sub ClearDialogue()
Action.LoadAPicture Hotspot(Action.GetMergedHotspotIndex), ""
Text(Action.GetMergedTextIndex).caption=""
End Sub
Sub PlaySound(FileName, Repeat)
Action.LoadControl MediaPlayerObject(2)
MediaPlayerObject(2).FileName = FileName
If Repeat = True Then
MediaPlayerObject(2).PlayCount = 0
Else
MediaPlayerObject(2).PlayCount = 1
End If
MediaPlayerObject(2).Play
End Sub
Sub StopSound()
MediaPlayerObject(2).Stop
MediaPlayerObject(2).FileName = ""
Action.UnloadControl MediaPlayerObject(2)
End Sub
i dont get it honestly they all play fine on my comp and in the AM when i import it, it plays in the test box, but the page doesnt work.
Sub PlaySound(FileName, Repeat)
Action.LoadControl MediaPlayerObject(2)
MediaPlayerObject(2).FileName = FileName
If Repeat = True Then
MediaPlayerObject(2).PlayCount = 0
Else
MediaPlayerObject(2).PlayCount = 1
End If
MediaPlayerObject(2).Play
End Sub
Sub StopSound()
MediaPlayerObject(2).Stop
MediaPlayerObject(2).FileName = ""
Action.UnloadControl MediaPlayerObject(2)
End Sub
PlaySound GetPath(2) + "The_Actual_Song_Name.mp3", False
Return to Adventure Maker Technical Support and Bug Reports
Users browsing this forum: No registered users and 0 guests