From: minima <minima>
Date: Mon, 29 Jul 2002 15:08:47 +0000 (+0000)
Subject: change max R from 300 to 500
X-Git-Tag: R_1_50~12
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=e3d9a376f71c1a517a8b6e99a79c3016fd5d8c5f;p=spider.git

change max R from 300 to 500
---

diff --git a/Changes b/Changes
index 3d4c6b24..c25aca45 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+29Jul02=======================================================================
+1.Changed max R value in wcy to 500 from 300.
 28Jul02=======================================================================
 1. stick the invalid key deletes in an eval loop in export_user
 18Jul02=======================================================================
diff --git a/cmd/wcy.pl b/cmd/wcy.pl
index 58b3c40f..bdd01fc4 100644
--- a/cmd/wcy.pl
+++ b/cmd/wcy.pl
@@ -42,7 +42,7 @@ my %args = map {split /\s*=\s*/} split /\s*,\s*/, lc $line;
 push @out, $self->msg('wcy1', 'k') unless defined $args{k} && $args{k} >= 0 && $args{k} <= 9;
 push @out, $self->msg('wcy1', 'espk') unless defined $args{expk} && $args{expk} >= 0 && $args{expk} <= 9;
 push @out, $self->msg('wcy1', 'a') unless defined $args{a} && $args{a} >= 0 && $args{a} <= 400;
-push @out, $self->msg('wcy1', 'r') unless defined $args{r} && $args{r} >= 0 && $args{r} <= 300;
+push @out, $self->msg('wcy1', 'r') unless defined $args{r} && $args{r} >= 0 && $args{r} <= 500;
 push @out, $self->msg('wcy1', 'sf') unless defined $args{sf} && $args{sf} >= 65 && $args{sf} <= 300;
 push @out, $self->msg('wcy1', 'sa') unless defined $args{sa} && grep $args{sa} eq $_, qw(qui eru act maj pro war nil);
 push @out, $self->msg('wcy1', 'gmf') unless defined $args{gmf} && grep $args{gmf} eq $_, qw(qui act min maj sev mag war nil);