$commods{$ucname}{Srcs} .= $ss;
my $c= $commods{$ucname};
$c->{Volume}= 1000;
+ $c->{Flags}= '';
my ($ordval, $ordclassval);
foreach my $prop (defined $props ? split /\s+/, $props : ()) {
if ($prop =~ m/^([1-9]\d*)(k?)g$/) {
} elsif ($prop =~ m/^\@(\d+\+?)$/) {
$ordval= $1;
$ordval =~ s/^(\d+)\+$/ $1 + $lnoix * 10 /e;
+ } elsif ($prop =~ m/^\!([a-z]+)$/) {
+ $c->{Flags} .= $prop;
} else {
die "unknown property $prop for $ucname";
}
commodclassid INTEGER NOT NULL
ordval INTEGER NOT NULL
posinclass INTEGER NOT NULL
+ flags TEXT NOT NULL
END
table_maycompact('islands', 'islandid',
commodclassid
ordval
posinclass
+ flags
);
my $insert= $dbh->prepare("
INSERT OR IGNORE INTO $table{commods}
$c->{Volume},
$clid,
commodsortkey($commod),
- $posincl{$commod}
+ $posincl{$commod},
+ $c->{Flags}
);
$insert->execute($commod, @valuevalues);
$update->execute(@valuevalues, $commod);
persimmon @200000+
commods
- %g gems 10kg *forageables @0
- diamonds 10kg *forageables @200000+
- emeralds 10kg *forageables @200000+
- moonstones 10kg *forageables @200000+
- opals 10kg *forageables @200000+
- pearls 10kg *forageables @200000+
- rubies 10kg *forageables @200000+
- sapphires 10kg *forageables @200000+
- topazes 10kg *forageables @200000+
+ %g gems 10kg !g *forageables @0
+ diamonds 10kg !g *forageables @200000+
+ emeralds 10kg !g *forageables @200000+
+ moonstones 10kg !g *forageables @200000+
+ opals 10kg !g *forageables @200000+
+ pearls 10kg !g *forageables @200000+
+ rubies 10kg !g *forageables @200000+
+ sapphires 10kg !g *forageables @200000+
+ topazes 10kg !g *forageables @200000+
%g
amber @200000+