home *** CD-ROM | disk | FTP | other *** search
/ GU 15 - Background Photo Collection - Hanabi / gu15.iso / pc / browser.exe / browser.DXR / 00090.ls < prev    next >
Encoding:
Text File  |  1996-09-12  |  1.2 KB  |  51 lines
  1. on namechangenew
  2.   set no to 1
  3.   repeat with i = 105 to 204
  4.     if length(string(no)) = 1 then
  5.       set no2 to "000" & string(no)
  6.     else
  7.       if length(no) = 2 then
  8.         set no2 to "00" & string(no)
  9.       else
  10.         if length(no) = 3 then
  11.           set no2 to "0" & string(no)
  12.         end if
  13.       end if
  14.     end if
  15.     set the name of cast i to "120" & "HA" & no2
  16.     set no to no + 1
  17.   end repeat
  18.   set no to 1
  19.   repeat with i = 205 to 304
  20.     if length(string(no)) = 1 then
  21.       set no2 to "000" & string(no)
  22.     else
  23.       if length(no) = 2 then
  24.         set no2 to "00" & string(no)
  25.       else
  26.         if length(no) = 3 then
  27.           set no2 to "0" & string(no)
  28.         end if
  29.       end if
  30.     end if
  31.     set the name of cast i to "240" & "HA" & no2
  32.     set no to no + 1
  33.   end repeat
  34.   set no to 1
  35.   repeat with i = 305 to 404
  36.     if length(string(no)) = 1 then
  37.       set no2 to "000" & string(no)
  38.     else
  39.       if length(no) = 2 then
  40.         set no2 to "00" & string(no)
  41.       else
  42.         if length(no) = 3 then
  43.           set no2 to "0" & string(no)
  44.         end if
  45.       end if
  46.     end if
  47.     set the name of cast i to "640" & "HA" & no2
  48.     set no to no + 1
  49.   end repeat
  50. end
  51.