home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00359.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  443 b   |  18 lines
  1. on mouseDown
  2.   global NextFrame
  3.   set theClick to the clickOn
  4.   set me to theClick - 35
  5.   set NextFrame to item me of "graham,valois,nureyev,duncan"
  6.   set the ink of sprite theClick to 5
  7.   updateStage()
  8.   ButtonsDown(18, 19, 21)
  9.   set STIcks to the ticks
  10.   repeat while (the ticks - STIcks) < 15
  11.     CheckQT()
  12.   end repeat
  13.   repeat with i = 36 to 39
  14.     set the locH of sprite i to 1000
  15.   end repeat
  16.   set the ink of sprite theClick to 36
  17. end
  18.