I am trying to use a hue shift button it is working but I want the default state when the clock loads to be the color I built it in.Right now upon loading it has no color until the first press of the Hue button!
Thhank you A/V
'*************************************************************
'******* Core_Hueshift_Btn ********
'*************************************************************
'note: To add this to any obeject, simply add this button to
'your theme, or object and change the names of the objects below
'to the objects you want to change
Sub Object_OnLButtonDown(x, y)
Dim ulHue
'Change object name to apply to new object
ulHue = DesktopX.Object("Vexa_Clock_Face").hue
ulHue = DesktopX.Object("Vexa_Clock_Hours").hue
ulHue = DesktopX.Object("Vexa_Clock_Minutes").hue
ulHue = DesktopX.Object("Vexa_Clock_Seconds").hue
ulHue = ulHue + 10
'if hue is set to Black "1000" then set it back to Unshifted "0"
If ulHue > 1001 Then
ulHue = 0
End If
'if hue is past 255, set it to black.
If ulHue > 255 And ulHue < 999 Then
ulHue = 1000
End If
'apply the hue change to the object(s)
DesktopX.Object("Vexa_Clock_Face").hue = ulHue
DesktopX.Object("Vexa_Clock_Hours").hue = ulHue
DesktopX.Object("Vexa_Clock_Minutes").hue = ulHue
DesktopX.Object("Vexa_Clock_Seconds").hue = ulHue
End Sub
'*************************************************************
'Resets the hue to 0 if right clicked
Sub Object_OnRButtonDown(x, y)
DesktopX.Object("Vexa_Clock_Face").hue = 1000
DesktopX.Object("Vexa_Clock_Hours").hue =1000
DesktopX.Object("Vexa_Clock_Minutes").hue = 1000
DesktopX.Object("Vexa_Clock_Seconds").hue = 1000
End Sub
'*************************************************************
'Resets the hue to 0 if right clicked
Sub Object_OnScriptEnter
DesktopX.Object("Vexa_Clock_Face").hue = 1000
DesktopX.Object("Vexa_Clock_Hours").hue = 1000
DesktopX.Object("Vexa_Clock_Minutes").hue = 1000
DesktopX.Object("Vexa_Clock_Seconds").hue = 1000
End Sub
