--- deliantra/server/common/map.C	2007/09/09 06:25:45	1.128
+++ deliantra/server/common/map.C	2008/04/02 11:13:52	1.133
@@ -1,11 +1,11 @@
 /*
- * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
+ * This file is part of Deliantra, the Roguelike Realtime MMORPG.
  * 
- * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
+ * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
  * Copyright (©) 2001-2003,2007 Mark Wedel & Crossfire Development Team
  * Copyright (©) 1992,2007 Frank Tore Johansen
  * 
- * Crossfire TRT is free software: you can redistribute it and/or modify
+ * Deliantra 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 3 of the License, or
  * (at your option) any later version.
@@ -18,7 +18,7 @@
  * You should have received a copy of the GNU General Public License
  * along with this program. If not, see <http://www.gnu.org/licenses/>.
  * 
- * The authors can be reached via e-mail to <crossfire@schmorp.de>
+ * The authors can be reached via e-mail to <support@deliantra.net>
  */
 
 #include <unistd.h>
@@ -168,11 +168,11 @@
 }
 
 /*
- * Returns true if the given object can't fit in the given spot.
- * This is meant for multi space objects - for single space objecs,
+ * Returns qthe blocking object if the given object can't fit in the given
+ * spot.  This is meant for multi space objects - for single space objecs,
  * just calling get_map_blocked and checking that against movement type
- * of object. This function goes through all the parts of the
- * multipart object and makes sure they can be inserted.
+ * of object. This function goes through all the parts of the multipart
+ * object and makes sure they can be inserted.
  *
  * While this doesn't call out of map, the get_map_flags does.
  *
@@ -193,48 +193,33 @@
  * code, we need to have actual object to check its move_type
  * against the move_block values.
  */
-int
-ob_blocked (const object *ob, maptile *m, sint16 x, sint16 y)
+bool
+object::blocked (maptile *m, int x, int y) const
 {
-  archetype *tmp;
-  int flag;
-  maptile *m1;
-  sint16 sx, sy;
-
-  if (!ob)
+  for (archetype *tmp = arch; tmp; tmp = (archetype *)tmp->more)
     {
-      flag = get_map_flags (m, &m1, x, y, &sx, &sy);
-      if (flag & P_OUT_OF_MAP)
-        return P_OUT_OF_MAP;
-
-      /* don't have object, so don't know what types would block */
-      return m1->at (sx, sy).move_block;
-    }
+      mapxy pos (m, x + tmp->x, y + tmp->y);
 
-  for (tmp = ob->arch; tmp; tmp = (archetype *)tmp->more)
-    {
-      flag = get_map_flags (m, &m1, x + tmp->x, y + tmp->y, &sx, &sy);
+      if (!pos.normalise ())
+        return 1;
 
-      if (flag & P_OUT_OF_MAP)
-        return P_OUT_OF_MAP;
-      if (flag & P_IS_ALIVE)
-        return P_IS_ALIVE;
+      mapspace &ms = *pos;
 
-      mapspace &ms = m1->at (sx, sy);
+      if (ms.flags () & P_IS_ALIVE)
+        return 1;
 
-      /* find_first_free_spot() calls this function.  However, often
-       * ob doesn't have any move type (when used to place exits)
+      /* However, often  ob doesn't have any move type
+       * (signifying non-moving objects)
        * so the AND operation in OB_TYPE_MOVE_BLOCK doesn't work.
        */
-
-      if (ob->move_type == 0 && ms.move_block != MOVE_ALL)
+      if (!move_type && ms.move_block != MOVE_ALL)
         continue;
 
       /* Note it is intentional that we check ob - the movement type of the
        * head of the object should correspond for the entire object.
        */
-      if (OB_TYPE_MOVE_BLOCK (ob, ms.move_block))
-        return P_NO_PASS;
+      if (ms.blocks (move_type))
+        return 1;
     }
 
   return 0;
@@ -324,7 +309,7 @@
 {
   for (;;)
     {
-      coroapi::cede_to_tick_every (100); // cede once in a while
+      coroapi::cede_to_tick (); // cede once in a while
 
       switch (f.kw)
         {
@@ -334,7 +319,32 @@
                 if (op->inv)
                   sum_weight (op);
 
-                insert_ob_in_map (op, this, op, INS_NO_MERGE | INS_NO_WALK_ON | INS_ON_TOP | INS_MAP_LOAD);
+                if (IN_RANGE_EXC (op->x, 0, width) && IN_RANGE_EXC (op->y, 0, height))
+                  {
+                    // we insert manually because
+                    // a) its way faster
+                    // b) we remove manually, too, and there are good reasons for that
+                    // c) its correct
+                    mapspace &ms = at (op->x, op->y);
+
+                    op->flag [FLAG_REMOVED] = false;
+
+                    op->above = 0;
+                    op->below = ms.top;
+
+                    if (ms.top)
+                      ms.top->above = op;
+                    else
+                      ms.bot = op;
+
+                    ms.top = op;
+                    ms.flags_ = 0;
+                  }
+                else
+                  {
+                    f.parse_warn (format ("object %s out of range", op->debug_desc ()));
+                    op->destroy ();
+                  }
               }
 
             continue;
@@ -1612,11 +1622,11 @@
     return;
 
   for_all_players (pl)
-    if (pl->observe->map == this)
+    if (pl->ob->map == this)
       if (client *ns = pl->ns)
         {
-          int dx = x - pl->observe->x;
-          int dy = y - pl->observe->y;
+          int dx = x - pl->ob->x;
+          int dy = y - pl->ob->y;
 
           int distance = idistance (dx, dy);