Seeker/Seeker.iso/files_w/picture.dir/00168.ls

Text File | 1994-11-30 | 685 b | 25 lines

on mouseDown
  global pictnumber
  if the castNum of sprite clickOn() <> the number of cast "notfound" then
    set the castNum of sprite 18 to the castNum of sprite 18 + 1
    updateStage()
    set nt to ticks()
    repeat while (nt + 40) > ticks()
    end repeat
    set the castNum of sprite 18 to the castNum of sprite 18 - 1
    updateStage()
    set pictnumber to clickOn() - 1
    repeat with i = 2 to 17
      set the cursor of sprite i to 0
    end repeat
    cursor(200)
    repeat with i = 2 to 14
      set the castNum of sprite i to 0
      puppetSprite(i, 0)
    end repeat
    set the castNum of sprite 18 to 0
    puppetSprite(18, 0)
    go(the frame + 1)
  end if
end