home *** CD-ROM | disk | FTP | other *** search
/ DigitalVision: Cats & Dogs / DigitalVision: Cats & Dogs - Disc 1.iso / pc / s_saver / dv_onlin.exe / dv_onlin.dcr / Internal_28_changevolume.ls < prev    next >
Encoding:
Text File  |  2000-07-28  |  354 b   |  27 lines
  1. property pSprite
  2. global gsound
  3.  
  4. on beginSprite me
  5.   pSprite = sprite(me.spriteNum)
  6.   pSprite.member = "v" & gsound
  7. end
  8.  
  9. on mouseEnter me
  10.   thecursor(#roll)
  11. end
  12.  
  13. on mouseLeave me
  14.   thecursor(#norm)
  15. end
  16.  
  17. on mouseUp me
  18.   t = integer(gsound)
  19.   t = t + 1
  20.   if t > 7 then
  21.     t = 0
  22.   end if
  23.   gsound = t
  24.   changesoundmode()
  25.   pSprite.member = "v" & gsound
  26. end
  27.