gemilderte Bauernwandlungsroutine

This commit is contained in:
Katja Zedel 2002-02-02 22:17:46 +00:00
parent d2d19ceb55
commit 49317210e0
2 changed files with 11 additions and 3 deletions

View File

@ -1331,6 +1331,7 @@ sp_kaelteschutz(castorder *co)
unit *mage = (unit *)co->magician;
int cast_level = co->level;
int force = co->force;
int duration = max(cast_level, force);
spellparameter *pa = co->par;
@ -1354,7 +1355,7 @@ sp_kaelteschutz(castorder *co)
}
create_curse(mage, &u->attribs, C_KAELTESCHUTZ, 0, cast_level,
cast_level, 1, men);
duration, 1, men);
force -= u->number;
add_message(&mage->faction->msgs, new_message(mage->faction,

View File

@ -2818,6 +2818,7 @@ heal_all(void)
#if PEASANT_ADJUSTMENT == 1
#define WEIGHT ((double)0.5)
#define PLWEIGHT ((double)0.75)
static int
peasant_adjustment(void)
@ -2859,9 +2860,15 @@ peasant_adjustment(void)
soll = (avg + playerp + rpeasants(r)) * WEIGHT;
if(playerp + rpeasants(r) > soll) {
p_weg = min((playerp + rpeasants(r)) - soll, rpeasants(r));
if(playerp * PLWEIGHT + rpeasants(r) > soll) {
p_weg = min(((playerp * PLWEIGHT) + rpeasants(r)) - soll, rpeasants(r));
assert(p_weg >= 0);
/*
if (p_weg > 0){
log_printf("BAUERN: war %d, minus %d, playerp %d\n",
rpeasants(r), p_weg, playerp);
}
*/
pool += p_weg;
rsetpeasants(r, rpeasants(r) - p_weg);
assert(rpeasants(r) >= 0);