| … | |
… | |
| 152 | while () { |
152 | while () { |
| 153 | my $map = cf::map::new; |
153 | my $map = cf::map::new; |
| 154 | $map->generate_random_map ({ |
154 | $map->generate_random_map ({ |
| 155 | region => "scorn", |
155 | region => "scorn", |
| 156 | random_seed => $seed++, |
156 | random_seed => $seed++, |
| 157 | xsize => (int rand 500) + 1, |
157 | xsize => (int rand 100) + 1, |
| 158 | ysize => (int rand 500) + 1, |
158 | ysize => (int rand 100) + 1, |
| 159 | }); |
159 | }); |
| 160 | warn sprintf "%d: %dx%d o# %d\n", $seed, $map->width, $map->height, &cf::object::objects_size;#d# |
160 | warn sprintf "%d: %dx%d o# %d\n", $seed, $map->width, $map->height, &cf::object::objects_size;#d# |
| 161 | $map->destroy; |
161 | $map->destroy; |
| 162 | } |
162 | } |
| 163 | }; |
163 | }; |
