home *** CD-ROM | disk | FTP | other *** search
/ MacUser Mac Bin 25 / MACUSER-MACBIN25-1995-12.ISO.7z / MACUSER-MACBIN25-1995-12.ISO / RockCity6 / rc6 / Rock6 / 00020_Script_20 < prev    next >
Text File  |  1995-10-24  |  599b  |  24 lines
  1. --
  2. on initSlider
  3.   global base,L,R,HSlider,mouseP,DefV
  4.   put 47 into base --Number of Slider based bar Channel
  5.   put 48 into HSlider --Number of Slider Switch Channel
  6.   put the left of sprite base into L
  7.   put the right of sprite base into R
  8.   
  9.   
  10.   PuppetSprite HSlider, TRUE
  11.   set the immediate of sprite HSlider to TRUE
  12.   
  13.   put the soundlevel into DefV
  14.   if DefV = 0 then
  15.     set the soundlevel=1
  16.     put 1 into DefV
  17.   end if
  18.   
  19.   put DefV*20+L into mouseP
  20.   set the locH of sprite HSlider to mouseP
  21.   updateStage
  22.   set the text of  cast "levelDisp" to string (DefV)
  23.   
  24.