--- deliantra/server/utils/cfutil.in	2007/04/26 00:39:18	1.31
+++ deliantra/server/utils/cfutil.in	2007/05/07 06:01:48	1.34
@@ -179,7 +179,7 @@
                      if ($stem =~ /_S\./ && (-s "$other~") > 10000) {
                         my $ncolor = 256;
                         while () {
-                           system "<\Q$other~\E $PNGNQ -n$ncolor >\Q$other~~\E";
+                           system "<\Q$other~\E $PNGNQ -s1 -n$ncolor >\Q$other~~\E";
                            system $OPTIPNG, "-i0", "-q", "$other~~";
                            last if 10000 > -s "$other~~";
                            $ncolor = int $ncolor * 0.9;
@@ -188,7 +188,7 @@
 
                         printf "reduced %s from %d to %d bytes using %d colours.\n",
                               $other, -s "$other~", -s "$other~~", $ncolor
-                           if $VERBOSE > 0;
+                           if $VERBOSE >= 2;
                         rename "$other~~", "$other~";
                      }
 
@@ -388,7 +388,7 @@
             } elsif ($file =~ /\.arc$/) {
                push @arc, [$path, $file];
             } else {
-               warn "ignoring $path/$file\n" if $VERBOSE >= 2;
+               warn "ignoring $path/$file\n" if $VERBOSE >= 3;
             }
          }
       };
@@ -459,6 +459,9 @@
             }
          }
 
+         # remove base classes (by naming scheme, should use something like "baseclass xxx" to inherit
+         @ARC = grep $_->{_name} !~ /^(?:type|class)_/, @ARC;
+
          open my $fh, ">:utf8", "$DATADIR/archetypes~"
             or die "$DATADIR/archetypes~: $!";
          print $fh Crossfire::archlist_to_string [sort { $a->{_name} cmp $b->{_name} } @ARC];