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

Comparing deliantra/server/socket/item.C (file contents):
Revision 1.43 by root, Tue Apr 3 00:21:38 2007 UTC vs.
Revision 1.59 by root, Tue Apr 22 02:46:18 2008 UTC

 /*
- * CrossFire, A Multiplayer game for X-windows
+ * This file is part of Deliantra, the Roguelike Realtime MMORPG.
  *
- * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
+ * Copyright (©) 2005,2006,2007,2008 Marc Alexander Lehmann / Robin Redeker / the Deliantra 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
+ * 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 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 <support@deliantra.net>
  */
 /**
  * \file
  * Client/server logic.
   flags = query_flags (head);
   if (QUERY_FLAG (head, FLAG_NO_PICK))
     flags |= F_NOPICK;
-  ns.send_face (head->face);
+  ns.send_face (head->face, -50);
   ns.flush_fx ();
   if (QUERY_FLAG (head, FLAG_ANIMATE) && !ns.anims_sent[head->animation_id])
     ns.send_animation (head->animation_id);
  * Send the look window. Don't need to do animations here
  * This sends all the faces to the client, not just updates. This is
  * because object ordering would otherwise be inconsistent.
  */
 void
-esrv_draw_look (object *pl)
+esrv_draw_look (player *pl)
 {
   int got_one = 0, start_look = 0, end_look = 0;
+  object *ob = pl->ob;
-  if (!pl->contr->ns->update_look)
+  if (!pl->ns->update_look)
     {
-      LOG (llevDebug, "esrv_draw_look called when update_look was not set (player %s)\n", &pl->name);
+      LOG (llevDebug, "esrv_draw_look called when update_look was not set (player %s)\n", &ob->name);
       return;
     }
   else
-    pl->contr->ns->update_look = 0;
+    pl->ns->update_look = 0;
-  if (QUERY_FLAG (pl, FLAG_REMOVED)
+  if (QUERY_FLAG (ob, FLAG_REMOVED)
-      || !pl->map
+      || !ob->map
-      || pl->map->in_memory != MAP_IN_MEMORY
+      || ob->map->in_memory != MAP_ACTIVE
-      || out_of_map (pl->map, pl->x, pl->y))
+      || out_of_map (ob->map, ob->x, ob->y))
     return;
-  pl->contr->ns->send_packet ("delinv 0");
+  pl->ns->send_packet ("delinv 0");
   packet sl;
-  sl.printf ("item%d ", pl->contr->ns->itemcmd);
+  sl.printf ("item%d ", pl->ns->itemcmd);
   sl << uint32 (0);
-  pl->contr->ns->send_face (empty_face);
+  pl->ns->send_face (empty_face, -50);
-  pl->contr->ns->flush_fx ();
+  pl->ns->flush_fx ();
-  if (pl->contr->ns->look_position)
+  if (pl->ns->look_position)
     {
       char buf[80];
       snprintf (buf, 80, "Apply this to see %d previous items", FLOORBOX_PAGESIZE);
-      sl << uint32 (0x80000000 | (pl->contr->ns->look_position - FLOORBOX_PAGESIZE))
+      sl << uint32 (0x80000000 | (pl->ns->look_position - FLOORBOX_PAGESIZE))
          << uint32 (0)
          << sint32 (-1)
          << uint32 (empty_face)
          << data8 (buf)
          << uint16 (0)
          << uint8  (0)
          << uint32 (0);
-      if (pl->contr->ns->itemcmd == 2)
+      if (pl->ns->itemcmd == 2)
         sl << uint16 (0);
     }
-  object *tmp = pl->ms ().top;
+  object *tmp = ob->ms ().top;
   for (object *last = 0; tmp != last; tmp = tmp->below)
     {
       object *head;
       if (QUERY_FLAG (tmp, FLAG_IS_FLOOR) && !last)
             last = last->below;
         }
       if (tmp->client_visible ())
         {
-          if (++start_look < pl->contr->ns->look_position)
+          if (++start_look < pl->ns->look_position)
             continue;
           end_look++;
           if (end_look > FLOORBOX_PAGESIZE)
             {
               /* What we basically do is make a 'fake' object - when the user applies it,
                * we notice the special tag the object has, and act accordingly.
                */
-              sl << uint32 (0x80000000 | (pl->contr->ns->look_position + FLOORBOX_PAGESIZE))
+              sl << uint32 (0x80000000 | (pl->ns->look_position + FLOORBOX_PAGESIZE))
                  << uint32 (0)
                  << uint32 ((uint32) - 1)
                  << uint32 (empty_face)
                  << data8  ("Apply this to see next group of items")
                  << uint16 (0)
                  << uint8  (0)
                  << uint32 (0);
-              if (pl->contr->ns->itemcmd == 2)
+              if (pl->ns->itemcmd == 2)
                 sl << uint16 (0);
               break;
             }
           if (tmp->head)
             head = tmp->head;
           else
             head = tmp;
-          add_object_to_socklist (*pl->contr->ns, sl, head);
+          add_object_to_socklist (*pl->ns, sl, head);
           got_one++;
-          if (sl.length () >= (MAXSOCKBUF - MAXITEMLEN))
+          if (sl.length () > MAXSOCKBUF - MAXITEMLEN)
             {
-              pl->contr->ns->send_packet (sl);
+              pl->ns->send_packet (sl);
               sl.reset ();
-              sl.printf ("item%d ", pl->contr->ns->itemcmd);
+              sl.printf ("item%d ", pl->ns->itemcmd);
               sl << uint32 (0);
               got_one = 0;
             }
         }
     }
   if (got_one)
-    pl->contr->ns->send_packet (sl);
+    pl->ns->send_packet (sl);
 }
 /**
  * Sends whole inventory.
           /* IT is possible for players to accumulate a huge amount of
            * items (especially with some of the bags out there) to
            * overflow the buffer.  IF so, send multiple item commands.
            */
-          if (sl.length () >= (MAXSOCKBUF - MAXITEMLEN))
+          if (sl.length () > MAXSOCKBUF - MAXITEMLEN)
             {
               pl->contr->ns->send_packet (sl);
               sl.reset ();
               sl.printf ("item%d ", pl->contr->ns->itemcmd);
         ns->last_weight = weight;
     }
   if (flags & UPD_FACE)
     {
-      ns->send_face (op->face);
+      ns->send_face (op->face, -50);
       ns->flush_fx ();
       sl << uint32 (op->face);
     }
   if (flags & UPD_NAME)
   pl->contr->ns->send_packet (sl);
   SET_FLAG (op, FLAG_CLIENT_SENT);
 }
 /**
- * Tells the client to delete an item.  Uses the item
+ * Tells the client to delete an item.
- * command with a -1 location.
  */
 void
 esrv_del_item (player *pl, int tag)
 {
   if (!pl->ns)
 /**
  * Takes a player and object count (tag) and returns the actual object
  * pointer, or null if it can't be found.
  */
 object *
 esrv_get_ob_from_count (object *pl, tag_t count)
 {
-  object *op, *tmp;
   if (pl->count == count)
     return pl;
-  for (op = pl->inv; op; op = op->below)
+  for (object *op = pl->inv; op; op = op->below)
     if (op->count == count)
       return op;
     else if (op->type == CONTAINER && pl->container == op)
-      for (tmp = op->inv; tmp; tmp = tmp->below)
+      for (object *tmp = op->inv; tmp; tmp = tmp->below)
         if (tmp->count == count)
           return tmp;
-  for (op = GET_MAP_OB (pl->map, pl->x, pl->y); op; op = op->above)
+  for (object *op = GET_MAP_OB (pl->map, pl->x, pl->y); op; op = op->above)
     if (op->head && op->head->count == count)
       return op;
     else if (op->count == count)
       return op;
     else if (op->type == CONTAINER && pl->container == op)
-      for (tmp = op->inv; tmp; tmp = tmp->below)
+      for (object *tmp = op->inv; tmp; tmp = tmp->below)
         if (tmp->count == count)
           return tmp;
+#if 0
+  /* If the high bit is set, player examined a pseudo object. */
+  if (count & 0x80000000)
+    return 0;
+#endif
   return 0;
 }
 /** Client wants to examine some object.  So lets do so. */
 void
 ExamineCmd (char *buf, int len, player *pl)
 {
   tag_t tag = atoi (buf);
-  /* If the high bit is set, player examined a pseudo object. */
-  if (tag & 0x80000000)
-    return;
   object *op = esrv_get_ob_from_count (pl->ob, tag);
   if (!op)
     {
       LOG (llevDebug, "Player '%s' tried to examine the unknown object (%ld)\n", &pl->ob->name, tag);
       return;
     }
   examine (pl->ob, op);
+}
+/** Client wants to examine some object.  So lets do so. */
+void
+ExCmd (char *buf, int len, player *pl)
+{
+  tag_t tag = atoi (buf);
+  if (object *op = esrv_get_ob_from_count (pl->ob, tag))
+    {
+      std::string s = op->describe (pl->ob);
+      packet sl ("ex");
+      sl << ber32 (tag) << s.c_str ();
+      pl->ns->send_packet (sl);
+    }
 }
 /** Client wants to apply some object. Lets do so. */
 void
 ApplyCmd (char *buf, int len, player *pl)
   tag_t tag = net_uint32 ((uint8 *)data + 1);
   object *op = esrv_get_ob_from_count (pl->ob, tag);
   if (!op)
     {
-      new_draw_info (NDI_UNIQUE, 0, pl->ob, "Could not find object to lock/unlock");
+      pl->failmsg ("Could not find object to lock/unlock");
       return;
     }
   if (!flag)
     CLEAR_FLAG (op, FLAG_INV_LOCKED);
   tag_t tag = net_uint32 ((uint8 *)data);
   object *op = esrv_get_ob_from_count (pl->ob, tag);
   if (!op)
     {
-      new_draw_info (NDI_UNIQUE, 0, pl->ob, "Could not find object to mark");
+      pl->failmsg ("Could not find object to mark");
       return;
     }
   pl->mark = op;
-  new_draw_info_format (NDI_UNIQUE, 0, pl->ob, "Marked item %s", query_name (op));
+  pl->ob->statusmsg (format ("Marked item %s", query_name (op)));
 }
 /**
  * look_at prints items on the specified square.
  *
  * [ removed EARTHWALL check and added check for containers inventory.
  *   Tero.Haatanen@lut.fi ]
  */
-void
+static void
-look_at (object *op, int dx, int dy)
+look_at (player *pl, int dx, int dy)
 {
-  object *tmp;
+  dynbuf_text buf;
-  int flag = 0;
+  object *ob = pl->ob;
-  sint16 x, y;
-  maptile *m;
-  x = op->x + dx;
+  if (!pl->observe->map)
-  y = op->y + dy;
-  if (out_of_map (op->map, x, y))
     return;
-  m = get_map_from_coord (op->map, &x, &y);
+  mapxy pos (pl->observe);
-  if (!m)
+  pos.move (dx, dy);
+  if (pos.normalise ())
+    for (object *tmp = pos->top; tmp; tmp = tmp->below)
+      {
+        if (tmp->invisible && !QUERY_FLAG (ob, FLAG_WIZ))
+          continue;
+        if (QUERY_FLAG (ob, FLAG_WIZ))
+          buf.printf ("- %s (%d).\n", query_name (tmp), tmp->count);
+        else
+          buf.printf ("- %s.\n", query_name (tmp));
+        object *head = tmp->head_ ();
+        if (head->inv)
+          if ((head->type != CONTAINER && head->type != FLESH)
+              || QUERY_FLAG (ob, FLAG_WIZ))
+            buf << head->query_inventory (ob, "  ");
+        if (QUERY_FLAG (tmp, FLAG_IS_FLOOR) && !QUERY_FLAG (ob, FLAG_WIZ))        /* don't continue under the floor */
+          break;
+      }
+  if (buf.empty ())
+    pl->failmsg ("You see nothing there.");
+  else
+    pl->infobox (MSG_CHANNEL ("lookat"), buf);
+}
+/** Client wants to look at some object.  Lets do so. */
+void
+LookAt (char *buf, int len, player *pl)
+{
+  char *cp;
+  int dx = atoi (buf);
+  if (!(cp = strchr (buf, ' ')))
     return;
-  for (tmp = GET_MAP_OB (m, x, y); tmp != NULL && tmp->above != NULL; tmp = tmp->above);
-  for (; tmp != NULL; tmp = tmp->below)
-    {
-      if (tmp->invisible && !QUERY_FLAG (op, FLAG_WIZ))
-        continue;
-      if (!flag)
-        {
-          if (dx || dy)
-            new_draw_info (NDI_UNIQUE, 0, op, "There you see:");
-          else
-            {
-              clear_win_info (op);
-              new_draw_info (NDI_UNIQUE, 0, op, "You see:");
-            }
-          flag = 1;
-        }
-      if (QUERY_FLAG (op, FLAG_WIZ))
-        new_draw_info_format (NDI_UNIQUE, 0, op, "- %s (%d).", query_name (tmp), tmp->count);
-      else
-        new_draw_info_format (NDI_UNIQUE, 0, op, "- %s.", query_name (tmp));
-      if (((tmp->inv != NULL || (tmp->head && tmp->head->inv)) &&
-           (tmp->type != CONTAINER && tmp->type != FLESH)) || QUERY_FLAG (op, FLAG_WIZ))
-        inventory (op, tmp->head == NULL ? tmp : tmp->head);
-      if (QUERY_FLAG (tmp, FLAG_IS_FLOOR) && !QUERY_FLAG (op, FLAG_WIZ))        /* don't continue under the floor */
-        break;
-    }
-  if (!flag)
-    {
-      if (dx || dy)
-        new_draw_info (NDI_UNIQUE, 0, op, "You see nothing there.");
-      else
-        new_draw_info (NDI_UNIQUE, 0, op, "You see nothing.");
-    }
-}
-/** Client wants to look at some object.  Lets do so. */
-void
-LookAt (char *buf, int len, player *pl)
-{
-  int dx, dy;
-  char *cp;
-  dx = atoi (buf);
-  if (!(cp = strchr (buf, ' ')))
-    {
-      return;
-    }
-  dy = atoi (cp);
+  int dy = atoi (cp);
+  if (player *opl = pl->observe->contr)
+    if (client *ns = opl->ns)
+      {
-  if (fabs (dx) > pl->ns->mapx / 2 || fabs (dy) > pl->ns->mapy / 2)
+        if (fabs (dx) > ns->mapx / 2 || fabs (dy) > ns->mapy / 2)
-    return;
+          return;
-  if (pl->blocked_los[dx + pl->ns->mapx / 2][dy + pl->ns->mapy / 2])
+        if (opl->blocked_los[dx + ns->mapx / 2][dy + ns->mapy / 2])
-    return;
+          return;
+      }
-  look_at (pl->ob, dx, dy);
+  look_at (pl, dx, dy);
 }
 /** Move an object to a new location */
 void
 esrv_move_object (object *pl, tag_t to, tag_t tag, long nrof)
        */
       if (op->inv && QUERY_FLAG (op, FLAG_APPLIED))
         {
           object *current, *next;
+          int cnt = MAX_ITEM_PER_DROP;
           for (current = op->inv; current != NULL; current = next)
             {
               next = current->below;
               drop_object (pl, current, 0);
+              if (--cnt <= 0) break;
             }
+          if (cnt <= 0)
+            op->failmsg ("Only dropped some items, can't drop that many items at once.");
           esrv_update_item (UPD_WEIGHT, pl, op);
         }
       else
         drop_object (pl, op, nrof);
+      update_after_inventory_change (pl);
       return;
     }
   else if (to == pl->count)
     {                           /* pick it up to the inventory */
    * has already been done (eg, it can be picked up and fits in
    * in a sack, so check for those things.  We should also check
    * an make sure env is in fact a container for that matter.
    */
   if (env->type == CONTAINER && can_pick (pl, op) && sack_can_hold (pl, env, op, nrof))
+    {
-    put_object_in_sack (pl, env, op, nrof);
+      put_object_in_sack (pl, env, op, nrof);
+      update_after_inventory_change (pl);
+    }
 }

Diff Legend

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

Comparing deliantra/server/socket/item.C (file contents): Revision 1.43 by root, Tue Apr 3 00:21:38 2007 UTC vs. Revision 1.59 by root, Tue Apr 22 02:46:18 2008 UTC

Diff Legend

Comparing deliantra/server/socket/item.C (file contents):
Revision 1.43 by root, Tue Apr 3 00:21:38 2007 UTC vs.
Revision 1.59 by root, Tue Apr 22 02:46:18 2008 UTC