Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/Indart.cst/00089_Script_89

Text File | 1997-10-14 | 664b | 20 lines

on giu castart,spritecur
  if  castart = "articolo" then set castart = 700
  global ss,valore,lungh_barra,righe_scroll_testo,aobeep
  set righe_scroll_testo to the linecount of member castart -10

  if ss<righe_scroll_testo then
    set the scrolltop of member castart to the scrolltop of member castart + valore
    set ss to ss+1
    set the locv of sprite spritecur to 64+integer ((lungh_barra/righe_scroll_testo)*ss)
    --    put "locv in giu " the locv of sprite spritecur ,lungh_barra,righe_scroll_testo,ss
    set aobeep to true
  else
    if aobeep then
      set aobeep to false
      beep
    end if

    exit
  end if
end