home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 166 - Disc 2 / MF_UK_166_2.iso / pc / Files / Scenes / disclaimer.dir / 00007_basic_button_fade.ls < prev    next >
Encoding:
Text File  |  2005-11-21  |  570 b   |  39 lines
  1. property Sp, fulb, stb, pmode, ic
  2.  
  3. on beginSprite me
  4.   Sp = sprite(me.spriteNum)
  5.   fulb = 100
  6.   stb = 60
  7.   Sp.blend = stb
  8.   pmode = "off"
  9. end
  10.  
  11. on mouseEnter me
  12.   ic = 0
  13.   pmode = "in"
  14. end
  15.  
  16. on mouseLeave me
  17.   ic = 0
  18.   pmode = "out"
  19. end
  20.  
  21. on exitFrame me
  22.   case pmode of
  23.     "in":
  24.       ic = ic + 1
  25.       Sp.blend = stb + ic
  26.       if Sp.blend >= fulb then
  27.         Sp.blend = fulb
  28.         pmode = "on"
  29.       end if
  30.     "out":
  31.       ic = ic + 1
  32.       Sp.blend = fulb - ic
  33.       if Sp.blend <= stb then
  34.         Sp.blend = stb
  35.         pmode = "off"
  36.       end if
  37.   end case
  38. end
  39.