forked from github/server
- Neue Wanderungsroutine. Einfacher. Ansehen!
This commit is contained in:
parent
4049d28e1c
commit
921add5ac1
|
@ -425,6 +425,46 @@ live(region * r)
|
||||||
* - movement because of low loyalty relating to present parties.
|
* - movement because of low loyalty relating to present parties.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
#if NEW_MIGRATION == 1
|
||||||
|
|
||||||
|
/* Arbeitsversion */
|
||||||
|
|
||||||
|
void
|
||||||
|
calculate_emigration(region *r)
|
||||||
|
{
|
||||||
|
direction_t i;
|
||||||
|
int overpopulation = rpeasants(r) - maxworkingpeasants(r);
|
||||||
|
int weight[MAXDIRECTIONS];
|
||||||
|
int weightall = 0;
|
||||||
|
|
||||||
|
|
||||||
|
for (i = 0; i != MAXDIRECTIONS; i++) {
|
||||||
|
region *rc = rconnect(r,i);
|
||||||
|
int w;
|
||||||
|
|
||||||
|
if(rterrain(rc) == T_OCEAN) {
|
||||||
|
w = 0;
|
||||||
|
} else {
|
||||||
|
w = rpeasants(rc) - maxworkingpeasants(rc);
|
||||||
|
}
|
||||||
|
|
||||||
|
if(rterrain(rc) == T_VOLCANO || rterrain(rc) == T_VOLCANO_SMOKING) {
|
||||||
|
w = w/10;
|
||||||
|
}
|
||||||
|
weight[i] = w;
|
||||||
|
weightall += w;
|
||||||
|
}
|
||||||
|
|
||||||
|
for (i = 0; i != MAXDIRECTIONS; i++) {
|
||||||
|
region *rc = rconnect(r,i);
|
||||||
|
int wandering_peasants = (overpopulation * weight[i])/weightall;
|
||||||
|
|
||||||
|
r->land->newpeasants -= wandering_peasants;
|
||||||
|
rc->land->newpeasants += wandering_peasants;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
#else
|
||||||
void
|
void
|
||||||
calculate_emigration(region *r)
|
calculate_emigration(region *r)
|
||||||
{
|
{
|
||||||
|
@ -496,6 +536,7 @@ calculate_emigration(region *r)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
/* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
|
/* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
|
||||||
|
|
||||||
|
|
|
@ -26,3 +26,4 @@
|
||||||
#define TEACHDIFFERENCE 2
|
#define TEACHDIFFERENCE 2
|
||||||
#define PEASANT_ADJUSTMENT 1
|
#define PEASANT_ADJUSTMENT 1
|
||||||
#define SKILLPOINTS 0
|
#define SKILLPOINTS 0
|
||||||
|
#define NEW_MIGRATION 1
|
||||||
|
|
Loading…
Reference in New Issue