server/ext/map-world.ext

#! perl # OPTIONAL

# optional plug-in to speed up worldmap rendering by dynamically
# generating it out of an image
# - saves loading time (less data to read)
# - saves temporary space (only overlay stuff needs to be saved)
# - might get reused as a generic tiled map

use Coro::Handle;
use Coro::AIO;

our $WORLD;

sub load_indexed($$) {
   my ($path, $size) = @_;

   use bytes;

   0 < aio_load "$path.plt", my $plt
      or cf::cleanup "$path.plt: $!";

   my %plt;
   my @plt;

   for (split /\n/, $plt) {
      my ($name, $rgb) = split /\s+/;
      if (/^(\S+)\s+(\S+)$/) {
         my ($name, $rgb) = ($1, $2);
         $rgb = join "", map chr, map $_ * 17, map hex, split //, $rgb;
         $plt{$rgb} = chr @plt;
         push @plt, $name;
      }
   }

   my $pid = open my $pipe, "-|";

   defined $pid
      or cf::cleanup "fork: $!";

   unless ($pid) {
      eval {
         open my $fh, "convert \Q$path.png\E -depth 8 rgb:- |"
            or die "convert: $!";
         binmode $fh;

         binmode $fh;
         $size * 3 == read $fh, my $data, $size * 3
            or die "$path.png, expected $size rgb triplets: $!";

         $data =~ s{(...)}{
            $plt{$1} or die "$path.png: color not in palette: #" . unpack "H*", $1
         }sge;

         binmode STDOUT;
         syswrite STDOUT, $data;
      };
      warn $@ if $@;
      cf::_exit;
   }

   $pipe = Coro::Handle::unblock $pipe;
   binmode $pipe;
   $size == read $pipe, my $data, $size
      or cf::cleanup "$path.png, expected $size index octets ($!)";

   ($data, \@plt)
}

sub load_gridmap($) {
   my ($path) = @_;

   0 < aio_load "$path/gridmap.meta", my $map
      or cf::cleanup "$path/gridmap.meta: $!\n";

   $map = cf::from_json $map;

   my $size = $map->{tile_w} * $map->{tile_h} * $map->{grid_w} * $map->{grid_h}
      or cf::cleanup "$path/gridmap.meta: empty gridmap?";

   ($map->{arc_data}, $map->{arc_plt}) = load_indexed "$path/gridmap.arch", $size;
   ($map->{reg_data}, $map->{reg_plt}) = load_indexed "$path/gridmap.regn", $size;

   $map
}

# this is contorted, but likely the correct way to acquire the lock :)
cf::sync_job {
   my $guard = cf::lock_acquire "ext::world_gridmap";
   cf::async_ext {
      $WORLD = load_gridmap sprintf "%s/%s/%s", cf::datadir, cf::mapdir, "world";
      warn "worldmap gridmap loaded.";
      undef $guard;
   }
};

cf::map->register (qr{^/world/world_(\d\d\d)_(\d\d\d)$}, 100);

sub wxwy {
   $_[0]->path =~ m{/world/world_(\d\d\d)_(\d\d\d)$}
      ? ($1, $2)
      : (0, 0)
}

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

   my ($x, $y) = $self->wxwy;

   my $guard = cf::lock_acquire "ext::world_gridmap";

   $self->width  ($WORLD->{tile_w});
   $self->height ($WORLD->{tile_h});

   $self->name ("'The World' at +$x+$y");
   $self->msg ("worldmap dynamically created by map-world extension");
   $self->outdoor (1);
   $self->default_region (undef);

#  $self->tile_path (0, sprintf "/world/world_%03d_%03d", $x, $y - 1) if $y >   0;
#  $self->tile_path (1, sprintf "/world/world_%03d_%03d", $x + 1, $y) if $x < 999;
#  $self->tile_path (2, sprintf "/world/world_%03d_%03d", $x, $y + 1) if $y < 999;
#  $self->tile_path (3, sprintf "/world/world_%03d_%03d", $x - 1, $y) if $x >   0;
   $self->tile_path (0, sprintf "/world/world_%03d_%03d", $x, $y - 1) if $y > 100;
   $self->tile_path (1, sprintf "/world/world_%03d_%03d", $x + 1, $y) if $x < 129;
   $self->tile_path (2, sprintf "/world/world_%03d_%03d", $x, $y + 1) if $y < 129;
   $self->tile_path (3, sprintf "/world/world_%03d_%03d", $x - 1, $y) if $x > 100;

   $self->{load_path} = sprintf "%s/%s/world-overlay/world_%03d_%03d", cf::datadir, cf::mapdir, $x, $y
      if $x >= 100 && $x <= 129 && $y >= 100 && $y <= 129;

   1
}

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

   if ($self->{load_path}) {
      $self->SUPER::load;
   } else {
      $self->alloc;

      for my $X (0 .. $WORLD->{tile_w} - 1) {
         Coro::cede;
         for my $Y (0 .. $WORLD->{tile_h} - 1) {
            my $ob = cf::object::new "deep_sea";
            $self->insert ($ob, $X, $Y);
         }
      }
      $self->set_object_flag (cf::FLAG_NO_MAP_SAVE, 1);

      $self->in_memory (cf::MAP_IN_MEMORY);
   }
}

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

   my $guard = cf::lock_acquire "ext::world_gridmap";

   my ($x, $y) = $self->wxwy;

   return
      unless $x >= 100 && $x <= 129 && $y >= 100 && $y <= 129;

   my $stride = $WORLD->{grid_w} * $WORLD->{tile_w};
   my $top = ($y - 100) * $WORLD->{tile_h} * $stride
              + ($x - 100) * $WORLD->{tile_w};

   my $reg;

   for my $Y (0 .. $WORLD->{tile_h} - 1) {
      Coro::cede;
      my $row = substr $WORLD->{arc_data}, $top + $Y * $stride, $WORLD->{tile_w};
      $reg .= substr $WORLD->{reg_data}, $top + $Y * $stride, $WORLD->{tile_w};
      for my $X (0 .. $WORLD->{tile_w} - 1) {
         next if grep $_->flag (cf::FLAG_IS_FLOOR), $self->at ($X, $Y);
         my $ob = cf::object::new $WORLD->{arc_plt}[ord substr $row, $X];
         $ob->flag (cf::FLAG_NO_MAP_SAVE, 1);
         $self->insert ($ob, $X, $Y, undef, cf::INS_ABOVE_FLOOR_ONLY);
      }
   }

   $self->set_regiondata ($reg, $WORLD->{reg_plt});
}

1

Revision:	1.8
Committed:	Sat Jan 27 23:59:29 2007 UTC (17 years, 4 months ago) by root
Branch:	MAIN
Changes since 1.7:	+109 -28 lines
Log Message:	- implement per-space regions
#	User	Rev	Content
1	root	1.1	#! perl # OPTIONAL
2
3			# optional plug-in to speed up worldmap rendering by dynamically
4	root	1.8	# generating it out of an image
5	root	1.1	# - saves loading time (less data to read)
6			# - saves temporary space (only overlay stuff needs to be saved)
7	root	1.8	# - might get reused as a generic tiled map
8	root	1.1
9	root	1.8	use Coro::Handle;
10			use Coro::AIO;
11	root	1.1
12	root	1.8	our $WORLD;
13	root	1.1
14	root	1.8	sub load_indexed($$) {
15			my ($path, $size) = @_;
16
17			use bytes;
18
19			0 < aio_load "$path.plt", my $plt
20			or cf::cleanup "$path.plt: $!";
21
22			my %plt;
23			my @plt;
24
25			for (split /\n/, $plt) {
26			my ($name, $rgb) = split /\s+/;
27			if (/^(\S+)\s+(\S+)$/) {
28			my ($name, $rgb) = ($1, $2);
29			$rgb = join "", map chr, map $_ * 17, map hex, split //, $rgb;
30			$plt{$rgb} = chr @plt;
31			push @plt, $name;
32			}
33			}
34
35			my $pid = open my $pipe, "-\|";
36
37			defined $pid
38			or cf::cleanup "fork: $!";
39
40			unless ($pid) {
41			eval {
42			open my $fh, "convert \Q$path.png\E -depth 8 rgb:- \|"
43			or die "convert: $!";
44			binmode $fh;
45
46			binmode $fh;
47			$size * 3 == read $fh, my $data, $size * 3
48			or die "$path.png, expected $size rgb triplets: $!";
49
50			$data =~ s{(...)}{
51			$plt{$1} or die "$path.png: color not in palette: #" . unpack "H*", $1
52			}sge;
53
54			binmode STDOUT;
55			syswrite STDOUT, $data;
56			};
57			warn $@ if $@;
58			cf::_exit;
59			}
60
61			$pipe = Coro::Handle::unblock $pipe;
62			binmode $pipe;
63			$size == read $pipe, my $data, $size
64			or cf::cleanup "$path.png, expected $size index octets ($!)";
65
66			($data, \@plt)
67			}
68
69			sub load_gridmap($) {
70			my ($path) = @_;
71
72			0 < aio_load "$path/gridmap.meta", my $map
73			or cf::cleanup "$path/gridmap.meta: $!\n";
74
75			$map = cf::from_json $map;
76
77			my $size = $map->{tile_w} * $map->{tile_h} * $map->{grid_w} * $map->{grid_h}
78			or cf::cleanup "$path/gridmap.meta: empty gridmap?";
79	root	1.1
80	root	1.8	($map->{arc_data}, $map->{arc_plt}) = load_indexed "$path/gridmap.arch", $size;
81			($map->{reg_data}, $map->{reg_plt}) = load_indexed "$path/gridmap.regn", $size;
82	root	1.1
83	root	1.8	$map
84	root	1.1	}
85
86	root	1.8	# this is contorted, but likely the correct way to acquire the lock :)
87			cf::sync_job {
88			my $guard = cf::lock_acquire "ext::world_gridmap";
89			cf::async_ext {
90			$WORLD = load_gridmap sprintf "%s/%s/%s", cf::datadir, cf::mapdir, "world";
91			warn "worldmap gridmap loaded.";
92			undef $guard;
93			}
94			};
95
96			cf::map->register (qr{^/world/world_(\d\d\d)_(\d\d\d)$}, 100);
97
98	root	1.1	sub wxwy {
99			$_[0]->path =~ m{/world/world_(\d\d\d)_(\d\d\d)$}
100			? ($1, $2)
101			: (0, 0)
102			}
103
104			sub load_header_orig {
105			my ($self) = @_;
106
107	root	1.8	my ($x, $y) = $self->wxwy;
108	root	1.1
109	root	1.8	my $guard = cf::lock_acquire "ext::world_gridmap";
110	root	1.1
111	root	1.8	$self->width ($WORLD->{tile_w});
112			$self->height ($WORLD->{tile_h});
113	root	1.3
114	root	1.6	$self->name ("'The World' at +$x+$y");
115	root	1.1	$self->msg ("worldmap dynamically created by map-world extension");
116	root	1.8	$self->outdoor (1);
117			$self->default_region (undef);
118	root	1.1
119	root	1.7	# $self->tile_path (0, sprintf "/world/world_%03d_%03d", $x, $y - 1) if $y > 0;
120			# $self->tile_path (1, sprintf "/world/world_%03d_%03d", $x + 1, $y) if $x < 999;
121			# $self->tile_path (2, sprintf "/world/world_%03d_%03d", $x, $y + 1) if $y < 999;
122			# $self->tile_path (3, sprintf "/world/world_%03d_%03d", $x - 1, $y) if $x > 0;
123			$self->tile_path (0, sprintf "/world/world_%03d_%03d", $x, $y - 1) if $y > 100;
124			$self->tile_path (1, sprintf "/world/world_%03d_%03d", $x + 1, $y) if $x < 129;
125			$self->tile_path (2, sprintf "/world/world_%03d_%03d", $x, $y + 1) if $y < 129;
126			$self->tile_path (3, sprintf "/world/world_%03d_%03d", $x - 1, $y) if $x > 100;
127
128	root	1.1	$self->{load_path} = sprintf "%s/%s/world-overlay/world_%03d_%03d", cf::datadir, cf::mapdir, $x, $y
129	root	1.8	if $x >= 100 && $x <= 129 && $y >= 100 && $y <= 129;
130	root	1.1
131			1
132			}
133
134			sub load {
135			my ($self) = @_;
136
137			if ($self->{load_path}) {
138			$self->SUPER::load;
139			} else {
140	root	1.2	$self->alloc;
141
142	root	1.8	for my $X (0 .. $WORLD->{tile_w} - 1) {
143	root	1.1	Coro::cede;
144	root	1.8	for my $Y (0 .. $WORLD->{tile_h} - 1) {
145	root	1.1	my $ob = cf::object::new "deep_sea";
146			$self->insert ($ob, $X, $Y);
147			}
148			}
149			$self->set_object_flag (cf::FLAG_NO_MAP_SAVE, 1);
150	root	1.2
151			$self->in_memory (cf::MAP_IN_MEMORY);
152	root	1.1	}
153			}
154
155	root	1.3	sub post_load {
156	root	1.1	my ($self) = @_;
157
158	root	1.8	my $guard = cf::lock_acquire "ext::world_gridmap";
159
160	root	1.1	my ($x, $y) = $self->wxwy;
161
162	root	1.5	return
163	root	1.8	unless $x >= 100 && $x <= 129 && $y >= 100 && $y <= 129;
164
165			my $stride = $WORLD->{grid_w} * $WORLD->{tile_w};
166			my $top = ($y - 100) * $WORLD->{tile_h} * $stride
167			+ ($x - 100) * $WORLD->{tile_w};
168	root	1.5
169	root	1.8	my $reg;
170	root	1.1
171	root	1.8	for my $Y (0 .. $WORLD->{tile_h} - 1) {
172	root	1.1	Coro::cede;
173	root	1.8	my $row = substr $WORLD->{arc_data}, $top + $Y * $stride, $WORLD->{tile_w};
174			$reg .= substr $WORLD->{reg_data}, $top + $Y * $stride, $WORLD->{tile_w};
175			for my $X (0 .. $WORLD->{tile_w} - 1) {
176	root	1.3	next if grep $_->flag (cf::FLAG_IS_FLOOR), $self->at ($X, $Y);
177	root	1.8	my $ob = cf::object::new $WORLD->{arc_plt}[ord substr $row, $X];
178	root	1.3	$ob->flag (cf::FLAG_NO_MAP_SAVE, 1);
179	root	1.4	$self->insert ($ob, $X, $Y, undef, cf::INS_ABOVE_FLOOR_ONLY);
180	root	1.1	}
181			}
182	root	1.8
183			$self->set_regiondata ($reg, $WORLD->{reg_plt});
184	root	1.1	}
185
186			1
187