Regionsstatistik im NR teilweise übersetzt. Ich bin ja sooo faul.

This commit is contained in:
Enno Rehling 2005-04-10 16:11:20 +00:00
parent 1b56db93d9
commit d9d7954a06
2 changed files with 83 additions and 43 deletions

View File

@ -1419,53 +1419,61 @@ describe(FILE * F, const region * r, int partial, faction * f)
static void static void
statistics(FILE * F, const region * r, const faction * f) statistics(FILE * F, const region * r, const faction * f)
{ {
const unit *u; const unit *u;
int number, p; int number, p;
item *itm, *items = NULL; message * m;
p = rpeasants(r); item *itm, *items = NULL;
number = 0; p = rpeasants(r);
number = 0;
/* zählen */
for (u = r->units; u; u = u->next)
if (u->faction == f && u->race != new_race[RC_SPELL]) {
for (itm=u->items;itm;itm=itm->next) {
i_change(&items, itm->type, itm->number);
}
number += u->number;
}
/* Ausgabe */
rnl(F);
m = msg_message("nr_stat_header", "region", r);
nr_render(m, f->locale, buf, sizeof(buf), f);
rps(F, buf);
msg_release(m);
rnl(F);
/* zählen */ /* Region */
for (u = r->units; u; u = u->next) if (landregion(rterrain(r)) && rmoney(r)) {
if (u->faction == f && u->race != new_race[RC_SPELL]) { m = msg_message("nr_stat_maxentertainment", "max", entertainmoney(r));
for (itm=u->items;itm;itm=itm->next) { nr_render(m, f->locale, buf, sizeof(buf), f);
i_change(&items, itm->type, itm->number);
}
number += u->number;
}
/* Ausgabe */
rnl(F);
sprintf(buf, "Statistik für %s:", f_regionid(r, f));
rps(F, buf); rps(F, buf);
rnl(F); msg_release(m);
}
if (production(r) && (!rterrain(r) == T_OCEAN || f->race == new_race[RC_AQUARIAN])) {
m = msg_message("nr_stat_salary", "max", fwage(r, f, true));
nr_render(m, f->locale, buf, sizeof(buf), f);
rps(F, buf);
msg_release(m);
}
if (p) {
m = msg_message("nr_stat_recruits", "max", p / RECRUITFRACTION);
nr_render(m, f->locale, buf, sizeof(buf), f);
rps(F, buf);
msg_release(m);
/* Region */ if (!TradeDisabled()) {
if (landregion(rterrain(r)) && rmoney(r)) { if (buildingtype_exists(r, bt_find("caravan"))) {
sprintf(buf, "Unterhaltung: max. %d Silber", entertainmoney(r)); sprintf(buf, "Luxusgüter zum angegebenen Preis: %d",
rps(F, buf); (p * 2) / TRADE_FRACTION);
} else {
sprintf(buf, "Luxusgüter zum angegebenen Preis: %d",
p / TRADE_FRACTION);
}
rps(F, buf);
} }
if (production(r) && (!rterrain(r) == T_OCEAN || f->race == new_race[RC_AQUARIAN])) { }
sprintf(buf, "Lohn für Arbeit: %d Silber", fwage(r, f, true)); /* Info über Einheiten */
rps(F, buf);
}
if (p) {
sprintf(buf, "Rekrutieren: max. %d Bauern",
p / RECRUITFRACTION);
rps(F, buf);
if (!TradeDisabled()) {
if (buildingtype_exists(r, bt_find("caravan"))) {
sprintf(buf, "Luxusgüter zum angegebenen Preis: %d",
(p * 2) / TRADE_FRACTION);
} else {
sprintf(buf, "Luxusgüter zum angegebenen Preis: %d",
p / TRADE_FRACTION);
}
rps(F, buf);
}
}
/* Info über Einheiten */
sprintf(buf, "Personen: %d", number); sprintf(buf, "Personen: %d", number);
rps(F, buf); rps(F, buf);

View File

@ -397,6 +397,38 @@
<text locale="fr">"Your faction has $int($population) people in $int($units) units."</text> <text locale="fr">"Your faction has $int($population) people in $int($units) units."</text>
<text locale="en">"Your faction has $int($population) people in $int($units) units."</text> <text locale="en">"Your faction has $int($population) people in $int($units) units."</text>
</message> </message>
<message name="nr_stat_header" section="events">
<type>
<arg name="region" type="region"/>
</type>
<text locale="de">"Statistik für $region($region):"</text>
<text locale="en">"Statistics for $region($region):"</text>
<text locale="fr">"Statistics for $region($region):"</text>
</message>
<message name="nr_stat_maxentertainment" section="events">
<type>
<arg name="max" type="int"/>
</type>
<text locale="de">"Unterhaltung: max. $int($max) Silber."</text>
<text locale="en">"Entertainment: max. $int($max) silver."</text>
<text locale="fr">"Entertainment: max. $int($max) silver."</text>
</message>
<message name="nr_stat_salary" section="events">
<type>
<arg name="max" type="int"/>
</type>
<text locale="de">"Lohn für Arbeit: $int($max) Silber."</text>
<text locale="en">"Worker's salary: $int($max) silver."</text>
<text locale="fr">"Worker's salary: $int($max) silver."</text>
</message>
<message name="nr_stat_recruits" section="events">
<type>
<arg name="max" type="int"/>
</type>
<text locale="de">"Rekruten: max. $int($max) Bauern."</text>
<text locale="en">"Recruits: $int($max) peasants."</text>
<text locale="fr">"Recruits: $int($max) peasants."</text>
</message>
<message name="nr_score" section="events"> <message name="nr_score" section="events">
<type> <type>
<arg name="score" type="int"/> <arg name="score" type="int"/>