home *** CD-ROM | disk | FTP | other *** search
/ MacUser Mac Bin 36 / MACUSER-MACBIN36-1996-11.ISO.7z / MACUSER-MACBIN36-1996-11.ISO / MACBIN / inbox9611 / 00017_Script_17 < prev    next >
Text File  |  1996-09-23  |  600b  |  20 lines
  1. --
  2. on sliderVolumeH
  3.   
  4.   global base,L,R,HSlider,mouseP,DefV
  5.   
  6.   puppetSprite clickOn(), TRUE
  7.   repeat while stillDown()
  8.     if mouseH() >= L and mouseH() <= R then set the locH of sprite clickOn() =mouseH()
  9.     else if mouseH() > R then set the locH of sprite clickOn() = R
  10.     else set the locH of sprite clickOn() = L
  11.     upDateStage
  12.   end repeat
  13.   
  14.   put (integer(((mouseH()-L)+10)/20))*20 into snapP
  15.   if snapP < L then put 0 into snapP
  16.   else if snapP > R-L then put R-L into snapP
  17.   put snapP+L into mouseP
  18.   set the locH of sprite HSlider= mouseP
  19.   put snapP/20 into DefV
  20.