home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Computer Buyer 1995 November
/
SHOWCASE.ISO
/
files
/
vision.dir
/
00157_Script_157
< prev
next >
Wrap
Text File
|
1995-06-14
|
561b
|
21 lines
on mousedown
put the clickOn into whichSprite
puppetSprite whichSprite, TRUE
set the castnum of sprite whichSprite = ¼
the number of cast (the name of cast (the castnum of sprite whichSprite) && "lit")
-- repeat while the stilldown
updatestage
end repeat
end
on mouseUp
put the clickOn into whichSprite
set the castnum of sprite whichSprite = ¼
the number of cast (word 1 of the name of cast (the castnum of sprite whichSprite))
updatestage
puppetSprite whichSprite, FALSE
clearpuppets
go "annual"
puppettransition 0
end