server/ext/map-world-quadland.ext

#! perl # mandatory depends=map-world

# renders the quadland worldmap area. not weorking well yet.

ext::map_world::register __PACKAGE__,
   200,   0, -1e6,
   699, 499,  1e6,
   pri => 0,
;

sub init_worldmap {
}

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

   $self->gen_quadmap (@$self{qw(ox oy z)});

   $self->SUPER::post_load_original;
}

Revision:	1.3
Committed:	Sun May 8 21:52:24 2011 UTC (13 years ago) by root
Branch:	MAIN
CVS Tags:	rel-3_1, HEAD
Changes since 1.2:	+0 -1 lines
Log Message:	* empty log message *
#	Content
1	#! perl # mandatory depends=map-world
2
3	# renders the quadland worldmap area. not weorking well yet.
4
5	ext::map_world::register __PACKAGE__,
6	200, 0, -1e6,
7	699, 499, 1e6,
8	pri => 0,
9	;
10
11	sub init_worldmap {
12	}
13
14	sub post_load_original {
15	my ($self) = @_;
16
17	$self->gen_quadmap (@$self{qw(ox oy z)});
18
19	$self->SUPER::post_load_original;
20	}
21