home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / shared.dir / 00504.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  385 b   |  11 lines
  1. on setScroll theSpriteNum, offsetPtr, totLines, fldNo
  2.   global loValPos, hiValPos, scrRange, displayLines
  3.   set x to loValPos + (offsetPtr * scrRange / integer(totLines - displayLines - 0.5))
  4.   if x > hiValPos then
  5.     set x to hiValPos
  6.   end if
  7.   set the visible of sprite theSpriteNum to 0
  8.   set the locV of sprite theSpriteNum to x
  9.   set the visible of sprite theSpriteNum to 1
  10. end
  11.