--- deliantra/server/common/loader.C	2007/07/01 05:00:17	1.90
+++ deliantra/server/common/loader.C	2007/09/04 05:43:20	1.100
@@ -603,6 +603,10 @@
               LOG (llevError, "%s uses unknown other_arch '%s'.\n", debug_desc (), f.get_str ());
             break;
 
+          case KW_owner:
+            f.delayed_deref (this, owner, f.get_str ());
+            break;
+
           case KW_animation:
             {
               CLEAR_FLAG (this, FLAG_ANIMATE);
@@ -639,6 +643,18 @@
             face = face_find (f.get_str ());
             break;
 
+          case KW_sound:
+            sound = sound_find (f.get_str ());
+            if (!sound)
+              f.parse_warn ("sound not found");
+            break;
+
+          case KW_sound_destroy:
+            sound_destroy = sound_find (f.get_str ());
+            if (!sound_destroy)
+              f.parse_warn ("sound not found");
+            break;
+
           case KW_x: f.get (x); break;
           case KW_y: f.get (y); break;
 
@@ -960,23 +976,10 @@
 
           case KW_msg:
             f.get_ml (KW_endmsg, msg);
-            //TODO: allow longer messages
-            if (strlen (msg) >= HUGE_BUF)
-              {
-                LOG (llevDebug, "\tError message length >= %d: %d\n>%.80s<\n", HUGE_BUF, strlen (msg), &msg);
-                msg = "ERROR, please report: string too long, winged.\n";
-              }
             break;
 
           case KW_lore:
             f.get_ml (KW_endlore, lore);
-            //TODO: allow longer messages
-            /* Just print a warning so we can be reasonably safe
-             * about not overflowing the buffer.
-             */
-            if (strlen (lore) > (HUGE_BUF / 2))
-              LOG (llevDebug, "\tWarning lore length > %d (max allowed=%d): %d\n>%.80s<\n",
-                   HUGE_BUF / 2, HUGE_BUF, strlen (lore), &lore);
             break;
 
           case KW_editable:
@@ -1050,7 +1053,6 @@
 {
   object_thawer f (buf, (AV *)0);
 
-  f.next ();
   return op->parse_kv (f);
 }
 
@@ -1272,8 +1274,11 @@
     f.put (KW_uuid, (const char *)uids);
   }
 
-#define CMP_OUT(v)    if (op->v != tmp->v) f.put (KW_ ## v, op->v)
-#define CMP_OUT2(k,v) if (op->v != tmp->v) f.put (KW_ ## k, op->v)
+#define CMP_OUT(v)    if (expect_false (op->v != tmp->v)) f.put (KW_ ## v, op->v)
+#define CMP_OUT2(k,v) if (expect_false (op->v != tmp->v)) f.put (KW_ ## k, op->v)
+
+  if (object *owner = op->owner)
+    f.put (KW_owner, static_cast<const char *>(owner->ref ()));
 
   CMP_OUT (name);
   CMP_OUT (name_pl);
@@ -1281,15 +1286,14 @@
   CMP_OUT (title);
   CMP_OUT (race);
   CMP_OUT (slaying);
-
-  if (op->msg != tmp->msg)
-    f.put (KW_msg, KW_endmsg, op->msg);
-  if (op->lore != tmp->lore)
-    f.put (KW_lore, KW_endlore, op->lore);
-
   CMP_OUT (other_arch);
 
-  if (op->face != tmp->face) f.put (KW_face, op->face ? &faces [op->face] : 0);
+  if (op->msg  != tmp->msg ) f.put (KW_msg , KW_endmsg , op->msg );
+  if (op->lore != tmp->lore) f.put (KW_lore, KW_endlore, op->lore);
+
+  if (op->face          != tmp->face         ) f.put (KW_face         , op->face          ? &faces [op->face         ] : 0);
+  if (op->sound         != tmp->sound        ) f.put (KW_sound        , op->sound         ? &faces [op->sound        ] : 0);
+  if (op->sound_destroy != tmp->sound_destroy) f.put (KW_sound_destroy, op->sound_destroy ? &faces [op->sound_destroy] : 0);
 
   if (op->animation_id != tmp->animation_id)
     if (op->animation_id)
@@ -1297,10 +1301,10 @@
         f.put (KW_animation, animations[GET_ANIM_ID (op)].name);
 
         if (!QUERY_FLAG (op, FLAG_ANIMATE))
-          f.put (KW_is_animated, (sint32) 0);
+          f.put (KW_is_animated, (sint32)0);
       }
     else
-      f.put (KW_animation, (const char *) 0);
+      f.put (KW_animation, (const char *)0);
 
   CMP_OUT2 (str, stats.Str);
   CMP_OUT2 (dex, stats.Dex);
@@ -1341,7 +1345,7 @@
   CMP_OUT (attacktype);
 
   for (i = 0; i < NROFATTACKS; i++)
-    if (op->resist[i] != tmp->resist[i])
+    if (expect_false (op->resist[i] != tmp->resist[i]))
       f.put (resist_save[i], op->resist[i]);
 
   CMP_OUT (path_attuned);
@@ -1393,12 +1397,12 @@
 
   if (op->flag != tmp->flag)
     for (i = 0; i <= NUM_FLAGS; i++)
-      if (flag_names [i] && op->flag [i] != tmp->flag [i])
+      if (expect_false (flag_names [i] && op->flag [i] != tmp->flag [i]))
         f.put (flag_names [i], op->flag [i] ? "1" : "0");
 
   // save body locations
   for (i = 0; i < NUM_BODY_LOCATIONS; i++)
-    if (op->slot[i].info != tmp->slot[i].info)
+    if (expect_false (op->slot[i].info != tmp->slot[i].info))
       f.put (body_locations[i].save_name, op->slot[i].info);
 }
 
@@ -1410,12 +1414,6 @@
 bool
 object::write (object_freezer &f)
 {
-  /* Even if the object does have an owner, it would seem that we should
-   * still save it.
-   */
-  if (owner)
-    return true;
-
   archetype *at = arch ? (archetype *)arch : empty_archetype;
 
   f.put (KW_arch, at->archname);
@@ -1441,8 +1439,6 @@
   bool success   = false;
   bool seen_arch = false;
 
-  f.next ();
-
   for (;;)
     {
       switch (f.kw)