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

Text File | 1994-12-05 | 338 b | 15 lines

on exitFrame
  global cpictblock
  repeat with i = 2 to 42
    puppetSprite(i, 1)
  end repeat
  if the castNum of sprite 48 = 0 then
    repeat with i = 2 to 42
      set the cursor of sprite i to [243, 244]
    end repeat
  end if
  repeat with i = 1 to 40
    set the castNum of sprite (i + 1) to getAt(cpictblock, i)
  end repeat
end