server/server/c_object.C

/*
 * CrossFire, A Multiplayer game for X-windows
 * 
 * Copyright (C) 2005, 2006, 2007 Marc Lehmann & Crossfire+ Development Team
 * Copyright (C) 2002 Mark Wedel & Crossfire Development Team
 * Copyright (C) 1992 Frank Tore Johansen
 * 
 * This program 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
 * (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
 * 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
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * The author can be reached via e-mail to <crossfire@schmorp.de>
 *
 */

/*
 * Object (handling) commands
 */

#include <global.h>
#include <loader.h>
#include <skills.h>
#include <sproto.h>
#include <living.h>
#include <math.h>

/*
 * Object id parsing functions
 */

#define ADD_ITEM(NEW,COUNT)\
          if(!first) {\
            first = new objectlink;\
            last=first;\
          } else {\
            last->next = new objectlink;\
            last=last->next;\
          }\
          last->next=0;\
          last->ob=(NEW);\
          last->id=(COUNT);

/**
 * Search the inventory of 'pl' for what matches best with params.
 * we use item_matched_string above - this gives us consistent behaviour
 * between many commands.  Return the best match, or NULL if no match.
 * aflag is used with apply -u , and apply -a to
 * only unapply applied, or apply unapplied objects
 **/
static object *
find_best_apply_object_match (object *pl, const char *params, enum apply_flag aflag)
{
  object *tmp, *best = NULL;
  int match_val = 0, tmpmatch;

  for (tmp = pl->inv; tmp; tmp = tmp->below)
    {
      if (tmp->invisible)
        continue;
      if ((tmpmatch = item_matched_string (pl, tmp, params)) > match_val)
        {
          if ((aflag == AP_APPLY) && (QUERY_FLAG (tmp, FLAG_APPLIED)))
            continue;
          if ((aflag == AP_UNAPPLY) && (!QUERY_FLAG (tmp, FLAG_APPLIED)))
            continue;
          match_val = tmpmatch;
          best = tmp;
        }
    }
  return best;
}

/**
 * Shortcut to find_best_apply_object_match(pl, params, AF_NULL);
 **/
object *
find_best_object_match (object *pl, const char *params)
{
  return find_best_apply_object_match (pl, params, AP_NULL);
}

int
command_uskill (object *pl, char *params)
{
  if (!params)
    {
      new_draw_info (NDI_UNIQUE, 0, pl, "Usage: use_skill <skill name>");
      return 0;
    }
  return use_skill (pl, params);
}

int
command_rskill (object *pl, char *params)
{
  object *skill;

  if (!params)
    {
      new_draw_info (NDI_UNIQUE, 0, pl, "Usage: ready_skill <skill name>");
      return 0;
    }
  skill = find_skill_by_name (pl, params);

  if (!skill)
    {
      new_draw_info_format (NDI_UNIQUE, 0, pl, "You have no knowledge of the skill %s", params);
      return 0;
    }
  return change_skill (pl, skill, 0);
}


/* These functions (command_search, command_disarm) are really just wrappers for
 * things like 'use_skill ...').  In fact, they should really be obsoleted
 * and replaced with those.
 */
int
command_search (object *op, char *params)
{
  return use_skill (op, skill_names[SK_FIND_TRAPS]);
}

int
command_disarm (object *op, char *params)
{
  return use_skill (op, skill_names[SK_DISARM_TRAPS]);
}


/* A little special because we do want to pass the full params along
 * as it includes the object to throw.
 */
int
command_throw (object *op, char *params)
{
  object *skop;

  skop = find_skill_by_name (op, skill_names[SK_THROWING]);
  if (skop)
    return do_skill (op, op, skop, op->facing, params);
  else
    {
      new_draw_info (NDI_UNIQUE, 0, op, "You have no knowledge of the skill throwing.");
    }
  return 0;
}


int
command_apply (object *op, char *params)
{
  if (!params)
    {
      player_apply_below (op);
      return 0;
    }
  else
    {
      apply_flag aflag = (apply_flag) 0;
      object *inv;

      while (*params == ' ')
        params++;
      if (!strncmp (params, "-a ", 3))
        {
          aflag = AP_APPLY;
          params += 3;
        }
      if (!strncmp (params, "-u ", 3))
        {
          aflag = AP_UNAPPLY;
          params += 3;
        }
      while (*params == ' ')
        params++;

      inv = find_best_apply_object_match (op, params, aflag);
      if (inv)
        {
          player_apply (op, inv, aflag, 0);
        }
      else
        new_draw_info_format (NDI_UNIQUE, 0, op, "Could not find any match to the %s.", params);
    }
  return 0;
}

/*
 * Check if an item op can be put into a sack. If pl exists then tell
 * a player the reason of failure.
 * returns 1 if it will fit, 0 if it will not.  nrof is the number of
 * objects (op) we want to put in.  We specify it separately instead of
 * using op->nrof because often times, a player may have specified a
 * certain number of objects to drop, so we can pass that number, and
 * not need to use split_ob and stuff.
 */
int
sack_can_hold (object *pl, object *sack, object *op, uint32 nrof)
{

  if (!QUERY_FLAG (sack, FLAG_APPLIED))
    {
      new_draw_info_format (NDI_UNIQUE, 0, pl, "The %s is not active.", query_name (sack));
      return 0;
    }
  if (sack == op)
    {
      new_draw_info_format (NDI_UNIQUE, 0, pl, "You can't put the %s into itself.", query_name (sack));
      return 0;
    }
  if (sack->race && (sack->race != op->race || op->type == CONTAINER || (sack->stats.food && sack->stats.food != op->type)))
    {
      new_draw_info_format (NDI_UNIQUE, 0, pl, "You can put only %s into the %s.", &sack->race, query_name (sack));
      return 0;
    }
  if (op->type == SPECIAL_KEY && sack->slaying && op->slaying)
    {
      new_draw_info_format (NDI_UNIQUE, 0, pl, "You can't put the key into %s.", query_name (sack));
      return 0;
    }
  if (sack->weight_limit && (sint32) (sack->carrying + (nrof ? nrof : 1) *
                                      (op->weight + (op->type == CONTAINER ? (op->carrying * op->stats.Str) : 0))
                                      * (100 - sack->stats.Str) / 100) > sack->weight_limit)
    {
      new_draw_info_format (NDI_UNIQUE, 0, pl, "That won't fit in the %s!", query_name (sack));
      return 0;
    }
  /* All other checks pass, must be OK */
  return 1;
}

/* Pick up commands follow */

/* pl = player (not always - monsters can use this now)
 * op is the object to put tmp into, 
 * tmp is the object to pick up, nrof is the number to
 * pick up (0 means all of them)
 */
static void
pick_up_object (object *pl, object *op, object *tmp, int nrof)
{
  /* buf needs to be big (more than 256 chars) because you can get
   * very long item names.
   */
  char buf[HUGE_BUF];
  object *env = tmp->env;
  uint32 weight, effective_weight_limit;
  int tmp_nrof = tmp->nrof ? tmp->nrof : 1;

  /* IF the player is flying & trying to take the item out of a container 
   * that is in his inventory, let him.  tmp->env points to the container 
   * (sack, luggage, etc), tmp->env->env then points to the player (nested 
   * containers not allowed as of now)
   */
  if ((pl->move_type & MOVE_FLYING) && !QUERY_FLAG (pl, FLAG_WIZ) && tmp->in_player () != pl)
    {
      new_draw_info (NDI_UNIQUE, 0, pl, "You are levitating, you can't reach the ground!");
      return;
    }

  if (QUERY_FLAG (tmp, FLAG_NO_DROP))
    return;

  if (QUERY_FLAG (tmp, FLAG_WAS_WIZ) && !QUERY_FLAG (pl, FLAG_WAS_WIZ))
    {
      new_draw_info (NDI_UNIQUE, 0, pl, "The object disappears in a puff of smoke!");
      new_draw_info (NDI_UNIQUE, 0, pl, "It must have been an illusion.");

      if (pl->contr)
        esrv_del_item (pl->contr, tmp->count);

      tmp->destroy ();
      return;
    }

  if (nrof > tmp_nrof || nrof == 0)
    nrof = tmp_nrof;

  /* Figure out how much weight this object will add to the player */
  weight = tmp->weight * nrof;
  if (tmp->inv)
    weight += tmp->carrying * (100 - tmp->stats.Str) / 100;

  if (pl->stats.Str <= MAX_STAT)
    effective_weight_limit = weight_limit[pl->stats.Str];
  else
    effective_weight_limit = weight_limit[MAX_STAT];

  if ((pl->weight + pl->carrying + weight) > effective_weight_limit)
    {
      new_draw_info (0, 0, pl, "That item is too heavy for you to pick up.");
      return;
    }

  if (nrof != tmp_nrof)
    {
      object *tmp2 = tmp;

      tmp = get_split_ob (tmp, nrof);
      if (!tmp)
        {
          new_draw_info (NDI_UNIQUE, 0, pl, errmsg);
          return;
        }

      /* Tell the client what happened to the rest of objects */
      if (pl->contr)
        if (tmp2->destroyed ())
          esrv_del_item (pl->contr, tmp2->count);
        else
          esrv_update_item (UPD_NROF, pl, tmp2);
    }
  else
    {
      /* If the object is in a container, send a delete to the client.
       * - we are moving all the items from the container to elsewhere,
       * so it needs to be deleted.
       */
      if (!QUERY_FLAG (tmp, FLAG_REMOVED))
        {
          if (tmp->env && pl->type == PLAYER)
            esrv_del_item (pl->contr, tmp->count);

          tmp->remove ();      /* Unlink it */
        }
    }

  if (QUERY_FLAG (tmp, FLAG_UNPAID))
    sprintf (buf, "%s will cost you %s.", query_name (tmp), query_cost_string (tmp, pl, F_BUY | F_SHOP));
  else
    sprintf (buf, "You pick up the %s.", query_name (tmp));

  new_draw_info (NDI_UNIQUE, 0, pl, buf);

  tmp = insert_ob_in_ob (tmp, op);

  /* All the stuff below deals with client/server code, and is only
   * usable by players
   */
  if (pl->contr)
    {
      esrv_send_item (pl, tmp);

      /* These are needed to update the weight for the container we
       * are putting the object in.
       */
      if (op != pl)
        {
          esrv_update_item (UPD_WEIGHT, pl, op);
          esrv_send_item (pl, pl);
        }

      /* Update the container the object was in */
      if (env && env != pl && env != op)
        esrv_update_item (UPD_WEIGHT, pl, env);
    }
}

/* modified slightly to allow monsters use this -b.t. 5-31-95 */
void
pick_up (object *op, object *alt)
{
  int need_fix_tmp = 0;
  object *tmp = NULL;
  maptile *tmp_map = NULL;
  int count;

  /* Decide which object to pick. */
  if (alt)
    {
      if (!can_pick (op, alt))
        {
          new_draw_info_format (NDI_UNIQUE, 0, op, "You can't pick up the %s.", &alt->name);
          goto leave;
        }
      tmp = alt;
    }
  else
    {
      if (op->below == NULL || !can_pick (op, op->below))
        {
          new_draw_info (NDI_UNIQUE, 0, op, "There is nothing to pick up here.");
          goto leave;
        }

      tmp = op->below;
    }

  /* Try to catch it. */
  tmp_map = tmp->map;
  tmp = stop_item (tmp);
  if (tmp == NULL)
    goto leave;
  need_fix_tmp = 1;
  if (!can_pick (op, tmp))
    goto leave;

  if (op->type == PLAYER)
    {
      count = op->contr->count;
      if (count == 0)
        count = tmp->nrof;
    }
  else
    count = tmp->nrof;

  /* container is open, so use it */
  if (op->container)
    {
      alt = op->container;
      if (alt != tmp->env && !sack_can_hold (op, alt, tmp, count))
        goto leave;
    }
  else
    {                           /* non container pickup */
      for (alt = op->inv; alt; alt = alt->below)
        if (alt->type == CONTAINER && QUERY_FLAG (alt, FLAG_APPLIED) &&
            alt->race && alt->race == tmp->race && sack_can_hold (NULL, alt, tmp, count))
          break;                /* perfect match */

      if (!alt)
        for (alt = op->inv; alt; alt = alt->below)
          if (alt->type == CONTAINER && QUERY_FLAG (alt, FLAG_APPLIED) && sack_can_hold (NULL, alt, tmp, count))
            break;              /* General container comes next */

      if (!alt)
        alt = op;               /* No free containers */
    }

  if (tmp->env == alt)
    {
      /* here it could be possible to check rent,
       * if someone wants to implement it
       */
      alt = op;
    }
#ifdef PICKUP_DEBUG
  LOG (llevDebug, "Pick_up(): %s picks %s (%d) and inserts it %s.\n", op->name, tmp->name, op->contr->count, alt->name);
#endif

  /* startequip items are not allowed to be put into containers: */
  if (op->type == PLAYER && alt->type == CONTAINER && QUERY_FLAG (tmp, FLAG_STARTEQUIP))
    {
      new_draw_info (NDI_UNIQUE, 0, op, "This object cannot be put into containers!");
      goto leave;
    }

  pick_up_object (op, alt, tmp, count);

  if (tmp->destroyed () || tmp->env)
    need_fix_tmp = 0;

  if (op->type == PLAYER)
    op->contr->count = 0;

  goto leave;

leave:
  if (need_fix_tmp)
    fix_stopped_item (tmp, tmp_map, op);
}

/* This takes (picks up) and item.  op is the player
 * who issued the command.  params is a string to
 * match against the item name.  Basically, always
 * returns zero, but that should be improved.
 */
int
command_take (object *op, char *params)
{
  object *tmp, *next;

  if (op->container)
    tmp = op->container->inv;
  else
    {
      tmp = op->above;
      if (tmp)
        while (tmp->above)
          tmp = tmp->above;

      if (!tmp)
        tmp = op->below;
    }

  if (!tmp)
    {
      new_draw_info (NDI_UNIQUE, 0, op, "Nothing to take!");
      return 0;
    }

  /* Makes processing easier */
  if (params && *params == '\0')
    params = 0;

  while (tmp)
    {
      next = tmp->below;

      if (tmp->invisible)
        {
          tmp = next;
          continue;
        }

      /* This following two if and else if could be merged into line
       * but that probably will make it more difficult to read, and
       * not make it any more efficient
       */
      if (params && item_matched_string (op, tmp, params))
        pick_up (op, tmp);
      else if (can_pick (op, tmp) && !params)
        {
          pick_up (op, tmp);
          break;
        }

      tmp = next;
    }

  if (!params && !tmp)
    {
      for (tmp = op->below; tmp; tmp = tmp->below)
        if (!tmp->invisible)
          {
            char buf[MAX_BUF];

            sprintf (buf, "You can't pick up a %s.", &tmp->name);
            new_draw_info (NDI_UNIQUE, 0, op, buf);
            break;
          }

      if (!tmp)
        new_draw_info (NDI_UNIQUE, 0, op, "There is nothing to pick up.");
    }

  return 0;
}


/*
 *  This function was part of drop, now is own function. 
 *  Player 'op' tries to put object 'tmp' into sack 'sack', 
 *  if nrof is non zero, then nrof objects is tried to put into sack. 
 * Note that the 'sack' in question can now be a transport,
 * so this function isn't named very good anymore.
 */
void
put_object_in_sack (object *op, object *sack, object *tmp, uint32 nrof)
{
  object *tmp2, *sack2;
  char buf[MAX_BUF];

  if (sack == tmp)
    return;                     /* Can't put an object in itself */

  if (QUERY_FLAG (tmp, FLAG_STARTEQUIP))
    {
      new_draw_info_format (NDI_UNIQUE, 0, op, "You cannot put the %s in the %s.", query_name (tmp), query_name (sack));
      return;
    }

  if (tmp->type == CONTAINER && tmp->inv)
    {

      /* Eneq(@csd.uu.se): If the object to be dropped is a container
       * we instead move the contents of that container into the active
       * container, this is only done if the object has something in it.
       */
      sack2 = tmp;
      new_draw_info_format (NDI_UNIQUE, 0, op, "You move the items from %s into %s.", query_name (tmp), query_name (sack));

      for (tmp2 = tmp->inv; tmp2; tmp2 = tmp)
        {
          tmp = tmp2->below;

          if ((sack->type == CONTAINER && sack_can_hold (op, op->container, tmp2, tmp2->nrof)))
            {
              put_object_in_sack (op, sack, tmp2, 0);
            }
          else
            {
              sprintf (buf, "Your %s fills up.", query_name (sack));
              new_draw_info (NDI_UNIQUE, 0, op, buf);
              break;
            }
        }

      esrv_update_item (UPD_WEIGHT, op, sack2);
      return;
    }

  /* Don't worry about this for containers - our caller should have
   * already checked this.
   */
  if ((sack->type == CONTAINER) && !sack_can_hold (op, sack, tmp, (nrof ? nrof : tmp->nrof)))
    return;

  if (QUERY_FLAG (tmp, FLAG_APPLIED))
    if (apply_special (op, tmp, AP_UNAPPLY | AP_NO_MERGE))
      return;

  /* we want to put some portion of the item into the container */
  if (nrof && tmp->nrof != nrof)
    {
      object *tmp2 = tmp;

      tmp = get_split_ob (tmp, nrof);

      if (!tmp)
        {
          new_draw_info (NDI_UNIQUE, 0, op, errmsg);
          return;
        }
      /* Tell a client what happened other objects */
      if (tmp2->destroyed ())
        esrv_del_item (op->contr, tmp2->count);
      else                      /* this can proably be replaced with an update */
        esrv_send_item (op, tmp2);
    }
  else
    tmp->remove ();

  new_draw_info_format (NDI_UNIQUE, 0, op, "You put the %s in %s.", query_name (tmp), query_name (sack));
  tmp2 = insert_ob_in_ob (tmp, sack);
  op->update_stats ();              /* This is overkill, fix_player() is called somewhere */
  /* in object.c */

  /* If an object merged (and thus, different object), we need to
   * delete the original.
   */
  if (tmp2 != tmp)
    esrv_del_item (op->contr, tmp->count);

  esrv_send_item (op, tmp2);

  /* update the sacks weight */
  esrv_update_item (UPD_WEIGHT, op, sack);
}

/*
 *  This function was part of drop, now is own function.
 *  Player 'op' tries to drop object 'tmp', if tmp is non zero, then
 *  nrof objects is tried to dropped.
 * This is used when dropping objects onto the floor.
 */
void
drop_object (object *op, object *tmp, uint32 nrof)
{
  char buf[MAX_BUF];
  object *floor;

  if (QUERY_FLAG (tmp, FLAG_NO_DROP))
    return;

  if (QUERY_FLAG (tmp, FLAG_APPLIED))
    if (apply_special (op, tmp, AP_UNAPPLY | AP_NO_MERGE))
      return;                   /* can't unapply it */

  //fprintf (stderr, "ui, on space is %ld\n", op->ms ().volume ());//D

  /* We are only dropping some of the items.  We split the current object
   * off
   */
  if (nrof && tmp->nrof != nrof)
    {
      object *tmp2 = tmp;

      tmp = get_split_ob (tmp, nrof);
      if (!tmp)
        {
          new_draw_info (NDI_UNIQUE, 0, op, errmsg);
          return;
        }
      /* Tell a client what happened rest of objects.  tmp2 is now the
       * original object
       */
      if (op->type == PLAYER)
        {
          if (tmp2->destroyed ())
            esrv_del_item (op->contr, tmp2->count);
          else
            esrv_send_item (op, tmp2);
        }
    }
  else
    tmp->remove ();

  if (INVOKE_OBJECT (DROP, tmp, ARG_OBJECT (op)))
    return;

  if (QUERY_FLAG (tmp, FLAG_STARTEQUIP))
    {
      sprintf (buf, "You drop the %s.", query_name (tmp));
      new_draw_info (NDI_UNIQUE, 0, op, buf);
      new_draw_info (NDI_UNIQUE, 0, op, "The gods who lent it to you retrieves it.");

      if (op->type == PLAYER)
        esrv_del_item (op->contr, tmp->count);

      tmp->destroy ();
      op->update_stats ();
      return;
    }

  if (op->type == PLAYER)
    esrv_del_item (op->contr, tmp->count);

  /* Call this before we update the various windows/players.  At least
   * that we, we know the weight is correct.
   */
  op->update_stats ();              /* This is overkill, fix_player() is called somewhere */
  /* in object.c */

  if (op->type == PLAYER)
    {
      /* Need to update the weight for the player */
      esrv_send_item (op, op);
      op->contr->ns->floorbox_update ();
    }

  for (floor = GET_MAP_OB (op->map, op->x, op->y); floor; floor = floor->above)
    if (INVOKE_OBJECT (DROP_ON, floor, ARG_OBJECT (tmp), ARG_OBJECT (op)))
      return;

  if (is_in_shop (op) && !QUERY_FLAG (tmp, FLAG_UNPAID) && tmp->type != MONEY)
    sell_item (tmp, op);

  tmp->x = op->x;
  tmp->y = op->y;

  insert_ob_in_map (tmp, op->map, op, INS_BELOW_ORIGINATOR);
}

void
drop (object *op, object *tmp)
{
  /* Hopeful fix for disappearing objects when dropping from a container -
   * somehow, players get an invisible object in the container, and the
   * old logic would skip over invisible objects - works fine for the
   * playes inventory, but drop inventory wants to use the next value.
   */
  if (tmp->invisible)
    {
      /* if the following is the case, it must be in an container. */
      if (tmp->env && tmp->env->type != PLAYER)
        {
          /* Just toss the object - probably shouldn't be hanging
           * around anyways
           */
          tmp->remove ();
          tmp->destroy ();
          return;
        }
      else
        {
          while (tmp != NULL && tmp->invisible)
            tmp = tmp->below;
        }
    }

  if (tmp == NULL)
    {
      new_draw_info (NDI_UNIQUE, 0, op, "You don't have anything to drop.");
      return;
    }
  if (QUERY_FLAG (tmp, FLAG_INV_LOCKED))
    {
      new_draw_info (NDI_UNIQUE, 0, op, "This item is locked");
      return;
    }
  if (QUERY_FLAG (tmp, FLAG_NO_DROP))
    {
#if 0
      /* Eneq(@csd.uu.se): Objects with NO_DROP defined can't be dropped. */
      new_draw_info (NDI_UNIQUE, 0, op, "This item can't be dropped.");
#endif
      return;
    }

  if (op->type == PLAYER && op->contr->last_used == tmp)
    op->contr->last_used = tmp->below ? tmp->below
                         : tmp->above ? tmp->above
                         : 0;

  if (op->container)
    {
      if (op->type == PLAYER)
        put_object_in_sack (op, op->container, tmp, op->contr->count);
      else
        put_object_in_sack (op, op->container, tmp, 0);
    }
  else
    {
      if (op->type == PLAYER)
        drop_object (op, tmp, op->contr->count);
      else
        drop_object (op, tmp, 0);
    }

  if (op->type == PLAYER)
    op->contr->count = 0;
}


/* Command will drop all items that have not been locked */
int
command_dropall (object *op, char *params)
{

  object *curinv, *nextinv;

  if (op->inv == NULL)
    {
      new_draw_info (NDI_UNIQUE, 0, op, "Nothing to drop!");
      return 0;
    }

  curinv = op->inv;

  /* 
     This is the default.  Drops everything not locked or considered
     not something that should be dropped.
   */
  /*
     Care must be taken that the next item pointer is not to money as
     the drop() routine will do unknown things to it when dropping
     in a shop. --Tero.Pelander@utu.fi
   */

  if (params == NULL)
    {
      while (curinv != NULL)
        {
          nextinv = curinv->below;
          while (nextinv && nextinv->type == MONEY)
            nextinv = nextinv->below;
          if (!QUERY_FLAG (curinv, FLAG_INV_LOCKED) && curinv->type != MONEY &&
              curinv->type != FOOD && curinv->type != KEY &&
              curinv->type != SPECIAL_KEY && curinv->type != GEM &&
              !curinv->invisible && (curinv->type != CONTAINER || op->container != curinv))
            {
              drop (op, curinv);
            }
          curinv = nextinv;
        }
    }

  else if (strcmp (params, "weapons") == 0)
    {
      while (curinv != NULL)
        {
          nextinv = curinv->below;
          while (nextinv && nextinv->type == MONEY)
            nextinv = nextinv->below;
          if (!QUERY_FLAG (curinv, FLAG_INV_LOCKED) && ((curinv->type == WEAPON) || (curinv->type == BOW) || (curinv->type == ARROW)))
            {
              drop (op, curinv);
            }
          curinv = nextinv;
        }
    }

  else if (strcmp (params, "armor") == 0 || strcmp (params, "armour") == 0)
    {
      while (curinv != NULL)
        {
          nextinv = curinv->below;
          while (nextinv && nextinv->type == MONEY)
            nextinv = nextinv->below;
          if (!QUERY_FLAG (curinv, FLAG_INV_LOCKED) && ((curinv->type == ARMOUR) || curinv->type == SHIELD || curinv->type == HELMET))
            {
              drop (op, curinv);
            }
          curinv = nextinv;
        }
    }

  else if (strcmp (params, "misc") == 0)
    {
      while (curinv != NULL)
        {
          nextinv = curinv->below;
          while (nextinv && nextinv->type == MONEY)
            nextinv = nextinv->below;
          if (!QUERY_FLAG (curinv, FLAG_INV_LOCKED) && !QUERY_FLAG (curinv, FLAG_APPLIED))
            {
              switch (curinv->type)
                {
                  case HORN:
                  case BOOK:
                  case SPELLBOOK:
                  case GIRDLE:
                  case AMULET:
                  case RING:
                  case CLOAK:
                  case BOOTS:
                  case GLOVES:
                  case BRACERS:
                  case SCROLL:
                  case ARMOUR_IMPROVER:
                  case WEAPON_IMPROVER:
                  case WAND:
                  case ROD:
                  case POTION:
                    drop (op, curinv);
                    curinv = nextinv;
                    break;
                  default:
                    curinv = nextinv;
                    break;
                }
            }
          curinv = nextinv;
        }
    }

  op->contr->ns->floorbox_update ();

/*  draw_look(op);*/
  return 0;
}

/* Object op wants to drop object(s) params.  params can be a
 * comma seperated list.
 */

int
command_drop (object *op, char *params)
{
  object *tmp, *next;
  int did_one = 0;

  if (!params)
    {
      new_draw_info (NDI_UNIQUE, 0, op, "Drop what?");
      return 0;
    }
  else
    {
      for (tmp = op->inv; tmp; tmp = next)
        {
          next = tmp->below;
          if (QUERY_FLAG (tmp, FLAG_NO_DROP) || tmp->invisible)
            continue;
          if (item_matched_string (op, tmp, params))
            {
              drop (op, tmp);
              did_one = 1;
            }
        }
      if (!did_one)
        new_draw_info (NDI_UNIQUE, 0, op, "Nothing to drop.");
    }
  if (op->type == PLAYER)
    {
      op->contr->count = 0;
      op->contr->ns->floorbox_update ();
    };

/*    draw_look(op);*/
  return 0;
}

int
command_examine (object *op, char *params)
{
  if (!params)
    {
      object *tmp = op->below;

      while (tmp && !tmp->client_visible ())
        tmp = tmp->below;
      if (tmp)
        examine (op, tmp);
    }
  else
    {
      object *tmp = find_best_object_match (op, params);

      if (tmp)
        examine (op, tmp);
      else
        new_draw_info_format (NDI_UNIQUE, 0, op, "Could not find an object that matches %s", params);
    }
  return 0;
}

/* op should be a player.
 * we return the object the player has marked with the 'mark' command
 * below.  If no match is found (or object has changed), we return
 * NULL.  We leave it up to the calling function to print messages if
 * nothing is found.
 */
object *
find_marked_object (object *op)
{
  object *tmp;

  if (!op || !op->contr)
    return NULL;

  if (!op->contr->mark)
    {
/*      new_draw_info(NDI_UNIQUE,0,op,"You have no marked object");*/
      return 0;
    }

  /* This may seem like overkill, but we need to make sure that they
   * player hasn't dropped the item.  We use count on the off chance that
   * an item got reincarnated at some point.
   */
  for (tmp = op->inv; tmp; tmp = tmp->below)
    {
      if (tmp->invisible)
        continue;

      if (tmp == op->contr->mark)
        {
          if (!tmp->destroyed ())
            return tmp;
          else
            {
              op->contr->mark = 0;
/*              new_draw_info(NDI_UNIQUE,0,op,"You have no marked object");*/
              return 0;
            }
        }
    }

  return 0;
}

/* op is the player
 * tmp is the monster being examined.
 */
void
examine_monster (object *op, object *tmp)
{
  object *mon = tmp->head ? tmp->head : tmp;

  if (QUERY_FLAG (mon, FLAG_UNDEAD))
    new_draw_info (NDI_UNIQUE, 0, op, "It is an undead force.");
  if (mon->level > op->level)
    new_draw_info (NDI_UNIQUE, 0, op, "It is likely more powerful than you.");
  else if (mon->level < op->level)
    new_draw_info (NDI_UNIQUE, 0, op, "It is likely less powerful than you.");
  else
    new_draw_info (NDI_UNIQUE, 0, op, "It is probably as powerful as you.");
  if (mon->attacktype & AT_ACID)
    new_draw_info (NDI_UNIQUE, 0, op, "You seem to smell an acrid odor.");

  /* Anyone know why this used to use the clone value instead of the
   * maxhp field?  This seems that it should give more accurate results.
   */
  switch ((mon->stats.hp + 1) * 4 / (mon->stats.maxhp + 1))
    {                           /* From 1-4 */
      case 1:
        new_draw_info (NDI_UNIQUE, 0, op, "It is in a bad shape.");
        break;
      case 2:
        new_draw_info (NDI_UNIQUE, 0, op, "It is hurt.");
        break;
      case 3:
        new_draw_info (NDI_UNIQUE, 0, op, "It is somewhat hurt.");
        break;
      case 4:
        new_draw_info (NDI_UNIQUE, 0, op, "It is in excellent shape.");
        break;
    }
  if (present_in_ob (POISONING, mon) != NULL)
    new_draw_info (NDI_UNIQUE, 0, op, "It looks very ill.");
}


/* tmp is the object being described, pl is who is examing it. */
char *
long_desc (object *tmp, object *pl)
{
  static char buf[VERY_BIG_BUF];
  char *cp;

  if (tmp == NULL)
    return "";

  buf[0] = '\0';
  switch (tmp->type)
    {
      case RING:
      case SKILL:
      case WEAPON:
      case ARMOUR:
      case BRACERS:
      case HELMET:
      case SHIELD:
      case BOOTS:
      case GLOVES:
      case AMULET:
      case GIRDLE:
      case BOW:
      case ARROW:
      case CLOAK:
      case FOOD:
      case DRINK:
      case FLESH:
      case SKILL_TOOL:
      case POWER_CRYSTAL:
        if (*(cp = describe_item (tmp, pl)) != '\0')
          {
            int len;

            assign (buf, query_name (tmp));
            len = strlen (buf);
            if (len < VERY_BIG_BUF - 5)
              {
                /* Since we know the length, we save a few cpu cycles by using
                 * it instead of calling strcat */
                strcpy (buf + len, " ");
                len++;
                assign (buf + len, cp, VERY_BIG_BUF - len - 1);
              }
          }
    }

  if (buf[0] == '\0')
    assign (buf, query_name (tmp));

  return buf;
}

void
examine (object *op, object *tmp)
{
  char buf[VERY_BIG_BUF];
  int i;

  if (tmp == NULL || tmp->type == CLOSE_CON)
    return;

  strcpy (buf, "That is ");
  strncat (buf, long_desc (tmp, op), VERY_BIG_BUF - strlen (buf) - 1);
  buf[VERY_BIG_BUF - 1] = 0;

  new_draw_info (NDI_UNIQUE, 0, op, buf);
  buf[0] = '\0';

  if (tmp->custom_name)
    {
      strcpy (buf, "You call it ");
      strncat (buf, tmp->custom_name, VERY_BIG_BUF - strlen (buf) - 1);
      buf[VERY_BIG_BUF - 1] = 0;
      new_draw_info (NDI_UNIQUE, 0, op, buf);
      buf[0] = '\0';
    }

  switch (tmp->type)
    {
      case SPELLBOOK:
        if (QUERY_FLAG (tmp, FLAG_IDENTIFIED) && tmp->inv)
          {
            sprintf (buf, "%s is a %s level %s spell", &tmp->inv->name, get_levelnumber (tmp->inv->level), &tmp->inv->skill);
          }
        break;

      case BOOK:
        if (tmp->msg != NULL)
          strcpy (buf, "Something is written in it.");
        break;

      case CONTAINER:
        if (tmp->race != NULL)
          {
            if (tmp->weight_limit && tmp->stats.Str < 100)
              sprintf (buf, "It can hold only %s and its weight limit is %.1f kg.",
                       &tmp->race, tmp->weight_limit / (10.0 * (100 - tmp->stats.Str)));
            else
              sprintf (buf, "It can hold only %s.", &tmp->race);
          }
        else if (tmp->weight_limit && tmp->stats.Str < 100)
          sprintf (buf, "Its weight limit is %.1f kg.", tmp->weight_limit / (10.0 * (100 - tmp->stats.Str)));
        break;

      case WAND:
        if (QUERY_FLAG (tmp, FLAG_IDENTIFIED))
          sprintf (buf, "It has %d charges left.", tmp->stats.food);
        break;
    }

  if (buf[0] != '\0')
    new_draw_info (NDI_UNIQUE, 0, op, buf);

  if (tmp->materialname != NULL && !tmp->msg)
    {
      sprintf (buf, "It is made of: %s.", &tmp->materialname);
      new_draw_info (NDI_UNIQUE, 0, op, buf);
    }
  /* Where to wear this item */
  for (i = 0; i < NUM_BODY_LOCATIONS; i++)
    {
      if (tmp->body_info[i] < -1)
        {
          if (op->body_info[i])
            new_draw_info_format (NDI_UNIQUE, 0, op, "It goes %s (%d)", body_locations[i].use_name, -tmp->body_info[i]);
          else
            new_draw_info_format (NDI_UNIQUE, 0, op, "It goes %s", body_locations[i].nonuse_name);
        }
      else if (tmp->body_info[i])
        {
          if (op->body_info[i])
            new_draw_info_format (NDI_UNIQUE, 0, op, "It goes %s", body_locations[i].use_name);
          else
            new_draw_info_format (NDI_UNIQUE, 0, op, "It goes %s", body_locations[i].nonuse_name);
        }
    }

  if (tmp->weight)
    {
      sprintf (buf, tmp->nrof > 1 ? "They weigh %3.3f kg." : "It weighs %3.3f kg.", tmp->weight * (tmp->nrof ? tmp->nrof : 1) / 1000.0);
      new_draw_info (NDI_UNIQUE, 0, op, buf);
    }

  if (tmp->value && !QUERY_FLAG (tmp, FLAG_STARTEQUIP) && !QUERY_FLAG (tmp, FLAG_NO_PICK))
    {
      sprintf (buf, "You reckon %s worth %s.", tmp->nrof > 1 ? "they are" : "it is", query_cost_string (tmp, op, F_TRUE | F_APPROX));
      new_draw_info (NDI_UNIQUE, 0, op, buf);
      if (is_in_shop (op))
        {
          if (QUERY_FLAG (tmp, FLAG_UNPAID))
            sprintf (buf, "%s would cost you %s.", tmp->nrof > 1 ? "They" : "It", query_cost_string (tmp, op, F_BUY | F_SHOP));
          else
            sprintf (buf, "You are offered %s for %s.", query_cost_string (tmp, op, F_SELL + F_SHOP), tmp->nrof > 1 ? "them" : "it");
          new_draw_info (NDI_UNIQUE, 0, op, buf);
        }
    }

  if (QUERY_FLAG (tmp, FLAG_MONSTER))
    examine_monster (op, tmp);

  /* Is this item buildable? */
  if (QUERY_FLAG (tmp, FLAG_IS_BUILDABLE))
    new_draw_info (NDI_UNIQUE, 0, op, "This is a buildable item.");

  /* Does the object have a message?  Don't show message for all object
   * types - especially if the first entry is a match
   */
  if (tmp->msg && tmp->type != EXIT && tmp->type != BOOK && tmp->type != CORPSE && !tmp->move_on && strncasecmp (tmp->msg, "@match", 7))
    {

      /* This is just a hack so when identifying the items, we print
       * out the extra message
       */
      if (need_identify (tmp) && QUERY_FLAG (tmp, FLAG_IDENTIFIED))
        new_draw_info (NDI_UNIQUE, 0, op, "The object has a story:");

      new_draw_info (NDI_UNIQUE, 0, op, tmp->msg);
    }
  new_draw_info (NDI_UNIQUE, 0, op, " ");       /* Blank line */
}

/*
 * inventory prints object's inventory. If inv==NULL then print player's
 * inventory. 
 * [ Only items which are applied are showed. Tero.Haatanen@lut.fi ]
 */
void
inventory (object *op, object *inv)
{
  object *tmp;
  char *in;
  int items = 0, length;

  if (inv == NULL && op == NULL)
    {
      new_draw_info (NDI_UNIQUE, 0, op, "Inventory of what object?");
      return;
    }
  tmp = inv ? inv->inv : op->inv;

  while (tmp)
    {
      if ((!tmp->invisible &&
           (inv == NULL || inv->type == CONTAINER || QUERY_FLAG (tmp, FLAG_APPLIED))) || (!op || QUERY_FLAG (op, FLAG_WIZ)))
        items++;
      tmp = tmp->below;
    }
  if (inv == NULL)
    {                           /* player's inventory */
      if (items == 0)
        {
          new_draw_info (NDI_UNIQUE, 0, op, "You carry nothing.");
          return;
        }
      else
        {
          length = 28;
          in = "";
          if (op)
            clear_win_info (op);
          new_draw_info (NDI_UNIQUE, 0, op, "Inventory:");
        }
    }
  else
    {
      if (items == 0)
        return;
      else
        {
          length = 28;
          in = "  ";
        }
    }
  for (tmp = inv ? inv->inv : op->inv; tmp; tmp = tmp->below)
    {
      if ((!op || !QUERY_FLAG (op, FLAG_WIZ)) && (tmp->invisible || (inv && inv->type != CONTAINER && !QUERY_FLAG (tmp, FLAG_APPLIED))))
        continue;
      if ((!op || QUERY_FLAG (op, FLAG_WIZ)))
        new_draw_info_format (NDI_UNIQUE, 0, op, "%s- %-*.*s (%5d) %-8s", in, length, length,
                              query_name (tmp), tmp->count, query_weight (tmp));
      else
        new_draw_info_format (NDI_UNIQUE, 0, op, "%s- %-*.*s %-8s", in, length + 8, length + 8, query_name (tmp), query_weight (tmp));
    }
  if (!inv && op)
    {
      new_draw_info_format (NDI_UNIQUE, 0, op, "%-*s %-8s", 41, "Total weight :", query_weight (op));
    }
}

static void
display_new_pickup (object *op)
{
  int i = op->contr->mode;

  if (!(i & PU_NEWMODE))
    return;

  new_draw_info_format (NDI_UNIQUE, 0, op, "%d NEWMODE", i & PU_NEWMODE ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d DEBUG", i & PU_DEBUG ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d INHIBIT", i & PU_INHIBIT ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d STOP", i & PU_STOP ? 1 : 0);

  new_draw_info_format (NDI_UNIQUE, 0, op, "%d <= x pickup weight/value RATIO (0==off)", (i & PU_RATIO) * 5);

  new_draw_info_format (NDI_UNIQUE, 0, op, "%d FOOD", i & PU_FOOD ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d DRINK", i & PU_DRINK ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d VALUABLES", i & PU_VALUABLES ? 1 : 0);

  new_draw_info_format (NDI_UNIQUE, 0, op, "%d BOW", i & PU_BOW ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d ARROW", i & PU_ARROW ? 1 : 0);

  new_draw_info_format (NDI_UNIQUE, 0, op, "%d HELMET", i & PU_HELMET ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d SHIELD", i & PU_SHIELD ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d ARMOUR", i & PU_ARMOUR ? 1 : 0);

  new_draw_info_format (NDI_UNIQUE, 0, op, "%d BOOTS", i & PU_BOOTS ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d GLOVES", i & PU_GLOVES ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d CLOAK", i & PU_CLOAK ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d KEY", i & PU_KEY ? 1 : 0);

  new_draw_info_format (NDI_UNIQUE, 0, op, "%d MISSILEWEAPON", i & PU_MISSILEWEAPON ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d ALLWEAPON", i & PU_ALLWEAPON ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d MAGICAL", i & PU_MAGICAL ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d POTION", i & PU_POTION ? 1 : 0);

  new_draw_info_format (NDI_UNIQUE, 0, op, "%d SPELLBOOK", i & PU_SPELLBOOK ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d SKILLSCROLL", i & PU_SKILLSCROLL ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d READABLES", i & PU_READABLES ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d MAGICDEVICE", i & PU_MAGIC_DEVICE ? 1 : 0);

  new_draw_info_format (NDI_UNIQUE, 0, op, "%d NOT CURSED", i & PU_NOT_CURSED ? 1 : 0);

  new_draw_info_format (NDI_UNIQUE, 0, op, "%d JEWELS", i & PU_JEWELS ? 1 : 0);
  new_draw_info_format (NDI_UNIQUE, 0, op, "%d FLESH", i & PU_FLESH ? 1 : 0);

  new_draw_info_format (NDI_UNIQUE, 0, op, "");
}

int
command_pickup (object *op, char *params)
{
  uint32 i;
  static const char *names[] = {
    "debug", "inhibit", "stop", "food", "drink", "valuables", "bow", "arrow", "helmet",
    "shield", "armour", "boots", "gloves", "cloak", "key", "missile", "allweapon",
    "magical", "potion", "spellbook", "skillscroll", "readables", "magicdevice", "notcursed",
    "jewels", "flesh", NULL
  };
  static uint32 modes[] = {
    PU_DEBUG, PU_INHIBIT, PU_STOP, PU_FOOD, PU_DRINK, PU_VALUABLES, PU_BOW, PU_ARROW, PU_HELMET,
    PU_SHIELD, PU_ARMOUR, PU_BOOTS, PU_GLOVES, PU_CLOAK, PU_KEY, PU_MISSILEWEAPON, PU_ALLWEAPON,
    PU_MAGICAL, PU_POTION, PU_SPELLBOOK, PU_SKILLSCROLL, PU_READABLES, PU_MAGIC_DEVICE, PU_NOT_CURSED,
    PU_JEWELS, PU_FLESH, 0
  };

  if (!params)
    {
      /* if the new mode is used, just print the settings */
      if (op->contr->mode & PU_NEWMODE)
        {
          display_new_pickup (op);
          return 1;
        }
      if (1)
        LOG (llevDebug, "command_pickup: !params\n");
      set_pickup_mode (op, (op->contr->mode > 6) ? 0 : op->contr->mode + 1);
      return 0;
    }

  while (*params == ' ' && *params)
    params++;

  if (*params == '+' || *params == '-')
    {
      int mode;

      for (mode = 0; names[mode]; mode++)
        {
          if (!strcmp (names[mode], params + 1))
            {
              i = op->contr->mode;
              if (!(i & PU_NEWMODE))
                i = PU_NEWMODE;
              if (*params == '+')
                i = i | modes[mode];
              else
                i = i & ~modes[mode];
              op->contr->mode = i;
              display_new_pickup (op);
              return 1;
            }
        }
      new_draw_info_format (NDI_UNIQUE, 0, op, "Pickup: invalid item %s\n", params);
      return 1;
    }

  if (sscanf (params, "%u", &i) != 1)
    {
      if (1)
        LOG (llevDebug, "command_pickup: params==NULL\n");
      new_draw_info (NDI_UNIQUE, 0, op, "Usage: pickup <0-7> or <value_density> .");
      return 1;
    }
  set_pickup_mode (op, i);

  return 1;
}

void
set_pickup_mode (object *op, int i)
{
  switch (op->contr->mode = i)
    {
      case 0:
        new_draw_info (NDI_UNIQUE, 0, op, "Mode: Don't pick up.");
        break;
      case 1:
        new_draw_info (NDI_UNIQUE, 0, op, "Mode: Pick up one item.");
        break;
      case 2:
        new_draw_info (NDI_UNIQUE, 0, op, "Mode: Pick up one item and stop.");
        break;
      case 3:
        new_draw_info (NDI_UNIQUE, 0, op, "Mode: Stop before picking up.");
        break;
      case 4:
        new_draw_info (NDI_UNIQUE, 0, op, "Mode: Pick up all items.");
        break;
      case 5:
        new_draw_info (NDI_UNIQUE, 0, op, "Mode: Pick up all items and stop.");
        break;
      case 6:
        new_draw_info (NDI_UNIQUE, 0, op, "Mode: Pick up all magic items.");
        break;
      case 7:
        new_draw_info (NDI_UNIQUE, 0, op, "Mode: Pick up all coins and gems");
        break;
    }
}

int
command_search_items (object *op, char *params)
{
  char buf[MAX_BUF];

  if (settings.search_items == FALSE)
    return 1;

  if (params == NULL)
    {
      if (op->contr->search_str[0] == '\0')
        {
          new_draw_info (NDI_UNIQUE, 0, op, "Example: search magic+1");
          new_draw_info (NDI_UNIQUE, 0, op, "Would automatically pick up all");
          new_draw_info (NDI_UNIQUE, 0, op, "items containing the word 'magic+1'.");
          return 1;
        }
      op->contr->search_str[0] = '\0';
      new_draw_info (NDI_UNIQUE, 0, op, "Search mode turned off.");
      op->update_stats ();
      return 1;
    }
  if ((int) strlen (params) >= MAX_BUF)
    {
      new_draw_info (NDI_UNIQUE, 0, op, "Search string too long.");
      return 1;
    }
  strcpy (op->contr->search_str, params);
  sprintf (buf, "Searching for '%s'.", op->contr->search_str);
  new_draw_info (NDI_UNIQUE, 0, op, buf);
  op->update_stats ();
  return 1;
}

Revision:	1.40
Committed:	Fri Mar 2 12:14:57 2007 UTC (17 years, 2 months ago) by pippijn
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rel-2_0
Changes since 1.39:	+0 -41 lines
Log Message:	- run, fire, mark in perl - no more NewServerCommands