Seeker/Seeker.iso/files_w/shared.dir/00222.ls

Text File | 1994-12-10 | 529 b | 19 lines

on mouseDown
  set cnum to the castNum of sprite clickOn()
  if cnum <> 0 then
    cursor([247, 248])
    set the castNum of sprite 48 to cnum
    set the castNum of sprite clickOn() to 0
    repeat while the stillDown
      set the locH of sprite 48 to mouseH()
      set the locV of sprite 48 to mouseV()
      updateStage()
    end repeat
    set the castNum of sprite clickOn() to cnum
    set the castNum of sprite 48 to 210
    set the locH of sprite 48 to 0
    set the locV of sprite 48 to 0
    cursor(200)
  end if
end