server/utils/add_throw.perl.in

#!@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);
Revision:	1.1
Committed:	Fri Feb 3 07:14:46 2006 UTC (18 years, 3 months ago) by root
Branch:	MAIN
Branch point for:	UPSTREAM
Log Message:	Initial revision
#	User	Rev	Content
1	root	1.1	#!@PERL@
2			# Adds the throwing skill to to the old player files. This script
3			# is likely no longer needed, since skills have been around for quite a while.
4			#
5
6			$end = 0;
7			if (!-e $ARGV[0]) {
8			die("Can not find file $ARGV[0]\n");
9			}
10			if (-e $ARGV[0].".old") {
11			die("$ARGV[0].new already exists.\n");
12			}
13			rename($ARGV[0], $ARGV[0].".old");
14			open(PLAYER,"<".$ARGV[0].".old") \|\| die("can not open $ARGV[0].old");
15			open(PL_NEW,">".$ARGV[0]) \|\| die("can not open $ARGV[0]");
16
17			while (<PLAYER>) {
18			if (/^end$/) {
19			if ($end) {
20			print PL_NEW "arch skill_throwing\nend\nend\n";
21			}
22			else {print PL_NEW $_;}
23			$end=1;
24			}
25			else {
26			print PL_NEW $_;
27			$end=0;
28			}
29			}
30			close(PLAYER);
31			close(PL_NEW);