home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / picture.dir / 00143.ls < prev    next >
Encoding:
Text File  |  1994-11-30  |  524 b   |  20 lines

  1. on exitFrame
  2.   global bookwait, book
  3.   repeat with i = 2 to 7
  4.     if the castNum of sprite i <> 0 then
  5.       set the locH of sprite i to the locH of sprite i + (1 * (random(3) - 2))
  6.       set the locV of sprite i to the locV of sprite i + (1 * (random(3) - 2))
  7.     end if
  8.   end repeat
  9.   if (book <> EMPTY) and (bookwait < ticks()) then
  10.     repeat with i = 2 to 7
  11.       set the castNum of sprite i to 0
  12.       puppetSprite(i, 0)
  13.     end repeat
  14.     puppetSprite(29, 0)
  15.     go(label(book) + 1)
  16.   else
  17.     go(#loop)
  18.   end if
  19. end
  20.