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) = @_;

   if (! -e "/tmp/xxxx.gridmap") {
      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;

      Storable::nstore $map, "/tmp/xxxx.gridmap";#d#

      $map
   } else {
      Storable::retrieve "/tmp/xxxx.gridmap";
   }
}

# 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->{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";
            $ob->flag (cf::FLAG_NO_MAP_SAVE, 1);
            $self->insert ($ob, $X, $Y);
         }
      }
      $self->set_object_flag (cf::FLAG_NO_MAP_SAVE, 1);
      $self->default_region (cf::region::find "panthalassia");

      $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.12
Committed:	Mon Feb 12 19:57:34 2007 UTC (17 years, 3 months ago) by root
Branch:	MAIN
Changes since 1.11:	+6 -9 lines
Log Message:	refine regions, re-enable vast world size again
#	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	root	1.11	if (! -e "/tmp/xxxx.gridmap") {
73			0 < aio_load "$path/gridmap.meta", my $map
74			or cf::cleanup "$path/gridmap.meta: $!\n";
75	root	1.8
76	root	1.11	$map = cf::from_json $map;
77	root	1.8
78	root	1.11	my $size = $map->{tile_w} * $map->{tile_h} * $map->{grid_w} * $map->{grid_h}
79			or cf::cleanup "$path/gridmap.meta: empty gridmap?";
80	root	1.1
81	root	1.11	($map->{arc_data}, $map->{arc_plt}) = load_indexed "$path/gridmap.arch", $size;
82			($map->{reg_data}, $map->{reg_plt}) = load_indexed "$path/gridmap.regn", $size;
83	root	1.1
84	root	1.11	Storable::nstore $map, "/tmp/xxxx.gridmap";#d#
85
86			$map
87			} else {
88			Storable::retrieve "/tmp/xxxx.gridmap";
89			}
90	root	1.1	}
91
92	root	1.8	# this is contorted, but likely the correct way to acquire the lock :)
93			cf::sync_job {
94			my $guard = cf::lock_acquire "ext::world_gridmap";
95			cf::async_ext {
96			$WORLD = load_gridmap sprintf "%s/%s/%s", cf::datadir, cf::mapdir, "world";
97			warn "worldmap gridmap loaded.";
98			undef $guard;
99			}
100			};
101
102			cf::map->register (qr{^/world/world_(\d\d\d)_(\d\d\d)$}, 100);
103
104	root	1.1	sub wxwy {
105			$_[0]->path =~ m{/world/world_(\d\d\d)_(\d\d\d)$}
106			? ($1, $2)
107			: (0, 0)
108			}
109
110			sub load_header_orig {
111			my ($self) = @_;
112
113	root	1.8	my ($x, $y) = $self->wxwy;
114	root	1.1
115	root	1.8	my $guard = cf::lock_acquire "ext::world_gridmap";
116	root	1.1
117	root	1.8	$self->width ($WORLD->{tile_w});
118			$self->height ($WORLD->{tile_h});
119	root	1.3
120	root	1.6	$self->name ("'The World' at +$x+$y");
121	root	1.1	$self->msg ("worldmap dynamically created by map-world extension");
122	root	1.8	$self->outdoor (1);
123			$self->default_region (undef);
124	root	1.1
125	root	1.12	$self->tile_path (0, sprintf "/world/world_%03d_%03d", $x, $y - 1) if $y > 0;
126			$self->tile_path (1, sprintf "/world/world_%03d_%03d", $x + 1, $y) if $x < 999;
127			$self->tile_path (2, sprintf "/world/world_%03d_%03d", $x, $y + 1) if $y < 999;
128			$self->tile_path (3, sprintf "/world/world_%03d_%03d", $x - 1, $y) if $x > 0;
129	root	1.7
130	root	1.1	$self->{load_path} = sprintf "%s/%s/world-overlay/world_%03d_%03d", cf::datadir, cf::mapdir, $x, $y
131	root	1.8	if $x >= 100 && $x <= 129 && $y >= 100 && $y <= 129;
132	root	1.1
133			1
134			}
135
136			sub load {
137			my ($self) = @_;
138
139			if ($self->{load_path}) {
140			$self->SUPER::load;
141			} else {
142	root	1.2	$self->alloc;
143
144	root	1.8	for my $X (0 .. $WORLD->{tile_w} - 1) {
145	root	1.1	Coro::cede;
146	root	1.8	for my $Y (0 .. $WORLD->{tile_h} - 1) {
147	root	1.1	my $ob = cf::object::new "deep_sea";
148	root	1.12	$ob->flag (cf::FLAG_NO_MAP_SAVE, 1);
149	root	1.1	$self->insert ($ob, $X, $Y);
150			}
151			}
152			$self->set_object_flag (cf::FLAG_NO_MAP_SAVE, 1);
153	root	1.12	$self->default_region (cf::region::find "panthalassia");
154	root	1.2
155			$self->in_memory (cf::MAP_IN_MEMORY);
156	root	1.1	}
157			}
158
159	root	1.3	sub post_load {
160	root	1.1	my ($self) = @_;
161
162	root	1.8	my $guard = cf::lock_acquire "ext::world_gridmap";
163
164	root	1.1	my ($x, $y) = $self->wxwy;
165
166	root	1.5	return
167	root	1.8	unless $x >= 100 && $x <= 129 && $y >= 100 && $y <= 129;
168
169			my $stride = $WORLD->{grid_w} * $WORLD->{tile_w};
170			my $top = ($y - 100) * $WORLD->{tile_h} * $stride
171			+ ($x - 100) * $WORLD->{tile_w};
172	root	1.5
173	root	1.8	my $reg;
174	root	1.1
175	root	1.8	for my $Y (0 .. $WORLD->{tile_h} - 1) {
176	root	1.1	Coro::cede;
177	root	1.8	my $row = substr $WORLD->{arc_data}, $top + $Y * $stride, $WORLD->{tile_w};
178			$reg .= substr $WORLD->{reg_data}, $top + $Y * $stride, $WORLD->{tile_w};
179			for my $X (0 .. $WORLD->{tile_w} - 1) {
180	root	1.3	next if grep $_->flag (cf::FLAG_IS_FLOOR), $self->at ($X, $Y);
181	root	1.8	my $ob = cf::object::new $WORLD->{arc_plt}[ord substr $row, $X];
182	root	1.3	$ob->flag (cf::FLAG_NO_MAP_SAVE, 1);
183	root	1.4	$self->insert ($ob, $X, $Y, undef, cf::INS_ABOVE_FLOOR_ONLY);
184	root	1.1	}
185			}
186	root	1.8
187			$self->set_regiondata ($reg, $WORLD->{reg_plt});
188	root	1.1	}
189
190			1
191