… | |
… | |
91 | after => 60, |
91 | after => 60, |
92 | cb => Coro::unblock_sub { clean_random_maps }, |
92 | cb => Coro::unblock_sub { clean_random_maps }, |
93 | ); |
93 | ); |
94 | |
94 | |
95 | # map generator stresstest, never enable under normal circumstances |
95 | # map generator stresstest, never enable under normal circumstances |
96 | if (0) { |
96 | if (1) { |
97 | cf::async { |
97 | cf::async { |
98 | my $seed = 0; |
98 | my $seed = 0; |
99 | while () { |
99 | while () { |
100 | my $map = cf::map::new; |
100 | my $map = cf::map::new; |
101 | $map->generate_random_map ({ |
101 | $map->generate_random_map ({ |
102 | region => "scorn", |
102 | region => "scorn", |
103 | random_seed => $seed++, |
103 | random_seed => $seed++, |
104 | xsize => 12, |
104 | xsize => 12, |
105 | ysize => 12, |
105 | ysize => 12, |
106 | }); |
106 | }); |
107 | #warn sprintf "%d: %d %d\n", $seed, $map->width, $map->height;#d# |
107 | warn sprintf "%d: %d %d\n", $seed, $map->width, $map->height;#d# |
108 | $map->destroy; |
108 | $map->destroy; |
109 | } |
109 | } |
110 | }; |
110 | }; |
111 | } |
111 | } |
112 | |
112 | |