home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacUser Mac Bin 36
/
MACUSER-MACBIN36-1996-11.ISO.7z
/
MACUSER-MACBIN36-1996-11.ISO
/
MACBIN
/
inbox9611
/
00020_Script_20
< prev
next >
Wrap
Text File
|
1996-09-23
|
599b
|
24 lines
--
on initSlider
global base,L,R,HSlider,mouseP,DefV
put 47 into base --Number of Slider based bar Channel
put 48 into HSlider --Number of Slider Switch Channel
put the left of sprite base into L
put the right of sprite base into R
PuppetSprite HSlider, TRUE
set the immediate of sprite HSlider to TRUE
put the soundlevel into DefV
if DefV = 0 then
set the soundlevel=1
put 1 into DefV
end if
put DefV*20+L into mouseP
set the locH of sprite HSlider to mouseP
updateStage
set the text of cast "levelDisp" to string (DefV)