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

Comparing deliantra/server/server/player.C (file contents):
Revision 1.171 by root, Sat Sep 8 07:06:51 2007 UTC vs.
Revision 1.176 by root, Sun Dec 16 01:25:17 2007 UTC

 /*
- * This file is part of Crossfire TRT, the Roguelike Realtime MORPG.
+ * This file is part of Deliantra, the Roguelike Realtime MMORPG.
  *
- * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team
+ * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Deliantra team
  * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team
  * Copyright (©) 1992,2007 Frank Tore Johansen
  *
- * Crossfire TRT is free software: you can redistribute it and/or modify
+ * Deliantra 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 3 of the License, or
  * (at your option) any later version.
  *
  * This program is distributed in the hope that it will be useful,
  * 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, see <http://www.gnu.org/licenses/>.
  *
- * The authors can be reached via e-mail to <crossfire@schmorp.de>
+ * The authors can be reached via e-mail to <support@deliantra.net>
  */
 #include <global.h>
 #include <sproto.h>
 #include <sounds.h>
   new_draw_info (NDI_UNIQUE, 0, ob, "Welcome Back!");
   esrv_new_player (this, ob->weight + ob->carrying);
+  ob->update_stats ();
+  ns->floorbox_update ();
+  esrv_send_inventory (ob, ob);
+  esrv_add_spells (this, 0);
+  activate ();
+  send_rules (ob);
+  send_news (ob);
+  display_motd (ob);
+  INVOKE_PLAYER (CONNECT, this);
+  INVOKE_PLAYER (LOGIN, this);
+}
+void
+player::disconnect ()
+{
+  if (ob)
+    {
+      ob->close_container (); //TODO: client-specific
+      ob->drop_unpaid_items ();
+    }
+  if (ns)
+    {
+      if (active)
+        INVOKE_PLAYER (LOGOUT, this, ARG_INT (0));
+      INVOKE_PLAYER (DISCONNECT, this);
+      ns->reset_stats ();
+      ns->pl = 0;
+      ns = 0;
+    }
+  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 = 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 */
   ob->flag [FLAG_READY_WEAPON] = false;
   ob->flag [FLAG_READY_SKILL]  = false;
   ob->flag [FLAG_READY_BOW]    = false;
   for (object *op = ob->inv; op; op = op->below)
             combat_ob = op;
             break;
         }
   ob->change_weapon (combat_ob ? combat_ob : ranged_ob);
-  ob->update_stats ();
-  ns->floorbox_update ();
-  esrv_send_inventory (ob, ob);
-  esrv_add_spells (this, 0);
-  activate ();
-  send_rules (ob);
-  send_news (ob);
-  display_motd (ob);
-  INVOKE_PLAYER (CONNECT, this);
-  INVOKE_PLAYER (LOGIN, this);
-}
-void
-player::disconnect ()
-{
-  if (ob)
-    {
-      ob->close_container (); //TODO: client-specific
-      ob->drop_unpaid_items ();
-    }
-  if (ns)
-    {
-      if (active)
-        INVOKE_PLAYER (LOGOUT, this, ARG_INT (0));
-      INVOKE_PLAYER (DISCONNECT, this);
-      ns->reset_stats ();
-      ns->pl = 0;
-      ns = 0;
-    }
-  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 = 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)
 {
 }
 void
 give_initial_items (object *pl, treasurelist * items)
 {
-  object *op, *next = NULL;
-  if (pl->randomitems != NULL)
+  if (pl->randomitems)
     create_treasure (items, pl, GT_STARTEQUIP | GT_ONLY_GOOD, 1, 0);
-  for (op = pl->inv; op; op = next)
+  for (object *next, *op = pl->inv; op; op = next)
     {
       next = op->below;
       /* Forces get applied per default, unless they have the
        * flag "neutral" set. Sorry but I can't think of a better way
           if (op->nrof > 1)
             op->nrof = 1;
         }
       if (op->type == SPELLBOOK && op->inv)
-        {
-          CLEAR_FLAG (op->inv, FLAG_STARTEQUIP);
+        CLEAR_FLAG (op->inv, FLAG_STARTEQUIP);
-        }
       /* Give starting characters identified, uncursed, and undamned
        * items.  Just don't identify gold or silver, or it won't be
        * merged properly.
        */
   if (op->move_type & MOVE_FLYING)
     return 1;
   next = op->below;
+  int cnt = MAX_ITEM_PER_DROP;
+#define CHK_PICK_PICKUP do { pick_up (op, tmp); cnt--; } while (0)
   /* loop while there are items on the floor that are not marked as
    * destroyed */
   while (next && !next->destroyed ())
     {
       tmp = next;
       next = tmp->below;
+      if (cnt <= 0)
+        {
+          op->failmsg ("Couldn't pickup all items at once.");
+          return 0;
+        }
       if (op->destroyed ())
         return 0;
       if (!can_pick (op, tmp))
         continue;
       if (op->contr->search_str[0] != '\0' && settings.search_items == TRUE)
         {
           if (item_matched_string (op, tmp, op->contr->search_str))
-            pick_up (op, tmp);
+            CHK_PICK_PICKUP;
           continue;
         }
       /* high not bit set?  We're using the old autopickup model */
       if (!(op->contr->mode & PU_NEWMODE))
           switch (op->contr->mode)
             {
               case 0:
                 return 1;       /* don't pick up */
               case 1:
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 return 1;
               case 2:
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 return 0;
               case 3:
                 return 0;       /* stop before pickup */
               case 4:
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 break;
               case 5:
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 stop = 1;
                 break;
               case 6:
-                if (QUERY_FLAG (tmp, FLAG_KNOWN_MAGICAL) && !QUERY_FLAG (tmp, FLAG_KNOWN_CURSED))
+                if (QUERY_FLAG (tmp, FLAG_KNOWN_MAGICAL)
-                  pick_up (op, tmp);
+                    && !QUERY_FLAG (tmp, FLAG_KNOWN_CURSED))
+                  CHK_PICK_PICKUP;
                 break;
               case 7:
                 if (tmp->type == MONEY || tmp->type == GEM)
-                  pick_up (op, tmp);
+                  CHK_PICK_PICKUP;
                 break;
               default:
                 /* use value density */
                 if (!QUERY_FLAG (tmp, FLAG_UNPAID)
                     && (query_cost (tmp, op, F_TRUE) * 100 / (tmp->weight * MAX (tmp->nrof, 1))) >= op->contr->mode)
-                  pick_up (op, tmp);
+                  CHK_PICK_PICKUP;
             }
         }
       else
         {                       /* old model */
           /* NEW pickup handling */
           /* all food and drink if desired */
           /* question: don't pick up known-poisonous stuff? */
           if (op->contr->mode & PU_FOOD)
             if (tmp->type == FOOD)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_DRINK)
             if (tmp->type == DRINK || (tmp->type == POISON && !QUERY_FLAG (tmp, FLAG_KNOWN_CURSED)))
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_POTION)
             if (tmp->type == POTION)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           /* spellbooks, skillscrolls and normal books/scrolls */
           if (op->contr->mode & PU_SPELLBOOK)
             if (tmp->type == SPELLBOOK)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_SKILLSCROLL)
             if (tmp->type == SKILLSCROLL)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_READABLES)
             if (tmp->type == BOOK || tmp->type == SCROLL || tmp->type == INSCRIBABLE)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           /* wands/staves/rods/horns */
           if (op->contr->mode & PU_MAGIC_DEVICE)
             if (tmp->type == WAND || tmp->type == ROD || tmp->type == HORN)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           /* pick up all magical items */
           if (op->contr->mode & PU_MAGICAL)
             if (QUERY_FLAG (tmp, FLAG_KNOWN_MAGICAL) && !QUERY_FLAG (tmp, FLAG_KNOWN_CURSED))
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_VALUABLES)
             {
               if (tmp->type == MONEY || tmp->type == GEM)
                 {
-                  pick_up (op, tmp);
+                  CHK_PICK_PICKUP;
                   continue;
                 }
             }
           /* rings & amulets - talismans seems to be typed AMULET */
           if (op->contr->mode & PU_JEWELS)
             if (tmp->type == RING || tmp->type == AMULET)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           /* we don't forget dragon food */
           if (op->contr->mode & PU_FLESH)
             if (tmp->type == FLESH)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           /* bows and arrows. Bows are good for selling! */
           if (op->contr->mode & PU_BOW)
             if (tmp->type == BOW)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_ARROW)
             if (tmp->type == ARROW)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           /* all kinds of armor etc. */
           if (op->contr->mode & PU_ARMOUR)
             if (tmp->type == ARMOUR)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_HELMET)
             if (tmp->type == HELMET)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_SHIELD)
             if (tmp->type == SHIELD)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_BOOTS)
             if (tmp->type == BOOTS)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_GLOVES)
             if (tmp->type == GLOVES)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           if (op->contr->mode & PU_CLOAK)
             if (tmp->type == CLOAK)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           /* hoping to catch throwing daggers here */
           if (op->contr->mode & PU_MISSILEWEAPON)
             if (tmp->type == WEAPON && QUERY_FLAG (tmp, FLAG_IS_THROWN))
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           /* 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->archname, "table") == NULL &&
                       strstr (tmp->name, "chair") && strstr (tmp->arch->archname, "chair") == NULL)
                     {
-                      pick_up (op, tmp);
+                      CHK_PICK_PICKUP;
                       continue;
                     }
                 }
               if (tmp->type == WEAPON && tmp->name == NULL)
                 {
                   if (strstr (tmp->arch->archname, "table") == NULL && strstr (tmp->arch->archname, "chair") == NULL)
                     {
-                      pick_up (op, tmp);
+                      CHK_PICK_PICKUP;
                       continue;
                     }
                 }
             }
           /* misc stuff that's useful */
           if (op->contr->mode & PU_KEY)
             if (tmp->type == KEY || tmp->type == SPECIAL_KEY)
               {
-                pick_up (op, tmp);
+                CHK_PICK_PICKUP;
                 continue;
               }
           /* any of the last 4 bits set means we use the ratio for value
            * pickups */
               /* >=7 is the old standard setting.  Now we take the last 4 bits
                * and multiply them by 5, giving 0..15*5== 5..75 */
               wvratio = (op->contr->mode & PU_RATIO) * 5;
               if ((query_cost (tmp, op, F_TRUE) * 100 / (tmp->weight * MAX (tmp->nrof, 1))) >= (unsigned int) wvratio)
                 {
-                  pick_up (op, tmp);
+                  CHK_PICK_PICKUP;
 #if 0
                   fprintf (stderr, "HIGH WEIGHT/VALUE [");
                   if (tmp->name != NULL)
                     {
                       fprintf (stderr, "%s", tmp->name);
 {
   object *tmp = 0;
   for (op = op->inv; op; op = op->below)
     if (!tmp && op->type == CONTAINER && op->race == type && QUERY_FLAG (op, FLAG_APPLIED))
-      tmp = find_arrow (op, type);
+      tmp = find_arrow (splay (op), type);
     else if (op->type == ARROW && op->race == type)
-      return op;
+      return splay (op);
   return tmp;
 }
 /*

Diff Legend

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

Comparing deliantra/server/server/player.C (file contents): Revision 1.171 by root, Sat Sep 8 07:06:51 2007 UTC vs. Revision 1.176 by root, Sun Dec 16 01:25:17 2007 UTC

Diff Legend

Comparing deliantra/server/server/player.C (file contents):
Revision 1.171 by root, Sat Sep 8 07:06:51 2007 UTC vs.
Revision 1.176 by root, Sun Dec 16 01:25:17 2007 UTC