home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM User 1995 September
/
cdrom-user-14-1995-09.iso
/
nature
/
data
/
shared.dir
/
00340_Script_340
< prev
next >
Wrap
Text File
|
1995-04-13
|
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