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(x y z)});

   $self->SUPER::post_load_original;
}

Revision:	1.1
Committed:	Mon May 2 04:58:59 2011 UTC (13 years ago) by root
Branch:	MAIN
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			$self->gen_quadmap (@$self{qw(x y z)});
18
19			$self->SUPER::post_load_original;
20			}
21