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

dämonen essen zu zehnt einen Bauern.

This commit is contained in:
Enno Rehling 2002-02-16 21:30:38 +00:00
parent d2d2b75cdc
commit 9b2d05caf8
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/common/gamecode/randenc.c
View File

@ -1141,6 +1141,7 @@ randomevents(void)
/* Talente von Dämonen verschieben sich und Dämonen fressen Bauern */
for (r = regions; r; r = r->next) {
int peasantfood = rpeasants(r)*10;
int bauernblut = 0;
boolean bfind = false;
for (u = r->units; u; u = u->next) {
@ -1168,7 +1169,7 @@ randomevents(void)
bfind = true;
}
if (r->planep && !fval(r->planep, PFL_NOFEED)) {
unfed = (u->number - bauernblut) - rpeasants(r);
unfed = (u->number - bauernblut) - peasantfood;
if (unfed > 0) {
#ifdef DAEMON_HUNGER
hunger(u, unfed); /* nicht gefütterte dämonen hungern */
@ -1189,10 +1190,9 @@ randomevents(void)
}
}
dc = max(u->number - bauernblut, 0);
dc = min(dc, rpeasants(r));
dc = rpeasants(r) - max(u->number - bauernblut, 0);
dc = min(dc, peasantfood);
dc = peasantfood - max(u->number - bauernblut, 0);
dc = max(0, dc);
rsetpeasants(r, dc);
#if SKILLPOINTS
for (sk = 0; sk != MAXSKILLS; sk++) {
if (get_skill(u, sk) && rand() % 100 < 25) {
@ -1219,6 +1219,7 @@ randomevents(void)
#endif
}
}
rsetpeasants(r, peasantfood/10);
}
for (r = regions; r; r = r->next) {