--- deliantra/server/common/loader.C	2007/01/18 19:42:09	1.47
+++ deliantra/server/common/loader.C	2007/02/01 19:40:42	1.53
@@ -26,11 +26,170 @@
    sub/add_weight will transcend the environment updating the carrying
    variable. */
 
-
 #include <global.h>
 #include <loader.h>
 #include <sproto.h>
 
+/////////////////////////////////////////////////////////////////////////////
+
+loader_base::~loader_base ()
+{
+}
+
+// the base class warns about and skips everything
+archetype *
+loader_base::get_arch (const char *name)
+{
+  LOG (llevError, "%s: found archetype definition '%s', which is not allowed in files of this type.\n",
+       filename, name);
+
+  return new archetype;
+}
+
+object *
+loader_base::get_object  (const char *name)
+{
+  LOG (llevError, "%s: found object definition '%s', which is not allowed in files of this type.\n",
+       filename, name);
+
+  return object::create ();
+}
+
+player *
+loader_base::get_player  ()
+{
+  LOG (llevError, "%s: found player definition, which is not allowed in files of this type.\n",
+       filename);
+
+  return player::create ();
+}
+
+region *
+loader_base::get_region  (const char *name)
+{
+  LOG (llevError, "%s: found region definition '%s', which is not allowed in files of this type.\n",
+       filename, name);
+
+  return new region;
+}
+
+facetile *
+loader_base::get_face  (const char *name)
+{
+  LOG (llevError, "%s: found face definition '%s', which is not allowed in files of this type.\n",
+       filename, name);
+
+  return new facetile;
+}
+
+treasurelist *
+loader_base::get_treasure (const char *name, bool one)
+{
+  LOG (llevError, "%s: found treasure definition '%s', which is not allowed in files of this type.\n",
+       filename, name);
+
+  return new treasurelist;//D
+}
+
+animation *
+loader_base::get_animation (const char *name)
+{
+  LOG (llevError, "%s: found animation definition '%s', which is not allowed in files of this type.\n",
+       filename, name);
+
+  return new animation;
+}
+
+void 
+loader_base::put_arch       (archetype *arch)
+{
+  delete arch;
+}
+
+void 
+loader_base::put_object     (object *op)
+{
+  op->destroy ();
+}
+
+void 
+loader_base::put_player     (player *pl)
+{
+  delete pl;
+}
+
+void 
+loader_base::put_region     (region *region)
+{
+  delete region;
+}
+
+void 
+loader_base::put_face       (facetile *face)
+{
+  delete face;
+}
+
+void 
+loader_base::put_treasure (treasurelist *treasure)
+{
+  delete treasure;
+}
+
+void 
+loader_base::put_animation (animation *anim)
+{
+  delete anim;
+}
+
+/////////////////////////////////////////////////////////////////////////////
+
+bool loader_base::parse (object_thawer &thawer)
+{
+  for (;;)
+    {
+      keyword kw = thawer.get_kv ();
+
+      switch (kw)
+        {
+          case KW_region:
+            {
+              region *rgn = get_region (thawer.get_str ());
+
+              if (!parse_region (thawer, rgn))
+                {
+                  delete rgn;
+                  return false;
+                }
+
+              put_region (rgn);
+            }
+            break;
+
+          case KW_EOF:
+            return true;
+
+          default:
+            if (!thawer.parse_error (kw, "resource file"))
+              return false;
+        }
+    }
+}
+
+bool loader_base::load (const char *filename)
+{
+  this->filename = filename;
+
+  object_thawer fp (filename);
+
+  if (!fp)
+    return false;
+
+  return parse (fp);
+}
+
+/////////////////////////////////////////////////////////////////////////////
+
 /* Maps the MOVE_* values to names */
 static const char *const move_name[] = { "walk", "fly_low", "fly_high", "swim", "boat", NULL };
 
@@ -376,7 +535,10 @@
   if (QUERY_FLAG (op, FLAG_MONSTER))
     {
       if (op->stats.hp > op->stats.maxhp)
-        LOG (llevDebug, "Monster %s has hp set higher than maxhp (%d>%d)\n", op->debug_desc (), op->stats.hp, op->stats.maxhp);
+        {
+          LOG (llevDebug, "Monster %s has hp set higher than maxhp (%d>%d)\n", op->debug_desc (), op->stats.hp, op->stats.maxhp);
+          op->stats.maxhp = op->stats.hp;
+        }
 
       /* The archs just need to be updated for this */
       if (op->move_type == 0)
@@ -1034,7 +1196,8 @@
             break;
 
           default:
-            LOG (llevError, "UNSUPPORTED KEYWORD IN MAP: \"%s\", bug in normaliser. skipping.\n", keyword_str[kw]);
+            if (!thawer.parse_error (kw, "object", op->name))
+              return false;
             break;
         }
     }