Register | Login
BootSkins XP
Cursor FX
Dream
Icon Packager
LogonStudio XP
LogonStudio
Object Dock
Sound Schemes
Suites
WallPapers
WindowBlinds
All

Search
Forum Home | Login
We have re-enabled logins for the forums, please be aware that you may need to reset your password or register for an account again while we continue to restore full functionality.
warreni
warreni
Join Date 12/2005
+86

adding mute function when object is hidden

February 25, 2007 6:33:00 PM from WinCustomize ForumsWinCustomize Forums

I'm trying to modify (for personal use) the script in ickypoo's Marvin widget to add a function where the sound is automatically muted when the widget is hidden. I think I know how to do this (I've been reading the DesktopX scripting tutorial), but what I'm doing is not working. Actually, I've tried several different paths to achieve this, including using ObjectOnStateChange calls to detect whether the object is hidden or shown. This is what the latest iteration of modification looks like:

Object.PersistStorage("soundNUM") = 1
'Called when the script is executed
Sub Object_OnScriptEnter
Object.SetTimer 99384, 25
Object.SetTimer 98994, 60000
End Sub

'Called when the script is terminated
Sub Object_OnTimer99384
Object.Left = Object.Left + 1
If Object.Left > System.ScreenWidth Then Object.Left = - Object.Width
End Sub

Sub Object_OnTimer98994
Object_OnMouseEnter()
Object_OnShow(IsVisible)
End Sub

Sub Object_OnShow(IsVisible)
If IsVisible = True Then
Object.Volume = 85
Else
Object.Volume = 0
End If
End Sub

Sub Object_OnMouseEnter
Object.ToolTipText = "Playing marvin" & Object.PersistStorage("soundNUM") & ".wav"
Object.Sound = "marvin" & Object.PersistStorage("soundNUM") & ".wav"
Object.PersistStorage("soundNUM") = Object.PersistStorage("soundNUM") + 1
If Object.PersistStorage("soundNUM") > 16 Then Object.PersistStorage("soundNUM") = 1
End Sub

Could someone here who's really clever with scripting give me a pointer or two? I've just started trying to tinker with this, and I may be overlooking something dumb. Thanks.
desktopx
Locked Post
Search this post
Advanced Search
Subscription Options
Reason for Karma (Optional)
Successfully updated karma reason!
warreni
Vad_M
Join Date 08/2004
+117
Reply #1 March 5, 2007 6:12:24 AM
from WinCustomize ForumsWinCustomize Forums
Wait a several minutes. I download it...
Reason for Karma (Optional)
Successfully updated karma reason!
warreni
Vad_M
Join Date 08/2004
+117
Reply #2 March 5, 2007 8:02:23 AM
from WinCustomize ForumsWinCustomize Forums
Hmmm... I never use the PersistStorage (don't like it...). However I maked something... It works nearly as you want.

First of all you need rename the "Mouse away" state to "silent" add one more state "sound" into the Marvin. Then:

1. Copy the "marvin.ani.PNG" from "silent" to "sound" and apply the same animation.
2. Remove the "marvin6.wav" file from the "silent" state and paste it to the "sound" state.
3. Create new text object "test" on the desktop.

Paste this code into the Marvin:

Dim lborder,rborder

'Called when the script is executed
Sub Object_OnScriptEnter
lborder = -1
rborder = -1
Object.state = "silent"
Object.PersistStorage("soundNUM") = 0
object.left = System.VscreenLeft - Object.width * 2
Object.SetTimer 1, 25
Object.SetTimer 2, 60000
End Sub

'Called when the script is terminated
Sub Object_OnTimer1
lborder = Object.right - System.VscreenLeft
rborder = System.ScreenWidth - Object.right
If lborder = 0 Then
Object.state = "sound"
Object.PersistStorage("soundNUM") = 6
Object.Sound = "marvin" & Object.PersistStorage("soundNUM") & ".wav"
End If
If rborder = 0 Then
Object.PersistStorage("soundNUM") = 7
Object.Sound = "marvin" & Object.PersistStorage("soundNUM") & ".wav"
'Object.state = "silent"
End If
'
desktopx.object("test").text = "left="&lborder&vblf&"right="&rborder&vblf&"sound="&Object.PersistStorage("soundNUM") & ".wav"
Object.Left = Object.Left + 1
If Object.Left > System.ScreenWidth Then Object.Left = System.VscreenLeft - Object.width * 2'- Object.Width
End Sub

Sub Object_OnTimer2
ChangeSound
End Sub

Sub Object_OnMouseEnter
ChangeSound
End Sub

Sub ChangeSound
Object.ToolTipText = "Playing marvin" & Object.PersistStorage("soundNUM") & ".wav"
Object.Sound = "marvin" & Object.PersistStorage("soundNUM") & ".wav"
Object.PersistStorage("soundNUM") = Object.PersistStorage("soundNUM") + 1
If Object.PersistStorage("soundNUM") > 16 Then Object.PersistStorage("soundNUM") = 1
End Sub

Now you may continue your experiments.   

Best Regards.

Reason for Karma (Optional)
Successfully updated karma reason!
warreni
warreni
Join Date 12/2005
+86
Reply #3 March 5, 2007 3:59:57 PM
from WinCustomize ForumsWinCustomize Forums

Vad_M,

I'll have to try this when I get home later. Thanks for taking the time to help a scripting newbie.   
Reason for Karma (Optional)
Successfully updated karma reason!

Sign Up or Login and this ad disappears!
There are many great features available to you once you register. Sign Up for a free account and browse the forums without ads.

warreni
Vad_M
Join Date 08/2004
+117
Reply #4 March 6, 2007 6:30:59 AM
from WinCustomize ForumsWinCustomize Forums
No any problems. I much respect people who want to study DX scripting and try to create something new on their desktops.    And I'm always ready to help them.
Reason for Karma (Optional)
Successfully updated karma reason!
warreni
warreni
Join Date 12/2005
+86
Reply #5 March 8, 2007 5:04:39 PM
from WinCustomize ForumsWinCustomize Forums
Hey, Vad_M, I tried out your script example. I think you may have misunderstood what I was asking. I see that your script uses the test object to display the screen x and y of the marvin.walking object and the sound it is currently set to play. Also, if I'm reading it right, it appears that it disables the sound when the marvin.walking object is not visible on screen; in other words, when it has "walked" off-screen. However, what I was looking for was something that would mute the object volume when the object's state was set to "Hide" and reenable it when it is set to "Show." I've tried using Object_OnStateChange coupled with an if-then statement like this: If ObjectState="Hide" Then Object.Volume = 0 Else Object.Volume = 85 End If. However, this doesn't seem to work. Do you have any suggestions? Thanks.
Reason for Karma (Optional)
Successfully updated karma reason!
warreni
sViz
Join Date 04/2006
+508
Reply #6 March 8, 2007 7:59:13 PM
from WinCustomize ForumsWinCustomize Forums
Hi, warreni. How are you hiding/showing the widget? I set up a couple of objects; one has a message to hide Marvin on mouse up, and another object has a message to show Marvin on mouse up. Then, I gave Marvin a "Show" state and copied the properties of the "mouse away" state to the "Show" state. I also gave Marvin a "Hide" state (be sure to assign an image for the hide state; it won't work otherwise). Here's a pic:




Finally, I inserted this piece of code to the script.

Sub object_onstatechange(state)
If state = "Show" Then
system.Volume = 85
ElseIf state = "Hide" Then
system.Volume = 0
End If
End Sub

So basically, the widget needs to have a "Show" state and a "Hide" state. (Both states should be assigned images). Then insert the script. I'm not sure what method you are using to hide and show Marvin and if this will work with that.
Reason for Karma (Optional)
Successfully updated karma reason!
warreni
Vad_M
Join Date 08/2004
+117
Reply #7 March 9, 2007 6:54:41 AM
from WinCustomize ForumsWinCustomize Forums
Sorry i was offline some time... You are absolutely right. I'm really has not understood you. So I have thought that you wanted to listen sound only when Marvin is visible on the screen...

You may use code that advises sVis. It will work nice.

The second way - you may use the "WMPlayer.OCX" ActiveX object to do this (use Google to find info about). You will not touch the system volume in the last case.

Best Regards.
Reason for Karma (Optional)
Successfully updated karma reason!
warreni
ZubaZ
Join Date 11/2001
+917
Reply #8 March 9, 2007 8:15:26 AM
from WinCustomize ForumsWinCustomize Forums
When I first read this I thought, "How funny would it be if marvin was set on the desktop level and walked BEHIND a window if the volume went down as if mufled by the window".

Is that possible?
Reason for Karma (Optional)
Successfully updated karma reason!
warreni
warreni
Join Date 12/2005
+86
Reply #9 March 9, 2007 8:19:43 PM
from WinCustomize ForumsWinCustomize Forums
I'll take a stab at sViz's suggestion. FYI, I was (and maybe this is doing things the dumb/hard way?) manipulating the state by using the systray icon (in other words, not during testing, but got out of DesktopX Builder altogether and ran the widget in the runtime environment).

Zubaz- yes, this is probably possible through manipulating the Z-order, but hey, man, I'm just trying to figure out hide and show right now!   
Reason for Karma (Optional)
Successfully updated karma reason!
View all recent posts
Mark all posts as read Delete cookies created by the forum Return to Top
Stardock Forums v        Server Load Time:   Page Render Time:


Home | About | Privacy | Upload Guidelines | Terms of Service | Help
WinCustomize © 2025 Stardock. All Rights Reserved.