server/ext/map-random.ext

#! perl

use base "cf::path";

__PACKAGE__->register ("random");

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

   Coro::AIO::aio_load "$cf::RANDOM_MAPS/$self->{path}.meta", my $data;
   $self->{random} = cf::from_json $data;
   $self->{random}{custom} ||= "$self->{random}{origin_map}+$self->{random}{origin_x}+$self->{random}{origin_y}";
}

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

   my $rmp = $self->{random};
   "random map at $rmp->{custom} level $rmp->{dungeon_level}"
}

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

   sprintf "%s/%s", $RANDOM_MAPS, $self->{path}
}

sub uniq_path {
   undef
}

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

   cf::map::generate_random_map "$self", $self->{random}
}

1

Revision:	1.2
Committed:	Thu Jan 11 00:41:08 2007 UTC (17 years, 4 months ago) by root
Branch:	MAIN
Changes since 1.1:	+3 -6 lines
Log Message:	make random map paths more beautiful, in the common case
#	User	Rev	Content
1	root	1.1	#! perl
2
3			use base "cf::path";
4
5			__PACKAGE__->register ("random");
6
7			sub init {
8			my ($self) = @_;
9
10			Coro::AIO::aio_load "$cf::RANDOM_MAPS/$self->{path}.meta", my $data;
11			$self->{random} = cf::from_json $data;
12	root	1.2	$self->{random}{custom} \|\|= "$self->{random}{origin_map}+$self->{random}{origin_x}+$self->{random}{origin_y}";
13	root	1.1	}
14
15			sub visible_name {
16			my ($self) = @_;
17
18	root	1.2	my $rmp = $self->{random};
19			"random map at $rmp->{custom} level $rmp->{dungeon_level}"
20	root	1.1	}
21
22			sub save_path {
23			my ($self) = @_;
24
25			sprintf "%s/%s", $RANDOM_MAPS, $self->{path}
26			}
27
28			sub uniq_path {
29			undef
30			}
31
32			sub load_orig {
33			my ($self) = @_;
34
35			cf::map::generate_random_map "$self", $self->{random}
36			}
37
38			1
39