Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/index.dir/00045_Script_45

Text File | 1997-10-15 | 823b | 21 lines

on giu castart,spritecur
  global ss
  --  scrollByLine member castart, 1
  if ss < the lineCount of member castart then
    set ss to ss+1
    --    PUT LINE SS TO SS+15 OF FIELD 58 INTO FIELD 57
    scrivi ss,ss+15
    if the locv of sprite 14 < 395 then
      set  gino to the linecount of member castart / (integer (("0."&(16 mod the lineCount of member castart )) * the lineCount of member castart))
      if ss mod gino = 0 then
        set tmp to the locv of sprite spritecur + (290.0 / the lineCount of member castart) + 1
        set the locv of sprite spritecur to tmp
      else
        set tmp to the locv of sprite spritecur + (290.0 / the lineCount of member castart)
        set the locv of sprite spritecur to tmp
      end if
      AGGIORNA
      UPDATESTAGE
    end if
  end if