home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Mare / SHAREDM.CST / 03059_Script_3059 < prev    next >
Text File  |  1997-09-15  |  512b  |  15 lines
  1. on giu castart,spritecur
  2.   global ss,valore,lungh_barra,righe_scroll_testo
  3.   set righe_scroll_testo to the linecount of member "articolo" -10
  4.   if ss<righe_scroll_testo then
  5.     set the scrolltop of member castart to the scrolltop of member castart + valore
  6.     set ss to ss+1
  7.     set the locv of sprite spritecur to 64+integer ((lungh_barra/righe_scroll_testo)*ss)
  8.   put "locv in giu " the locv of sprite spritecur ,lungh_barra,righe_scroll_testo,ss
  9.     
  10.     
  11.   else
  12.     beep
  13.     exit
  14.   end if
  15. end