home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / blinds / setup.exe / %MAINDIR% / piper / FadeIn.wbs < prev    next >
Encoding:
Text File  |  2001-11-08  |  530 b   |  47 lines
  1. ; Get the alpha value for the button
  2. GET
  3. BUTNO
  4. ALPHA
  5. T1
  6. ; Add 5 to this value
  7. MATHS
  8. T1
  9. ADD
  10. 10
  11.  
  12. ; Now we need to copy this value to T2 from T1 (temp vars)
  13. MATHS
  14. T2
  15. ASSIGN
  16. T1
  17.  
  18. ; If the alpha value is 255 or greater then we need to do something special
  19. IF
  20. T1
  21. 255
  22. <=
  23. ; If its true then we set T2 = 255
  24. MATHS
  25. T2
  26. ASSIGN
  27. 255
  28.  
  29. ; Set Alpha for the button to T2s value
  30. SET
  31. BUTNO
  32. T2
  33. ALPHA
  34.  
  35. ; If alpha <255 then set timer again
  36. IF
  37. T1
  38. 255
  39. >
  40. ; Set timer
  41. SETTIMER
  42. BUTNO
  43. 55
  44.  
  45. ; Repaint border
  46. REPAINT
  47.