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

Text File | 1997-10-14 | 834b | 23 lines

on su 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 >1 then
    if ss = 2 then
      set the locv of sprite spritecur to 64
    else
      set the locv of sprite spritecur to 64+integer ((lungh_barra/righe_scroll_testo)*ss)
    end if
    set ss to ss-1
    set the scrolltop of member castart to the scrolltop of member castart - valore
    --    set the locv of sprite spritecur to 64+integer ((lungh_barra/righe_scroll_testo)*ss)
    --    put "locv in su " 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