home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 May / CHIPCD5_98.iso / software / testsoft / carr / IRL.CST / 00018_Script_s_scrlUp < prev    next >
Text File  |  1998-01-28  |  528b  |  21 lines
  1. on mouseDown
  2.   global g_scrltimer,g_bscrstate
  3.   set g_scrltimer=the timer
  4.   set g_bscrstate=#Up
  5. end
  6.  
  7. on mouseLeave
  8.   global g_bscrstate
  9.   set g_bscrstate=#None
  10. end
  11.  
  12. on mouseUp
  13.   global g_bscrstate,g_textmem,g_slspr,g_sliderTop,g_textmem
  14.   global g_ListLen,g_ListSize,g_sliderSize
  15.   set tmp=the scrollTop of g_textmem
  16.   if tmp>15 then set sctop to tmp-15
  17.   else set sctop to 0
  18.   set tmp=sctop*g_sliderSize/(g_ListLen-g_ListSize) 
  19.   set the locV of sprite g_slspr to tmp+g_sliderTop
  20.   set g_bscrstate=#None
  21. end