server/ext/map-link.ext

#! perl # MANDATORY

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

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

   # singleton :/
   $self->width  (41);
   $self->height (41);
   $self->alloc;
   $self->in_memory (cf::MAP_IN_MEMORY);

   # 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, 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->{deny_save}  = 1;
   $self->{deny_reset} = 1;

   1
}

1

Revision:	1.1
Committed:	Sat Jan 13 23:06:13 2007 UTC (17 years, 4 months ago) by root
Branch:	MAIN
Log Message:	WARNING: this release is BROKEN - rewrote map handling. map types are now completely pluggable, maybe too pluggable, as everything is a plug-in now. - mark mandatory extensions as such. - handle overloaded attachable objects correctly. - many minor changes.
#	Content
1	#! perl # MANDATORY
2
3	cf::map->register (qr{^\{link\}});
4
5	sub load_header {
6	my ($self) = @_;
7
8	# singleton :/
9	$self->width (41);
10	$self->height (41);
11	$self->alloc;
12	$self->in_memory (cf::MAP_IN_MEMORY);
13
14	# provide some exits "home"
15	my $exit = cf::object::new "exit";
16	my $guard = Coro::guard { $exit->destroy };
17
18	$exit->slaying ($cf::EMERGENCY_POSITION->[0]);
19	$exit->stats->hp ($cf::EMERGENCY_POSITION->[1]);
20	$exit->stats->sp ($cf::EMERGENCY_POSITION->[2]);
21
22	$self->insert ($exit->clone, 19, 19);
23	$self->insert ($exit->clone, 19, 20);
24	$self->insert ($exit->clone, 19, 21);
25	$self->insert ($exit->clone, 20, 19);
26	$self->insert ($exit->clone, 20, 21);
27	$self->insert ($exit->clone, 21, 19);
28	$self->insert ($exit->clone, 21, 20);
29	$self->insert ($exit->clone, 21, 21);
30
31	$self->{deny_save} = 1;
32	$self->{deny_reset} = 1;
33
34	1
35	}
36
37	1
38