home *** CD-ROM | disk | FTP | other *** search
/ Human & Space in Asia / ARIF_ASCI.ISO / pc / arif.dir / 00099.ls < prev    next >
Encoding:
Text File  |  1996-09-25  |  634 b   |  22 lines
  1. on yenises
  2.   repeat with a = 1 to 5000
  3.     set tname to the name of cast a
  4.     if tname <> 0 then
  5.       set dene to char 1 to 2 of tname
  6.       if (dene <> "sf") and (char 1 of dene = "s") and (the castType of cast a = #sound) then
  7.         set part1 to word 1 of the name of cast a
  8.         set part2 to word 2 of the name of cast a
  9.         if part2 = "100" then
  10.           set part2 to "Y"
  11.         end if
  12.         set tname to part1 & part2 & ".AIF"
  13.         put tname
  14.         if tname <> "sescopy.AIF" then
  15.           set the fileName of cast a to "HABITAT:SES:" & tname
  16.         end if
  17.       end if
  18.     end if
  19.   end repeat
  20.   put dene
  21. end
  22.