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

Comparing deliantra/server/server/player.C (file contents):
Revision 1.144 by root, Sat May 26 15:44:08 2007 UTC vs.
Revision 1.155 by root, Sat Jul 21 15:04:36 2007 UTC

 /*
- * CrossFire, A Multiplayer game
+ * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
  *
- * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
+ * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
- * Copyright (C) 2002 Mark Wedel & Crossfire Development Team
+ * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
- * Copyright (C) 1992 Frank Tore Johansen
+ * Copyright (©) 1992,2007 Frank Tore Johansen
  *
- * This program is free software; you can redistribute it and/or modify
+ * Crossfire TRT 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 2 of the License, or
+ * the Free Software Foundation, either version 3 of the License, or
  * (at your option) any later version.
  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  * GNU General Public License for more details.
  *
  * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
- * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  *
- * The author can be reached via e-mail to <crossfire@schmorp.de>
+ * The authors can be reached via e-mail to <crossfire@schmorp.de>
  */
 #include <global.h>
 #include <sproto.h>
 #include <sounds.h>
   ob->close_container (); //TODO: client-specific
   ns->update_look = 0;
   ns->look_position = 0;
-  clear_los (ob);
+  clear_los (this);
   ns->reset_stats ();
   /* make sure he's a player -- needed because of class change. */
   ob->type = PLAYER; // we are paranoid
-  ob->race = ob->arch->clone.race;
+  ob->race = ob->arch->race;
   ob->carrying = sum_weight (ob);
   link_player_skills (ob);
   CLEAR_FLAG (ob, FLAG_NO_FIX_PLAYER);
-  assign (title, ob->arch->clone.name);
+  assign (title, ob->arch->object::name);
   /* if it's a dragon player, set the correct title here */
   if (is_dragon_pl (ob))
     {
       object *tmp, *abil = 0, *skin = 0;
-      shstr_cmp dragon_ability_force ("dragon_ability_force");
-      shstr_cmp dragon_skin_force    ("dragon_skin_force");
       for (tmp = ob->inv; tmp; tmp = tmp->below)
         if (tmp->type == FORCE)
-          if (tmp->arch->name == dragon_ability_force)
+          if (tmp->arch->archname == shstr_dragon_ability_force)
             abil = tmp;
-          else if (tmp->arch->name == dragon_skin_force)
+          else if (tmp->arch->archname == shstr_dragon_skin_force)
             skin = tmp;
       set_dragon_name (ob, abil, skin);
     }
       ns->pl = 0;
       ns = 0;
     }
   if (ob)
+    {
-    ob->close_container (); //TODO: client-specific
+      ob->close_container (); //TODO: client-specific
+      ob->drop_unpaid_items ();
+    }
+  observe = ob;
   deactivate ();
 }
 // the need for this function can be explained
 // by load_object not returning the object
 void
 player::set_object (object *op)
 {
-  ob = op;
+  ob = observe = op;
   ob->contr = this;              /* this aren't yet in archetype */
   ob->speed          = 1.0f;
   ob->speed_left     = 0.5f;
   ob->direction      = 5;            /* So player faces south */
+}
+void
+player::set_observe (object *op)
+{
+  observe = op ? op : ob;
+  do_los = 1;
 }
 player::player ()
 {
   /* There are some elements we want initialised to non zero value -
   if (ob)
     {
       ob->destroy_inv (false);
       ob->destroy ();
     }
+  ob = observe = 0;
 }
 player::~player ()
 {
   /* Clear item stack */
  * Note: there MUST be at least one player archetype!
  */
 archetype *
 get_player_archetype (archetype *at)
 {
-  archetype *start = at;
+  archvec::iterator i = at ? archetypes.find (at) : archetypes.begin ();
   for (;;)
     {
-      if (at == NULL || at->next == NULL)
+      if (++i == archetypes.end ())
-        at = first_archetype;
+        i = archetypes.begin ();
-      else
+      else if (*i == at)
-        at = at->next;
+        cleanup ("not a single player archetype found");
-      if (at->clone.type == PLAYER)
+      if ((*i)->type == PLAYER)
-        return at;
+        return *i;
-      if (at == start)
-        {
-          LOG (llevError, "No Player archetypes\n");
-          exit (-1);
-        }
     }
 }
 object *
 get_nearest_player (object *mon)
   if (*first_map_ext_path)
     {
       object *tmp;
       char mapname[MAX_BUF];
-      snprintf (mapname, MAX_BUF - 1, "%s/%s", &first_map_ext_path, &ob->arch->name);
+      snprintf (mapname, MAX_BUF - 1, "%s/%s", &first_map_ext_path, &ob->arch->archname);
       tmp = object::create ();
       EXIT_PATH (tmp) = mapname;
       EXIT_X (tmp)    = ob->x;
       EXIT_Y (tmp)    = ob->y;
       ob->enter_exit (tmp); /* we don't really care if it succeeded;
       int x = ob->x, y = ob->y;
       ob->remove_statbonus ();
       ob->remove ();
       ob->arch = get_player_archetype (ob->arch);
-      ob->arch->clone.copy_to (ob);
+      ob->arch->copy_to (ob);
       ob->instantiate ();
       ob->stats = ob->contr->orig_stats;
       ob->name = ob->name_pl = name;
       ob->x = x;
       ob->y = y;
       SET_ANIMATION (ob, 2);    /* So player faces south */
       insert_ob_in_map (ob, ob->map, ob, 0);
-      assign (ob->contr->title, ob->arch->clone.name);
+      assign (ob->contr->title, ob->arch->object::name);
       ob->add_statbonus ();
     }
   while (!allowed_class (ob));
   update_object (ob, UP_OBJ_FACE);
               if (tmp->name != NULL)
                 sprintf (putstring, "item name: %s    item type: %d    weight/value: %d",
                          &tmp->name, tmp->type, (int) (query_cost (tmp, op, F_TRUE) * 100 / (tmp->weight * MAX (tmp->nrof, 1))));
               else
                 sprintf (putstring, "item name: %s    item type: %d    weight/value: %d",
-                         &tmp->arch->name, tmp->type, (int) (query_cost (tmp, op, F_TRUE) * 100 / (tmp->weight * MAX (tmp->nrof, 1))));
+                         &tmp->arch->archname, tmp->type, (int) (query_cost (tmp, op, F_TRUE) * 100 / (tmp->weight * MAX (tmp->nrof, 1))));
               new_draw_info (NDI_UNIQUE, 0, op, putstring);
             }
           /* philosophy:
           /* careful: chairs and tables are weapons! */
           if (op->contr->mode & PU_ALLWEAPON)
             {
               if (tmp->type == WEAPON && tmp->name != NULL)
                 {
-                  if (strstr (tmp->name, "table") == NULL && strstr (tmp->arch->name, "table") == NULL &&
+                  if (strstr (tmp->name, "table") == NULL && strstr (tmp->arch->archname, "table") == NULL &&
-                      strstr (tmp->name, "chair") && strstr (tmp->arch->name, "chair") == NULL)
+                      strstr (tmp->name, "chair") && strstr (tmp->arch->archname, "chair") == NULL)
                     {
                       pick_up (op, tmp);
                       continue;
                     }
                 }
               if (tmp->type == WEAPON && tmp->name == NULL)
                 {
-                  if (strstr (tmp->arch->name, "table") == NULL && strstr (tmp->arch->name, "chair") == NULL)
+                  if (strstr (tmp->arch->archname, "table") == NULL && strstr (tmp->arch->archname, "chair") == NULL)
                     {
                       pick_up (op, tmp);
                       continue;
                     }
                 }
                   if (tmp->name != NULL)
                     {
                       fprintf (stderr, "%s", tmp->name);
                     }
                   else
-                    fprintf (stderr, "%s", tmp->arch->name);
+                    fprintf (stderr, "%s", tmp->arch->archname);
                   fprintf (stderr, ",%d] = ", tmp->type);
                   fprintf (stderr, "%d\n", (int) (query_cost (tmp, op, F_TRUE) * 100 / (tmp->weight * MAX (tmp->nrof, 1))));
 #endif
                   continue;
                 }
           else
             {
               for (attacknum = 0; attacknum < NROFATTACKS; attacknum++)
                 {
                   attacktype = 1 << attacknum;
-                  if ((arrow->attacktype & attacktype) && (target->arch->clone.resist[attacknum]) < 0)
+                  if ((arrow->attacktype & attacktype) && (target->arch->resist[attacknum]) < 0)
-                    if (((arrow->magic + arrow->stats.dam) * (100 - target->arch->clone.resist[attacknum]) / 100) > betterby)
+                    if (((arrow->magic + arrow->stats.dam) * (100 - target->arch->resist[attacknum]) / 100) > betterby)
                       {
                         tmp = arrow;
-                        betterby = (arrow->magic + arrow->stats.dam) * (100 - target->arch->clone.resist[attacknum]) / 100;
+                        betterby = (arrow->magic + arrow->stats.dam) * (100 - target->arch->resist[attacknum]) / 100;
                       }
                 }
               if ((2 + arrow->magic + arrow->stats.dam) > betterby)
                 {
                   tmp = arrow;
               object *tmp;
               if (item->arch)
                 {
                   CLEAR_FLAG (item, FLAG_ANIMATE);
-                  item->face = item->arch->clone.face;
+                  item->face = item->arch->face;
                   item->set_speed (0);
                 }
               if ((tmp = item->in_player ()))
                 esrv_update_item (UPD_ANIM, tmp, item);
 /* This goes throws the inventory and removes unpaid objects, and puts them
  * back in the map (location and map determined by values of env).  This
  * function will descend into containers.  op is the object to start the search
  * from.
  */
-void
+static void
-remove_unpaid_objects (object *op, object *env)
+drop_unpaid_items (object *op, object *env)
 {
   while (op)
     {
       object *next = op->below; /* Make sure we have a good value, in case we remove object 'op' */
             esrv_del_item (env->contr, op->count);
           op->insert_at (env);
         }
       else if (op->inv)
-        remove_unpaid_objects (op->inv, env);
+        drop_unpaid_items (op->inv, env);
       op = next;
     }
+}
+void
+object::drop_unpaid_items ()
+{
+  if (!flag [FLAG_REMOVED])
+    ::drop_unpaid_items (inv, this);
 }
 /*
  * Returns pointer a static string containing gravestone text
  * Moved from apply.c to player.c - player.c is what
         }
       /* Digestion */
       if (--op->last_eat < 0)
         {
-          int bonus = op->contr->digestion > 0 ? op->contr->digestion : 0, penalty = op->contr->digestion < 0 ? -op->contr->digestion : 0;
+          int bonus   = max (0,  op->contr->digestion),
+              penalty = max (0, -op->contr->digestion);
-          if (op->contr->gen_hp > 0)
-            op->last_eat = 25 * (1 + bonus) / (op->contr->gen_hp + penalty + 1);
+          op->last_eat = 25 * (1 + bonus) / (max (0, op->contr->gen_hp) + penalty + 1);
-          else
-            op->last_eat = 25 * (1 + bonus) / (penalty + 1);
           /* dms do not consume food */
           if (!QUERY_FLAG (op, FLAG_WIZ))
             op->stats.food--;
         }
   archetype *at;
   object *tmp;
   if (save_life (op))
     return;
   /* If player dies on BATTLEGROUND, no stat/exp loss! For Combat-Arenas
    * in cities ONLY!!! It is very important that this doesn't get abused.
    * Look at op_on_battleground() for more info       --AndreasV
    */
   /*
    * Check to see if the player has any unpaid items. If so, remove them
    * and put them back in the map.
    */
-  remove_unpaid_objects (op->inv, op);
+  op->drop_unpaid_items ();
   /****************************************/
   /*                                      */
   /* Move player to his current respawn-  */
   /* position (usually last savebed)      */
 }
 int
 is_true_undead (object *op)
 {
-  if (QUERY_FLAG (&op->arch->clone, FLAG_UNDEAD))
+  if (QUERY_FLAG (op->arch, FLAG_UNDEAD))
     return 1;
   return 0;
 }
    * a blocked los square.
    * we use the archetype to figure out offsets.
    */
   while (op)
     {
-      dx = rv.distance_x + op->arch->clone.x;
+      dx = rv.distance_x + op->arch->x;
-      dy = rv.distance_y + op->arch->clone.y;
+      dy = rv.distance_y + op->arch->y;
       /* only the viewable area the player sees is updated by LOS
        * code, so we need to restrict ourselves to that range of values
        * for any meaningful values.
        */
       /* LOG(llevDebug, "-> no more treasure for %s\n", change_resist_msg[atnr]); */
       return;
     }
   /* everything seems okay - now bring on the gift: */
-  item = &(tr->item->clone);
+  item = tr->item;
   if (item->type == SPELL)
     {
       if (check_spell_known (who, item->name))
         return;
     {
       /* forces in the treasurelist can alter the player's stats */
       object *skin;
       /* first get the dragon skin force */
-      shstr_cmp dragon_skin_force ("dragon_skin_force");
-      for (skin = who->inv; skin && !(skin->arch->name == dragon_skin_force); skin = skin->below)
+      for (skin = who->inv; skin && !(skin->arch->archname == shstr_dragon_skin_force); skin = skin->below)
         ;
       if (!skin)
         return;

Diff Legend

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

Comparing deliantra/server/server/player.C (file contents): Revision 1.144 by root, Sat May 26 15:44:08 2007 UTC vs. Revision 1.155 by root, Sat Jul 21 15:04:36 2007 UTC

Diff Legend

Comparing deliantra/server/server/player.C (file contents):
Revision 1.144 by root, Sat May 26 15:44:08 2007 UTC vs.
Revision 1.155 by root, Sat Jul 21 15:04:36 2007 UTC