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 *
#	User	Rev	Content
1	root	1.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	root	1.2	$self->gen_quadmap (@$self{qw(ox oy z)});
18	root	1.1
19			$self->SUPER::post_load_original;
20			}
21