home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 August / WPCAUG97.ISO / multi / tep / data / motor.dir / 00307.ls < prev    next >
Encoding:
Text File  |  1996-10-15  |  412 b   |  20 lines
  1. global counter1, counter2, spacelevel, marklevel, obeymarkspace
  2.  
  3. on mouseDown
  4.   global onflag
  5.   puppetSound("butsnoise")
  6.   set counter1 to 0
  7.   set counter2 to 0
  8.   set spacelevel to 70
  9.   set marklevel to 20
  10.   set obeymarkspace to 0
  11.   set the locH of sprite 6 to 506
  12.   updateStage()
  13.   set the locH of sprite 6 to 1000
  14.   set onflag to 0
  15.   repeat with n = 1 to 48
  16.     puppetSprite(n, 0)
  17.   end repeat
  18.   go(#next)
  19. end
  20.