home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1995 November / SHOWCASE.ISO / files / vision.dir / 00166_Script_166 < prev    next >
Text File  |  1995-06-14  |  612b  |  23 lines
  1. on mousedown
  2.   set the movieRate of sprite 20 = 0
  3.   updatestage
  4.   put the clickOn into whichSprite
  5.   puppetSprite whichSprite, TRUE
  6.   set the castnum of sprite whichSprite = ¼
  7.     the number of cast (the name of cast (the castnum of sprite whichSprite) && "lit")
  8.   --    repeat while the stilldown
  9.   updatestage
  10. end repeat
  11. end
  12.  
  13. on mouseUp
  14. put the clickOn into whichSprite
  15. set the castnum of sprite whichSprite = ¼
  16.     the number of cast (word 1 of the name of cast (the castnum of sprite whichSprite))
  17. updatestage
  18. puppetSprite whichSprite, FALSE
  19. clearpuppets
  20. go next
  21. puppettransition 0
  22.  
  23. end