empserver: src/lib/update/age.c File Reference

void age_levels ( int etu )

Definition at line 39 of file age.c.

References chance(), getnatp, level, level_age_rate, natstr::nat_level, natstr::nat_reserve, NAT_RLEV, natstr::nat_stat, NAT_TLEV, NULL, roundavg(), STAT_ACTIVE, STAT_GOD, and STAT_SANCT.

Referenced by update_main().

00040 {
00041     float best_tech, best_res;
00042     struct natstr *np;
00043     int i;
00044     double level;
00045     double delta;
00046     int deltares;
00047 
00048     best_tech = 0.0;
00049     best_res = 0.0;
00050     for (i = 0; NULL != (np = getnatp(i)); i++) {
00051         if (np->nat_stat != STAT_ACTIVE)
00052             continue;
00053 
00054         if (best_tech < np->nat_level[NAT_TLEV])
00055             best_tech = np->nat_level[NAT_TLEV];
00056         if (best_res < np->nat_level[NAT_RLEV])
00057             best_res = np->nat_level[NAT_RLEV];
00058         if (level_age_rate != 0.0) {
00059             delta = np->nat_level[NAT_RLEV] * etu / (100 * level_age_rate);
00060             np->nat_level[NAT_RLEV] -= delta;
00061             delta = np->nat_level[NAT_TLEV] * etu / (100 * level_age_rate);
00062             np->nat_level[NAT_TLEV] -= delta;
00063         }
00064         /*
00065          * age reserves by 1% per every 24 etus
00066          */
00067         deltares = -roundavg(np->nat_reserve * etu / 2400.0);
00068         if (deltares != 0)
00069             np->nat_reserve += deltares;
00070         /* Chad Zabel - above number is negative ( was a -= there
00071            which was wrong. */
00072     }
00073     best_tech /= 5;
00074     best_res /= 5;
00075     for (i = 0; NULL != (np = getnatp(i)); i++) {
00076         if (np->nat_stat < STAT_SANCT || np->nat_stat == STAT_GOD)
00077             continue;
00078         level = np->nat_level[NAT_TLEV];
00079         if (level < best_tech && chance(0.2))
00080             np->nat_level[NAT_TLEV] += (best_tech - level) / 3;
00081         level = np->nat_level[NAT_RLEV];
00082         if (level < best_res && chance(0.2))
00083             np->nat_level[NAT_RLEV] += (best_res - level) / 3;
00084     }
00085 }

Here is the call graph for this function:

src/lib/update/age.c File Reference

Functions

Function Documentation