home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00354.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  605 b   |  23 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 not CheckQT()
  11.     if (the ticks - STIcks) > 15 then
  12.       set the ink of sprite theClick to 41 - value(the ink of sprite theClick)
  13.       updateStage()
  14.       set STIcks to the ticks
  15.     end if
  16.   end repeat
  17.   repeat with i = 36 to 39
  18.     set the locH of sprite i to 1000
  19.   end repeat
  20.   SetQT()
  21.   set the ink of sprite theClick to 36
  22. end
  23.