PEASANTS_DO_NOT_STARVE verhindert nur noch das Verhungern, nicht mehr

das futtern und damit die exorbitante Regionssilbervermehrung
This commit is contained in:
Katja Zedel 2002-03-03 22:23:14 +00:00
parent d5993b273d
commit f872b2f950
1 changed files with 1 additions and 1 deletions

View File

@ -581,7 +581,6 @@ peasants(region * r)
/* Alle werden satt, oder halt soviele für die es auch Geld gibt */ /* Alle werden satt, oder halt soviele für die es auch Geld gibt */
#if PEASANTS_DO_NOT_STARVE == 0
money = rmoney(r); money = rmoney(r);
satiated = min(peasants, money / MAINTENANCE); satiated = min(peasants, money / MAINTENANCE);
rsetmoney(r, money - satiated * MAINTENANCE); rsetmoney(r, money - satiated * MAINTENANCE);
@ -592,6 +591,7 @@ peasants(region * r)
/* Es verhungert maximal die unterernährten Bevölkerung. */ /* Es verhungert maximal die unterernährten Bevölkerung. */
#if PEASANTS_DO_NOT_STARVE == 0
dead = 0; dead = 0;
for (n = min((peasants - satiated), rpeasants(r)); n; n--) for (n = min((peasants - satiated), rpeasants(r)); n; n--)
if (rand() % 100 > STARVATION_SURVIVAL) if (rand() % 100 > STARVATION_SURVIVAL)