ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/ext/map-random.ext
(Generate patch)

Comparing deliantra/server/ext/map-random.ext (file contents):
Revision 1.28 by root, Tue May 6 16:39:28 2008 UTC vs.
Revision 1.32 by root, Mon Sep 22 05:42:41 2008 UTC

… …
55 55
56 1 56 1
57} 57}
58 58
59sub clean_random_maps { 59sub clean_random_maps {
60 return;#d#
60 my $files = Coro::AIO::aio_readdir $cf::RANDOMDIR 61 my $files = Coro::AIO::aio_readdir $cf::RANDOMDIR
61 or return; 62 or return;
62 63
63 my $META_TIMEOUT = $cf::CFG{map_random_meta_timeout} || 86400 * 7; 64 my $META_TIMEOUT = $cf::CFG{map_random_meta_timeout} || 86400 * 7;
64 65
… …
144our $CLEAN_RANDOM_MAPS = cf::periodic 3600, Coro::unblock_sub { 145our $CLEAN_RANDOM_MAPS = cf::periodic 3600, Coro::unblock_sub {
145 clean_random_maps; 146 clean_random_maps;
146}; 147};
147 148
148# map generator stresstest, NEVER enable under normal circumstances 149# map generator stresstest, NEVER enable under normal circumstances
149if (0) { 150if ($ENV{STRESSTEST}) {
150 cf::async { 151 cf::async {
151 my $seed = 0; 152 my $seed = 0;
152 while () { 153 while () {
153 my $map = cf::map::new; 154 my $map = cf::map::new;
154 $map->generate_random_map ({ 155 $map->generate_random_map ({
155 region => "scorn", 156 region => "scorn",
156 random_seed => $seed++, 157 random_seed => $seed++,
157 xsize => (int rand 90) + 3, 158 xsize => (int rand 100) + 1,
158 ysize => (int rand 90) + 3, 159 ysize => (int rand 100) + 1,
159 }); 160 });
160# warn sprintf "%d: %d %d\n", $seed, $map->width, $map->height;#d# 161 warn sprintf "%d: %dx%d o# %d\n", $seed, $map->width, $map->height, &cf::object::objects_size;#d#
161 $map->destroy; 162 $map->destroy;
162 } 163 }
163 }; 164 };
164} 165}
165 166

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines