Lauter kleine Bugfixes vor dem Start.

src/common/gamecode/economy.c

@@ -3231,11 +3231,13 @@ peasant_taxes(region * r)
   }
 
   if (maxsize>0) {
-    int taxmoney = (money * maxsize) / 100;
-    change_money(u, taxmoney);
-    rsetmoney(r, money - taxmoney);
-    ADDMSG(&u->faction->msgs, msg_message("income_tax", 
-      "unit region amount", u, r, taxmoney));
+    int taxmoney = (int)((money * maxsize) * b->type->taxes(b));
+    if (taxmoney>0) {
+      change_money(u, taxmoney);
+      rsetmoney(r, money - taxmoney);
+      ADDMSG(&u->faction->msgs, msg_message("income_tax", 
+        "unit region amount", u, r, taxmoney));
+    }
   }
 }
 

src/common/gamecode/laws.c

@@ -1426,7 +1426,7 @@ display_cmd(unit * u, struct order * ord)
       cmistake(u, ord, 148, MSG_EVENT);
       break;
     }
-    if (b != largestbuilding(r, &is_castle, false)) {
+    if (b != largestbuilding(r, &is_tax_building, false)) {
       cmistake(u, ord, 147, MSG_EVENT);
       break;
     }
@@ -1661,7 +1661,7 @@ name_cmd(unit * u, struct order * ord)
       cmistake(u, ord, 148, MSG_EVENT);
       break;
     }
-    if (b != largestbuilding(r, &is_castle, false)) {
+    if (b != largestbuilding(r, &is_tax_building, false)) {
       cmistake(u, ord, 147, MSG_EVENT);
       break;
     }

src/common/gamecode/report.c

@@ -1910,7 +1910,7 @@ report_plaintext(const char * filename, report_context * ctx, const char * chars
 {
   int flag = 0;
   char ch;
-  int anyunits;
+  int anyunits, no_units, no_people;
   const struct region *r;
   faction * f = ctx->f;
   unit *u;
@@ -2023,7 +2023,27 @@ report_plaintext(const char * filename, report_context * ctx, const char * chars
     centre(F, buf, true);
   }
 #endif
-  m = msg_message("nr_population", "population units", count_all(f), f->no_units);
+#ifdef COUNT_AGAIN
+  no_units = 0;
+  no_people = 0;
+  for (u=f->units;u;u=u->nextF) {
+    if (playerrace(u->race)) {
+      ++no_people;
+      no_units += u->number;
+      assert(f==u->faction);
+    }
+  }
+  if (no_units!=f->no_units) {
+    f->no_units = no_units;
+  }
+  if (no_people!=f->num_people) {
+    f->num_people = no_people;
+  }
+#else
+  no_units = f->no_units;
+  no_people = f->num_people;
+#endif
+  m = msg_message("nr_population", "population units", no_people, no_units);
   nr_render(m, f->locale, buf, sizeof(buf), f);
   msg_release(m);
   centre(F, buf, true);

src/common/kernel/battle.c

@@ -1917,18 +1917,12 @@ skilldiff(troop at, troop dt, int dist)
       magicwalls_ct = ct_find("magicwalls");
       init=true;
     }
-    if (df->building->type->flags & BTF_PROTECTION) {
-      int beff = buildingeffsize(df->building, false)-1;
-      /* -1 because the tradepost has no protection value */
-
-#if KARMA_MODULE
-      if (fspecial(au->faction, FS_SAPPER)) {
-        /* Halbe Schutzwirkung, aufgerundet */
-        beff = (beff+1)/2;
+    if (df->building->type->protection) {
+      int beff = df->building->type->protection(df->building, du);
+      if (beff) {
+        skdiff -= beff;
+        is_protected = 2;
       }
-#endif /* KARMA_MODULE */
-      skdiff -= beff;
-      is_protected = 2;
     }
     if (strongwall_ct) {
       curse * c = get_curse(df->building->attribs, strongwall_ct);
@@ -2078,7 +2072,7 @@ damage_building(battle *b, building *bldg, int damage_abs)
 
   /* Wenn Burg, dann gucken, ob die Leute alle noch in das Gebäude passen. */
 
-  if (bldg->type->flags & BTF_PROTECTION) {
+  if (bldg->type->protection) {
     side * s;
 
     bldg->sizeleft = bldg->size;

src/common/kernel/building.c

@@ -252,6 +252,35 @@ init_smithy(struct building_type * bt)
 	a_add(&bt->attribs, make_matmod(mm_smithy));
 }
 
+static const char *
+castle_name_i(const struct building_type* btype, int bsize, const char * fname[])
+{
+  const construction * ctype;
+  int i = 0;
+
+  ctype = btype->construction;
+  while (ctype && ctype->maxsize != -1 && ctype->maxsize<=bsize) {
+    bsize-=ctype->maxsize;
+    ctype=ctype->improvement;
+    ++i;
+  }
+  return fname[i];
+}
+
+static const char *
+castle_name_2(const struct building_type* btype, int bsize)
+{
+  const char * fname[] = {
+    "site",
+    "fortification",
+    "tower",
+    "castle",
+    "fortress",
+    "citadel"
+  };
+  return castle_name_i(btype, bsize, fname);
+}
+
 static const char *
 castle_name(const struct building_type* btype, int bsize)
 {
@@ -264,16 +293,7 @@ castle_name(const struct building_type* btype, int bsize)
     "fortress",
     "citadel"
   };
-  const construction * ctype;
-  int i = 0;
-
-  ctype = btype->construction;
-  while (ctype && ctype->maxsize != -1 && ctype->maxsize<=bsize) {
-    bsize-=ctype->maxsize;
-    ctype=ctype->improvement;
-    ++i;
-  }
-  return fname[i];
+  return castle_name_i(btype, bsize, fname);
 }
 
 static const char *
@@ -370,12 +390,27 @@ findbuildingtype(const char * name, const struct locale * lang)
 	return (const building_type*)type.v;
 }
 
+static int eressea_building_protection(building * b, unit * u)
+{
+  int beff = buildingeffsize(b, false)-1;
+  /* -1 because the tradepost has no protection value */
+
+#if KARMA_MODULE
+  if (fspecial(u->faction, FS_SAPPER)) {
+    /* Halbe Schutzwirkung, aufgerundet */
+    beff = (beff+1)/2;
+  }
+#endif /* KARMA_MODULE */
+  return beff;
+}
 
 void
 register_buildings(void)
 {
+  register_function((pf_generic)&eressea_building_protection, "eressea_building_protection");
   register_function((pf_generic)&init_smithy, "init_smithy");
   register_function((pf_generic)&castle_name, "castle_name");
+  register_function((pf_generic)&castle_name_2, "castle_name_2");
   register_function((pf_generic)&fort_name, "fort_name");
 #ifdef WDW_PYRAMID
   register_function((pf_generic)&pyramid_name, "pyramid_name");

src/common/kernel/building.h

@@ -39,11 +39,9 @@ typedef struct maintenance {
 #define BTF_UNIQUE         0x04 /* only one per struct region (harbour) */
 #define BTF_DECAY          0x08 /* decays when not occupied */
 #define BTF_DYNAMIC        0x10 /* dynamic type, needs bt_write */
-#define BTF_PROTECTION     0x20 /* protection in combat */
 #define BTF_MAGIC          0x40 /* magical effect */
 #define BTF_ONEPERTURN     0x80 /* one one sizepoint can be added per turn */
 #define BTF_NAMECHANGE    0x100 /* name and description can be changed more than once */
-#define BTF_TAXES         0x200 /* automatic taxes */
 
 typedef struct building_type {
 	const char * _name;
@@ -62,6 +60,8 @@ typedef struct building_type {
 	const char * (*name)(const struct building_type*, int size);
 	void (*init)(struct building_type*);
     void (*age)(struct building *);
+    int (*protection)(struct building *, struct unit *);
+    float (*taxes)(struct building *);
 	struct attrib * attribs;
 } building_type;
 

src/common/kernel/eressea.c

@@ -1186,7 +1186,7 @@ int
 count_all(const faction * f)
 {
 #ifndef NDEBUG
-  int n = 0;
+  int n = 0, nunits = 0;
   unit *u;
   for (u=f->units;u;u=u->nextF) {
     if (playerrace(u->race)) {
@@ -1197,7 +1197,6 @@ count_all(const faction * f)
   if (f->num_people != n) {
     log_error(("# of people in %s is != num_people: %d should be %d.\n",
       factionid(f), f->num_people, n));
-    return n;
   }
 #endif
   return f->num_people;
@@ -2617,7 +2616,7 @@ is_castle(const struct building * b)
 
 boolean is_tax_building(const building * b)
 {
-  if (b->type->flags&BTF_TAXES) {
+  if (b->type->taxes) {
     return true;
   }
   return false;

src/common/kernel/xmlreader.c

@@ -288,8 +288,6 @@ parse_buildings(xmlDocPtr doc)
       if (xml_bvalue(node, "unique", false)) btype->flags |= BTF_UNIQUE;
       if (xml_bvalue(node, "decay", false)) btype->flags |= BTF_DECAY;
       if (xml_bvalue(node, "magic", false)) btype->flags |= BTF_MAGIC;
-      if (xml_bvalue(node, "protection", false)) btype->flags |= BTF_PROTECTION;
-      if (xml_bvalue(node, "taxes", false)) btype->flags |= BTF_TAXES;
 
       /* reading eressea/buildings/building/construction */
       xpath->node = node;
@@ -319,6 +317,12 @@ parse_buildings(xmlDocPtr doc)
             btype->init = (void (*)(struct building_type*))fun;
           } else if (strcmp((const char*)propValue, "age")==0) {
             btype->age = (void (*)(struct building*))fun;
+          } else if (strcmp((const char*)propValue, "protection")==0) {
+            btype->protection = (int (*)(struct building*, struct unit *))fun;
+          } else if (strcmp((const char*)propValue, "taxes")==0) {
+            btype->taxes = (float (*)(struct building*))fun;
+          } else if (strcmp((const char*)propValue, "age")==0) {
+            btype->age = (void (*)(struct building*))fun;
           } else {
             log_error(("unknown function type '%s' for building %s\n",
               (const char*)propValue, btype->_name));

src/eressea/tolua/helpers.c

@@ -406,6 +406,63 @@ lua_agebuilding(building * b)
   }
 }
 
+static int
+lua_building_protection(building * b, unit * u)
+{
+  lua_State * L = (lua_State *)global.vm_state;
+  const char * fname = "building_protection";
+  int result = 0;
+
+  lua_pushstring(L, fname);
+  lua_rawget(L, LUA_GLOBALSINDEX);
+  if (lua_isfunction(L, 1)) {
+    tolua_pushusertype(L, (void *)b, "building");
+    tolua_pushusertype(L, (void *)u, "unit");
+
+    if (lua_pcall(L, 2, 1, 0)!=0) {
+      const char* error = lua_tostring(L, -1);
+      log_error(("building_protection(%s, %s) calling '%s': %s.\n",
+        buildingname(b), unitname(u), fname, error));
+      lua_pop(L, 1);
+    } else {
+      result = (int)lua_tonumber(L, -1);
+    }
+  } else {
+    log_error(("building_protection(%s, %s) calling '%s': not a function.\n",
+      buildingname(b), unitname(u), fname));
+    lua_pop(L, 1);
+  }
+  return result;
+}
+
+static float
+lua_building_taxes(building * b)
+{
+  lua_State * L = (lua_State *)global.vm_state;
+  const char * fname = "building_taxes";
+  float result = 0.0F;
+
+  lua_pushstring(L, fname);
+  lua_rawget(L, LUA_GLOBALSINDEX);
+  if (lua_isfunction(L, 1)) {
+    tolua_pushusertype(L, (void *)b, "building");
+
+    if (lua_pcall(L, 1, 1, 0)!=0) {
+      const char* error = lua_tostring(L, -1);
+      log_error(("building_taxes(%s) calling '%s': %s.\n",
+        buildingname(b), fname, error));
+      lua_pop(L, 1);
+    } else {
+      result = (float)lua_tonumber(L, -1);
+    }
+  } else {
+    log_error(("building_taxes(%s) calling '%s': not a function.\n",
+      buildingname(b), fname));
+    lua_pop(L, 1);
+  }
+  return result;
+}
+
 static int
 lua_maintenance(const unit * u)
 {
@@ -548,6 +605,8 @@ register_tolua_helpers(void)
 {
   at_building_action.age = lc_age;
 
+  register_function((pf_generic)&lua_building_protection, "lua_building_protection");
+  register_function((pf_generic)&lua_building_taxes, "lua_building_taxes");
   register_function((pf_generic)&lua_agebuilding, "lua_agebuilding");
   register_function((pf_generic)&lua_recruit, "lua_recruit");
   register_function((pf_generic)&lua_callspell, "lua_castspell");

src/eressea/tolua/helpers.h

@@ -14,6 +14,7 @@ without prior permission by the authors of Eressea.
 extern "C" {
 #endif
   
+  struct lua_State;
   void register_tolua_helpers(void);
   int tolua_toid(struct lua_State* L, int idx, int def);
 

src/res/asgard.xml

@@ -21,7 +21,6 @@
   <xi:include href="eressea/items.xml"/>
   <xi:include href="eressea/artrewards.xml"/>
   <xi:include href="eressea/dungeons.xml"/>
-  <xi:include href="eressea/temple.xml"/>
 
   <equipment>
     <set name="first_unit">

src/res/buildings/castle-2.xml

@@ -1,5 +1,5 @@
 <?xml version="1.0"?>
-<building name="castle" capacity="1" protection="yes" taxes="yes">
+<building name="castle" capacity="1">
   <function name="name" value="castle_name_2"/>
   <function name="protection" value="lua_building_protection"/>
   <function name="taxes" value="lua_building_taxes"/>

src/res/buildings/castle.xml

@@ -1,8 +1,7 @@
 <?xml version="1.0"?>
-<building name="castle" capacity="1" protection="yes" taxes="yes">
+<building name="castle" capacity="1">
   <function name="name" value="castle_name"/>
   <function name="protection" value="eressea_building_protection"/>
-  <function name="taxes" value="eressea_building_taxes"/>
   <construction skill="building" minskill="1" maxsize="2" reqsize="1">
     <requirement type="stone" quantity="1"/>
   </construction>

src/res/common/buildings.xml

@@ -1,5 +1,9 @@
 <?xml version="1.0"?>
 <buildings>
+  <building name="temple" maxsize="50" maxcapacity="2" nobuild="yes" nodestroy="yes" unique="yes" auraregen="1.00" />
+  <building name="wormhole" maxsize="4" capacity="1" maxcapacity="4" nobuild="yes" nodestroy="yes" unique="yes" />
+  <building name="portal" maxsize="2" capacity="1" maxcapacity="2" nobuild="yes" nodestroy="yes" unique="yes" />
+  <building name="pavilion" maxsize="2" capacity="1" maxcapacity="2" nobuild="yes" nodestroy="yes" unique="yes" />
   <building name="illusioncastle" capacity="0" maxcapacity="0" maxsize="0" nobuild="yes"/>
   <building name="xmas_exit" maxsize="10" maxcapacity="2" nobuild="yes" nodestroy="yes" unique="yes"/>
   <building name="caldera" capacity="1" nodestroy="yes" nobuild="yes"/>

src/res/e3a.xml

@@ -170,7 +170,6 @@
   <xi:include href="eressea/items.xml"/>
   <xi:include href="eressea/artrewards.xml"/>
   <xi:include href="eressea/dungeons.xml"/>
-  <xi:include href="eressea/temple.xml"/>
   <strings>
     <string name="mailto">
       <text locale="de">eressea-server@eressea.de</text>

src/res/e3a/buildings.xml

@@ -3,7 +3,7 @@
 
   <xi:include href="../buildings/castle-2.xml" />
 
-  <building name="watch" capacity="1" protection="yes" taxes="true">
+  <building name="watch" capacity="1">
     <function name="name" value="fort_name"/>
     <function name="protection" value="lua_building_protection"/>
     <function name="taxes" value="lua_building_taxes"/>

src/res/eressea.xml

@@ -93,7 +93,6 @@
   <xi:include href="eressea/items.xml"/>
   <xi:include href="eressea/artrewards.xml"/>
   <xi:include href="eressea/dungeons.xml"/>
-  <xi:include href="eressea/temple.xml"/>
   <strings>
     <string name="mailto">
       <text locale="de">eressea-server@eressea.de</text>

src/res/eressea/buildings.xml

@@ -1,8 +1,4 @@
 <?xml version="1.0"?>
 <buildings xmlns:xi="http://www.w3.org/2001/XInclude">
-  <building name="temple" maxsize="50" maxcapacity="2" nobuild="yes" nodestroy="yes" unique="yes" auraregen="1.00" />
-  <building name="wormhole" maxsize="4" capacity="1" maxcapacity="4" nobuild="yes" nodestroy="yes" unique="yes" />
-  <building name="portal" maxsize="2" capacity="1" maxcapacity="2" nobuild="yes" nodestroy="yes" unique="yes" />
-  <building name="pavilion" maxsize="2" capacity="1" maxcapacity="2" nobuild="yes" nodestroy="yes" unique="yes" />
   <xi:include href="../buildings/castle.xml" />
 </buildings>

src/res/eressea2.xml

@@ -19,7 +19,7 @@
   <xi:include href="spoils.xml"/>
   <xi:include href="prefixes.xml"/>
   <xi:include href="ships.xml"/>
-  <xi:include href="buildings.xml"/>
+  <xi:include href="common/buildings.xml"/>
   <xi:include href="eressea/calendar.xml"/>
   <xi:include href="equipment.xml"/>
   <xi:include href="dungeons.xml"/>
@@ -116,7 +116,7 @@
   <xi:include href="eressea/items.xml"/>
   <xi:include href="eressea/artrewards.xml"/>
   <xi:include href="eressea/dungeons.xml"/>
-  <xi:include href="eressea/temple.xml"/>
+  <xi:include href="eressea/buildings.xml"/>
   <strings>
     <string name="mailto">
       <text locale="de">eressea-server@eressea.de</text>

src/res/hse-05-01.xml

@@ -76,7 +76,7 @@
   <xi:include href="eressea/races.xml"/>
   <xi:include href="eressea/items-hse05.xml"/>
   <xi:include href="eressea/dungeons.xml"/>
-  <xi:include href="eressea/temple.xml"/>
+  <xi:include href="eressea/buildings.xml"/>
   <strings>
     <string name="mailto">
       <text locale="de">hse-server@eressea.de</text>

src/res/hse4.xml

@@ -16,7 +16,7 @@
   <xi:include href="races.xml"/>
   <xi:include href="prefixes.xml"/>
   <xi:include href="ships.xml"/>
-  <xi:include href="buildings.xml"/>
+  <xi:include href="common/buildings.xml"/>
   <xi:include href="calendar.xml"/>
   <xi:include href="equipment.xml"/>
   <xi:include href="spells.xml"/>
@@ -79,7 +79,7 @@
   <xi:include href="eressea/races.xml"/>
   <xi:include href="eressea/items-hse.xml"/>
   <xi:include href="eressea/dungeons.xml"/>
-  <xi:include href="eressea/temple.xml"/>
+  <xi:include href="eressea/buildings.xml"/>
   <strings>
     <string name="newbie_info_1">
       <text locale="de">Bitte denke daran, deine Befehle mit dem Betreff ERESSEA BEFEHLE an hse-server@eressea.de zu senden. Am besten, du verwendest die Befehlsvorlage am Ende des Reports.</text>

src/res/vinyambar-3.xml

@@ -8,7 +8,8 @@
   <include href="races.xml" />
   <include href="resources.xml" />
   <include href="ships.xml" />
-  <include href="buildings.xml" />
+  <include href="common/buildings.xml" />
+  <xi:include href="eressea/buildings.xml"/>
 
   <game name="Kreis der Macht" units="250" welcome="vinyambar">
     <!-- Game specific -->

src/res/vinyambar-wdw.xml

@@ -16,7 +16,7 @@
   <xi:include href="races.xml"/>
   <xi:include href="prefixes.xml"/>
   <xi:include href="ships.xml"/>
-  <xi:include href="buildings.xml"/>
+  <xi:include href="common/buildings.xml"/>
   <xi:include href="calendar.xml"/>
   <xi:include href="equipment.xml"/>
   <xi:include href="spells.xml"/>

src/scripts/e3a/rules.lua

@@ -25,3 +25,23 @@ function item_canuse(u, iname)
   end
   return true
 end
+
+function building_protection(b, u)
+  return 1
+end
+
+function building_taxes(b)
+  btype = b.type
+  bsize = b.size
+  if btype=="castle" then
+    if bsize>=6250 then return 0.05 end
+    if bsize>=1250 then return 0.04 end
+    if bsize>=250 then return 0.03 end
+    if bsize>=50 then return 0.02 end
+    if bsize>=10 then return 0.01 end
+  elseif btype=="watch" then
+    if bsize>=10 then return 0.01 end
+    if bsize>=5 then return 0.005 end
+  end
+  return 0.0
+end

src/scripts/run-e3a.lua

@@ -30,7 +30,7 @@ function load_scripts()
   scripts = { 
     "spells.lua",
     "extensions.lua",
-    "e2k9/rules.lua"
+    "e3a/rules.lua"
   }
   for index, value in pairs(scripts) do
     loadscript(value)