From 6873e0d870e0a649c58c7acb8fad9da8aaac4232 Mon Sep 17 00:00:00 2001 From: Enno Rehling Date: Sun, 21 Sep 2003 08:47:28 +0000 Subject: [PATCH] undead could still not give away items to peasants. --- src/common/gamecode/economy.c | 882 +++++++++++++++++----------------- src/common/kernel/build.c | 9 +- 2 files changed, 448 insertions(+), 443 deletions(-) diff --git a/src/common/gamecode/economy.c b/src/common/gamecode/economy.c index ff5633758..f43b36541 100644 --- a/src/common/gamecode/economy.c +++ b/src/common/gamecode/economy.c @@ -1,23 +1,23 @@ /* vi: set ts=2: - * - * - * Eressea PB(E)M host Copyright (C) 1998-2003 - * Christian Schlittchen (corwin@amber.kn-bremen.de) - * Katja Zedel (katze@felidae.kn-bremen.de) - * Henning Peters (faroul@beyond.kn-bremen.de) - * Enno Rehling (enno@eressea-pbem.de) - * Ingo Wilken (Ingo.Wilken@informatik.uni-oldenburg.de) - * - * based on: - * - * Atlantis v1.0 13 September 1993 Copyright 1993 by Russell Wallace - * Atlantis v1.7 Copyright 1996 by Alex Schröder - * - * This program may not be used, modified or distributed without - * prior permission by the authors of Eressea. - * This program may not be sold or used commercially without prior written - * permission from the authors. - */ +* +* +* Eressea PB(E)M host Copyright (C) 1998-2003 +* Christian Schlittchen (corwin@amber.kn-bremen.de) +* Katja Zedel (katze@felidae.kn-bremen.de) +* Henning Peters (faroul@beyond.kn-bremen.de) +* Enno Rehling (enno@eressea-pbem.de) +* Ingo Wilken (Ingo.Wilken@informatik.uni-oldenburg.de) +* +* based on: +* +* Atlantis v1.0 13 September 1993 Copyright 1993 by Russell Wallace +* Atlantis v1.7 Copyright 1996 by Alex Schröder +* +* This program may not be used, modified or distributed without +* prior permission by the authors of Eressea. +* This program may not be sold or used commercially without prior written +* permission from the authors. +*/ #define RESERVE_DONATIONS 1 /* shall we reserve objects given to us by other factions? */ #define RESERVE_GIVE 1 /* reserve anything that's given from one unit to another? */ @@ -154,7 +154,7 @@ scramble(void *data, int n, size_t width) for (i = 0; i != n; i++) { /* in vec[k].index steht, wohin der block k soll */ /* src soll nach target geschoben werden. dafür wird target gemerkt, - * src verschoben, und target zum neuen src. ende, wenn k wieder i ist */ + * src verschoben, und target zum neuen src. ende, wenn k wieder i ist */ if (vec[i].index!=i) { char * src = ((char*)data)+width*i; int k = i; @@ -208,7 +208,7 @@ expandorders(region * r, request * requests) request *o; /* Alle Units ohne request haben ein -1, alle units mit orders haben ein - * 0 hier stehen */ + * 0 hier stehen */ for (u = r->units; u; u = u->next) u->n = -1; @@ -220,30 +220,30 @@ expandorders(region * r, request * requests) norders += o->qty; } - if (norders > 0) { - oa = (request *) calloc(norders, sizeof(request)); - i = 0; - for (o = requests; o; o = o->next) { - if (o->qty > 0) { - for (j = o->qty; j; j--) { - oa[i] = *o; - oa[i].unit->n = 0; - i++; + if (norders > 0) { + oa = (request *) calloc(norders, sizeof(request)); + i = 0; + for (o = requests; o; o = o->next) { + if (o->qty > 0) { + for (j = o->qty; j; j--) { + oa[i] = *o; + oa[i].unit->n = 0; + i++; + } } } + scramble(oa, norders, sizeof(request)); + } else { + oa = NULL; } - scramble(oa, norders, sizeof(request)); - } else { - oa = NULL; - } #if 0 - freelist(requests); + freelist(requests); #else - while (requests) { - request * o = requests->next; - free(requests); - requests = o; - } + while (requests) { + request * o = requests->next; + free(requests); + requests = o; + } #endif } /* ------------------------------------------------------------- */ @@ -275,7 +275,7 @@ expandrecruit(region * r, request * recruitorders) int recruitcost = rc->recruitcost; /* check if recruiting is limited. - * either horses or peasant fraction or not at all */ + * either horses or peasant fraction or not at all */ if ((rc->ec_flags & ECF_REC_UNLIMITED)==0) { /* not unlimited, and everything's gone: */ if (rc->ec_flags & ECF_REC_HORSES) { @@ -300,7 +300,7 @@ expandrecruit(region * r, request * recruitorders) n++; } } -/* set_number(u, u->number + 1); */ + /* set_number(u, u->number + 1); */ u->race = rc; u->n++; } @@ -358,7 +358,7 @@ expandrecruit(region * r, request * recruitorders) static void recruit(region * r, unit * u, strlist * S, - request ** recruitorders) + request ** recruitorders) { int n; plane * pl; @@ -367,8 +367,8 @@ recruit(region * r, unit * u, strlist * S, #if GUARD_DISABLES_RECRUIT == 1 /* this is a very special case because the recruiting unit may be empty - * at this point and we have to look at the creating unit instead. This - * is done in cansee, which is called indirectly by is_guarded(). */ + * at this point and we have to look at the creating unit instead. This + * is done in cansee, which is called indirectly by is_guarded(). */ if(is_guarded(r, u, GUARD_RECRUIT)) { cmistake(u, S->s, 70, MSG_EVENT); return; @@ -386,12 +386,12 @@ recruit(region * r, unit * u, strlist * S, usepotion = true; break; } - if (!usepotion) + if (!usepotion) #endif - { - cmistake(u, S->s, 98, MSG_EVENT); - return; - } + { + cmistake(u, S->s, 98, MSG_EVENT); + return; + } } /* in Gletschern, Eisbergen gar nicht rekrutieren */ if (r_insectstalled(r)) { @@ -408,70 +408,70 @@ recruit(region * r, unit * u, strlist * S, #if RACE_ADJUSTMENTS if (fval(r, RF_ORCIFIED) && u->faction->race != new_race[RC_URUK] && #else - if (fval(r, RF_ORCIFIED) && u->faction->race != new_race[RC_ORC] && + if (fval(r, RF_ORCIFIED) && u->faction->race != new_race[RC_ORC] && #endif - !(u->faction->race->ec_flags & ECF_REC_HORSES)) { + !(u->faction->race->ec_flags & ECF_REC_HORSES)) { cmistake(u, S->s, 238, MSG_EVENT); return; - } + } - recruitcost = u->faction->race->recruitcost; - if (recruitcost) { + recruitcost = u->faction->race->recruitcost; + if (recruitcost) { pl = getplane(r); if (pl && fval(pl, PFL_NORECRUITS)) { - add_message(&u->faction->msgs, - msg_error(u, S->s, "error_pflnorecruit", "")); - return; + add_message(&u->faction->msgs, + msg_error(u, S->s, "error_pflnorecruit", "")); + return; } if (get_pooled(u, r, R_SILVER) < recruitcost) { - cmistake(u, S->s, 142, MSG_EVENT); - return; - } - } - if (!playerrace(u->race) || idle(u->faction)) { - cmistake(u, S->s, 139, MSG_EVENT); - return; - } - /* snotlinge sollten hiermit bereits abgefangen werden, die - * parteirasse ist uruk oder ork*/ - if (u->race != u->faction->race) { - if (u->number != 0) { - cmistake(u, S->s, 139, MSG_EVENT); - return; - } - else u->race = u->faction->race; - } - n = geti(); - - if (has_skill(u, SK_MAGIC)) { - /* error158;de;{unit} in {region}: '{command}' - Magier arbeiten - * grundsätzlich nur alleine! */ - cmistake(u, S->s, 158, MSG_EVENT); - return; - } - if (has_skill(u, SK_ALCHEMY) - && count_skill(u->faction, SK_ALCHEMY) + n > - max_skill(u->faction, SK_ALCHEMY)) - { - cmistake(u, S->s, 156, MSG_EVENT); - return; - } - if (recruitcost) n = min(n, get_pooled(u, r, R_SILVER) / recruitcost); - - u->wants = n; - - if (!n) { cmistake(u, S->s, 142, MSG_EVENT); return; } - o = (request *) calloc(1, sizeof(request)); - o->qty = n; - o->unit = u; - addlist(recruitorders, o); - + } + if (!playerrace(u->race) || idle(u->faction)) { + cmistake(u, S->s, 139, MSG_EVENT); return; + } + /* snotlinge sollten hiermit bereits abgefangen werden, die + * parteirasse ist uruk oder ork*/ + if (u->race != u->faction->race) { + if (u->number != 0) { + cmistake(u, S->s, 139, MSG_EVENT); + return; + } + else u->race = u->faction->race; + } + n = geti(); + + if (has_skill(u, SK_MAGIC)) { + /* error158;de;{unit} in {region}: '{command}' - Magier arbeiten + * grundsätzlich nur alleine! */ + cmistake(u, S->s, 158, MSG_EVENT); + return; + } + if (has_skill(u, SK_ALCHEMY) + && count_skill(u->faction, SK_ALCHEMY) + n > + max_skill(u->faction, SK_ALCHEMY)) + { + cmistake(u, S->s, 156, MSG_EVENT); + return; + } + if (recruitcost) n = min(n, get_pooled(u, r, R_SILVER) / recruitcost); + + u->wants = n; + + if (!n) { + cmistake(u, S->s, 142, MSG_EVENT); + return; + } + o = (request *) calloc(1, sizeof(request)); + o->qty = n; + o->unit = u; + addlist(recruitorders, o); + + return; } /* ------------------------------------------------------------- */ @@ -492,12 +492,12 @@ add_give(unit * u, unit * u2, int n, const resource_type * rtype, const char * c else if (!u2 || u2->faction!=u->faction) { assert(rtype); add_message(&u->faction->msgs, - msg_message("give", "unit target resource amount", - u, u2?ucansee(u->faction, u2, u_unknown()):u_peasants(), rtype, n)); + msg_message("give", "unit target resource amount", + u, u2?ucansee(u->faction, u2, u_unknown()):u_peasants(), rtype, n)); if (u2) { add_message(&u2->faction->msgs, - msg_message("give", "unit target resource amount", - ucansee(u2->faction, u, u_unknown()), u2, rtype, n)); + msg_message("give", "unit target resource amount", + ucansee(u2->faction, u, u_unknown()), u2, rtype, n)); } } } @@ -511,7 +511,7 @@ addgive(unit * u, unit * u2, int n, resource_t res, const char * cmd, int error) /***************/ /* Derzeit fallen nur Silber und Pferde an die Region - * */ +* */ static void give_peasants(int n, const item_type * itype, unit * src) { @@ -535,7 +535,7 @@ give_item(int want, const item_type * itype, unit * src, unit * dest, const char n = min(want, n); if (dest && src->faction != dest->faction && src->faction->age < giverestriction()) { ADDMSG(&src->faction->msgs, msg_error(src, cmd, "giverestriction", - "turns", giverestriction())); + "turns", giverestriction())); return -1; } else if (n == 0) { error = 36; @@ -582,7 +582,7 @@ givemen(int n, unit * u, unit * u2, const char * cmd) if (u2 && u->faction != u2->faction && u->faction->age < giverestriction()) { ADDMSG(&u->faction->msgs, msg_error(u, cmd, "giverestriction", - "turns", giverestriction())); + "turns", giverestriction())); return; } else if (u == u2) { error = 10; @@ -598,92 +598,92 @@ givemen(int n, unit * u, unit * u2, const char * cmd) } else if (u2 && (fval(u2, UFL_LOCKED)|| is_cursed(u2->attribs, C_SLAVE, 0))) { error = 75; } else if (u2 != (unit *) NULL - && u2->faction != u->faction - && ucontact(u2, u) == 0) { - error = 73; - } else if (u2 && (has_skill(u, SK_MAGIC) || has_skill(u2, SK_MAGIC))) { - error = 158; - } else if (u2 && fval(u, UFL_WERE) != fval(u2, UFL_WERE)) { - error = 312; - } else { - if (n > u->number) n = u->number; - if (n == 0) { - error = 96; - } else if (u2 && u->faction != u2->faction) { - if (u2->faction->newbies + n > MAXNEWBIES) { - error = 129; - } else if (u->race != u2->faction->race) { - if (u2->faction->race != new_race[RC_HUMAN]) { - error = 120; - } else if (count_migrants(u2->faction) + n > count_max_migrants(u2->faction)) { - error = 128; - } - else if (teure_talente(u) || teure_talente(u2)) { - error = 154; - } else if (u2->number!=0) { - error = 139; - } - } - } - } - if (u2 && (has_skill(u, SK_ALCHEMY) || has_skill(u2, SK_ALCHEMY))) { - - k = count_skill(u2->faction, SK_ALCHEMY); - - /* Falls die Zieleinheit keine Alchemisten sind, werden sie nun - * welche. */ - if (!has_skill(u2, SK_ALCHEMY) && has_skill(u, SK_ALCHEMY)) - k += u2->number; - - /* Wenn in eine Alchemisteneinheit Personen verschoben werden */ - if (has_skill(u2, SK_ALCHEMY) && !has_skill(u, SK_ALCHEMY)) - k += n; - - /* Wenn Parteigrenzen überschritten werden */ - if (u2->faction != u->faction) - k += n; - - /* wird das Alchemistenmaximum ueberschritten ? */ - - if (k > max_skill(u2->faction, SK_ALCHEMY)) { - error = 156; - } - } - - if (!error) { - if (u2 && u2->number == 0) { - set_racename(&u2->attribs, get_racename(u->attribs)); - u2->race = u->race; - u2->irace = u->irace; - } else if (u2 && u2->race != u->race) { - error = 139; - } - if (u2) { - /* Einheiten von Schiffen können nicht NACH in von - * Nicht-alliierten bewachten Regionen ausführen */ - sh = leftship(u); - if (sh) set_leftship(u2, sh); - - transfermen(u, u2, n); - if (u->faction != u2->faction) { - u2->faction->newbies += n; - } + && u2->faction != u->faction + && ucontact(u2, u) == 0) { + error = 73; + } else if (u2 && (has_skill(u, SK_MAGIC) || has_skill(u2, SK_MAGIC))) { + error = 158; + } else if (u2 && fval(u, UFL_WERE) != fval(u2, UFL_WERE)) { + error = 312; } else { - if (getunitpeasants) { -#ifdef ORCIFICATION - if (u->race == new_race[RC_ORC] && !fval(u->region, RF_ORCIFIED)) { - attrib *a = a_find(u->region->attribs, &at_orcification); - if (!a) a = a_add(&u->region->attribs, a_new(&at_orcification)); - a->data.i += n; + if (n > u->number) n = u->number; + if (n == 0) { + error = 96; + } else if (u2 && u->faction != u2->faction) { + if (u2->faction->newbies + n > MAXNEWBIES) { + error = 129; + } else if (u->race != u2->faction->race) { + if (u2->faction->race != new_race[RC_HUMAN]) { + error = 120; + } else if (count_migrants(u2->faction) + n > count_max_migrants(u2->faction)) { + error = 128; + } + else if (teure_talente(u) || teure_talente(u2)) { + error = 154; + } else if (u2->number!=0) { + error = 139; + } } -#endif - transfermen(u, NULL, n); - } else { - error = 159; } } - } - addgive(u, u2, n, R_PERSON, cmd, error); + if (u2 && (has_skill(u, SK_ALCHEMY) || has_skill(u2, SK_ALCHEMY))) { + + k = count_skill(u2->faction, SK_ALCHEMY); + + /* Falls die Zieleinheit keine Alchemisten sind, werden sie nun + * welche. */ + if (!has_skill(u2, SK_ALCHEMY) && has_skill(u, SK_ALCHEMY)) + k += u2->number; + + /* Wenn in eine Alchemisteneinheit Personen verschoben werden */ + if (has_skill(u2, SK_ALCHEMY) && !has_skill(u, SK_ALCHEMY)) + k += n; + + /* Wenn Parteigrenzen überschritten werden */ + if (u2->faction != u->faction) + k += n; + + /* wird das Alchemistenmaximum ueberschritten ? */ + + if (k > max_skill(u2->faction, SK_ALCHEMY)) { + error = 156; + } + } + + if (!error) { + if (u2 && u2->number == 0) { + set_racename(&u2->attribs, get_racename(u->attribs)); + u2->race = u->race; + u2->irace = u->irace; + } else if (u2 && u2->race != u->race) { + error = 139; + } + if (u2) { + /* Einheiten von Schiffen können nicht NACH in von + * Nicht-alliierten bewachten Regionen ausführen */ + sh = leftship(u); + if (sh) set_leftship(u2, sh); + + transfermen(u, u2, n); + if (u->faction != u2->faction) { + u2->faction->newbies += n; + } + } else { + if (getunitpeasants) { +#ifdef ORCIFICATION + if (u->race == new_race[RC_ORC] && !fval(u->region, RF_ORCIFIED)) { + attrib *a = a_find(u->region->attribs, &at_orcification); + if (!a) a = a_add(&u->region->attribs, a_new(&at_orcification)); + a->data.i += n; + } +#endif + transfermen(u, NULL, n); + } else { + error = 159; + } + } + } + addgive(u, u2, n, R_PERSON, cmd, error); } void @@ -757,7 +757,7 @@ giveunit(region * r, unit * u, unit * u2, strlist * S) } if (has_skill(u, SK_MAGIC)) { if (count_skill(u2->faction, SK_MAGIC) + u->number > - max_skill(u2->faction, SK_MAGIC)) + max_skill(u2->faction, SK_MAGIC)) { cmistake(u, S->s, 155, MSG_COMMERCE); return; @@ -768,8 +768,8 @@ giveunit(region * r, unit * u, unit * u2, strlist * S) } } if (has_skill(u, SK_ALCHEMY) - && count_skill(u2->faction, SK_ALCHEMY) + u->number > - max_skill(u2->faction, SK_ALCHEMY)) + && count_skill(u2->faction, SK_ALCHEMY) + u->number > + max_skill(u2->faction, SK_ALCHEMY)) { cmistake(u, S->s, 156, MSG_COMMERCE); return; @@ -779,19 +779,19 @@ giveunit(region * r, unit * u, unit * u2, strlist * S) u2->faction->newbies += n; /* "Ich gebe einer Partei eine Einheit, die den Befehl hat, effektiv - * alles Silber der Partei an mich zu übergeben. Zack, bin ich reich." - * Blödsinn, da Silberpool nicht auf geben wirkt. Aber Rekrutierungen, - * teure Talente lernen und Gegenstände erschaffen! Kritisch sind: - * BIETE, FORSCHEN, KAUFE, LERNE, REKRUTIERE, ZAUBERE, - * HELFE, PASSWORT, STIRB (Katja) - * Natürlich wirkt der Silberpool bei gib! - * Und damit nicht irgendein zukünftiger Befehl vergessen wird, - * löschen wir der Einfachheit halber alle! (Enno). - */ + * alles Silber der Partei an mich zu übergeben. Zack, bin ich reich." + * Blödsinn, da Silberpool nicht auf geben wirkt. Aber Rekrutierungen, + * teure Talente lernen und Gegenstände erschaffen! Kritisch sind: + * BIETE, FORSCHEN, KAUFE, LERNE, REKRUTIERE, ZAUBERE, + * HELFE, PASSWORT, STIRB (Katja) + * Natürlich wirkt der Silberpool bei gib! + * Und damit nicht irgendein zukünftiger Befehl vergessen wird, + * löschen wir der Einfachheit halber alle! (Enno). + */ /* freelist(u->orders); - * FEHLER! Das darf nicht, weil es auf orders noch pointer geben kann! - */ + * FEHLER! Das darf nicht, weil es auf orders noch pointer geben kann! + */ while (u->orders) { /* dieser code _kennt_ die implementaion von strlists... */ strlist * o = u->orders; @@ -803,11 +803,11 @@ giveunit(region * r, unit * u, unit * u2, strlist * S) static void dogive(region * r, unit * u, strlist * S, int mode) - /* - * mode=0: give to any units - * mode=1: give to other units and peasants only - * mode=2: give to own units only - */ +/* +* mode=0: give to any units +* mode=1: give to other units and peasants only +* mode=2: give to own units only +*/ { unit *u2; const char *s; @@ -844,7 +844,7 @@ dogive(region * r, unit * u, strlist * S, int mode) } /* UFL_TAKEALL ist ein grober Hack. Generalisierung tut not, ist aber nicht - * wirklich einfach. */ + * wirklich einfach. */ if (r->planep && fval(r->planep, PFL_NOGIVE) && (!u2 || !fval(u2, UFL_TAKEALL))) { cmistake(u, S->s, 268, MSG_COMMERCE); return; @@ -880,12 +880,12 @@ dogive(region * r, unit * u, strlist * S, int mode) freset(u, UFL_OWNER); fset(u2, UFL_OWNER); - ADDMSG(&u->faction->msgs, - msg_message("givecommand", "unit receipient", u, u2)); + ADDMSG(&u->faction->msgs, + msg_message("givecommand", "unit receipient", u, u2)); if (u->faction != u2->faction) { - ADDMSG(&u2->faction->msgs, - msg_message("givecommand", "unit receipient", - ucansee(u2->faction, u, u_unknown()), u2)); + ADDMSG(&u2->faction->msgs, + msg_message("givecommand", "unit receipient", + ucansee(u2->faction, u, u_unknown()), u2)); } return; } @@ -894,31 +894,31 @@ dogive(region * r, unit * u, strlist * S, int mode) return; } - /* if ((u->race->ec_flags & NOGIVE) || fval(u,UFL_LOCKED)) {*/ + /* if ((u->race->ec_flags & NOGIVE) || fval(u,UFL_LOCKED)) {*/ if (u->race->ec_flags & NOGIVE && u2!=NULL) { - ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_nogive", "race", u->race)); + ADDMSG(&u->faction->msgs, + msg_error(u, S->s, "race_nogive", "race", u->race)); return; } /* sperrt hier auch personenübergaben! if (u2 && !(u2->race->ec_flags & GETITEM)) { - ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_notake", "race", u2->race)); - return; + ADDMSG(&u->faction->msgs, + msg_error(u, S->s, "race_notake", "race", u2->race)); + return; } */ /* Übergabe aller Kräuter */ if (findparam(s, u->faction->locale) == P_HERBS) { - boolean given = false; - if (!(u->race->ec_flags & GIVEITEM)) { - ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_nogive", "race", u->race)); + boolean given = false; + if (!(u->race->ec_flags & GIVEITEM) && u2!=NULL) { + ADDMSG(&u->faction->msgs, + msg_error(u, S->s, "race_nogive", "race", u->race)); return; } if (u2 && !(u2->race->ec_flags & GETITEM)) { ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_notake", "race", u2->race)); + msg_error(u, S->s, "race_notake", "race", u2->race)); return; } if (!u2) { @@ -933,12 +933,12 @@ dogive(region * r, unit * u, strlist * S, int mode) const herb_type * htype = resource2herb((*itmp)->type->rtype); if (htype && (*itmp)->number>0) { /* give_item ändert im fall,das man alles übergibt, die - * item-liste der unit, darum continue vor pointerumsetzten */ - if (give_item((*itmp)->number, (*itmp)->type, u, u2, S->s)==0) { - given = true; - continue; - } - } + * item-liste der unit, darum continue vor pointerumsetzten */ + if (give_item((*itmp)->number, (*itmp)->type, u, u2, S->s)==0) { + given = true; + continue; + } + } itmp = &(*itmp)->next; } } @@ -972,28 +972,28 @@ dogive(region * r, unit * u, strlist * S, int mode) } if (*s == 0) { - if (!(u->race->ec_flags & GIVEITEM)) { - ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_nogive", "race", u->race)); + if (!(u->race->ec_flags & GIVEITEM) && u2!=NULL) { + ADDMSG(&u->faction->msgs, + msg_error(u, S->s, "race_nogive", "race", u->race)); return; } if (u2 && !(u2->race->ec_flags & GETITEM)) { ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_notake", "race", u2->race)); + msg_error(u, S->s, "race_notake", "race", u2->race)); return; } /* für alle items einmal prüfen, ob wir mehr als von diesem Typ - * reserviert ist besitzen und diesen Teil dann übergeben */ + * reserviert ist besitzen und diesen Teil dann übergeben */ if (u->items) { item **itmp=&u->items; while (*itmp) { if ((*itmp)->number > 0 - && (*itmp)->number - new_get_resvalue(u, (*itmp)->type->rtype) > 0) { - n = (*itmp)->number - new_get_resvalue(u, (*itmp)->type->rtype); - if (give_item(n, (*itmp)->type, u, u2, S->s)==0) continue; - } - itmp = &(*itmp)->next; + && (*itmp)->number - new_get_resvalue(u, (*itmp)->type->rtype) > 0) { + n = (*itmp)->number - new_get_resvalue(u, (*itmp)->type->rtype); + if (give_item(n, (*itmp)->type, u, u2, S->s)==0) continue; + } + itmp = &(*itmp)->next; } } return; @@ -1001,8 +1001,8 @@ dogive(region * r, unit * u, strlist * S, int mode) i = findparam(s, u->faction->locale); if (i == P_PERSON) { if (!(u->race->ec_flags & GIVEPERSON)) { - ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_noregroup", "race", u->race)); + ADDMSG(&u->faction->msgs, + msg_error(u, S->s, "race_noregroup", "race", u->race)); return; } n = u->number; @@ -1010,14 +1010,14 @@ dogive(region * r, unit * u, strlist * S, int mode) return; } - if (!(u->race->ec_flags & GIVEITEM)) { - ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_nogive", "race", u->race)); + if (!(u->race->ec_flags & GIVEITEM) && u2!=NULL) { + ADDMSG(&u->faction->msgs, + msg_error(u, S->s, "race_nogive", "race", u->race)); return; } if (u2 && !(u2->race->ec_flags & GETITEM)) { ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_notake", "race", u2->race)); + msg_error(u, S->s, "race_notake", "race", u2->race)); return; } @@ -1051,26 +1051,26 @@ dogive(region * r, unit * u, strlist * S, int mode) i = findparam(s, u->faction->locale); if (i == P_PERSON) { if (!(u->race->ec_flags & GIVEPERSON)) { - ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_noregroup", "race", u->race)); + ADDMSG(&u->faction->msgs, + msg_error(u, S->s, "race_noregroup", "race", u->race)); return; } givemen(n, u, u2, S->s); return; } - if (u2!=NULL) { - if (!(u->race->ec_flags & GIVEITEM)) { - ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_nogive", "race", u->race)); - return; - } - if (!(u2->race->ec_flags & GETITEM)) { - ADDMSG(&u->faction->msgs, - msg_error(u, S->s, "race_notake", "race", u2->race)); - return; - } - } + if (u2!=NULL) { + if (!(u->race->ec_flags & GIVEITEM) && u2!=NULL) { + ADDMSG(&u->faction->msgs, + msg_error(u, S->s, "race_nogive", "race", u->race)); + return; + } + if (!(u2->race->ec_flags & GETITEM)) { + ADDMSG(&u->faction->msgs, + msg_error(u, S->s, "race_notake", "race", u2->race)); + return; + } + } itype = finditemtype(s, u->faction->locale); if (itype!=NULL) { @@ -1087,8 +1087,8 @@ forgetskill(unit * u) const char *s = getstrtoken(); if ((talent = findskill(s, u->faction->locale)) != NOSKILL) { - ADDMSG(&u->faction->msgs, - msg_message("forget", "unit skill", u, talent)); + ADDMSG(&u->faction->msgs, + msg_message("forget", "unit skill", u, talent)); set_level(u, talent, 0); } } @@ -1103,7 +1103,7 @@ report_donations(void) region * r = sp->region; if (sp->betrag > 0) { struct message * msg = msg_message("donation", - "from to amount", sp->f1, sp->f2, sp->betrag); + "from to amount", sp->f1, sp->f2, sp->betrag); r_addmessage(r, sp->f1, msg); r_addmessage(r, sp->f2, msg); msg_release(msg); @@ -1137,7 +1137,7 @@ add_spende(faction * f1, faction * f2, int betrag, region * r) static boolean maintain(building * b, boolean first) - /* first==false -> take money from wherever you can */ +/* first==false -> take money from wherever you can */ { int c; region * r = b->region; @@ -1159,8 +1159,8 @@ maintain(building * b, boolean first) if (fval(m, MTF_VARIABLE)) need = need * b->size; if (u) { /* first ist im ersten versuch true, im zweiten aber false! Das - * bedeutet, das in der Runde in die Region geschafften Resourcen - * nicht genutzt werden können, weil die reserviert sind! */ + * bedeutet, das in der Runde in die Region geschafften Resourcen + * nicht genutzt werden können, weil die reserviert sind! */ if (!first) need -= get_all(u, m->type); else need -= get_pooled(u, r, m->type); if (!first && need > 0) { @@ -1189,10 +1189,10 @@ maintain(building * b, boolean first) message * msg; if (first) { msg = add_message(&u->faction->msgs, - msg_message("maintenance", "unit building", u, b)); + msg_message("maintenance", "unit building", u, b)); } else { msg = add_message(&u->faction->msgs, - msg_message("maintenance_late", "building", b)); + msg_message("maintenance_late", "building", b)); } msg_release(msg); fset(b, BLD_MAINTAINED); @@ -1225,7 +1225,7 @@ maintain(building * b, boolean first) } } else { message * msg = add_message(&u->faction->msgs, - msg_message("maintenancefail", "unit building", u, b)); + msg_message("maintenancefail", "unit building", u, b)); msg_release(msg); return false; } @@ -1242,15 +1242,15 @@ gebaeude_stuerzt_ein(region * r, building * b) int road = 0; struct message * msg; /* - "$building($crashed) stürzte ein.$if($road," Beim Einsturz wurde die halbe Straße vernichtet.","")$if($victims,"$int($victims) $if($eq($victims,1),"ist","sind"),"") zu beklagen." - */ + "$building($crashed) stürzte ein.$if($road," Beim Einsturz wurde die halbe Straße vernichtet.","")$if($victims,"$int($victims) $if($eq($victims,1),"ist","sind"),"") zu beklagen." + */ /* Falls Karawanserei, Damm oder Tunnel einstürzen, wird die schon - * gebaute Straße zur Hälfte vernichtet */ + * gebaute Straße zur Hälfte vernichtet */ for (d=0;d!=MAXDIRECTIONS;++d) if (rroad(r, d) > 0 && - (b->type == bt_find("caravan") || - b->type == bt_find("dam") || - b->type == bt_find("tunnel"))) + (b->type == bt_find("caravan") || + b->type == bt_find("dam") || + b->type == bt_find("tunnel"))) { rsetroad(r, d, rroad(r, d) / 2); road = 1; @@ -1320,8 +1320,8 @@ economics(void) strlist *S; /* Geben vor Selbstmord (doquit)! Hier alle unmittelbaren Befehle. - * Rekrutieren vor allen Einnahmequellen. Bewachen JA vor Steuern - * eintreiben. */ + * Rekrutieren vor allen Einnahmequellen. Bewachen JA vor Steuern + * eintreiben. */ for (r = regions; r; r = r->next) if (r->units) { request *recruitorders = NULL; @@ -1336,7 +1336,7 @@ economics(void) case K_GIVE: case K_LIEFERE: - dogive(r, u, S, 0); + dogive(r, u, S, 0); break; case K_FORGET: @@ -1389,12 +1389,12 @@ manufacture(unit * u, const item_type * itype, int want) switch (n) { case ENEEDSKILL: add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "skill_needed", "skill", sk)); + msg_error(u, findorder(u, u->thisorder), "skill_needed", "skill", sk)); return; case ELOWSKILL: add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "manufacture_skills", "skill minskill product", - sk, minskill, itype->rtype, 1)); + msg_error(u, findorder(u, u->thisorder), "manufacture_skills", "skill minskill product", + sk, minskill, itype->rtype, 1)); return; case ENOMATERIALS: /* something missing from the list of materials */ @@ -1409,8 +1409,8 @@ manufacture(unit * u, const item_type * itype, int want) strcat(ch++, ","); n=cons->materials[c].number / cons->reqsize; sprintf(ch, " %d %s", n?n:1, - locale_string(u->faction->locale, - resname(cons->materials[c].type, cons->materials[c].number!=1))); + locale_string(u->faction->locale, + resname(cons->materials[c].type, cons->materials[c].number!=1))); ch = ch+strlen(ch); } mistake(u, findorder(u, u->thisorder), buf, MSG_PRODUCE); @@ -1421,7 +1421,7 @@ manufacture(unit * u, const item_type * itype, int want) i_change(&u->items, itype, n); if (want==INT_MAX) want = n; ADDMSG(&u->faction->msgs, msg_message("manufacture", - "unit region amount wanted resource", u, u->region, n, want, itype->rtype)); + "unit region amount wanted resource", u, u->region, n, want, itype->rtype)); } } @@ -1457,7 +1457,7 @@ allocate_resource(unit * u, const resource_type * rtype, int want) int amount, skill; /* momentan kann man keine ressourcen abbauen, wenn man dafür - * Materialverbrauch hat: */ + * Materialverbrauch hat: */ assert(itype!=NULL && itype->construction->materials==NULL); if (itype == olditemtype[I_WOOD] && fval(r, RF_MALLORN)) { @@ -1482,41 +1482,41 @@ allocate_resource(unit * u, const resource_type * rtype, int want) return; } /* Elfen können Holzfällen durch Bewachen verhindern, wenn sie - die Holzfäller sehen. */ + die Holzfäller sehen. */ if (itype == olditemtype[I_WOOD] || itype == olditemtype[I_MALLORN]) { for (u2 = r->units; u2; u2 = u2->next) { if (getguard(u2) & GUARD_TREES - && u2->number - && cansee(u2->faction,r,u,0) - && !ucontact(u2, u) - && !besieged(u2) - && !alliedunit(u2, u->faction, HELP_GUARD) + && u2->number + && cansee(u2->faction,r,u,0) + && !ucontact(u2, u) + && !besieged(u2) + && !alliedunit(u2, u->faction, HELP_GUARD) #ifdef WACH_WAFF - && armedmen(u2) + && armedmen(u2) #endif - ) { - add_message(&u->faction->msgs, + ) { + add_message(&u->faction->msgs, msg_error(u, findorder(u, u->thisorder), "region_guarded", "guard", u2)); - return; - } + return; + } } } /* Bergwächter können Abbau von Eisen/Laen durch Bewachen verhindern. - * Als magische Wesen 'sehen' Bergwächter alles und werden durch - * Belagerung nicht aufgehalten. (Ansonsten wie oben bei Elfen anpassen). - */ + * Als magische Wesen 'sehen' Bergwächter alles und werden durch + * Belagerung nicht aufgehalten. (Ansonsten wie oben bei Elfen anpassen). + */ if (itype == olditemtype[I_IRON] || itype == olditemtype[I_LAEN]) { for (u2 = r->units; u2; u2 = u2->next ) { if (getguard(u) & GUARD_MINING - && !fval(u2, UFL_ISNEW) - && u2->number - && !ucontact(u2, u) - && !alliedunit(u2, u->faction, HELP_GUARD)) + && !fval(u2, UFL_ISNEW) + && u2->number + && !ucontact(u2, u) + && !alliedunit(u2, u->faction, HELP_GUARD)) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "region_guarded", "guard", u2)); + msg_error(u, findorder(u, u->thisorder), "region_guarded", "guard", u2)); return; } } @@ -1527,14 +1527,14 @@ allocate_resource(unit * u, const resource_type * rtype, int want) if (skill == 0) { skill_t sk = itype->construction->skill; add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "skill_needed", "skill", sk)); + msg_error(u, findorder(u, u->thisorder), "skill_needed", "skill", sk)); return; } if (skill < itype->construction->minskill) { skill_t sk = itype->construction->skill; add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "manufacture_skills", "skill minskill product", - sk, itype->construction->minskill, itype->rtype)); + msg_error(u, findorder(u, u->thisorder), "manufacture_skills", "skill minskill product", + sk, itype->construction->minskill, itype->rtype)); return; } else { struct building * b = inside_building(u); @@ -1695,16 +1695,16 @@ leveled_allocation(const allocator * self, region * r, allocation * alist) int req = required(al->want-al->get, al->save); assert(al->get<=al->want && al->get >= 0); if (eff_skill(al->unit, itype->construction->skill, r) - >= rm->level+itype->construction->minskill-1) { - if (req) { - norders += req; + >= rm->level+itype->construction->minskill-1) { + if (req) { + norders += req; + } else { + fset(al, AFL_DONE); + } } else { fset(al, AFL_DONE); + if (first) fset(al, AFL_LOWSKILL); } - } else { - fset(al, AFL_DONE); - if (first) fset(al, AFL_LOWSKILL); - } } need = norders; @@ -1805,12 +1805,12 @@ split_allocations(region * r) if (al->want==INT_MAX) al->want = al->get; if (fval(al, AFL_LOWSKILL)) { add_message(&al->unit->faction->msgs, - msg_message("produce_lowskill", "unit region resource", - al->unit, al->unit->region, rtype)); + msg_message("produce_lowskill", "unit region resource", + al->unit, al->unit->region, rtype)); } else { add_message(&al->unit->faction->msgs, - msg_message("produce", "unit region amount wanted resource", - al->unit, al->unit->region, al->get, al->want, rtype)); + msg_message("produce", "unit region amount wanted resource", + al->unit, al->unit->region, al->get, al->want, rtype)); } *p_al=al->next; free_allocation(al); @@ -1851,8 +1851,8 @@ create_potion(unit * u, const potion_type * ptype, int want) strcat(ch++, ","); n=cons->materials[c].number / cons->reqsize; sprintf(ch, " %d %s", n?n:1, - locale_string(u->faction->locale, - resname(cons->materials[c].type, cons->materials[c].number!=1))); + locale_string(u->faction->locale, + resname(cons->materials[c].type, cons->materials[c].number!=1))); ch = ch+strlen(ch); } strcat(ch,"."); @@ -1864,7 +1864,7 @@ create_potion(unit * u, const potion_type * ptype, int want) i_change(&u->items, ptype->itype, built); if (want==INT_MAX) want = built; ADDMSG(&u->faction->msgs, msg_message("manufacture", - "unit region amount wanted resource", u, u->region, built, want, ptype->itype->rtype)); + "unit region amount wanted resource", u, u->region, built, want, ptype->itype->rtype)); break; } } @@ -1896,7 +1896,7 @@ make(region * r, unit * u) param_t p; int m; const item_type * itype; - const char *s = getstrtoken(); + const char *s = getstrtoken(); m = atoi(s); sprintf(buf, "%d", m); @@ -1910,8 +1910,8 @@ make(region * r, unit * u) p = findparam(s, u->faction->locale); /* MACHE TEMP kann hier schon gar nicht auftauchen, weil diese nicht in - * thisorder abgespeichert werden - und auf den ist getstrtoken() beim - * aufruf von make geeicht */ + * thisorder abgespeichert werden - und auf den ist getstrtoken() beim + * aufruf von make geeicht */ itype = finditemtype(s, u->faction->locale); if (itype!=NULL) { @@ -2003,16 +2003,16 @@ expandbuying(region * r, request * buyorders) if (!buyorders) return; /* Initialisation. multiplier ist der Multiplikator auf den - * Verkaufspreis. Für max_products Produkte kauft man das Produkt zum - * einfachen Verkaufspreis, danach erhöht sich der Multiplikator um 1. - * counter ist ein Zähler, der die gekauften Produkte zählt. money - * wird für die debug message gebraucht. */ + * Verkaufspreis. Für max_products Produkte kauft man das Produkt zum + * einfachen Verkaufspreis, danach erhöht sich der Multiplikator um 1. + * counter ist ein Zähler, der die gekauften Produkte zählt. money + * wird für die debug message gebraucht. */ max_products = rpeasants(r) / TRADE_FRACTION; /* Kauf - auch so programmiert, daß er leicht erweiterbar auf mehrere - * Güter pro Monat ist. j sind die Befehle, i der Index des - * gehandelten Produktes. */ + * Güter pro Monat ist. j sind die Befehle, i der Index des + * gehandelten Produktes. */ expandorders(r, buyorders); if (!norders) return; @@ -2030,9 +2030,9 @@ expandbuying(region * r, request * buyorders) unit * u = oa[j].unit; /* litems zählt die Güter, die verkauft wurden, u->n das Geld, das - * verdient wurde. Dies muß gemacht werden, weil der Preis ständig sinkt, - * man sich also das verdiente Geld und die verkauften Produkte separat - * merken muß. */ + * verdient wurde. Dies muß gemacht werden, weil der Preis ständig sinkt, + * man sich also das verdiente Geld und die verkauften Produkte separat + * merken muß. */ attrib * a = a_find(u->attribs, &at_luxuries); if (a==NULL) a = a_add(&u->attribs, a_new(&at_luxuries)); i_change((item**)&a->data.v, ltype->itype, 1); @@ -2045,8 +2045,8 @@ expandbuying(region * r, request * buyorders) rsetmoney(r, rmoney(r) + price); /* Falls mehr als max_products Bauern ein Produkt verkauft haben, steigt - * der Preis Multiplikator für das Produkt um den Faktor 1. Der Zähler - * wird wieder auf 0 gesetzt. */ + * der Preis Multiplikator für das Produkt um den Faktor 1. Der Zähler + * wird wieder auf 0 gesetzt. */ if (++trade->number > max_products) { trade->number = 0; ++trade->multi; @@ -2062,11 +2062,11 @@ expandbuying(region * r, request * buyorders) item * itm; if (a==NULL) continue; add_message(&u->faction->msgs, new_message(u->faction, - "buy%u:unit%i:money", u, u->n)); + "buy%u:unit%i:money", u, u->n)); for (itm=(item*)a->data.v; itm; itm=itm->next) { if (itm->number) { add_message(&u->faction->msgs, new_message(u->faction, - "buyamount%u:unit%i:amount%X:resource", u, itm->number, itm->type->rtype)); + "buyamount%u:unit%i:amount%X:resource", u, itm->number, itm->type->rtype)); } } a_remove(&u->attribs, a); @@ -2075,11 +2075,11 @@ expandbuying(region * r, request * buyorders) attrib_type at_trades = { "trades", - DEFAULT_INIT, - DEFAULT_FINALIZE, - DEFAULT_AGE, - NO_WRITE, - NO_READ + DEFAULT_INIT, + DEFAULT_FINALIZE, + DEFAULT_AGE, + NO_WRITE, + NO_READ }; static void @@ -2099,7 +2099,7 @@ buy(region * r, unit * u, request ** buyorders, const char * cmd) return; } /* Im Augenblick kann man nur 1 Produkt kaufen. expandbuying ist aber - * schon dafür ausgerüstet, mehrere Produkte zu kaufen. */ + * schon dafür ausgerüstet, mehrere Produkte zu kaufen. */ n = geti(); if (!n) { @@ -2130,7 +2130,7 @@ buy(region * r, unit * u, request ** buyorders, const char * cmd) k = u->number * 10 * eff_skill(u, SK_TRADE, r); /* hat der Händler bereits gehandelt, muss die Menge der bereits - * verkauften/gekauften Güter abgezogen werden */ + * verkauften/gekauften Güter abgezogen werden */ a = a_find(u->attribs, &at_trades); if (!a) { a = a_add(&u->attribs, a_new(&at_trades)); @@ -2159,7 +2159,7 @@ buy(region * r, unit * u, request ** buyorders, const char * cmd) } if (r_demand(r, ltype)) { add_message(&u->faction->msgs, - msg_error(u, cmd, "luxury_notsold", "")); + msg_error(u, cmd, "luxury_notsold", "")); return; } o = (request *) calloc(1, sizeof(request)); @@ -2169,7 +2169,7 @@ buy(region * r, unit * u, request ** buyorders, const char * cmd) o->qty = n; addlist(buyorders, o); - if (n) fset(u, UFL_TRADER); + if (n) fset(u, UFL_TRADER); } /* ------------------------------------------------------------- */ @@ -2205,18 +2205,18 @@ expandselling(region * r, request * sellorders) return; /* Sümpfen und Wüsten auch so handeln */ /* Stelle Eigentümer der größten Burg fest. Bekommt Steuern aus jedem - * Verkauf. Wenn zwei Burgen gleicher Größe bekommt gar keiner etwas. */ + * Verkauf. Wenn zwei Burgen gleicher Größe bekommt gar keiner etwas. */ for (b = rbuildings(r); b; b = b->next) { if (b->size > maxsize && buildingowner(r, b) != NULL - && b->type == bt_find("castle")) { - maxb = b; - maxsize = b->size; - maxowner = buildingowner(r, b); - } else if (b->size == maxsize && b->type == bt_find("castle")) { - maxb = (building *) NULL; - maxowner = (unit *) NULL; - } + && b->type == bt_find("castle")) { + maxb = b; + maxsize = b->size; + maxowner = buildingowner(r, b); + } else if (b->size == maxsize && b->type == bt_find("castle")) { + maxb = (building *) NULL; + maxowner = (unit *) NULL; + } } hafenowner = owner_buildingtyp(r, bt_find("harbour")); @@ -2233,8 +2233,8 @@ expandselling(region * r, request * sellorders) money = rmoney(r); /* max_products sind 1/100 der Bevölkerung, falls soviele Produkte - * verkauft werden - counter[] - sinkt die Nachfrage um 1 Punkt. - * multiplier speichert r->demand für die debug message ab. */ + * verkauft werden - counter[] - sinkt die Nachfrage um 1 Punkt. + * multiplier speichert r->demand für die debug message ab. */ max_products = rpeasants(r) / TRADE_FRACTION; if (max_products <= 0) return; @@ -2243,7 +2243,7 @@ expandselling(region * r, request * sellorders) max_products = rpeasants(r) * 2 / TRADE_FRACTION; } /* Verkauf: so programmiert, dass er leicht auf mehrere Gueter pro - * Runde erweitert werden kann. */ + * Runde erweitert werden kann. */ expandorders(r, sellorders); if (!norders) return; @@ -2292,11 +2292,11 @@ expandselling(region * r, request * sellorders) change_money(u, price); /* r->money -= price; --- dies wird eben nicht ausgeführt, denn die - * Produkte können auch als Steuern eingetrieben werden. In der Region - * wurden Silberstücke gegen Luxusgüter des selben Wertes eingetauscht! - * Falls mehr als max_products Kunden ein Produkt gekauft haben, sinkt - * die Nachfrage für das Produkt um 1. Der Zähler wird wieder auf 0 - * gesetzt. */ + * Produkte können auch als Steuern eingetrieben werden. In der Region + * wurden Silberstücke gegen Luxusgüter des selben Wertes eingetauscht! + * Falls mehr als max_products Kunden ein Produkt gekauft haben, sinkt + * die Nachfrage für das Produkt um 1. Der Zähler wird wieder auf 0 + * gesetzt. */ if (++counter[i] > max_products) { int d = r_demand(r, ltype); @@ -2323,7 +2323,7 @@ expandselling(region * r, request * sellorders) change_money(maxowner, (int) taxcollected); add_income(maxowner, IC_TRADETAX, taxcollected, taxcollected); /* sprintf(buf, "%s verdient %d Silber durch den Handel in %s.", - unitname(maxowner), (int) taxcollected, regionid(r)); */ + unitname(maxowner), (int) taxcollected, regionid(r)); */ } } if (hafenowner) { @@ -2342,7 +2342,7 @@ expandselling(region * r, request * sellorders) for (itm=(item*)a->data.v; itm; itm=itm->next) { if (itm->number) { add_message(&u->faction->msgs, new_message(u->faction, - "sellamount%u:unit%i:amount%X:resource", u, itm->number, itm->type->rtype)); + "sellamount%u:unit%i:amount%X:resource", u, itm->number, itm->type->rtype)); } } a_remove(&u->attribs, a); @@ -2364,7 +2364,7 @@ sell(region * r, unit * u, request ** sellorders, const char * cmd) return; } /* sellorders sind KEIN array, weil für alle items DIE SELBE resource - * (das geld der region) aufgebraucht wird. */ + * (das geld der region) aufgebraucht wird. */ s = getstrtoken(); if (findparam(s, u->faction->locale) == P_ANY) { @@ -2386,7 +2386,7 @@ sell(region * r, unit * u, request ** sellorders, const char * cmd) if (besieged(u)) { add_message(&u->faction->msgs, - msg_error(u, cmd, "error60", "")); + msg_error(u, cmd, "error60", "")); return; } /* In der Region muß es eine Burg geben. */ @@ -2428,7 +2428,7 @@ sell(region * r, unit * u, request ** sellorders, const char * cmd) available = new_get_pooled(u, itype->rtype, GET_DEFAULT); /* Wenn andere Einheiten das selbe verkaufen, muß ihr Zeug abgezogen - * werden damit es nicht zweimal verkauft wird: */ + * werden damit es nicht zweimal verkauft wird: */ for (o=*sellorders;o;o=o->next) { if (o->type.ltype==ltype && o->unit->faction == u->faction) { int fpool = o->qty - new_get_pooled(o->unit, itype->rtype, GET_RESERVE); @@ -2443,16 +2443,16 @@ sell(region * r, unit * u, request ** sellorders, const char * cmd) return; } /* Hier wird request->type verwendet, weil die obere limit durch - * das silber gegeben wird (region->money), welches für alle - * (!) produkte als summe gilt, als nicht wie bei der - * produktion, wo für jedes produkt einzeln eine obere limite - * existiert, so dass man arrays von orders machen kann. */ + * das silber gegeben wird (region->money), welches für alle + * (!) produkte als summe gilt, als nicht wie bei der + * produktion, wo für jedes produkt einzeln eine obere limite + * existiert, so dass man arrays von orders machen kann. */ /* Ein Händler kann nur 10 Güter pro Talentpunkt handeln. */ k = u->number * 10 * eff_skill(u, SK_TRADE, r); /* hat der Händler bereits gehandelt, muss die Menge der bereits - * verkauften/gekauften Güter abgezogen werden */ + * verkauften/gekauften Güter abgezogen werden */ a = a_find(u->attribs, &at_trades); if (!a) { a = a_add(&u->attribs, a_new(&at_trades)); @@ -2470,7 +2470,7 @@ sell(region * r, unit * u, request ** sellorders, const char * cmd) o->type.ltype = ltype; addlist(sellorders, o); - if (n) fset(u, UFL_TRADER); + if (n) fset(u, UFL_TRADER); } } /* ------------------------------------------------------------- */ @@ -2484,10 +2484,10 @@ expandstealing(region * r, request * stealorders) if (!norders) return; /* Für jede unit in der Region wird Geld geklaut, wenn sie Opfer eines - * Beklauen-Orders ist. Jedes Opfer muß einzeln behandelt werden. - * - * u ist die beklaute unit. oa.unit ist die klauende unit. - */ + * Beklauen-Orders ist. Jedes Opfer muß einzeln behandelt werden. + * + * u ist die beklaute unit. oa.unit ist die klauende unit. + */ for (i = 0; i != norders && oa[i].unit->n <= oa[i].unit->wants; i++) { unit *u = findunitg(oa[i].no, r); @@ -2540,23 +2540,23 @@ plant(region *r, unit *u, int raw) htype = rherbtype(r); if (skill < 6) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "plant_skills", - "skill minskill product", SK_HERBALISM, 6, htype->itype->rtype, 1)); + msg_error(u, findorder(u, u->thisorder), "plant_skills", + "skill minskill product", SK_HERBALISM, 6, htype->itype->rtype, 1)); return; } /* Wasser des Lebens prüfen */ if (get_pooled(u, r, R_TREES) == 0) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "resource_missing", "missing", - oldresourcetype[R_TREES])); + msg_error(u, findorder(u, u->thisorder), "resource_missing", "missing", + oldresourcetype[R_TREES])); return; } n = new_get_pooled(u, htype->itype->rtype, GET_DEFAULT); /* Kräuter prüfen */ if (n==0) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "resource_missing", "missing", - htype->itype->rtype)); + msg_error(u, findorder(u, u->thisorder), "resource_missing", "missing", + htype->itype->rtype)); return; } @@ -2573,7 +2573,7 @@ plant(region *r, unit *u, int raw) new_use_pooled(u, htype->itype->rtype, GET_DEFAULT, n); rsetherbs(r, rherbs(r)+planted); add_message(&u->faction->msgs, new_message(u->faction, - "plant%u:unit%r:region%i:amount%X:herb", u, r, planted, htype->itype->rtype)); + "plant%u:unit%r:region%i:amount%X:herb", u, r, planted, htype->itype->rtype)); } #if GROWING_TREES @@ -2598,14 +2598,14 @@ planttrees(region *r, unit *u, int raw) skill = eff_skill(u, SK_HERBALISM, r); if (skill < 6) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "plant_skills", - "skill minskill product", SK_HERBALISM, 6, itype->rtype, 1)); + msg_error(u, findorder(u, u->thisorder), "plant_skills", + "skill minskill product", SK_HERBALISM, 6, itype->rtype, 1)); return; } if (fval(r, RF_MALLORN) && skill < 7 ) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "plant_skills", - "skill minskill product", SK_HERBALISM, 7, itype->rtype, 1)); + msg_error(u, findorder(u, u->thisorder), "plant_skills", + "skill minskill product", SK_HERBALISM, 7, itype->rtype, 1)); return; } @@ -2613,8 +2613,8 @@ planttrees(region *r, unit *u, int raw) /* Samen prüfen */ if (n==0) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "resource_missing", "missing", - itype->rtype)); + msg_error(u, findorder(u, u->thisorder), "resource_missing", "missing", + itype->rtype)); return; } @@ -2633,7 +2633,7 @@ planttrees(region *r, unit *u, int raw) new_use_pooled(u, itype->rtype, GET_DEFAULT, n); ADDMSG(&u->faction->msgs, msg_message("plant", - "unit region amount herb", u, r, planted, itype->rtype)); + "unit region amount herb", u, r, planted, itype->rtype)); } /* züchte bäume */ @@ -2671,8 +2671,8 @@ breedtrees(region *r, unit *u, int raw) /* Samen prüfen */ if (n==0) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "resource_missing", "missing", - itype->rtype)); + msg_error(u, findorder(u, u->thisorder), "resource_missing", "missing", + itype->rtype)); return; } @@ -2691,7 +2691,7 @@ breedtrees(region *r, unit *u, int raw) new_use_pooled(u, itype->rtype, GET_DEFAULT, n); add_message(&u->faction->msgs, new_message(u->faction, - "plant%u:unit%r:region%i:amount%X:herb", u, r, planted, itype->rtype)); + "plant%u:unit%r:region%i:amount%X:herb", u, r, planted, itype->rtype)); } #endif @@ -2772,7 +2772,7 @@ breedhorses(region *r, unit *u) } add_message(&u->faction->msgs, new_message(u->faction, - "raised%u:unit%i:amount", u, gezuechtet)); + "raised%u:unit%i:amount", u, gezuechtet)); } static void @@ -2851,15 +2851,15 @@ research(region *r, unit *u) if (rht != NULL) { add_message(&u->faction->msgs, new_message(u->faction, - "researchherb%u:unit%r:region%s:amount%X:herb", u, r, - rough_amount(rherbs(r), 100), rht->itype->rtype)); + "researchherb%u:unit%r:region%s:amount%X:herb", u, r, + rough_amount(rherbs(r), 100), rht->itype->rtype)); } else { add_message(&u->faction->msgs, new_message(u->faction, - "researchherb_none%u:unit%r:region", u, r)); + "researchherb_none%u:unit%r:region", u, r)); } } else { add_message(&u->faction->msgs, new_message(u->faction, - "researchherb_none%u:unit%r:region", u, r)); + "researchherb_none%u:unit%r:region", u, r)); } } } @@ -2873,13 +2873,13 @@ wahrnehmung(region * r, faction * f) for (u = r->units; u; u = u->next) { if (u->faction == f #ifdef HELFE_WAHRNEHMUNG - || alliedunit(u, f, HELP_OBSERVE) + || alliedunit(u, f, HELP_OBSERVE) #endif - ) { - if (eff_skill(u, SK_OBSERVATION, r) > w) { - w = eff_skill(u, SK_OBSERVATION, r); + ) { + if (eff_skill(u, SK_OBSERVATION, r) > w) { + w = eff_skill(u, SK_OBSERVATION, r); + } } - } } return w; @@ -2919,8 +2919,8 @@ steal(region * r, unit * u, request ** stealorders) if (u2->faction->age < IMMUN_GEGEN_ANGRIFF) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "newbie_immunity_error", - "turns", IMMUN_GEGEN_ANGRIFF)); + msg_error(u, findorder(u, u->thisorder), "newbie_immunity_error", + "turns", IMMUN_GEGEN_ANGRIFF)); return; } @@ -2934,7 +2934,7 @@ steal(region * r, unit * u, request ** stealorders) assert(u->region==u2->region); if (!can_contact(r, u, u2)) { add_message(&u->faction->msgs, msg_error(u, findorder(u, u->thisorder), - "error60", "")); + "error60", "")); return; } @@ -2944,15 +2944,15 @@ steal(region * r, unit * u, request ** stealorders) /* Wahrnehmung == Tarnung */ if (u->race != new_race[RC_GOBLIN] || eff_skill(u, SK_STEALTH, r) <= 3) { add_message(&u->faction->msgs, new_message(u->faction, - "stealfail%u:unit%u:target", u, u2)); + "stealfail%u:unit%u:target", u, u2)); add_message(&u2->faction->msgs, new_message(u2->faction, - "stealdetect%u:unit", u2)); + "stealdetect%u:unit", u2)); return; } else { add_message(&u2->faction->msgs, new_message(u2->faction, - "thiefdiscover%u:unit%u:target", u, u2)); + "thiefdiscover%u:unit%u:target", u, u2)); add_message(&u->faction->msgs, new_message(u->faction, - "stealfatal%u:unit%u:target", u, u2)); + "stealfatal%u:unit%u:target", u, u2)); n = 1; goblin = true; } @@ -2960,14 +2960,14 @@ steal(region * r, unit * u, request ** stealorders) /* Wahrnehmung > Tarnung */ if (u->race != new_race[RC_GOBLIN] || eff_skill(u, SK_STEALTH, r) <= 3) { add_message(&u->faction->msgs, new_message(u->faction, - "stealfatal%u:unit%u:target", u, u2)); + "stealfatal%u:unit%u:target", u, u2)); add_message(&u2->faction->msgs, new_message(u2->faction, - "thiefdiscover%u:unit%u:target", u, u2)); + "thiefdiscover%u:unit%u:target", u, u2)); return; } else { /* Goblin-Spezialdiebstahl, Meldung an Beklauten */ add_message(&u2->faction->msgs, new_message(u2->faction, - "thiefdiscover%u:unit%u:target", u, u2)); + "thiefdiscover%u:unit%u:target", u, u2)); n = 1; goblin = true; } @@ -2984,7 +2984,7 @@ steal(region * r, unit * u, request ** stealorders) u->wants = n; /* wer dank unsichtbarkeitsringen klauen kann, muss nicht unbedingt ein - * guter dieb sein, schliesslich macht man immer noch sehr viel laerm */ + * guter dieb sein, schliesslich macht man immer noch sehr viel laerm */ o = (request *) calloc(1, sizeof(request)); o->unit = u; @@ -3126,7 +3126,7 @@ expandwork(region * r) n = m * p_wage; /* Der Rest wird von den Bauern verdient. n ist das uebriggebliebene - * Geld. */ + * Geld. */ #if AFFECT_SALARY { attrib * a = a_find(r->attribs, &at_salary); @@ -3138,8 +3138,8 @@ expandwork(region * r) if (verdienst) { sprintf(buf, "%d Bauern verdienen ein Silber %s durch %s.", - abs(verdienst), (verdienst > 0) ? "mehr" : "weniger", - (verdienst > 0) ? "Riesengras" : "Faulobstschnaps"); + abs(verdienst), (verdienst > 0) ? "mehr" : "weniger", + (verdienst > 0) ? "Riesengras" : "Faulobstschnaps"); } rsetmoney(r, rmoney(r) + earnings); } @@ -3232,13 +3232,13 @@ tax(region * r, unit * u, request ** taxorders) u2 = is_guarded(r, u, GUARD_TAX); if (u2) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "region_guarded", "guard", u2)); + msg_error(u, findorder(u, u->thisorder), "region_guarded", "guard", u2)); return; } /* die einnahmen werden in fraktionen von 10 silber eingeteilt: diese - * fraktionen werden dann bei eintreiben unter allen eintreibenden - * einheiten aufgeteilt. */ + * fraktionen werden dann bei eintreiben unter allen eintreibenden + * einheiten aufgeteilt. */ o = (request *) calloc(1, sizeof(request)); o->qty = u->wants / TAXFRACTION; @@ -3257,14 +3257,14 @@ produce(void) int todo; /* das sind alles befehle, die 30 tage brauchen, und die in thisorder - * stehen! von allen 30-tage befehlen wird einfach der letzte verwendet - * (dosetdefaults). - * - * kaufen vor einnahmequellen. da man in einer region dasselbe produkt - * nicht kaufen und verkaufen kann, ist die reihenfolge wegen der - * produkte egal. nicht so wegen dem geld. - * - * lehren vor lernen. */ + * stehen! von allen 30-tage befehlen wird einfach der letzte verwendet + * (dosetdefaults). + * + * kaufen vor einnahmequellen. da man in einer region dasselbe produkt + * nicht kaufen und verkaufen kann, ist die reihenfolge wegen der + * produkte egal. nicht so wegen dem geld. + * + * lehren vor lernen. */ for (r = regions; r; r = r->next) { @@ -3287,7 +3287,7 @@ produce(void) continue; if (u->race == new_race[RC_INSECT] && r_insectstalled(r) && - !is_cursed(u->attribs, C_KAELTESCHUTZ,0)) + !is_cursed(u->attribs, C_KAELTESCHUTZ,0)) continue; if (attacked(u) && *(u->thisorder) != 0) { @@ -3321,8 +3321,8 @@ produce(void) if (todo == NOKEYWORD) continue; if (rterrain(r) == T_OCEAN && u->race != new_race[RC_AQUARIAN] - && !(u->race->flags & RCF_SWIM) - && todo != K_STEAL && todo != K_SPY && todo != K_SABOTAGE) + && !(u->race->flags & RCF_SWIM) + && todo != K_STEAL && todo != K_SPY && todo != K_SABOTAGE) continue; switch (todo) { @@ -3339,7 +3339,7 @@ produce(void) work(r, u); else if (u->faction->no > 0) { add_message(&u->faction->msgs, - msg_error(u, findorder(u, u->thisorder), "race_cantwork", "race", u->race)); + msg_error(u, findorder(u, u->thisorder), "race_cantwork", "race", u->race)); } break; @@ -3375,22 +3375,22 @@ produce(void) split_allocations(r); /* Entertainment (expandentertainment) und Besteuerung (expandtax) vor den - * Befehlen, die den Bauern mehr Geld geben, damit man aus den Zahlen der - * letzten Runde berechnen kann, wieviel die Bauern für Unterhaltung - * auszugeben bereit sind. */ + * Befehlen, die den Bauern mehr Geld geben, damit man aus den Zahlen der + * letzten Runde berechnen kann, wieviel die Bauern für Unterhaltung + * auszugeben bereit sind. */ if (entertaining) expandentertainment(r); expandwork(r); if (taxorders) expandtax(r, taxorders); /* An erster Stelle Kaufen (expandbuying), die Bauern so Geld bekommen, um - * nachher zu beim Verkaufen (expandselling) den Spielern abkaufen zu - * können. */ + * nachher zu beim Verkaufen (expandselling) den Spielern abkaufen zu + * können. */ if (buyorders) expandbuying(r, buyorders); if (sellorders) expandselling(r, sellorders); /* Die Spieler sollen alles Geld verdienen, bevor sie beklaut werden - * (expandstealing). */ + * (expandstealing). */ if (stealorders) expandstealing(r, stealorders); diff --git a/src/common/kernel/build.c b/src/common/kernel/build.c index ca096f6a5..c8f767e09 100644 --- a/src/common/kernel/build.c +++ b/src/common/kernel/build.c @@ -304,13 +304,18 @@ destroy_road(unit *u, int n, const char *cmd) int road = rroad(r, d); region * r2 = rconnect(r,d); willdo = min(willdo, road); + if (willdo==0) { + /* TODO: error message */ + } #if 0 salvage = willdo / divy; change_item(u, I_STONE, salvage); #endif rsetroad(r, d, road - willdo); - add_message(&u->faction->msgs, new_message( - u->faction, "destroy_road%u:unit%r:from%r:to", u, r, r2)); + if (road!=0 && road <= willdo) { + add_message(&u->faction->msgs, new_message( + u->faction, "destroy_road%u:unit%r:from%r:to", u, r, r2)); + } } }