--- deliantra/server/ext/map-link.ext 2007/01/13 23:06:13 1.1 +++ deliantra/server/ext/map-link.ext 2007/09/01 03:30:12 1.5 @@ -1,4 +1,4 @@ -#! perl # MANDATORY +#! perl # mandatory cf::map->register (qr{^\{link\}}); @@ -6,8 +6,12 @@ my ($self) = @_; # singleton :/ - $self->width (41); - $self->height (41); + $self->width (21); + $self->height (21); + $self->nodrop (1); + + $self->name ("interdimensional nothingness"); + $self->alloc; $self->in_memory (cf::MAP_IN_MEMORY); @@ -19,18 +23,20 @@ $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 }