home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 163 - Disc 1 / MF_UK_163_1.iso / pc / Files / Scenes / HOME.DIR / Internal_98_MainMenuHandler.ls < prev    next >
Encoding:
Text File  |  2005-10-20  |  589 b   |  33 lines
  1. property myListEntry, myBackSp, Sp, clicked
  2.  
  3. on init me, mKeyListEntry, aBackSpriteNum
  4.   myListEntry = mKeyListEntry
  5.   myBackSp = aBackSpriteNum
  6.   Sp = sprite(me.spriteNum)
  7.   clicked = 0
  8. end
  9.  
  10. on mouseUp me
  11.   clicked = 1
  12.   GenSubMenu(myListEntry, Sp.spriteNum, myBackSp)
  13.   Sp.member.color = rgb(255, 255, 255)
  14. end
  15.  
  16. on HideBacker me
  17.   sprite(myBackSp).visible = 0
  18.   Sp.member.color = rgb(0, 0, 0)
  19.   clicked = 0
  20. end
  21.  
  22. on mouseEnter me
  23.   cursor(280)
  24.   Sp.member.color = rgb(255, 255, 255)
  25. end
  26.  
  27. on mouseLeave me
  28.   cursor(-1)
  29.   if clicked = 0 then
  30.     Sp.member.color = rgb(0, 0, 0)
  31.   end if
  32. end
  33.