home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today - The Disc! 15
/
cdrt15.iso
/
pc
/
nature
/
shared.dir
/
00340_Script_340
< prev
Wrap
Text File
|
1995-03-29
|
454b
|
16 lines
on buttonpush buttonupC, buttondownC
set castlist = [:]
repeat with channel = 1 to 48
setaprop castlist, channel, the castnum of sprite channel
end repeat
set buttonS = getone(castlist, buttonupC)
puppetsprite buttonS, 1
set the castnum of sprite buttonS to buttondownC
updatestage
repeat while the mouseup <>1
end repeat
set the castnum of sprite buttonS to buttonupC
updatestage
puppetsprite buttonS, 0
end