home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / minka_b.dir / 00081.ls < prev    next >
Encoding:
Text File  |  1994-12-12  |  710 b   |  29 lines
  1. on exitFrame
  2.   global getpoints, getitems, explode
  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.   repeat with i = 1 to 4
  23.     if getAt(explode, i) then
  24.       puppetSprite(10 + (2 * i), 1)
  25.       puppetSprite(11 + (2 * i), 1)
  26.     end if
  27.   end repeat
  28. end
  29.