home *** CD-ROM | disk | FTP | other *** search
/ Digital Design Material S…es 2: Stone Material Raw / 石素材王.iso / pc / stage.dir / 00045.ls < prev    next >
Encoding:
Text File  |  1997-01-21  |  246 b   |  16 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.   go(marker("ending"))
  15. end
  16.