--- deliantra/server/lib/cf.pm	2007/06/03 15:32:50	1.272
+++ deliantra/server/lib/cf.pm	2007/06/05 13:05:02	1.274
@@ -189,7 +189,8 @@
 @safe::cf::player::ISA         = @cf::player::ISA         = 'cf::attachable';
 @safe::cf::client::ISA         = @cf::client::ISA         = 'cf::attachable';
 @safe::cf::map::ISA            = @cf::map::ISA            = 'cf::attachable';
-@safe::cf::object::player::ISA = @cf::object::player::ISA = 'cf::object';
+@safe::cf::arch::ISA           = @cf::arch::ISA           = 'cf::object';
+@safe::cf::object::player::ISA = @cf::object::player::ISA = 'cf::object'; # not really true (yet)
 
 # we bless all objects into (empty) derived classes to force a method lookup
 # within the Safe compartment.
@@ -424,7 +425,7 @@
    aio_rename "$runtime~", $runtime
       and return;
 
-   warn "runtime file written.\n";#d#
+   warn "runtime file written.\n";
 
    1
 }
@@ -874,7 +875,7 @@
    }
 
    warn sprintf "loading %s (%d)\n",
-      $filename, length $data, scalar @{$av || []};#d#
+      $filename, length $data, scalar @{$av || []};
    return ($data, $av);
 }
 
@@ -1725,7 +1726,7 @@
    return if $self->players;
    return if $self->isa ("ext::map_per_player");#d#
 
-   warn "resetting map ", $self->path;#d#
+   warn "resetting map ", $self->path;
 
    $self->in_memory (cf::MAP_SWAPPED);
 
@@ -2503,7 +2504,6 @@
 
       while (my ($face, $info) = each %$faces) {
          my $idx = (cf::face::find $face) || cf::face::alloc $face;
-         warn "$face $info->{magicmap}\n" if $face =~ /obol/;#d#
          cf::face::set $idx, $info->{visibility}, $info->{magicmap};
          cf::face::set_data $idx, 0, $info->{data32}, $info->{chksum32};
          cf::face::set_data $idx, 1, $info->{data64}, $info->{chksum64};
@@ -2562,6 +2562,7 @@
 
    reload_regions;
    reload_facedata;
+   #reload_archetypes;#d#
    reload_archetypes;
    reload_treasures;