Seeker/Seeker.iso/files_w/base_ec.dir/00060.ls

Text File | 1994-12-01 | 527 b | 25 lines

on mouseDown
  global pictnumber, etcpict
  set pictnumber to pictnumber + 1
  if pictnumber >= 14 then
    set pictnumber to 1
  end if
  if not getAt(etcpict, pictnumber) then
    set p to 0
    repeat while p = 0
      set pictnumber to pictnumber + 1
      if pictnumber >= 14 then
        set pictnumber to 1
      end if
      if getAt(etcpict, pictnumber) then
        set p to 1
      end if
    end repeat
  end if
  set the castNum of sprite 1 to 0
  puppetSprite(1, 0)
  updateStage()
  unLoad()
  go(#previous)
end