home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 204 / MF_UK_204_1.iso / pc / Files / Scenes / toolkit.dir / Internal_11_RollOverExpose.ls < prev    next >
Encoding:
Text File  |  2006-08-17  |  2.1 KB  |  77 lines
  1. property Sp, menuTree, pStart, pEnd, myMode, fCounter, pMenuTxt, pBen, pBen2, pEnd2
  2. global menuStartSp, ShadowOffset, bWidth, bHeight, ActiveSection
  3.  
  4. on beginSprite me
  5.   menuTree = member("menutree")
  6.   return me
  7.   Sp = sprite(me.spriteNum)
  8.   myMode = "off"
  9. end
  10.  
  11. on GenSpList me, MMSp, TmpSp, BackSp, BackSp2, endsprite2
  12.   Sp = sprite(me.spriteNum)
  13.   pBen = BackSp
  14.   pBen2 = BackSp2
  15.   pStart = pBen
  16.   pEnd = TmpSp
  17.   pEnd2 = endsprite2
  18.   pMenuTxt = MMSp
  19. end
  20.  
  21. on mouseEnter me
  22.   cursor(280)
  23.   sendAllSprites(#HideMenu, 0)
  24.   sprite(me.spriteNum).member.color = rgb(0, 120, 180)
  25.   sprite(pBen).locH = sprite(pMenuTxt).locH
  26.   tRect = rect(sprite(pMenuTxt).left, sprite(pMenuTxt).top - (bHeight / 2), sprite(pMenuTxt).right + 1, sprite(pEnd).bottom + (bHeight / 2))
  27.   sprite(pBen).rect = tRect
  28.   sprite(pBen).member = member("menuBack")
  29.   if pBen2 <> 0 then
  30.     bRect = rect(sprite(pMenuTxt).left + bWidth, sprite(pMenuTxt).bottom, sprite(pMenuTxt).right + bWidth + 1, sprite(pEnd).bottom + (bHeight / 2))
  31.     sprite(pBen2).rect = bRect
  32.     sprite(pBen2).member = member("menuBack")
  33.   end if
  34.   menuTree = member("menutree")
  35.   repeat with i = pStart to pEnd
  36.     sprite(i).visible = 1
  37.   end repeat
  38.   repeat with i = 1 to menuTree.line.count
  39.     if menuTree.line[i] contains Sp.member.text then
  40.       repeat with k = 1 to menuTree.line[i].word.count
  41.         if menuTree.line[i].word[k] contains "@@" then
  42.           lineEnd = menuTree.line[i].word.count
  43.           ActiveSection = menuTree.line[i].word[k..lineEnd]
  44.           delete ActiveSection.char[1..2]
  45.         end if
  46.       end repeat
  47.     end if
  48.   end repeat
  49. end
  50.  
  51. on mouseLeave me
  52.   cursor(-1)
  53.   if the mouseV > sprite(me.spriteNum).locV then
  54.     sprite(me.spriteNum).visible = 1
  55.   else
  56.     sprite(me.spriteNum).member.color = rgb(0, 0, 0)
  57.     repeat with i = pStart to pEnd
  58.       if i = pMenuTxt then
  59.         sprite(i).visible = 1
  60.         next repeat
  61.       end if
  62.       sprite(i).visible = 0
  63.     end repeat
  64.   end if
  65. end
  66.  
  67. on HideMenu me
  68.   sprite(me.spriteNum).member.color = rgb(0, 0, 0)
  69.   repeat with i = pStart to pEnd
  70.     if i = pMenuTxt then
  71.       sprite(i).visible = 1
  72.       next repeat
  73.     end if
  74.     sprite(i).visible = 0
  75.   end repeat
  76. end
  77.