--- deliantra/server/common/object.C	2007/07/01 05:00:17	1.163
+++ deliantra/server/common/object.C	2007/08/15 04:59:46	1.180
@@ -301,14 +301,14 @@
         return 0;
     }
 
-  //TODO: generate an event or call into perl for additional checks
   if (ob1->self || ob2->self)
     {
       ob1->optimise ();
       ob2->optimise ();
 
       if (ob1->self || ob2->self)
-        return 0;
+        if (!cfperl_can_merge (ob1, ob2))
+          return 0;
     }
 
   /* Everything passes, must be OK. */
@@ -962,6 +962,12 @@
   if (destroy_inventory)
     destroy_inv (false);
 
+  if (is_head ())
+    if (sound_destroy)
+      play_sound (sound_destroy);
+    else if (flag [FLAG_MONSTER])
+      play_sound (sound_find ("monster_destroy")); // quick hack, too lazy to create a generic mechanism
+
   attachable::destroy ();
 }
 
@@ -1085,28 +1091,24 @@
 
       int check_walk_off = !flag [FLAG_NO_APPLY];
 
+      if (object *pl = ms.player ())
+        {
+          if (pl->container == this)
+            /* If a container that the player is currently using somehow gets
+             * removed (most likely destroyed), update the player view
+             * appropriately.
+             */
+            pl->close_container ();
+
+          pl->contr->ns->floorbox_update ();
+        }
+
       for (tmp = ms.bot; tmp; tmp = tmp->above)
         {
           /* No point updating the players look faces if he is the object
            * being removed.
            */
 
-          if (tmp->type == PLAYER && tmp != this)
-            {
-              /* If a container that the player is currently using somehow gets
-               * removed (most likely destroyed), update the player view
-               * appropriately.
-               */
-              if (tmp->container == this)
-                {
-                  flag [FLAG_APPLIED] = 0;
-                  tmp->container = 0;
-                }
-
-              if (tmp->contr->ns)
-                tmp->contr->ns->floorbox_update ();
-            }
-
           /* See if object moving off should effect something */
           if (check_walk_off
               && ((move_type & tmp->move_off)
@@ -1238,14 +1240,6 @@
 
   op->remove ();
 
-#if 0
-  if (!m->active != !op->active)
-    if (m->active)
-      op->activate_recursive ();
-    else
-      op->deactivate_recursive ();
-#endif
-
   if (out_of_map (m, op->x, op->y))
     {
       LOG (llevError, "Trying to insert object outside the map.\n%s\n", op->debug_desc ());
@@ -1377,7 +1371,6 @@
                 top = last->below;
             }
         }                       /* If objects on this space */
-
       if (flag & INS_MAP_LOAD)
         top = ms.top;
 
@@ -1422,13 +1415,9 @@
 
   op->map->dirty = true;
 
-  /* If we have a floor, we know the player, if any, will be above
-   * it, so save a few ticks and start from there.
-   */
   if (!(flag & INS_MAP_LOAD))
     if (object *pl = ms.player ())
-      if (pl->contr->ns)
-        pl->contr->ns->floorbox_update ();
+      pl->contr->ns->floorbox_update ();
 
   /* If this object glows, it may affect lighting conditions that are
    * visible to others on this map.  But update_all_los is really
@@ -2346,7 +2335,6 @@
  *
  * Add a check so we can't pick up invisible objects (0.93.8)
  */
-
 int
 can_pick (const object *who, const object *item)
 {
@@ -2642,13 +2630,10 @@
 const materialtype_t *
 object::dominant_material () const
 {
-  if (materialtype_t *mat = name_to_material (materialname))
-    return mat;
+  if (materialtype_t *mt = name_to_material (materialname))
+    return mt;
 
-  // omfg this is slow, this has to be temporary :)
-  shstr unknown ("unknown");
-
-  return name_to_material (unknown);
+  return name_to_material (shstr_unknown);
 }
 
 void
@@ -2674,6 +2659,7 @@
 
       esrv_update_item (UPD_FLAGS, this, old_container);
       new_draw_info_format (NDI_UNIQUE, 0, this, "You close %s.", query_name (old_container));
+      play_sound (sound_find ("chest_close"));
     }
 
   if (new_container)
@@ -2699,7 +2685,57 @@
 
       esrv_update_item (UPD_FLAGS, this, new_container);
       esrv_send_inventory (this, new_container);
+      play_sound (sound_find ("chest_open"));
     }
 }
 
+object *
+object::force_find (const shstr name)
+{
+  /* cycle through his inventory to look for the MARK we want to 
+   * place 
+   */
+  for (object *tmp = inv; tmp; tmp = tmp->below)
+    if (tmp->type == FORCE && tmp->slaying == name)
+      return splay (tmp);
+
+  return 0;
+}
+
+void
+object::force_add (const shstr name, int duration)
+{
+  if (object *force = force_find (name))
+    force->destroy ();
+
+  object *force = get_archetype (FORCE_NAME);
+
+  force->slaying    = name;
+  force->stats.food = 1;
+  force->speed_left = -1.f;
+
+  force->set_speed (duration ? 1.f / duration : 0.f);
+  force->flag [FLAG_IS_USED_UP] = true;
+  force->flag [FLAG_APPLIED]    = true;
+
+  insert (force);
+}
+
+void
+object::play_sound (faceidx sound) const
+{
+  if (!sound)
+    return;
+
+  if (flag [FLAG_REMOVED])
+    return;
+
+  if (env)
+    {
+      if (object *pl = in_player ())
+        pl->contr->play_sound (sound);
+    }
+  else
+    map->play_sound (sound, x, y);
+}