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