%commods= ();
my $ca;
+ my $lnoix=0;
$ca= sub {
my ($s,$ss,$ordbase) = @_;
#print STDERR "ca($s,,".(defined $ordbase ? $ordbase : '?').")\n";
$c->{Class}= $1;
die "$1" unless exists $commodclasses{$1};
$ordclassval= 1e7 + $commodclasses{$1} * 1e7;
- } elsif ($prop =~ m/^\@(\d+)$/) {
+ } elsif ($prop =~ m/^\@(\d+\+?)$/) {
$ordval= $1;
+ $ordval =~ s/^(\d+)\+$/ $1 + $lnoix * 10 /e;
} else {
die "unknown property $prop for $ucname";
}
? $ordbase+$ordcolour : undef);
}
};
- foreach (@rawcm) { &$ca($_,$src,0); }
+ foreach (@rawcm) { $lnoix++; &$ca($_,$src,0); }
}
sub parse_info_clientside () {