home *** CD-ROM | disk | FTP | other *** search
/ 3D World 136 / 3DW_136.iso / pc / 3dw.exe / 3dw.dxr / Internal_13_button_fade.ls < prev    next >
Encoding:
Text File  |  2009-06-30  |  1.0 KB  |  54 lines
  1. property sp, pfadeMode, pfadeVal, pFadeMin, pfadeSpeed, Active
  2.  
  3. on beginSprite me
  4.   sp = sprite(me.spriteNum)
  5.   pfadeMode = 0
  6.   pFadeMin = 60
  7.   pfadeSpeed = 8
  8.   pfadeVal = pFadeMin
  9.   sp.blend = pfadeVal
  10.   sprite(me.spriteNum + 1).color = rgb(0, 0, 0)
  11.   Active = 1
  12. end
  13.  
  14. on mouseEnter me
  15.   if Active = 1 then
  16.     cursor(280)
  17.     sprite(me.spriteNum + 1).color = rgb(255, 255, 255)
  18.     if pfadeMode < 1 then
  19.       pfadeMode = 1
  20.     end if
  21.   end if
  22. end
  23.  
  24. on mouseLeave me
  25.   if Active = 1 then
  26.     cursor(-1)
  27.     sprite(me.spriteNum + 1).color = rgb(0, 0, 0)
  28.     if pfadeMode < 2 then
  29.       pfadeMode = 2
  30.     end if
  31.   end if
  32. end
  33.  
  34. on enterFrame me
  35.   if pfadeMode > 0 then
  36.     if pfadeMode = 2 then
  37.       if pfadeVal > pFadeMin then
  38.         pfadeVal = pfadeVal - pfadeSpeed
  39.       else
  40.         pfadeVal = pFadeMin
  41.         pfadeMode = 0
  42.       end if
  43.     else
  44.       if pfadeVal < 100 then
  45.         pfadeVal = pfadeVal + pfadeSpeed
  46.       else
  47.         pfadeVal = 100
  48.         pfadeMode = 0
  49.       end if
  50.     end if
  51.     sp.blend = pfadeVal
  52.   end if
  53. end
  54.