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