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) + "blub.mp3", False
StopSound
Playsound GetPath (2) + "bachos2.mid", False
StopSound
Action.LoadAPicture Hotspot(1),""
Playsound GetPath (2) + "bachos2.mid", False
Action.LoadAPicture Hotspot(1),"Colored_HandPickDisabled.ico"
Return to Adventure Maker Technical Support and Bug Reports
Users browsing this forum: No registered users and 0 guests