home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / shared.dir / 00221.ls < prev    next >
Encoding:
Text File  |  1994-12-10  |  550 b   |  23 lines
  1. on exitFrame
  2.   global getpoints, getitems
  3.   set p to 0
  4.   repeat with i = 1 to 8
  5.     if getAt(getpoints, i) = 1 then
  6.       set p to 1
  7.       exit repeat
  8.     end if
  9.   end repeat
  10.   puppetSprite(30, 1)
  11.   set the castNum of sprite 30 to the castNum of sprite 30 + p
  12.   repeat with i = 1 to 7
  13.     if not getAt(getitems, i) then
  14.       puppetSprite(i + 30, 1)
  15.       set the castNum of sprite (i + 30) to 0
  16.     end if
  17.   end repeat
  18.   puppetSprite(48, 1)
  19.   set the castNum of sprite 48 to 210
  20.   set the locH of sprite 48 to 0
  21.   set the locV of sprite 48 to 0
  22. end
  23.