--- deliantra/server/common/region.C	2007/02/01 19:15:56	1.22
+++ deliantra/server/common/region.C	2007/07/01 05:00:18	1.33
@@ -1,32 +1,29 @@
 /*
- * CrossFire, A Multiplayer game for X-windows
+ * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
  * 
- * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
- * Copyright (C) 2001-2003 Mark Wedel & Crossfire Development Team
- * Copyright (C) 1992 Frank Tore Johansen
+ * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
+ * Copyright (©) 2001-2003,2007 Mark Wedel & Crossfire Development Team
+ * Copyright (©) 1992,2007 Frank Tore Johansen
  * 
- * This program is free software; you can redistribute it and/or modify
+ * Crossfire TRT is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
+ * the Free Software Foundation, either version 3 of the License, or
  * (at your option) any later version.
  * 
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  * GNU General Public License for more details.
  * 
  * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- *
- * The authors can be reached via e-mail at <crossfire@schmorp.de>
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ * 
+ * The authors can be reached via e-mail to <crossfire@schmorp.de>
  */
 
 #include <global.h>
 #include <unistd.h>
 
-#include "loader.h"
-
 regionvec regions;
 
 region *
@@ -183,75 +180,67 @@
   return 0;
 }
 
-region *loader_region::get_region (const char *name)
+region *
+region::read (object_thawer &f)
 {
-  region *rgn = new region;
-  rgn->name = name;
-  return rgn;
-}
+  assert (f.kw == KW_region);
 
-void loader_region::put_region (region *rgn)
-{
-  for_all_regions (old)
-    if (old->name == rgn->name)
-      {
-        // replace, copy new values (ugly)
-        rgn->index = old->index;
-        *old = *rgn;
-        delete rgn;
-
-        return;
-      }
-
-  // just append
-  regions.push_back (rgn);
-}
+  region *rgn = new region;
+  f.get (rgn->name);
+  f.next ();
 
-bool
-loader_base::parse_region (object_thawer &thawer, region *rgn)
-{
   for (;;)
     {
-      keyword kw = thawer.get_kv ();
-
-      switch (kw)
+      switch (f.kw)
         {
           case KW_parent:
-            rgn->parent = region::find (thawer.get_str ());
+            rgn->parent = region::find (f.get_str ());
             break;
 
-          case KW_longname:
-           thawer.get (rgn->longname);
-           break;
-
-          case KW_jail_map:
-           thawer.get (rgn->jailmap);
-           break;
-
-          case KW_jail_x:
-           thawer.get (rgn->jailx);
-           break;
-
-          case KW_jail_y:
-           thawer.get (rgn->jaily);
-           break;
-
-          case KW_msg:
-            thawer.get_ml (KW_endmsg, rgn->msg);
-            break;
+          case KW_msg:        f.get_ml (KW_endmsg, rgn->msg); break;
+          case KW_longname:   f.get (rgn->longname); break;
+          case KW_match:      f.get (rgn->match);    break;
+          case KW_jail_map:   f.get (rgn->jailmap);  break;
+          case KW_jail_x:     f.get (rgn->jailx);    break;
+          case KW_jail_y:     f.get (rgn->jaily);    break;
+          case KW_portal_map: f.get (rgn->portalmap);break;
+          case KW_portal_x:   f.get (rgn->portalx);  break;
+          case KW_portal_y:   f.get (rgn->portaly);  break;
+          case KW_fallback:   f.get (rgn->fallback); break;
+          case KW_chance:     f.get (rgn->treasure_density); break;
 
-          case KW_fallback:
-            thawer.get (rgn->fallback);
+          case KW_randomitems:
+            rgn->treasure = treasurelist::get (f.get_str ());
             break;
 
           case KW_end:
-            return true;
+            f.next ();
+
+            for_all_regions (old)
+              if (old->name == rgn->name)
+                {
+                  // replace, copy new values (ugly)
+                  rgn->index = old->index;
+                  *old = *rgn;
+                  delete rgn;
+
+                  return old;
+                }
+
+            // just append
+            regions.push_back (rgn);
+            return rgn;
 
           default:
-            if (!thawer.parse_error (kw, "region", rgn->name))
-              return false;
+            if (!f.parse_error ("region", rgn->name))
+              {
+                delete rgn;
+                return 0;
+              }
             break;
         }
+
+      f.next ();
     }
 }
 
@@ -259,14 +248,10 @@
  * First initialises the archtype hash-table (init_archetable()).
  * Reads and parses the archetype file (with the first and second-pass
  * functions).
- * Then initialises treasures by calling load_treasures().
  */
 void
 init_regions (void)
 {
-  char filename[MAX_BUF];
-  int comp;
-
   if (!regions.size ())
     {
       // make sure one region is always available
@@ -275,17 +260,5 @@
       rgn->longname = "Built-in Region";
       regions.push_back (rgn);
     }
-
-  sprintf (filename, "%s/%s/%s", settings.datadir, settings.mapdir, settings.regions);
-  LOG (llevDebug, "Reading regions from %s...\n", filename);
-
-  loader_region loader;
-
-  if (!loader.load (filename))
-    {
-      LOG (llevError, "Can't open regions file %s in init_regions.\n", filename);
-      return;
-    }
-
-  LOG (llevDebug, " done\n");
 }
+