empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fairland: Report missing and stunted islands

Browse source 
fairland can create fewer and smaller islands than the user requested.
Report like this:

    No room for island #13
    6 stunted islands

Signed-off-by: Markus Armbruster <armbru@pond.sub.org>
This commit is contained in:
Markus Armbruster 2020-07-25 08:13:54 +02:00
parent 41d9882860
commit 68375704b8
2 changed files with 19 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/util/fairland.c
View file

@ -861,21 +861,32 @@ place_island(int c, int *xp, int *yp)
static void
grow_islands(void)
{
int stunted_islands = 0;
int c, secs, x, y, isiz;
for (c = nc; c < nc + ni; ++c) {
secs = 0;
if (!place_island(c, &x, &y))
return;
if (!place_island(c, &x, &y)) {
qprint("\nNo room for island #%d", c - nc + 1);
break;
}
isiz = roll(is) + roll0(is);
do {
++secs;
for (secs = 1; secs < isiz; secs++) {
find_coast(c);
} while (secs < isiz && grow_one_sector(c));
if (!grow_one_sector(c)) {
stunted_islands++;
break;
}
}
find_coast(c);
qprint(" %d(%d)", c - nc + 1, secs);
ctot++;
}
if (stunted_islands)
qprint("\n%d stunted island%s",
stunted_islands, splur(stunted_islands));
}
/****************************************************************************