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.2 by root, Wed Jan 24 22:42:48 2007 UTC

… …
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->nodrop (1);
12
13 $self->name ("special built-in map");
14
11 $self->alloc; 15 $self->alloc;
12 $self->in_memory (cf::MAP_IN_MEMORY); 16 $self->in_memory (cf::MAP_IN_MEMORY);
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";
… …
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;
33 37
34 1 38 1

Diff Legend

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