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

Text File | 1994-12-05 | 900 b | 27 lines

on mouseDown
  global rpictblock
  if the castNum of sprite clickOn() <> 1 then
    if the castNum of sprite 48 = 0 then
      set the castNum of sprite 48 to the castNum of sprite clickOn()
      set the castNum of sprite clickOn() to 1
      setAt(rpictblock, clickOn() - 1, 1)
      repeat with i = 2 to 42
        set the cursor of sprite i to 0
      end repeat
    else
      set cnumkeep to the castNum of sprite 48
      set the castNum of sprite 48 to the castNum of sprite clickOn()
      set the castNum of sprite clickOn() to cnumkeep
      setAt(rpictblock, clickOn() - 1, cnumkeep)
      rightcheck()
    end if
  else
    if the castNum of sprite 48 <> 0 then
      set the castNum of sprite clickOn() to the castNum of sprite 48
      set the castNum of sprite 48 to 0
      setAt(rpictblock, clickOn() - 1, the castNum of sprite clickOn())
      rightcheck()
    end if
  end if
end