home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00345.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  349 b   |  15 lines
  1. on mouseDown
  2.   global NextFrame
  3.   set theClick to the clickOn
  4.   set NextFrame to "chanel"
  5.   set the ink of sprite theClick to 5
  6.   updateStage()
  7.   ButtonsDown(18, 20, 21)
  8.   set STIcks to the ticks
  9.   repeat while (the ticks - STIcks) < 15
  10.     CheckQT()
  11.   end repeat
  12.   set the locH of sprite theClick to 1000
  13.   set the ink of sprite theClick to 36
  14. end
  15.