home *** CD-ROM | disk | FTP | other *** search
/ GU Photo: Background 3 / GU.iso / pc / browser_4m_ / browser_4m_.dxr / 00133_buttonUtility.ls < prev    next >
Encoding:
Text File  |  1994-09-30  |  344 b   |  21 lines
  1. on pushbutton
  2.   set sp to clickOn()
  3.   puppetSound("Click")
  4.   puppetSprite(sp, 1)
  5.   set the ink of sprite sp to 2
  6.   updateStage()
  7.   repeat while soundBusy(1)
  8.   end repeat
  9.   puppetSound(0)
  10.   puppetSprite(sp, 0)
  11.   updateStage()
  12. end
  13.  
  14. on pushfield
  15.   puppetSound("Click")
  16.   updateStage()
  17.   repeat while soundBusy(1)
  18.   end repeat
  19.   puppetSound(0)
  20. end
  21.