home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today - The Disc! 15
/
cdrt15.iso
/
mac
/
SHARED.DIR
/
00767_Script_767
< prev
next >
Wrap
Text File
|
1995-04-13
|
457b
|
17 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