| … | |
… | |
| 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 | |
