home *** CD-ROM | disk | FTP | other *** search
/ 3D World 123 / 3DW_123.iso / pc / 3dw.exe / 3dw.dxr / Internal_50_content_button.ls < prev    next >
Encoding:
Text File  |  2009-06-30  |  779 b   |  43 lines
  1. property sp, myLink, myType
  2.  
  3. on beginSprite me
  4.   sp = sprite(me.spriteNum)
  5.   sp.member.color = rgb(145, 181, 1)
  6.   myType = 0
  7.   myLink = 0
  8. end
  9.  
  10. on mouseEnter me
  11.   sp.member.color = rgb(255, 255, 255)
  12.   cursor(280)
  13. end
  14.  
  15. on mouseLeave me
  16.   sp.member.color = rgb(145, 181, 1)
  17.   cursor(-1)
  18. end
  19.  
  20. on mouseUp me
  21.   cursor(-1)
  22.   if myType <> 0 then
  23.     if myType = 1 then
  24.       put "website" & myLink
  25.       gotoNetPage(myLink)
  26.     else
  27.       if myType = 2 then
  28.         put "folder" & myLink
  29.         baOpenFile(myLink, "normal")
  30.       else
  31.         if myType = 3 then
  32.           put "video" & myLink
  33.           playVideoVLC(myLink)
  34.         else
  35.           if myType = 4 then
  36.             showInfoPopup(myLink, sp.member.text)
  37.           end if
  38.         end if
  39.       end if
  40.     end if
  41.   end if
  42. end
  43.