[ViewVC] Diff of: cvs/deliantra/server/common/loader.C

Comparing deliantra/server/common/loader.C (file contents):
Revision 1.19 by root, Thu Sep 21 00:05:24 2006 UTC vs.
Revision 1.33 by root, Sun Dec 31 17:17:22 2006 UTC

    variable. */
 #include <global.h>
 #include <loader.h>
-#include <newserver.h>
 #include <sproto.h>
 /* Maps the MOVE_* values to names */
 static const char *const move_name[] = { "walk", "fly_low", "fly_high", "swim", "boat", NULL };
   if (!op->name_pl)
     op->name_pl = op->name;
   /* objects now have a materialname.  try to patch it in */
-  if (!(IS_WEAPON (op) && op->level > 0))
+  if (!(op->is_weapon () && op->level > 0))
     {
       if (op->map != NULL)
         set_materialname (op, op->map->difficulty, NULL);
       else
         set_materialname (op, 5, NULL);
     SET_FLAG (op, flag);        \
   else                          \
     CLEAR_FLAG (op, flag)       \
 int
-parse_object (object *op, object_thawer & thawer, int map_flags)
+parse_object (object *op, object_thawer &thawer, int map_flags)
 {
   bool ismore = 0;
   object *op_inv = op->inv;
   for (;;)
         {
           case KW_Object:    // uppercase alias
           case KW_object:
             thawer.get (op->name);
-            if (op->arch != NULL)
+            if (op->arch)
               op->arch->name = op->name;
             break;
           case KW_uuid:
           case KW_slaying:      thawer.get_ornull (op->slaying); break;
           case KW_arch:
             {
               const char *str = thawer.get_str ();
+              fprintf (stderr, "arch %s\n", str);//D
               if (op->arch)
                 {
                   /* If op->arch has been set, then this new object
                    * must be part of the inventory.  So process
                    */
                   archetype *arch = archetype::find (str);
                   object *tmp;
-                  if (arch != NULL)
+                  if (arch)
                     tmp = arch_to_object (arch);
                   else
                     {
-                      tmp = get_object ();
+                      tmp = object::create ();
                       /* record the name of the broken object */
                       tmp->name = str;
                     }
+                  // decativate the object we, as we are still going
+                  // to read the speed value. Objects should be activated
+                  // when the map, object or player is completly loaded.
+                  tmp->deactivate ();
                   parse_object (tmp, thawer, map_flags);
                   if (tmp->arch)
                     {
                       op_inv = tmp;
                     }
                   else
                     {
                       LOG (llevDebug, "Discarding object without arch: %s\n", tmp->name ? (const char *) tmp->name : "(null)");
-                      free_object (tmp);
+                      tmp->destroy ();
                     }
                 }
               else
                 {
                   /* This is the actual archetype definition then */
                   op->arch = archetype::find (str);
-                  if (op->arch != NULL)
+                  if (op->arch)
-                    copy_object (&op->arch->clone, op);
+                    {
+                      op->arch->clone.copy_to (op);
+                      // copy_to activates, this should be fixed properly
+                      op->deactivate ();
+                    }
                   else if (!arch_init)
                     /* record the name of the broken object */
                     op->name = str;
                 }
             }
           case KW_speed:
             thawer.get (op->speed);
             //TODO: maybe do in check_object
-            if (!(map_flags & MAP_STYLE))
+            // removed check for style maps
-              {
-                if (op->speed < 0)
+            if (op->speed < 0)
-                  op->speed_left = op->speed_left - RANDOM () % 100 / 100.0;
+              op->speed_left = op->speed_left - RANDOM () % 100 / 100.0;
-                update_ob_speed (op);
-              }
             break;
           case KW_slow_move:
             op->move_slow |= MOVE_WALK;
           case KW_no_damage:            GET_FLAG (op, FLAG_NO_DAMAGE); break;
           case KW_generator:            GET_FLAG (op, FLAG_GENERATOR); break;
           case KW_use_content_on_gen:   GET_FLAG (op, FLAG_CONTENT_ON_GEN); break;
           case KW_is_thrown:            GET_FLAG (op, FLAG_IS_THROWN); break;
           case KW_auto_apply:           GET_FLAG (op, FLAG_AUTO_APPLY); break;
-          case KW_treasure:             GET_FLAG (op, FLAG_TREASURE); break;
           case KW_see_invisible:        GET_FLAG (op, FLAG_SEE_INVISIBLE); break;
           case KW_can_roll:             GET_FLAG (op, FLAG_CAN_ROLL); break;
           case KW_overlay_floor:        GET_FLAG (op, FLAG_OVERLAY_FLOOR); break;
           case KW_is_turnable:          GET_FLAG (op, FLAG_IS_TURNABLE); break;
           case KW_is_used_up:           GET_FLAG (op, FLAG_IS_USED_UP); break;
           case KW_randomitems:
             op->randomitems = find_treasurelist (thawer.get_str ());
             break;
           case KW_msg:
-            {
-              thawer.get_ml (KW_endmsg, op->msg);
+            thawer.get_ml (KW_endmsg, op->msg);
-              //TODO: allow longer messages
+            //TODO: allow longer messages
-              if (strlen (op->msg) >= HUGE_BUF)
+            if (strlen (op->msg) >= HUGE_BUF)
-                {
+              {
-                  LOG (llevDebug, "\n\tError message length >= %d: %d\n>%.80s<\n", HUGE_BUF, strlen (op->msg), &op->msg);
+                LOG (llevDebug, "\n\tError message length >= %d: %d\n>%.80s<\n", HUGE_BUF, strlen (op->msg), &op->msg);
-                  op->msg = "ERROR, please report: string too long, winged.\n";
+                op->msg = "ERROR, please report: string too long, winged.\n";
-                }
+              }
-            }
             break;
           case KW_lore:
-            {
-              shstr msgbuf;
-              thawer.get_ml (KW_endlore, op->lore);
+            thawer.get_ml (KW_endlore, op->lore);
-              //TODO: allow longer messages
+            //TODO: allow longer messages
-              /* Just print a warning so we can be reasonably safe
+            /* Just print a warning so we can be reasonably safe
-               * about not overflowing the buffer.
+             * about not overflowing the buffer.
-               */
+             */
-              if (strlen (op->lore) > (HUGE_BUF / 2))
+            if (strlen (op->lore) > (HUGE_BUF / 2))
-                LOG (llevDebug, "\n\tWarning lore length > %d (max allowed=%d): %d\n>%.80s<\n",
+              LOG (llevDebug, "\n\tWarning lore length > %d (max allowed=%d): %d\n>%.80s<\n",
-                     HUGE_BUF / 2, HUGE_BUF, strlen (op->lore), &op->lore);
+                   HUGE_BUF / 2, HUGE_BUF, strlen (op->lore), &op->lore);
-            }
             break;
           case KW_editable:
           case KW_editor_folder:
             break;
           case KW_EOF:
             return LL_EOF;
           case KW_ERROR:
-            set_ob_key_value (op, thawer.line, thawer.last_value, true);
+            set_ob_key_value (op, thawer.last_keyword, thawer.last_value, true);
-            //printf ("addkv(%s,%s)\n", thawer.line, thawer.get_str());//D
+            //fprintf (stderr, "addkv(%s,%s)\n", thawer.last_keyword, thawer.last_value);//D
-            //TODO: skip line, ugly, factor parsing better
-            if (thawer.last_value)
-              thawer.line = thawer.last_value;
-            thawer.line += strlen (thawer.line) + 1;
             break;
           default:
             LOG (llevError, "UNSUPPORTED KEYWORD IN MAP: \"%s\", bug in normaliser. skipping.\n", keyword_str[kw]);
             break;
  *  LO_NEWFILE (2): This is the first read from a particular file, so the buffers should
  *      be reset.
  *  LO_NOREAD (3): Reset the buffers, but don't read from it. (op can be null)
  *
  */
 int
-load_object (object_thawer & fp, object *op, int map_flags)
+load_object (object_thawer &fp, object *op, int map_flags)
 {
+  // cede every 500 objects loaded
+  {
+    static int cede_counter = 0;
+    if (++cede_counter >= 500)
+      {
+        cede_counter = 0;
+        if (coroapi::nready ())
+          coroapi::cede ();
+      }
+  }
   return parse_object (op, fp, map_flags);
 }
 /* This takes a buffer, scans it for variables, and sets those variables
  * as appropriate in op.
  *
  * This function appears to be used in only 2 places - in crossedit to
  * override values and in c_wiz to mutate values.
  */
 int
 set_variable (object *op, char *buf)
 {
-  return 0;
-#if 0
-  int retval;
-  object_thawer thawer (0);
+  object_thawer thawer (buf, (AV *)0);
-  strcpy (msgbuf, "");
-  strcpy (lorebuf, "");
-  retval = parse_object (op, thawer, 0);
+  return parse_object (op, thawer, 0);
-  yy_switch_to_buffer (yycurbuf);
-  yy_delete_buffer (yybufstate);
-  yy_pop_state ();
-  return retval;
-#endif
 }
 /*
  * Initialises the array of variable-names.  Needed before any
  * objects can be loaded.  Called by init_library().
     KW_monster,
     KW_friendly,
     KW_generator,
     KW_is_thrown,
     KW_auto_apply,
-    KW_treasure,
+    KW_NULL, // was KW_treasure
     KW_player_sold,
     /* 20 */
     KW_see_invisible,
     KW_can_roll,
     KW_overlay_floor,
       if (!arch_field || my_field->value != arch_field->value)
         f.put (my_field->key, my_field->value);
     }
   /* We don't need to worry about the arch's extra fields - they
-   * will get taken care of the copy_object function.
+   * will get taken care of the copy_to method.
    */
   {
     char uids[64];
     snprintf (uids, sizeof (uids), "<1.%llx>", (unsigned long long)op->uuid.seq);
   CMP_OUT (move_on);
   CMP_OUT (move_off);
   CMP_OUT (move_slow);
   CMP_OUT (move_slow_penalty);
-  if (!COMPARE_FLAGS (op, tmp))
+  if (op->flag != tmp->flag)
     for (i = 0; i <= NUM_FLAGS; i++)
-      if (flag_names[i] && (QUERY_FLAG (op, i) != QUERY_FLAG (tmp, i)))
+      if (flag_names [i] && op->flag [i] != tmp->flag [i])
-        f.put (flag_names[i], QUERY_FLAG (op, i) ? "1" : "0");
+        f.put (flag_names [i], op->flag [i] ? "1" : "0");
   /* Save body locations */
   for (i = 0; i < NUM_BODY_LOCATIONS; i++)
     if (op->body_info[i] != tmp->body_info[i])
       f.put (body_locations[i].save_name, op->body_info[i]);
 /*
  * Dumps all variables in an object to a file.
  * If bit 0 of flag is set, unpaid objects will be saved.  As of now,
  * the only place this is not set is when saving the player.
- * If bit 1 of flag is set, don't remove the object after save.  As of now,
- * all of the callers are setting this.
  */
 void
-save_object (object_freezer & fp, object *op, int flag)
+save_object (object_freezer &fp, object *op, int flag)
 {
-  archetype *at;
-  object *tmp, *old;
   /* Even if the object does have an owner, it would seem that we should
    * still save it.
    */
   if (op->owner)
     return;
   /* If it is unpaid and we don't want to save those, just return. */
-  if (!(flag & 1) && (QUERY_FLAG (op, FLAG_UNPAID)))
+  if (!(flag & 1) && op->flag [FLAG_UNPAID])
     return;
-  if ((at = op->arch) == NULL)
+  archetype *at = op->arch ? (archetype *)op->arch : empty_archetype;
-    at = empty_archetype;
   fp.put (KW_arch, at->name);
   put (fp, op, &at->clone);
   /* Eneq(@csd.uu.se): Added this to allow containers being saved with contents */
-  old = NULL;
-  if (flag & 2)
-    for (tmp = op->inv; tmp != NULL; tmp = tmp->below)
+  for (object *tmp = op->inv; tmp; tmp = tmp->below)
-      save_object (fp, tmp, flag);
+    save_object (fp, tmp, flag);
-  else
-    /* Slightly different logic because tmp/op will be removed by
-     * the save_object we call.  So we just keep looking at op->inv
-     * until there is nothing left.  In theory, the variable old
-     * should not be needed, as recursive loops shouldn't happen.
-     */
-    while ((tmp = op->inv) != NULL)
-      {
-        if (old == tmp)
-          {
-            LOG (llevError, " Recursive loop in inventory\n");
-            break;
-          }
-        save_object (fp, tmp, flag);
-        old = tmp;
-      }
-  if (!(flag & 2))
-    {
-      remove_ob (op);
-      free_object (op);
-    }
   fp.put (op);
-  fprintf (fp, "end\n");
+  fp.put (KW_end);
 }

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/server/common/loader.C (file contents): Revision 1.19 by root, Thu Sep 21 00:05:24 2006 UTC vs. Revision 1.33 by root, Sun Dec 31 17:17:22 2006 UTC

Diff Legend

Comparing deliantra/server/common/loader.C (file contents):
Revision 1.19 by root, Thu Sep 21 00:05:24 2006 UTC vs.
Revision 1.33 by root, Sun Dec 31 17:17:22 2006 UTC