home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 August / WPCAUG97.ISO / multi / tep / data / motor.dir / 00215.ls < prev    next >
Encoding:
Text File  |  1996-10-15  |  490 b   |  18 lines

  1. on mouseDown
  2.   if the castNum of sprite 14 = the number of cast "off" then
  3.     set the castNum of sprite 14 to the number of cast "on"
  4.     u()
  5.   end if
  6.   set the castNum of sprite 13 to the number of cast "stfan"
  7.   u()
  8.   repeat with a = 1 to 12
  9.     set the castNum of sprite 13 to 1 + the castNum of sprite 13
  10.     wait()
  11.     u()
  12.   end repeat
  13.   if the castNum of sprite 13 > the number of cast "enfan" then
  14.     set the castNum of sprite 13 to the number of cast "stfan"
  15.     u()
  16.   end if
  17. end
  18.