… | |
… | |
90 | interval => 3600, |
90 | interval => 3600, |
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 |
|
|
96 | if (0) { |
|
|
97 | cf::async { |
|
|
98 | my $seed = 0; |
|
|
99 | while () { |
|
|
100 | my $map = cf::map::new; |
|
|
101 | $map->generate_random_map ({ |
|
|
102 | region => "scorn", |
|
|
103 | random_seed => $seed++, |
|
|
104 | xsize => 12, |
|
|
105 | ysize => 12, |
|
|
106 | }); |
|
|
107 | #warn sprintf "%d: %d %d\n", $seed, $map->width, $map->height;#d# |
|
|
108 | $map->destroy; |
|
|
109 | } |
|
|
110 | }; |
|
|
111 | } |
|
|
112 | |
95 | 1 |
113 | 1 |
96 | |
114 | |