home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / picture.dir / 00142.ls < prev    next >
Encoding:
Text File  |  1994-11-30  |  620 b   |  24 lines
  1. on exitFrame
  2.   global bookwait, book, getpoints
  3.   set bookwait to 0
  4.   set book to EMPTY
  5.   repeat with i = 2 to 6
  6.     puppetSprite(i, 1)
  7.     if not getAt(getpoints, i) then
  8.       set the castNum of sprite i to 0
  9.       next repeat
  10.     end if
  11.     set the constraint of sprite i to 1
  12.     set the cursor of sprite i to [257, 258]
  13.   end repeat
  14.   puppetSprite(7, 1)
  15.   set the constraint of sprite 7 to 1
  16.   set the cursor of sprite 7 to [257, 258]
  17.   if getpoints = [1, 1, 1, 1, 1, 1, 1, 1] then
  18.     puppetSprite(29, 1)
  19.     set the castNum of sprite 29 to 20
  20.   end if
  21.   set the cursor of sprite 29 to [243, 244]
  22.   cursor(-1)
  23. end
  24.