[Code Snippet] Tombalachi's Hiding Menu Script Revised

https://www.wincustomize.com/skins.aspx?skinid=2903&libid=3
from WinCustomize Forums
As I use Tombalachi's Hiding Menu Script  quite a bit I've revised and cut 20 lines of code. Since his email seems to be dead I thought I'd post my revised script here. My suggestion is to download his original in order to understand this a bit better.

Code: vbscript
  1. '--Note the With Statement is only used where the savings are obvious   
  2.     '----------CUSTOMIZE HERE----------
  3. Const    hideTop = -160,hideLeft = -160,hideSpeed = 10,hideDelay = 700,_
  4.             showTop = -50,showLeft = 0,showSpeed = 16
  5.     '-----------END CUSTOMIZE----------
  6. Dim delay
  8. 'Called when the script is executed
  9. Sub Object_OnScriptEnter
  10.     delay = 0
  11.     'Timer for hiding the object
  12.     Object.SetTimer 4321, 100
  13. End Sub
  15. 'Called when the script is terminated
  16. Sub Object_OnScriptExit
  17.     Object.KillTimer 4321
  18.     Object.KillTimer 1234
  19. End Sub
  21. Sub Object_OnStateChange(state)
  22. With Object
  23.     If state = "Mouse over" Then
  24.         'Kill the hide timer
  25.         .KillTimer 4321
  26.         'Start the show timer
  27.         .SetTimer    1234, 100
  28.     Else
  29.         'Kill the show timer
  30.         .KillTimer 1234
  31.         'Start the kill timer
  32.         .SetTimer 4321, 100
  33.     End If
  34. End With
  35. End Sub
  37. Sub Object_OnTimer1234
  38. 'Show the object
  39.         Call MoveIt(showTop, showLeft, showSpeed)
  40.     If (Object.Top = showTop) And (Object.Left = showLeft) Then
  41.         delay = hideDelay
  42.     End If
  43. End Sub
  45. Sub Object_OnTimer4321
  46. 'Hide the object
  47.     If delay <> 0 Then
  48.         'We wait until delay is over
  49.         delay = delay - 100
  50.     Else
  51.         Call MoveIt(hideTop, hideLeft, hideSpeed)
  52.     End If
  53. End Sub
  55. Sub MoveIt(destTop, destLeft, speed)
  56. With Object
  57.     'Are we there yet?
  58.     If (.Top <> destTop) Or (.Left <> destLeft) Then
  59.         'Go ahead and hide
  60.         Dim diffTop,diffLeft,distance,speedTop,speedLeft
  61.        
  62.         diffTop = destTop - .Top
  63.         diffLeft = destLeft - .Left
  64.         distance = (diffTop^2 + diffLeft^2)^0.5
  65.         speedTop = speed * diffTop / distance
  66.         speedLeft = speed * diffLeft / distance
  67.        
  68.         If Abs(speedTop) > Abs(diffTop) Then
  69.             speedTop = diffTop
  70.         End If
  71.         If Abs(speedLeft) > Abs(diffLeft) Then
  72.             speedLeft = diffLeft
  73.         End If
  74.        
  75.         .Move .Left + speedLeft, .Top + speedTop
  76.     End If
  77. End With
  78. End Sub



desktopx
1,422 views 0 replies