home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today (BR) Volume 2 #6
/
CDRTV2N6.iso
/
makers
/
main.dir
/
00093_Script_93
< prev
next >
Wrap
Text File
|
1996-03-11
|
689b
|
26 lines
on mouseDown
set me = the clickon
set oldlevel = the soundlevel
set bottom = 25 -- level 1
set inc = ((the height of sprite me) - bottom)/7 -- pixels per level
repeat while the mousedown
set mv = the mousev
set v = mv - (the top of sprite me)
set level = 8-(v/inc)
if level > 7 then set level = 7
else if level < 0 then set level = 0
if oldlevel <> level then
set the soundlevel = level
if oldlevel = 0 then puppetSound 2,the number of cast "interface.iff"
set oldlevel = level
end if
updatestage
set the castnum of sprite me = the number of cast ("v-" & level)
end repeat
end