home *** CD-ROM | disk | FTP | other *** search
/ 3D World 110 / 3DW_110.iso / mac / Menu / Scenes / home.dir / 00028_Script_action_button_rollover < prev    next >
Text File  |  2008-09-12  |  2KB  |  107 lines
  1. property Sp
  2. property myAction
  3. property myTarget
  4.  
  5. global gRootPath
  6. global Divi
  7. global gFullPath
  8. global gFormat
  9.  
  10. on initialize me, aTarget, aspritenum, aAction
  11.   Sp = sprite(aSpritenum)
  12.   myAction = aAction
  13.   myTarget = aTarget
  14. end
  15.  
  16. on mouseEnter me
  17.   Sp.member = member("INSTALL_OVER")
  18.   cursor 280
  19. end
  20.  
  21. on mouseLeave me
  22.   Sp.member = member("iNSTALLbUTTON")
  23.   cursor -1
  24. end
  25.  
  26. on mouseUp me
  27.   
  28.   case myAction of:
  29.     "website":
  30.       me.doAction(myAction)
  31.     "local_link":
  32.       me.doAction(myAction)
  33.     "register":
  34.       me.doAction(myAction)
  35.     "upgrade":
  36.       me.doAction(myAction)
  37.     "folder":
  38.       me.doAction(myAction)
  39.       
  40.     "install_pc":
  41.       if the platform contains "win" then
  42.         theAction = "install"
  43.         me.doAction(theAction)
  44.       else
  45.         if gFormat = "both" then
  46.           alert "Please click the other install button"
  47.         else
  48.           alert("Sorry, but this software is for PC only")
  49.         end if
  50.       end if
  51.       
  52.       
  53.     "install_mac":
  54.       if the platform contains "mac" then
  55.         theAction = "install"
  56.         me.doAction(theAction)
  57.       else
  58.         if gFormat = "both" then
  59.           alert "Please click the other install button"
  60.         else
  61.           
  62.           alert "Sorry, but this software is for MAC only"
  63.           
  64.         end if
  65.       end if
  66.       
  67.       
  68.   end case
  69.   
  70. end
  71.  
  72.  
  73.  
  74. on DoAction me, anAction
  75.   
  76.   case anAction of
  77.       
  78.     "register":
  79.       gotonetpage(myTarget)
  80.       
  81.     "install":
  82.       put "gFullPath = " & gfullpath & myTarget
  83.       OK = baOpenFile( gFullPath & myTarget , "normal" )
  84.       
  85.     "folder":
  86.       put "gFullPath = " & gfullpath & myTarget
  87.       OK = baOpenFile( gFullPath & myTarget , "normal" )
  88.       if the platform contains "mac" then
  89.         baActivateWindow (baFindWindow ("MACS",""))
  90.       end if
  91.       
  92.       
  93.     "website":
  94.       put myTarget
  95.       gotonetpage(myTarget)
  96.       
  97.     "local_link":
  98.       OK = BaOpenFile( myTarget, "maximised")
  99.       
  100.   end case
  101.   
  102. end
  103.  
  104.  
  105.  
  106.  
  107.