home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #9 / CDRTV2N9.iso / progs / vearth / shared.dir / 00562_Script_562 < prev    next >
Text File  |  1996-04-15  |  819b  |  29 lines
  1. on mouseUp
  2.   --Sound
  3.   global gSound
  4.   
  5.   if gSound = 1 then         
  6.     set the blend of sprite (the clickOn) to 70
  7.     updateStage  
  8.     set gSound = 0
  9.     if the type of sprite 4 = 16 then 
  10.       set the movieRate of sprite 4 to 0
  11.       set the movieTime of sprite 4 to 0
  12.       set the sound of cast the castNum of sprite 4 to 1
  13.       set the volume of sprite 4 to 200
  14.     end if
  15.     set the soundEnabled to gSound
  16.   else
  17.     
  18.     set the blend of sprite (the clickOn) to 100      
  19.     updateStage   
  20.     set gSound = 1
  21.     --    set the blend of sprite (the clickOn) to 100
  22.     set the soundEnabled to gSound
  23.     if the type of sprite 4 = 16 then 
  24.       set the sound of cast the castNum of sprite 4 to 1
  25.       set the volume of sprite 4 to 200
  26.     updateStage  
  27.     end if
  28.   end if
  29. end