--- deliantra/server/ext/map-link.ext	2007/01/13 23:06:13	1.1
+++ deliantra/server/ext/map-link.ext	2008/12/13 20:34:37	1.8
@@ -1,4 +1,4 @@
-#! perl # MANDATORY
+#! perl # mandatory
 
 cf::map->register (qr{^\{link\}});
 
@@ -6,31 +6,37 @@
    my ($self) = @_;
 
    # singleton :/
-   $self->width  (41);
-   $self->height (41);
+   $self->width  (21);
+   $self->height (21);
+   $self->no_drop (1);
+
+   $self->name ("interdimensional nothingness");
+
    $self->alloc;
-   $self->in_memory (cf::MAP_IN_MEMORY);
+   $self->in_memory (cf::MAP_ACTIVE);
 
    # provide some exits "home"
    my $exit = cf::object::new "exit";
-   my $guard = Coro::guard { $exit->destroy };
+   Guard::scope_guard { $exit->destroy };
 
    $exit->slaying   ($cf::EMERGENCY_POSITION->[0]);
    $exit->stats->hp ($cf::EMERGENCY_POSITION->[1]);
    $exit->stats->sp ($cf::EMERGENCY_POSITION->[2]);
 
-   $self->insert ($exit->clone, 19, 19);
-   $self->insert ($exit->clone, 19, 20);
-   $self->insert ($exit->clone, 19, 21);
-   $self->insert ($exit->clone, 20, 19);
-   $self->insert ($exit->clone, 20, 21);
-   $self->insert ($exit->clone, 21, 19);
-   $self->insert ($exit->clone, 21, 20);
-   $self->insert ($exit->clone, 21, 21);
+   $self->insert ($exit->clone,  9,  9);
+   $self->insert ($exit->clone,  9, 10);
+   $self->insert ($exit->clone,  9, 11);
+   $self->insert ($exit->clone, 10,  9);
+   $self->insert ($exit->clone, 10, 11);
+   $self->insert ($exit->clone, 11,  9);
+   $self->insert ($exit->clone, 11, 10);
+   $self->insert ($exit->clone, 11, 11);
 
    $self->{deny_save}  = 1;
    $self->{deny_reset} = 1;
 
+   $self->activate;
+
    1
 }