home *** CD-ROM | disk | FTP | other *** search
/ ATComputers Catalog / AutoCont+ATcomp.bin / Data / Data.dxr / Internal_16_FadeMenu.ls < prev    next >
Encoding:
Text File  |  2003-07-28  |  762 b   |  40 lines
  1. property spriteNum
  2. global gFadeMenuState, gFTime
  3.  
  4. on beginSprite me
  5.   if gFadeMenuState = 1 then
  6.     sprite(me.spriteNum).blend = 50
  7.   end if
  8. end
  9.  
  10. on exitFrame me
  11.   if (gFadeMenuState = 2) and (sprite(me.spriteNum).blend <> 50) then
  12.     sprite(me.spriteNum).blend = sprite(me.spriteNum).blend - 2
  13.   else
  14.     if (gFadeMenuState = 2) and (sprite(me.spriteNum).blend = 50) then
  15.       gFadeMenuState = 1
  16.     end if
  17.   end if
  18. end
  19.  
  20. on mouseEnter me
  21.   gFadeMenuState = 0
  22.   sprite(me.spriteNum).blend = 100
  23.   gFTime = the ticks
  24. end
  25.  
  26. on mouseWithin me
  27.   gFadeMenuState = 0
  28.   sprite(me.spriteNum).blend = 100
  29.   gFTime = the ticks
  30. end
  31.  
  32. on isOKToAttach me, aSpriteType, aSpriteNum
  33.   case aSpriteType of
  34.     #graphic:
  35.       return 1
  36.     #script:
  37.       return 0
  38.   end case
  39. end
  40.