X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fwcy.pl;h=705c2159f2ca8f0bda72657d0d937b683a1e3989;hb=refs%2Fheads%2Fnew-spawn;hp=58b3c40f5e3aea1be1fe395125f8722b74a0d422;hpb=7e52fbc3bb33cb82a7e31f0dfef7fb55e516177a;p=spider.git

diff --git a/cmd/wcy.pl b/cmd/wcy.pl
index 58b3c40f..705c2159 100644
--- a/cmd/wcy.pl
+++ b/cmd/wcy.pl
@@ -22,7 +22,7 @@
 #
 # Copyright (c) 2001 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 my ($self, $line) = @_;
 my $call = $self->call;
@@ -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);