MacFormat 1999 Spring/macformat-077.iso/Demos/RealPool Demo/3D.DAT/00780.ls

Text File | 1998-05-02 | 346 b | 15 lines

on mouseDown
  butsound()
  repeat while the mouseDown
    set yu3 to the castNum of sprite 4
    set yu to the scrollTop of cast yu3
    set yu to yu + 10
    set yu2 to the height of cast yu3 - the height of sprite 4
    if yu > yu2 then
      set yu to yu2
    end if
    set the scrollTop of cast yu3 to yu
    updateStage()
  end repeat
end