| … | |
… | |
| 183 | while () { |
183 | while () { |
| 184 | my $map = cf::map::new; |
184 | my $map = cf::map::new; |
| 185 | $map->generate_random_map ({ |
185 | $map->generate_random_map ({ |
| 186 | region => "scorn", |
186 | region => "scorn", |
| 187 | random_seed => $seed++, |
187 | random_seed => $seed++, |
| 188 | xsize => (int rand 100) + 1, |
188 | xsize => (cf::rndm 1, 100), |
| 189 | ysize => (int rand 100) + 1, |
189 | ysize => (cf::rndm 1, 100), |
| 190 | }); |
190 | }); |
| 191 | warn sprintf "%d: %dx%d o# %d\n", $seed, $map->width, $map->height, &cf::object::objects_size;#d# |
191 | warn sprintf "%d: %dx%d o# %d\n", $seed, $map->width, $map->height, &cf::object::objects_size;#d# |
| 192 | $map->destroy; |
192 | $map->destroy; |
| 193 | } |
193 | } |
| 194 | }; |
194 | }; |
