--- deliantra/server/utils/cfutil.in	2007/04/26 00:50:03	1.33
+++ deliantra/server/utils/cfutil.in	2007/05/07 06:01:48	1.34
@@ -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];