home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / tools.dir / 00452.ls < prev    next >
Encoding:
Text File  |  1995-01-25  |  358 b   |  15 lines
  1. on mouseDown
  2.   set WhichSprite to the clickOn
  3.   puppetSprite(WhichSprite, 1)
  4.   set the castNum of sprite WhichSprite to the number of cast "Dial6 lit"
  5.   puppetSound("phone6")
  6.   repeat while the stillDown
  7.     updateStage()
  8.   end repeat
  9. end
  10.  
  11. on mouseUp
  12.   set WhichSprite to the clickOn
  13.   set the castNum of sprite WhichSprite to the number of cast "Dial6"
  14. end
  15.