32 lines
602 B
Perl
Executable File
32 lines
602 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
for ($i=0; $i<=$#ARGV; $i++) {
|
|
if (!rename("$ARGV[$i]", "$ARGV[$i].bak")) {
|
|
print STDERR "Unable to rename file $ARGV[$i]\n";
|
|
next;
|
|
}
|
|
open(IN,"<$ARGV[$i].bak");
|
|
open(OUT,">$ARGV[$i]");
|
|
while (<IN>) {
|
|
$in = $_;
|
|
if (/^end\s*$/) {
|
|
if ($body_info ne "" ) {
|
|
print OUT "$body_info\n";
|
|
print "Added $body_info to $ARGV[$i]\n";
|
|
}
|
|
$body_info="";
|
|
}
|
|
if (/^Object (.*)$/) {
|
|
$body_info="";
|
|
}
|
|
if (/^last_heal (.*)$/) {
|
|
$body_info="gen_sp_armour $1";
|
|
next;
|
|
}
|
|
print OUT $in;
|
|
}
|
|
close(OUT);
|
|
close(IN);
|
|
unlink("$ARGV[$i].bak");
|
|
}
|