Seeker/Seeker.iso/files_w/suzan.dir/00034.ls

Text File | 1994-12-03 | 800 b | 35 lines

on exitFrame
  global getpoints, getitems, getpieces, oldsuzan
  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, 10) then
    puppetSprite(3, 1)
  end if
  if getAt(getpoints, 2) and getAt(getpoints, 3) then
    go("scene3")
  else
    if oldsuzan then
      go("scene2")
    else
      go("scene1")
    end if
  end if
end