Seeker/Seeker.iso/files_w/w_puzzle.dir/00083.ls

Text File | 1994-12-05 | 561 b | 20 lines

on exitFrame
  global cpictblock, leftable, rightable
  repeat with i = 1 to 40
    puppetSprite(i + 1, 1)
    if (getAt(cpictblock, i) <= 30) and leftable then
      set the castNum of sprite (i + 1) to getAt(cpictblock, i)
      next repeat
    end if
    if (getAt(cpictblock, i) >= 31) and rightable then
      set the castNum of sprite (i + 1) to getAt(cpictblock, i)
    end if
  end repeat
  if leftable and rightable then
    repeat with i = 2 to 42
      set the cursor of sprite i to [243, 244]
    end repeat
    go(label("center") + 1)
  end if
end