GU 15 - Background Photo Collection - Hanabi/gu15.iso/pc/browser.exe/browser.DXR/00042.ls

Text File | 1996-09-12 | 600 b | 23 lines

on chageCName n, m
  repeat with i = n to m
    set the name of cast i to "8240" & the name of cast i
  end repeat
end

on relacecname n, m, old, new
  repeat with i = n to m
    put the name of cast i
    set nm to the name of cast i
    set st to offset(old, nm)
    if 0 < st then
      if st = 1 then
        set nm to new & char st + length(old) to the number of chars in nm of nm
      else
        set nm to char 1 to st - 1 of nm & new & char st + length(old) to the number of chars in nm of nm
      end if
      set the name of cast i to nm
      put "->" && nm
    end if
  end repeat
end