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