Прогнал простеньким скриптом по замене имен
#!/usr/bin/perl
use strict;
use warnings;
use File::Slurp;
use File::Basename;
foreach (<scripts/*.txt>)
{
my $file = $_;
my $oldText = read_file($file);
my $text = read_file($file);
$text =~ s/set_name\((\d+),"([^"]{1,18})[^"]+"\)/set_name\($1,"$2"\)/gm;
if ($text ne $oldText)
{
write_file("Scripts_changed/" . basename($file), $text);
}
}
В архиве измененные скрипты с обрезанным длинным именем.
https://yadi.sk/d/csVcidR7wcV5b