home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / blinds / setup.exe / %MAINDIR% / piper / timed1.wbs < prev    next >
Encoding:
Text File  |  2001-11-08  |  691 b   |  67 lines
  1.  
  2. ; WindowBlinds Scripting 
  3. ;
  4. ; This is a demonstration script which can be used to fade in a button
  5.  
  6.  
  7. GET
  8. BUTNO
  9. TEMP1
  10. T3
  11.  
  12. IF
  13. T3
  14. 14
  15. =
  16. END
  17.  
  18.  
  19.  
  20.  
  21. ; Get the alpha value for the button
  22. GET
  23. BUTNO
  24. ALPHA
  25. T1
  26. ; Add 5 to this value
  27. MATHS
  28. T1
  29. ADD
  30. 20
  31.  
  32. ; Now we need to copy this value to T2 from T1 (temp vars)
  33. MATHS
  34. T2
  35. ASSIGN
  36. T1
  37.  
  38. ; If the alpha value is 255 or greater then we need to do something special
  39. IF
  40. T1
  41. 255
  42. >=
  43. ; If its true then we set T2 = 255
  44. MATHS
  45. T2
  46. ASSIGN
  47. 255
  48.  
  49. ; Set Alpha for the button to T2s value
  50. SET
  51. BUTNO
  52. T2
  53. ALPHA
  54.  
  55. ; If alpha <255 then set timer again
  56. IF
  57. T1
  58. 255
  59. <
  60. ; Set timer
  61. SETTIMER
  62. BUTNO
  63. 55
  64.  
  65. ; Repaint border
  66. REPAINT
  67.