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

Comparing deliantra/server/common/object.C (file contents):
Revision 1.300 by root, Mon Nov 9 03:08:23 2009 UTC vs.
Revision 1.319 by root, Sat Apr 3 02:29:40 2010 UTC

 /*
  * This file is part of Deliantra, the Roguelike Realtime MMORPG.
  *
- * Copyright (©) 2005,2006,2007,2008,2009 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
+ * Copyright (©) 2005,2006,2007,2008,2009,2010 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
- * Copyright (©) 2001,2007 Mark Wedel & Crossfire Development Team
+ * Copyright (©) 2001 Mark Wedel & Crossfire Development Team
- * Copyright (©) 1992,2007 Frank Tore Johansen
+ * Copyright (©) 1992 Frank Tore Johansen
  *
  * Deliantra is free software: you can redistribute it and/or modify it under
  * the terms of the Affero GNU General Public License as published by the
  * Free Software Foundation, either version 3 of the License, or (at your
  * option) any later version.
 #include <stdio.h>
 #include <sys/types.h>
 #include <sys/uio.h>
 #include <object.h>
 #include <sproto.h>
-#include <loader.h>
 #include <bitset>
 UUID UUID::cur;
 static uint64_t seq_next_save;
   CALL_CALL ("cf::write_uuid", G_DISCARD);
   CALL_END;
 }
 static void
-read_uuid (void)
+read_uuid ()
 {
   char filename[MAX_BUF];
   sprintf (filename, "%s/uuid", settings.localdir);
  * Improvements made with merge:  Better checking on potion, and also
  * check weight
  */
 bool object::can_merge_slow (object *ob1, object *ob2)
 {
-  /* A couple quicksanity checks */
+  /* A couple quick sanity checks */
   if (ob1 == ob2
       || ob1->type  != ob2->type
-      || fabs (ob1->speed - ob2->speed) >= MIN_ACTIVE_SPEED
       || ob1->value != ob2->value
-      || ob1->name  != ob2->name)
+      || ob1->name  != ob2->name
+      || fabs (ob1->speed - ob2->speed) >= MIN_ACTIVE_SPEED)
     return 0;
   /* Do not merge objects if nrof would overflow, assume nrof
    * is always 0 .. 2**31-1 */
   if (ob1->nrof > 0x7fffffff - ob2->nrof)
       || ob1->magic        != ob2->magic
       || ob1->slaying      != ob2->slaying
       || ob1->skill        != ob2->skill
       || ob1->value        != ob2->value
       || ob1->animation_id != ob2->animation_id
-      || (ob1->face != ob2->face && !ob1->animation_id) // face and animation are dependent on each other
+      || (ob1->face != ob2->face && !ob1->animation_id) // face and animation are dependend on each other
       || ob1->client_type  != ob2->client_type
-      || ob1->materialname != ob2->materialname
+      || ob1->material     != ob2->material
       || ob1->lore         != ob2->lore
       || ob1->subtype      != ob2->subtype
       || ob1->move_type    != ob2->move_type
       || ob1->move_block   != ob2->move_block
       || ob1->move_allow   != ob2->move_allow
   return 0;
 }
 /*
+ * Returns the object which has the uuid equal to the argument.
+ * MOAR VERRRY slow.
+ */
+object *
+find_object_uuid (UUID i)
+{
+  for_all_objects (op)
+   if (op->uuid == i)
+     return op;
+  return 0;
+}
+/*
  * Returns the first object which has a name equal to the argument.
  * Used only by the patch command, but not all that useful.
  * Enables features like "patch <name-of-other-player> food 999"
  */
 object *
       LOG (llevError | logBacktrace, "tried to set owner of %s to %s\n", debug_desc (), owner->debug_desc ());
       return;
     }
   this->owner = owner;
-}
-int
-object::slottype () const
-{
-  if (type == SKILL)
-    {
-      if (IS_COMBAT_SKILL (subtype)) return slot_combat;
-      if (IS_RANGED_SKILL (subtype)) return slot_ranged;
-    }
-  else
-    {
-      if (slot [body_combat].info) return slot_combat;
-      if (slot [body_range ].info) return slot_ranged;
-    }
-  return slot_none;
-}
-bool
-object::change_weapon (object *ob)
-{
-  if (current_weapon == ob)
-    return true;
-  if (chosen_skill)
-    chosen_skill->flag [FLAG_APPLIED] = false;
-  current_weapon = ob;
-  chosen_skill = !ob || ob->type == SKILL ? ob : find_skill_by_name (this, ob->skill);
-  if (chosen_skill)
-    chosen_skill->flag [FLAG_APPLIED] = true;
-  update_stats ();
-  if (ob)
-    {
-      // now check wether any body locations became invalid, in which case
-      // we cannot apply the weapon at the moment.
-      for (int i = 0; i < NUM_BODY_LOCATIONS; ++i)
-        if (slot[i].used < 0)
-          {
-            current_weapon = chosen_skill = 0;
-            update_stats ();
-            new_draw_info_format (NDI_UNIQUE, 0, this,
-                                  "You try to balance all your items at once, "
-                                  "but the %s is just too much for your body. "
-                                  "[You need to unapply some items first - use the 'body' command to see "
-                                  "how many items you cna wera on a specific body part.]", &ob->name);
-            return false;
-          }
-      //new_draw_info_format (NDI_UNIQUE, 0, this, "You switch to your %s.", &ob->name);
-    }
-  else
-    ;//new_draw_info_format (NDI_UNIQUE, 0, this, "You unwield your weapons.");
-  if (ob && !ob->flag [FLAG_APPLIED] && ob->type != SPELL)
-    {
-      LOG (llevError | logBacktrace, "%s changed to unapplied weapon %s",
-           &name, ob->debug_desc ());
-      return false;
-    }
-  return true;
 }
 /* Zero the key_values on op, decrementing the shared-string
  * refcounts and freeing the links.
  */
               tail = new_link;
             }
         }
     }
-  if (speed < 0)
-    dst->speed_left -= rndm ();
   dst->activate ();
 }
 void
 object::instantiate ()
 {
   if (!uuid.seq) // HACK
     uuid = UUID::gen ();
+  // TODO: unclean state changes, should nt be done in copy_to AND instantiate
+  if (flag [FLAG_RANDOM_SPEED] && speed)
+    speed_left = - speed - rndm (); // TODO animation
+  else
-  speed_left = -0.1f;
+    speed_left = -1.;
   /* copy the body_info to the body_used - this is only really
    * need for monsters, but doesn't hurt to do it for everything.
    * by doing so, when a monster is created, it has good starting
    * values for the body_used info, so when items are created
    * for it, they can be properly equipped.
 object *
 object::clone ()
 {
   object *neu = create ();
   copy_to (neu);
+  // TODO: unclean state changes, should not be done in clone AND instantiate
+  if (neu->flag [FLAG_RANDOM_SPEED] && neu->speed)
+    neu->speed_left = - neu->speed - rndm (); // TODO animation
   neu->map = map; // not copied by copy_to
   return neu;
 }
 /*
 object::object ()
 {
   SET_FLAG (this, FLAG_REMOVED);
   //expmul = 1.0; declared const for the time being
-  face = blank_face;
+  face     = blank_face;
+  material = MATERIAL_NULL;
 }
 object::~object ()
 {
   unlink ();
       above = 0;
       below = 0;
       env   = 0;
-      /* NO_FIX_PLAYER is set when a great many changes are being
+      if (pl && pl->is_player ())
-       * made to players inventory.  If set, avoiding the call
-       * to save cpu time.
-       */
+        {
-      if (pl)
+          if (expect_false (pl->contr->combat_ob == this))
-        if (pl->is_player () && (glow_radius || !QUERY_FLAG (pl, FLAG_NO_FIX_PLAYER)))
-          {
+            {
-            pl->update_stats ();
+              pl->apply (pl->contr->combat_ob, AP_UNAPPLY);
+              pl->contr->combat_ob = 0;
+              if (pl->contr->ranged_ob) pl->apply (pl->contr->ranged_ob);
+            }
+          if (expect_false (pl->contr->ranged_ob == this))
+            {
+              pl->apply (pl->contr->ranged_ob, AP_UNAPPLY);
+              pl->contr->ranged_ob = 0;
+              if (pl->contr->combat_ob) pl->apply (pl->contr->combat_ob);
+            }
+          pl->contr->queue_stats_update ();
-            if (glow_radius && pl->is_on_map ())
+          if (expect_false (glow_radius) && pl->is_on_map ())
-              update_all_los (pl->map, pl->x, pl->y);
+            update_all_los (pl->map, pl->x, pl->y);
-          }
+        }
     }
   else if (map)
     {
       map->dirty = true;
       mapspace &ms = this->ms ();
   object *prev = this;
   for (archetype *at = (archetype *)arch->more; at; at = (archetype *)at->more)
     {
-      object *op = arch_to_object (at);
+      object *op = at->instance ();
       op->name    = name;
       op->name_pl = name_pl;
       op->title   = title;
  * Passing 0 for flag gives proper default values, so flag really only needs
  * to be set if special handling is needed.
  *
  * Return value:
  *   new object if 'op' was merged with other object
- *   NULL if 'op' was destroyed
+ *   NULL if there was an error (destroyed, blocked etc.)
  *   just 'op' otherwise
  */
 object *
 insert_ob_in_map (object *op, maptile *m, object *originator, int flag)
 {
   for (object *tmp = op->ms ().bot; tmp; tmp = tmp->above)
     if (tmp->arch->archname == archname)       /* same archetype */
       tmp->destroy ();
-  object *tmp = arch_to_object (archetype::find (archname));
+  object *tmp = archetype::find (archname)->instance ();
   tmp->x = op->x;
   tmp->y = op->y;
   insert_ob_in_map (tmp, op->map, op, 0);
     return where->env->insert (this);
   else
     return where->map->insert (this, where->x, where->y, originator, flags);
 }
-// check whether we can put this into the map, respect max_nrof, max_volume, max_items
+// check whether we can put this into the map, respect max_volume, max_items
 bool
 object::can_drop_at (maptile *m, int x, int y, object *originator)
 {
   mapspace &ms = m->at (x, y);
   int items = ms.items ();
   if (!items // testing !items ensures we can drop at least one item
       || (items < m->max_items
-          && ms.volume () < m->max_volume
+          && ms.volume () < m->max_volume))
-          && nrof <= m->max_nrof))
     return true;
   if (originator && originator->is_player ())
     originator->contr->failmsg (format (
        "No matter how hard you try, you just cannot put the %s here H<Try to remove some items from the floor first.>",
   if (op->glow_radius && is_on_map ())
     {
       update_stats ();
       update_all_los (map, x, y);
     }
-  else if (is_player () && !flag [FLAG_NO_FIX_PLAYER])
+  else if (is_player ())
     // if this is a player's inventory, update stats
-    update_stats ();
+    contr->queue_stats_update ();
   INVOKE_OBJECT (INSERT, this);
   return op;
 }
 {
   return map ? map->region (x, y)
              : region::default_region ();
 }
-const materialtype_t *
-object::dominant_material () const
-{
-  if (materialtype_t *mt = name_to_material (materialname))
-    return mt;
-  return name_to_material (shstr_unknown);
-}
 void
 object::open_container (object *new_container)
 {
   if (container == new_container)
     return;
       // TODO: this does not seem to serve any purpose anymore?
 #if 0
       // insert the "Close Container" object.
       if (archetype *closer = new_container->other_arch)
         {
-          object *closer = arch_to_object (new_container->other_arch);
+          object *closer = new_container->other_arch->instance ();
           closer->flag [FLAG_NO_MAP_SAVE] = 1;
           new_container->insert (closer);
         }
 #endif
       insert (force);
     }
 }
+void object::change_move_type (MoveType mt)
+{
+  if (move_type == mt)
+    return;
+  if (is_on_map ())
+    {
+      // we are on the map, so handle move_on/off effects
+      remove ();
+      move_type = mt;
+      map->insert (this, x, y, this);
+    }
+  else
+    move_type = mt;
+}

Diff Legend

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

Comparing deliantra/server/common/object.C (file contents): Revision 1.300 by root, Mon Nov 9 03:08:23 2009 UTC vs. Revision 1.319 by root, Sat Apr 3 02:29:40 2010 UTC

Diff Legend

Comparing deliantra/server/common/object.C (file contents):
Revision 1.300 by root, Mon Nov 9 03:08:23 2009 UTC vs.
Revision 1.319 by root, Sat Apr 3 02:29:40 2010 UTC