Human & Space in Asia/ARIF_ASCI.ISO/pc/arif.dir/00096.ls

Text File | 1996-09-25 | 612 b | 22 lines

on yenifilm
  repeat with a = 1 to 5000
    set tname to the name of cast a
    if tname <> 0 then
      set dene to char 1 of tname
      if (dene = "f") and (the castType of cast a = #digitalVideo) then
        set part1 to word 1 of the name of cast a
        set part2 to word 2 of the name of cast a
        if part2 = "100" then
          set part2 to "Y"
        end if
        set tname to part1 & part2 & ".MOV"
        put tname
        if tname <> "FAYSAL.MOV.MOV" then
          set the fileName of cast a to "HABITAT:FILM:" & tname
        end if
      end if
    end if
  end repeat
  put dene
end