Hue Setting button code
Add the following code to the object that you want to assign a HUE shift of +10 on each click. In this example change the object names to ones from your project. These are just used as an example You can change the +10 to +5 if you want it to move slower up the HUE scale.
Sub Object_OnLButtonDown(x, y)
Dim ulHue
ulHue = DesktopX.Object("3Dmetal_Clock_Face").hue
ulHue = ulHue + 10
'if hue is set to Black "1000" then set it back to Unshifted "0"
If ulHue > 1001 Then ulHue = 0
If ulHue > 255 And ulHue < 999 Then ulHue = 1000
Call SetHue(ulHue)
End Sub
'*************************************************************
'Resets the hue to 0 if right clicked
Sub Object_OnRButtonDown(x, y)
Call SetHue(1000)
End Sub
'Resets the hue to 0 if right clicked
Sub Object_OnScriptEnter
If Object.LocalStorage("Hue") = "" Then
ulHue = 1000
Else
ulHue = Object.LocalStorage("Hue")
End If
Call SetHue(ulHue)
End Sub
Function SetHue(huesetting)
DesktopX.Object("3Dmetal_Clock_Face").hue = huesetting
DesktopX.Object("3Dmetal_Clock_Hours").hue =huesetting
DesktopX.Object("3Dmetal_Clock_Minutes").hue = huesetting
DesktopX.Object("3Dmetal_Clock_Seconds").hue = huesetting
Object.LocalStorage("Hue") = huesetting
desktopx.Object("test").text = huesetting
End Function