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

Text File | 1997-10-15 | 695b | 18 lines

on su castart,spritecur
  global ss
  if ss > 1 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 > 105 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 the locv of sprite spritecur to the locv of sprite spritecur - (290 / the lineCount of member castart) - 1
      else
        set the locv of sprite spritecur to the locv of sprite spritecur - (290 / the lineCount of member castart)
      end if
    end if
    UPDATESTAGE
  end if
  AGGIORNA
end