Seeker/Seeker.iso/files_w/minka_d.dir/00056.ls

Text File | 1994-12-05 | 791 b | 30 lines

on mouseDown
  global getpieces
  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)
    if rollOver(2) then
      puppetSound("open")
      if getAt(getpieces, 7) then
        puppetSprite(9, 1)
      end if
      repeat with i = 1 to 37
        set the cursor of sprite i to 0
      end repeat
      go("scene2_1")
    end if
  end if
end