ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/map-link.ext
(Generate patch)

Comparing deliantra/server/ext/map-link.ext (file contents):
Revision 1.1 by root, Sat Jan 13 23:06:13 2007 UTC vs.
Revision 1.7 by root, Wed May 7 11:02:50 2008 UTC

1#! perl # MANDATORY 1#! perl # mandatory
2 2
3cf::map->register (qr{^\{link\}}); 3cf::map->register (qr{^\{link\}});
4 4
5sub load_header { 5sub load_header {
6 my ($self) = @_; 6 my ($self) = @_;
7 7
8 # singleton :/ 8 # singleton :/
9 $self->width (41); 9 $self->width (21);
10 $self->height (41); 10 $self->height (21);
11 $self->no_drop (1);
12
13 $self->name ("interdimensional nothingness");
14
11 $self->alloc; 15 $self->alloc;
12 $self->in_memory (cf::MAP_IN_MEMORY); 16 $self->in_memory (cf::MAP_ACTIVE);
13 17
14 # provide some exits "home" 18 # provide some exits "home"
15 my $exit = cf::object::new "exit"; 19 my $exit = cf::object::new "exit";
16 my $guard = Coro::guard { $exit->destroy }; 20 my $guard = Coro::guard { $exit->destroy };
17 21
18 $exit->slaying ($cf::EMERGENCY_POSITION->[0]); 22 $exit->slaying ($cf::EMERGENCY_POSITION->[0]);
19 $exit->stats->hp ($cf::EMERGENCY_POSITION->[1]); 23 $exit->stats->hp ($cf::EMERGENCY_POSITION->[1]);
20 $exit->stats->sp ($cf::EMERGENCY_POSITION->[2]); 24 $exit->stats->sp ($cf::EMERGENCY_POSITION->[2]);
21 25
22 $self->insert ($exit->clone, 19, 19); 26 $self->insert ($exit->clone, 9, 9);
23 $self->insert ($exit->clone, 19, 20); 27 $self->insert ($exit->clone, 9, 10);
24 $self->insert ($exit->clone, 19, 21); 28 $self->insert ($exit->clone, 9, 11);
25 $self->insert ($exit->clone, 20, 19); 29 $self->insert ($exit->clone, 10, 9);
26 $self->insert ($exit->clone, 20, 21); 30 $self->insert ($exit->clone, 10, 11);
27 $self->insert ($exit->clone, 21, 19); 31 $self->insert ($exit->clone, 11, 9);
28 $self->insert ($exit->clone, 21, 20); 32 $self->insert ($exit->clone, 11, 10);
29 $self->insert ($exit->clone, 21, 21); 33 $self->insert ($exit->clone, 11, 11);
30 34
31 $self->{deny_save} = 1; 35 $self->{deny_save} = 1;
32 $self->{deny_reset} = 1; 36 $self->{deny_reset} = 1;
37
38 $self->activate;
33 39
34 1 40 1
35} 41}
36 42
371 431

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines