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