home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / picture.dir / 00167.ls < prev    next >
Encoding:
Text File  |  1994-11-30  |  464 b   |  19 lines
  1. on mouseDown
  2.   global pictnumber
  3.   set the castNum of sprite 18 to the castNum of sprite 18 + 1
  4.   updateStage()
  5.   set nt to ticks()
  6.   repeat while (nt + 40) > ticks()
  7.   end repeat
  8.   set the castNum of sprite 18 to the castNum of sprite 18 - 1
  9.   updateStage()
  10.   set pictnumber to clickOn() - 1
  11.   repeat with i = 2 to 17
  12.     set the cursor of sprite i to 0
  13.   end repeat
  14.   cursor(200)
  15.   set the castNum of sprite 18 to 0
  16.   puppetSprite(18, 0)
  17.   go(the frame + 1)
  18. end
  19.