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

Text File | 1994-12-05 | 394 b | 16 lines

on exitFrame
  global lpictblock, lmoveblock
  repeat with i = 2 to 22
    puppetSprite(i, 1)
  end repeat
  if the castNum of sprite 48 = 0 then
    repeat with i = 2 to 21
      set the cursor of sprite i to [243, 244]
    end repeat
  end if
  set the cursor of sprite 47 to [243, 244]
  repeat with i = 1 to 20
    set the castNum of sprite (i + 1) to getAt(lpictblock, i)
  end repeat
end