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.2
Committed:	Mon Mar 5 19:03:08 2007 UTC (19 years, 8 months ago) by root
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	major clenaup in utils/
#	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);