home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Sofwpc12.dxr / 00048_arrowdowndown.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  413 b   |  17 lines
  1. on mouseDown
  2.   global whichprog, whichsection, x, featuredlist, demo, t, pageAmount
  3.   repeat while the mouseDown
  4.     set the member of sprite 31 to member "arrowdowndowndown"
  5.     updateStage()
  6.   end repeat
  7.   set thiscount to "put count(" & whichsection & ") into t"
  8.   do(thiscount)
  9.   if x > t then
  10.     set x to 1
  11.     set pageAmount to 0
  12.   else
  13.     set pageAmount to pageAmount + 5
  14.   end if
  15.   SOFimagessetup()
  16. end
  17.