home *** CD-ROM | disk | FTP | other *** search
/ Digital Design Material S…es 2: Stone Material Raw / 石素材王.iso / pc / stage.dir / 00046.ls < prev    next >
Encoding:
Text File  |  1997-01-21  |  252 b   |  17 lines
  1. on mouseDown
  2.   hilitesprite(clickOn(), 1)
  3.   updateStage()
  4.   repeat while the mouseDown
  5.     if mouseCast() <> clickOn() then
  6.       exit repeat
  7.     end if
  8.     nothing()
  9.   end repeat
  10. end
  11.  
  12. on mouseUp
  13.   puppetSound("click")
  14.   updateStage()
  15.   copytohd()
  16. end
  17.