#! perl # mandatory

cf::map->register (qr{^\{link\}});

sub load_header {
   my ($self) = @_;

   # singleton :/
   $self->width  (21);
   $self->height (21);
   $self->nodrop (1);

   $self->name ("interdimensional nothingness");

   $self->alloc;
   $self->in_memory (cf::MAP_ACTIVE);

   # provide some exits "home"
   my $exit = cf::object::new "exit";
   my $guard = Coro::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,  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
}

1