home *** CD-ROM | disk | FTP | other *** search
/ 3D World 157 / 3DW_157.iso / pc / 3dw.exe / 3dw.dxr / Internal_39_main_menu_button.ls < prev    next >
Encoding:
Text File  |  2009-06-30  |  660 b   |  36 lines
  1. property Active, sp, menuObject
  2. global currentThumbStart, mainMenuEnabled
  3.  
  4. on beginSprite me
  5.   sp = sprite(me.spriteNum)
  6.   menuObject = 0
  7. end
  8.  
  9. on mouseUp me
  10.   if mainMenuEnabled = 1 then
  11.     put menuObject.itemPath
  12.     if (menuObject <> 0) and (menuObject.itemPath <> EMPTY) then
  13.       currentThumbStart = 0
  14.       loadSectionPage(me.menuObject)
  15.     end if
  16.   end if
  17. end
  18.  
  19. on mouseEnter me
  20.   if mainMenuEnabled = 1 then
  21.     if Active = 1 then
  22.       cursor(280)
  23.       sp.color = rgb(255, 255, 255)
  24.     end if
  25.   end if
  26. end
  27.  
  28. on mouseLeave me
  29.   if mainMenuEnabled = 1 then
  30.     if Active = 1 then
  31.       cursor(-1)
  32.       sp.color = rgb(0, 0, 0)
  33.     end if
  34.   end if
  35. end
  36.