32 lines
676 B
Plaintext
Executable File
32 lines
676 B
Plaintext
Executable File
#!@PERL@
|
|
# Adds the throwing skill to to the old player files. This script
|
|
# is likely no longer needed, since skills have been around for quite a while.
|
|
#
|
|
|
|
$end = 0;
|
|
if (!-e $ARGV[0]) {
|
|
die("Can not find file $ARGV[0]\n");
|
|
}
|
|
if (-e $ARGV[0].".old") {
|
|
die("$ARGV[0].new already exists.\n");
|
|
}
|
|
rename($ARGV[0], $ARGV[0].".old");
|
|
open(PLAYER,"<".$ARGV[0].".old") || die("can not open $ARGV[0].old");
|
|
open(PL_NEW,">".$ARGV[0]) || die("can not open $ARGV[0]");
|
|
|
|
while (<PLAYER>) {
|
|
if (/^end$/) {
|
|
if ($end) {
|
|
print PL_NEW "arch skill_throwing\nend\nend\n";
|
|
}
|
|
else {print PL_NEW $_;}
|
|
$end=1;
|
|
}
|
|
else {
|
|
print PL_NEW $_;
|
|
$end=0;
|
|
}
|
|
}
|
|
close(PLAYER);
|
|
close(PL_NEW);
|