Marc
/
server
forked from github/server
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Test eines mapper-fixes

This commit is contained in:
Enno Rehling 2002-08-26 21:21:04 +00:00
parent 86c0a65184
commit b886afa00f
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/mapper/autoseed.c
View File

@ -327,16 +327,29 @@ mkisland(int nsize)
terraform(r, T_OCEAN);
add_regionlist(&rlist, r);
rsize = 1;
while (rlist && nsize && newfactions) {
while (nsize) {
int i = rand() % rsize;
regionlist ** rnext = &rlist;
direction_t d;
while (i--) rnext=&(*rnext)->next;
r = (*rnext)->region;
*rnext = (*rnext)->next;
if (rsize==0) {
log_error(("Could not place all factions on the same island as requested\n"));
break;
}
--rsize;
assert(r->terrain==T_OCEAN);
if (rand() % REGIONS_PER_FACTION == 0) {
for (d=0;d!=MAXDIRECTIONS;++d) {
region * rn = rconnect(r, d);
if (rn==NULL) {
rn = new_region(r->x + delta_x[d], r->y + delta_y[d]);
terraform(rn, T_OCEAN);
add_regionlist(&rlist, rn);
++rsize;
}
}
if (rand() % REGIONS_PER_FACTION == 0 || rsize==0) {
newfaction ** nfp, * nextf = newfactions;
unit * u;
terraform(r, preferred_terrain(nextf->race));
@ -358,15 +371,6 @@ mkisland(int nsize)
else {
terraform(r, (terrain_t)((rand() % T_GLACIER)+1));
}
for (d=0;d!=MAXDIRECTIONS;++d) {
region * rn = rconnect(r, d);
if (rn==NULL) {
rn = new_region(r->x + delta_x[d], r->y + delta_y[d]);
terraform(rn, T_OCEAN);
add_regionlist(&rlist, rn);
++rsize;
}
}
}
if (rlist) {
regionlist ** rbegin = &rlist;