home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2006 September / maximum-cd-2006-09.iso / main.dxr / Internal_137_bottomButton.b.ls < prev    next >
Encoding:
Text File  |  2006-06-06  |  7.7 KB  |  257 lines
  1. property myButton, myAsset, myType, mem, memOn, memDn
  2. global seed, menuIndex, submenuIndex, fd, currentAsset, Tile, isWallpaper, dTemplate, lastTemplate
  3.  
  4. on getPropertyDescriptionList me
  5.   description = [:]
  6.   addProp(description, #myButton, [#default: 1, #format: #integer, #comment: "My Button #: "])
  7.   return description
  8. end
  9.  
  10. on beginSprite me
  11.   sprite(me.spriteNum).cursor = [3, 4]
  12.   selfUpdate(me)
  13. end
  14.  
  15. on selfUpdate me
  16.   if menuIndex = 0 then
  17.     sprite(me.spriteNum).visible = 0
  18.   else
  19.     if submenuIndex <> 0 then
  20.       if seed[#mainmenu][menuIndex][#submenu][submenuIndex][#buttonList] <> VOID then
  21.         if seed[#mainmenu][menuIndex][#submenu][submenuIndex][#buttonList].count < myButton then
  22.           sprite(me.spriteNum).visible = 0
  23.         else
  24.           b = seed[#mainmenu][menuIndex][#submenu][submenuIndex][#buttonList][myButton]
  25.           case b[1] of
  26.             #open:
  27.               sprite(me.spriteNum).member = member("button_open")
  28.               if b.count > 1 then
  29.                 myAsset = b[2]
  30.               else
  31.                 myAsset = EMPTY
  32.               end if
  33.               myType = 3
  34.               sprite(me.spriteNum).visible = 1
  35.             #installbkg:
  36.               sprite(me.spriteNum).member = member("button_install")
  37.               myAsset = EMPTY
  38.               myType = 5
  39.               sprite(me.spriteNum).visible = 1
  40.             #watch:
  41.               sprite(me.spriteNum).member = member("button_watch")
  42.               myAsset = seed[#mainmenu][menuIndex][#submenu][submenuIndex][#videos]
  43.               myType = 6
  44.               sprite(me.spriteNum).visible = 1
  45.             #install:
  46.               sprite(me.spriteNum).member = member("button_install")
  47.               myAsset = b[2]
  48.               myType = 7
  49.               sprite(me.spriteNum).visible = 1
  50.             #view:
  51.               sprite(me.spriteNum).member = member("button_view")
  52.               if b.count > 1 then
  53.                 myAsset = b[2]
  54.               else
  55.                 myAsset = EMPTY
  56.               end if
  57.               myType = 10
  58.               sprite(me.spriteNum).visible = 1
  59.             #web:
  60.               sprite(me.spriteNum).member = member("button_web")
  61.               myAsset = b[2]
  62.               myType = 11
  63.               sprite(me.spriteNum).visible = 1
  64.             #save:
  65.               sprite(me.spriteNum).member = member("button_save")
  66.               if b.count > 1 then
  67.                 myAsset = b[2]
  68.               else
  69.                 myAsset = EMPTY
  70.               end if
  71.               myType = 12
  72.             otherwise:
  73.               sprite(me.spriteNum).member = member("button_open")
  74.               myAsset = b[2]
  75.               myType = 0
  76.               sprite(me.spriteNum).visible = 1
  77.           end case
  78.           mem = sprite(me.spriteNum).member.name
  79.           memOn = mem & "_on"
  80.           memDn = mem & "_dn"
  81.         end if
  82.       else
  83.         sprite(me.spriteNum).visible = 0
  84.       end if
  85.     else
  86.       if seed[#mainmenu][menuIndex][#buttonList] <> VOID then
  87.         if seed[#mainmenu][menuIndex][#buttonList].count < myButton then
  88.           sprite(me.spriteNum).visible = 0
  89.         else
  90.           b = seed[#mainmenu][menuIndex][#buttonList][myButton]
  91.           case b[1] of
  92.             #open:
  93.               sprite(me.spriteNum).member = member("button_open")
  94.               if b.count > 1 then
  95.                 myAsset = b[2]
  96.               else
  97.                 myAsset = EMPTY
  98.               end if
  99.               myType = 3
  100.               sprite(me.spriteNum).visible = 1
  101.             #installbkg:
  102.               sprite(me.spriteNum).member = member("button_install")
  103.               myAsset = EMPTY
  104.               myType = 5
  105.               sprite(me.spriteNum).visible = 1
  106.             #watch:
  107.               sprite(me.spriteNum).member = member("button_watch")
  108.               myAsset = seed[#mainmenu][menuIndex][#submenu][submenuIndex][#videos]
  109.               myType = 6
  110.               sprite(me.spriteNum).visible = 1
  111.             #install:
  112.               sprite(me.spriteNum).member = member("button_install")
  113.               myAsset = b[2]
  114.               myType = 7
  115.               sprite(me.spriteNum).visible = 1
  116.             #view:
  117.               sprite(me.spriteNum).member = member("button_view")
  118.               if b.count > 1 then
  119.                 myAsset = b[2]
  120.               else
  121.                 myAsset = EMPTY
  122.               end if
  123.               myType = 10
  124.               sprite(me.spriteNum).visible = 1
  125.             #web:
  126.               sprite(me.spriteNum).member = member("button_web")
  127.               myAsset = b[2]
  128.               myType = 11
  129.               sprite(me.spriteNum).visible = 1
  130.             #save:
  131.               sprite(me.spriteNum).member = member("button_save")
  132.               if b.count > 1 then
  133.                 myAsset = b[2]
  134.               else
  135.                 myAsset = EMPTY
  136.               end if
  137.               myType = 12
  138.             otherwise:
  139.               sprite(me.spriteNum).member = member("button_open")
  140.               myAsset = b[2]
  141.               myType = 0
  142.               sprite(me.spriteNum).visible = 1
  143.           end case
  144.           mem = sprite(me.spriteNum).member.name
  145.           memOn = mem & "_on"
  146.           memDn = mem & "_dn"
  147.         end if
  148.       else
  149.         sprite(me.spriteNum).visible = 0
  150.       end if
  151.     end if
  152.   end if
  153. end
  154.  
  155. on endSprite me
  156.   sprite(me.spriteNum).visible = 1
  157. end
  158.  
  159. on mouseLeave me
  160.   sprite(me.spriteNum).member = member(mem)
  161.   pass()
  162. end
  163.  
  164. on mouseDown me
  165.   sprite(me.spriteNum).member = member(memDn)
  166.   updateStage()
  167. end
  168.  
  169. on mouseEnter me
  170.   sprite(me.spriteNum).member = member(memOn)
  171.   pass()
  172. end
  173.  
  174. on mouseUp me
  175.   if rollover(me.spriteNum) then
  176.     sprite(me.spriteNum).member = member(memOn)
  177.   else
  178.     sprite(me.spriteNum).member = member(mem)
  179.   end if
  180.   case myType of
  181.     0:
  182.       open(the pathname & "assets" & fd & parsePath(myAsset))
  183.     5:
  184.       ca = stripExtension(parsePath(currentAsset)) & ".bmp"
  185.       if baFileExists(ca) then
  186.         baSetWallpaper(ca, Tile)
  187.       end if
  188.     6:
  189.       lastTemplate = dTemplate
  190.       dTemplate = "vid"
  191.       isReady = 0
  192.       go(the frame + 1)
  193.     7:
  194.       if sprite(184).member = member(58) then
  195.         sprite(184).movieRate = 0
  196.         sprite(184).visible = 0
  197.       end if
  198.       open(the pathname & "assets" & fd & parsePath(myAsset))
  199.       sprite(197).visible = 1
  200.       sprite(198).visible = 1
  201.     8:
  202.       open(the pathname & "assets" & fd & parsePath(myAsset))
  203.     9:
  204.       open(the pathname & "assets" & fd & parsePath(myAsset))
  205.     3, 10:
  206.       if isWallpaper then
  207.         if myAsset = EMPTY then
  208.           gotoNetPage(stripExtension(parsePath(currentAsset)) & ".bmp")
  209.         else
  210.           gotoNetPage(the pathname & "assets" & fd & parsePath(myAsset))
  211.         end if
  212.       else
  213.         if myAsset = EMPTY then
  214.           c = parsePath(currentAsset)
  215.           if c contains ".jpg" then
  216.             gotoNetPage(c)
  217.           else
  218.             if c contains ".pdf" then
  219.               openDoc(c)
  220.             end if
  221.           end if
  222.         else
  223.           c = parsePath(myAsset)
  224.           if c contains ".jpg" then
  225.             gotoNetPage(the pathname & "assets" & fd & c)
  226.           else
  227.             if c contains ".pdf" then
  228.               openDoc(the pathname & "assets" & fd & c)
  229.             end if
  230.           end if
  231.         end if
  232.       end if
  233.     11:
  234.       gotoNetPage(parsePath(myAsset))
  235.     12:
  236.       if myAsset = EMPTY then
  237.         if isWallpaper then
  238.           copyFile(stripExtension(parsePath(currentAsset)) & ".bmp")
  239.         else
  240.           c = parsePath(currentAsset)
  241.           if baFolderExists(c) then
  242.             copyFolder(c)
  243.           else
  244.             copyFile(c)
  245.           end if
  246.         end if
  247.       else
  248.         c = parsePath(the pathname & "assets" & fd & myAsset)
  249.         if baFolderExists(c) then
  250.           copyFolder(c)
  251.         else
  252.           copyFile(c)
  253.         end if
  254.       end if
  255.   end case
  256. end
  257.