server/ext/map-link.ext

#! perl # mandatory

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

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

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

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

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

   # provide some exits "home"
   my $exit = cf::object::new "exit";
   Guard::scope_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

Revision:	1.8
Committed:	Sat Dec 13 20:34:37 2008 UTC (15 years, 5 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_82, rel-2_81, rel-2_80, rel-2_73, rel-2_76, rel-2_77, rel-2_74, rel-2_75, rel-2_79, rel-2_90, rel-2_92, rel-2_93, rel-2_78
Changes since 1.7:	+1 -1 lines
Log Message:	take advantage of Guard module
#	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 (21);
10	$self->height (21);
11	$self->no_drop (1);
12
13	$self->name ("interdimensional nothingness");
14
15	$self->alloc;
16	$self->in_memory (cf::MAP_ACTIVE);
17
18	# provide some exits "home"
19	my $exit = cf::object::new "exit";
20	Guard::scope_guard { $exit->destroy };
21
22	$exit->slaying ($cf::EMERGENCY_POSITION->[0]);
23	$exit->stats->hp ($cf::EMERGENCY_POSITION->[1]);
24	$exit->stats->sp ($cf::EMERGENCY_POSITION->[2]);
25
26	$self->insert ($exit->clone, 9, 9);
27	$self->insert ($exit->clone, 9, 10);
28	$self->insert ($exit->clone, 9, 11);
29	$self->insert ($exit->clone, 10, 9);
30	$self->insert ($exit->clone, 10, 11);
31	$self->insert ($exit->clone, 11, 9);
32	$self->insert ($exit->clone, 11, 10);
33	$self->insert ($exit->clone, 11, 11);
34
35	$self->{deny_save} = 1;
36	$self->{deny_reset} = 1;
37
38	$self->activate;
39
40	1
41	}
42
43	1
44