Seeker/Seeker.iso/files_w/minka_c.dir/00114.ls

Text File | 1994-12-03 | 624 b | 26 lines

on exitFrame
  global getpoints, getitems, getpieces
  set p to 0
  repeat with i = 1 to 8
    if getAt(getpoints, i) = 1 then
      set p to 1
      exit repeat
    end if
  end repeat
  puppetSprite(30, 1)
  set the castNum of sprite 30 to the castNum of sprite 30 + p
  repeat with i = 1 to 7
    if not getAt(getitems, i) then
      puppetSprite(i + 30, 1)
      set the castNum of sprite (i + 30) to 0
    end if
  end repeat
  puppetSprite(48, 1)
  set the castNum of sprite 48 to 210
  set the locH of sprite 48 to 0
  set the locV of sprite 48 to 0
  if getAt(getpieces, 6) then
    puppetSprite(20, 1)
  end if
end