server/server/c_object.C

/*
 * static char *rcsid_c_object_c =
 *   "$Id: c_object.C,v 1.1 2006-08-13 17:16:04 elmex Exp $";
 */
/*
    CrossFire, A Multiplayer game for X-windows

    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-devel@real-time.com

   Object (handling) commands
*/

#include <global.h>
#include <loader.h>
#include <skills.h>
#ifndef __CEXTRACT__
#include <sproto.h>
#endif
#include <living.h>
#include <math.h>
/*
 * Object id parsing functions
 */

#define OBLINKMALLOC(p) if(!((p)=(objectlink *)malloc(sizeof(objectlink))))\
                          fatal(OUT_OF_MEMORY);

#define ADD_ITEM(NEW,COUNT)\
          if(!first) {\
            OBLINKMALLOC(first);\
            last=first;\
          } else {\
            OBLINKMALLOC(last->next);\
            last=last->next;\
          }\
          last->next=NULL;\
          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);
}

/*
 * Notes about item creation:
 * 1) It is similar in syntax to the dm create command.
 * 2) It requires a player to have a buildfacility below him, a tool in his
 *    possesion, and materials to build with.
 * 3) The random roll is done in a loop, so if the player tries to make 100,
 *    he makes 100 checks.
 * 4) Exp is given only on succ. creations, but materials are used regardless.
 * 5) The properties of the tool are stored in tooltype and weapontype.
 * 6) The properties of the buildfacilities are stored in tooltype.
 * 7) For now, all ingredients must be type 73 INORGANIC.
 * 8) The player can attempt to create any arch, but item_power and value
 *    will prevent most artifacts from being built.
 * 9) The code allows magic bonuses up to +5.  It is not trivial to make a +5
 *    item.
 *10) If you ever extend it beyond +5, add more gemtypes.  Currently the code
 *    looks for gemcost gems per item, per plus.  So a +5 item requires
 *    gemcost pearls,rubies,emeralds,sapphires and diamonds.  Not cheap.
 *11) There are a zillion if statements in this code.  Alot of checking takes
 *    place here.  All of them are needed.
 */

int command_build (object *pl, char *params) {
    return 0;
#if 0
    object *marked, *facility, *tool, *newobj, *tmp;
    archetype *at;
    int skillnr, obpow, number, bonus, mneed, nrof, magic, i, nummade, found;
    int gemcost;
    char *bp;
    materialtype_t *mt;

    /* NOTE THIS FUNCTION IS CURRENTLY DISABLED */

/*    Given this is currently disabled, I'm not going to bother updating
 * it with the new skill system.  IT really needs to get the skill object
 * pointer in a better fashion than it is currently doing.
 */
    if (!params) {
        new_draw_info(NDI_UNIQUE, 0, pl, "Usage:build [nr] [+magic] <object>");
        return 0;
    }
    marked = find_marked_object(pl);
    if (marked == NULL || !marked->material || marked->materialname == NULL ||
        marked->type != INORGANIC) {
        new_draw_info(NDI_UNIQUE, 0, pl, "You must mark some ingredients.");
        return 0;
    }
    while (*params==' ')
        params++;
    bp = params;
    nrof = 1;
    magic = 0;

    if (sscanf(bp, "%d ", &nrof)) {
        if ((bp = strchr(params, ' ')) == NULL) {
            new_draw_info(NDI_UNIQUE, 0, pl,
                "Usage: build [nr] [+magic] <object>");
            return 0;
        }
        bp++;
    }
    if (sscanf(bp, "+%d ", &magic)) {
        if ((bp = strchr(bp, ' ')) == NULL) {
            new_draw_info(NDI_UNIQUE, 0, pl,
                "Usage: build [nr] [+magic] <object>");
            return 0;
        }
        bp++;
    }
    while (*bp==' ')
        bp++;
    at=find_archetype_by_object_name(bp);
    if (at == NULL) {
        new_draw_info_format(NDI_UNIQUE, 0, pl,
            "You don't know how to make a %s.", bp);
        return 0;
    }
    newobj = get_object();
    copy_object(&at->clone, newobj);

    skillnr = -1;

    if ((IS_ARMOR(newobj) && newobj->material != M_LEATHER) ||
        newobj->type == WEAPON)
        skillnr = SK_SMITH;

    if (IS_ARMOR(newobj) && newobj->material == M_LEATHER)
        skillnr = SK_WOODSMAN;
    
    if (newobj->type == BOW || newobj->type == ARROW)
        skillnr = SK_BOWYER;

    if (skillnr == -1) {
        new_draw_info(NDI_UNIQUE, 0, pl, "You don't know how to create that.");
        return 0;
    }

    if (!change_skill(pl, skillnr, 0)) {
        new_draw_info(NDI_UNIQUE, 0, pl,
            "You lack the needed skill to make that item.");
        return 0;
    }
    facility = NULL;
    for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
        if (tmp->type == BUILDFAC && tmp->tooltype == newobj->type)
            facility=tmp;
    if (facility == NULL) {
        new_draw_info(NDI_UNIQUE, 0, pl, "You lack a suitable workspace.");
        return 0;
    }
    if (magic && !(IS_ARMOR(newobj) || IS_WEAPON(newobj))) {
        new_draw_info(NDI_UNIQUE, 0, pl, "A magical bonus is only valid with "
            "armour and weapons.");
        return 0;
    }

    /* use newobj->weapontype == tool->weapontype for building weapons */
    /* use newobj->material == tool->weapontype for building armour */
    /* newobj->type == tool->tooltype */
    tool = NULL;
    for (tmp=pl->inv; tmp; tmp=tmp->below) {
        if (tmp->type != TOOL)
            continue;
        if (IS_ARMOR(newobj) && (newobj->material & tmp->weapontype) &&
            newobj->type == tmp->tooltype) {
            if (tool == NULL ||
                (tool->level + tool->magic) < (tmp->level + tmp->magic))
                tool = tmp;
        } else if (IS_WEAPON(newobj) && (newobj->weapontype&tmp->weapontype) &&
                   newobj->type == tmp->tooltype) {
            if (tool == NULL ||
                (tool->level + tool->magic) < (tmp->level + tmp->magic))
                tool = tmp;
        }
        /* should split off bows arrows and probably bolts around here */
    }
    if (tool == NULL) {
        new_draw_info(NDI_UNIQUE, 0, pl, "You lack the required tools.");
        return 0;
    }

    mt = name_to_material(marked->materialname);
    if (mt == NULL) {
        new_draw_info(NDI_UNIQUE, 0, pl, "Your raw materials are garbage.");
        return 0;
    }
    if (magic < 0) {
        new_draw_info(NDI_UNIQUE, 0, pl, "You cannot create cursed objects.");
        return 0;
    }
    if (magic > 0 && SK_level(pl)/20 < magic) {
        new_draw_info(NDI_UNIQUE, 0, pl, "You are not powerful enough to "
            "create such a magical item.");
        return 0;
    }

    gemcost = 100;
    if (newobj->type == ARROW)
        gemcost = 1;
    if (magic > 0) {
        found = 0;
        for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
            if (tmp->type == GEM && !strcmp(tmp->arch->name, "pearl") &&
                tmp->nrof >= gemcost*nrof*mt->value/100)
                found++;
        if (magic > 1)
            for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
                if (tmp->type == GEM && !strcmp(tmp->arch->name, "emerald") &&
                    tmp->nrof >= gemcost*nrof*mt->value/100)
                    found++;
        if (magic > 2)
            for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
                if (tmp->type == GEM && !strcmp(tmp->arch->name, "sapphire") &&
                    tmp->nrof >= gemcost*nrof*mt->value/100)
                    found++;
        if (magic > 3)
            for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
                if (tmp->type == GEM && !strcmp(tmp->arch->name, "ruby") &&
                    tmp->nrof >= gemcost*nrof*mt->value/100)
                    found++;
        if (magic > 4)
            for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
                if (tmp->type == GEM && !strcmp(tmp->arch->name, "diamond") &&
                    tmp->nrof >= gemcost*nrof*mt->value/100)
                    found++;
        if (found < magic) {
            new_draw_info(NDI_UNIQUE, 0, pl, "You did not provide a suitable "
                "sacrifice of gems on the ground to add this much magic.");
            return 0;
        }
        if (25*pow(3, magic)*mt->value/100 > pl->stats.sp) {
            new_draw_info(NDI_UNIQUE, 0, pl, "You do not have enough mana "
                "to create this object.");
            return 0;
        }
    }

    /* good lord.  Now we have a tool, facilites, materials (marked) and an
       object we want to create.  Thats alot of if's */

    obpow = (newobj->item_power + newobj->value/1000 + 1)*mt->value/100;
    mneed = nrof*((newobj->weight * mt->weight)/80);
    /* cost can be balanced out by cost to disassemble items for materials */
    if ((marked->weight * MAX(1, marked->nrof)) < mneed) {
        new_draw_info_format(NDI_UNIQUE, 0, pl, "You do not have enough %s.",
            marked->name);
        return 0;
    }
    if (obpow > (tool->level+tool->magic)) {
        new_draw_info_format(NDI_UNIQUE, 0, pl, "Your %s is not capable of "
            "crafting such a complex item.", tool->name);
        return 0;
    }
    set_abs_magic(newobj, magic);
    set_materialname(newobj, 1, mt);
    for (i=0, nummade=0; i< nrof; i++) {
        bonus = tool->level+tool->magic - obpow;
        number = rndm(1, 3*obpow*magic);
        LOG(llevDebug, "command_build: skill:%d obpow:%d rndm:%d tool:%s "
            "newobj:%s marked:%s magic:%d\n", SK_level(pl)+bonus, obpow,
            number, tool->name, newobj->name, marked->name, magic);
        if (SK_level(pl)+bonus > number) {
            /* wow, we actually created something */
            newobj->x = pl->x;
            newobj->y = pl->y;
            newobj->map = pl->map;
            SET_FLAG(newobj, FLAG_IDENTIFIED);
            if (i == 0)
                newobj = insert_ob_in_ob(newobj, pl);
            else
                newobj->nrof++;
            esrv_send_item(pl, newobj);
            nummade++;
        } else {
            free_object(newobj);
            if (bonus < rndm(1, number-SK_level(pl)+bonus)) {
                new_draw_info_format(NDI_UNIQUE, 0, pl,
                    "You broke your %s!\n", tool->name);
                esrv_del_item(pl->contr, tool->count);
                remove_ob(tool);
                free_object(tool);
                break;
            }
        }
        /* take away materials too */
        tmp = get_split_ob(marked, MAX(1, mneed/marked->weight));
        if (tmp)
            free_object(tmp);
        if (marked->nrof < 1)
            esrv_del_item(pl->contr, marked->count);
        else
            esrv_send_item(pl, marked);
    }
    if (magic)
        for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
            if (tmp->type == GEM && !strcmp(tmp->arch->name, "pearl") &&
                tmp->nrof >= gemcost*nrof*mt->value/100)
                tmp->nrof -= gemcost*nrof*mt->value/100;
    if (magic > 1)
        for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
            if (tmp->type == GEM && !strcmp(tmp->arch->name, "emerald") &&
                tmp->nrof >= gemcost*nrof*mt->value/100)
                tmp->nrof -= gemcost*nrof*mt->value/100;
    if (magic > 2)
        for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
            if (tmp->type == GEM && !strcmp(tmp->arch->name, "sapphire") &&
                tmp->nrof >= gemcost*nrof*mt->value/100)
                tmp->nrof -= gemcost*nrof*mt->value/100;
    if (magic > 3)
        for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
            if (tmp->type == GEM && !strcmp(tmp->arch->name, "ruby") &&
                tmp->nrof >= gemcost*nrof*mt->value/100)
                tmp->nrof -= gemcost*nrof*mt->value/100;
    if (magic > 4)
        for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
            if (tmp->type == GEM && !strcmp(tmp->arch->name, "diamond") &&
                tmp->nrof >= gemcost*nrof*mt->value/100)
                tmp->nrof -= gemcost*nrof*mt->value/100;
    if (magic)
        for (tmp=GET_MAP_OB(pl->map, pl->x, pl->y); tmp; tmp=tmp->above)
            if (tmp->type == GEM &&
                (!strcmp(tmp->arch->name, "diamond") ||
                 !strcmp(tmp->arch->name, "ruby") ||
                 !strcmp(tmp->arch->name, "sapphire") ||
                 !strcmp(tmp->arch->name, "emerald") ||
                 !strcmp(tmp->arch->name, "pearl"))) {
                if (tmp->nrof == 0) {
                    remove_ob(tmp);
                    free_object(tmp);
                }
                if (pl->contr)
                    pl->contr->socket.update_look=1;
            }
    pl->stats.sp -= 25*pow(3, magic)*mt->value/100;
    fix_player(pl);
    if (nummade > 1) {
        new_draw_info_format(NDI_UNIQUE, 0, pl, "You have created %d %s.",
            nummade, query_base_name(newobj, 1));
    } else if (nummade == 1) {
        new_draw_info_format(NDI_UNIQUE, 0, pl, "You have created a %s.",
            query_base_name(newobj, 0));
    } else {
        new_draw_info_format(NDI_UNIQUE, 0, pl,
            "You have failed to craft a %s.", query_base_name(newobj, 0));
        return 0;
    }
    if (skills[skillnr].category != EXP_NONE)
        add_exp(pl, obpow*nummade);
    return 1;
#endif
}


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 && 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) && 
       is_player_inv(tmp)!=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->type==PLAYER) esrv_del_item (pl->contr, tmp->count);
        if ( ! QUERY_FLAG (tmp, FLAG_REMOVED))
            remove_ob (tmp);
        free_object(tmp);
        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 (settings.real_wiz == FALSE && QUERY_FLAG(pl, FLAG_WAS_WIZ))
        SET_FLAG(tmp, FLAG_WAS_WIZ);
    if (nrof != tmp_nrof) {
        object *tmp2 = tmp;
        tag_t tmp2_tag = tmp2->count;
        tmp = get_split_ob (tmp, nrof);
        if(!tmp) {
            new_draw_info(NDI_UNIQUE, 0,pl, errmsg);
            return;
        }
        /* Tell a client what happened rest of objects */
        if (pl->type == PLAYER) {
            if (was_destroyed (tmp2, tmp2_tag))
                esrv_del_item (pl->contr, tmp2_tag);
            else
                esrv_send_item (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);
            remove_ob(tmp); /* Unlink it */
        }
    }
    if(QUERY_FLAG(tmp, FLAG_UNPAID))
        (void) sprintf(buf,"%s will cost you %s.", query_name(tmp),
                query_cost_string(tmp,pl,F_BUY | F_SHOP));
    else
        (void) 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->type!=PLAYER) return;

    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);
}


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

    /* 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;
    }

    tag = tmp->count;
    pick_up_object (op, alt, tmp, count);
    if (was_destroyed (tmp, tag) || 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==NULL) {
        new_draw_info(NDI_UNIQUE, 0,op,"Nothing to take!");
        return 0;
    }

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

    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;
        /* Might as well just skip over the player immediately -
         * we know it can't be picked up
         */
        if (tmp == op) tmp=tmp->below;
    }
    if (!params && !tmp) {
        for (tmp=op->below; tmp!=NULL; tmp=tmp->next)
            if (!tmp->invisible) {
                char buf[MAX_BUF];
                sprintf(buf,"You can't pick up a %s.",
                    tmp->name? tmp->name:"null");
                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) 
{
    tag_t tmp_tag, tmp2_tag;
    object *tmp2, *sack2;
    char buf[MAX_BUF];

    if (sack==tmp) return;      /* Can't put an object in itself */
    if (sack->type != CONTAINER && sack->type != TRANSPORT) {
        new_draw_info_format(NDI_UNIQUE, 0,op,
                     "The %s is not a container.", query_name(sack));
        return;
    }
    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)) ||
                (sack->type == TRANSPORT && transport_can_hold(sack, 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;
        tmp2_tag = tmp2->count;
        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 (was_destroyed (tmp2, tmp2_tag))
              esrv_del_item (op->contr, tmp2_tag);
        else    /* this can proably be replaced with an update */
              esrv_send_item (op, tmp2);
    } else
        remove_ob(tmp);

    new_draw_info_format(NDI_UNIQUE, 0,op, "You put the %s in %s.",
                  query_name(tmp), query_name(sack));
    tmp_tag = tmp->count;
    tmp2 = insert_ob_in_ob(tmp, sack);
    fix_player(op); /* 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_tag);

    esrv_send_item (op, tmp2);

    /* If a transport, need to update all the players in the transport
     * the view of what is in it.
     */
    if (sack->type == TRANSPORT) {
        for (tmp=sack->inv; tmp; tmp=tmp->below) {
            if (tmp->type == PLAYER) tmp->contr->socket.update_look=1;
        }
    } else {
        /* 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 */

  /* We are only dropping some of the items.  We split the current objec
   * off
   */
  if (nrof && tmp->nrof != nrof)
    {
      object *tmp2 = tmp;
      tag_t tmp2_tag = tmp2->count;
      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 (was_destroyed (tmp2, tmp2_tag))
            esrv_del_item (op->contr, tmp2_tag);
          else
            esrv_send_item (op, tmp2);
        }
    }
  else
    remove_ob (tmp);

  /* Lauwenmark: Handle for plugin drop event */
  if (execute_event (tmp, EVENT_DROP, op, NULL, NULL, SCRIPT_FIX_ALL) != 0)
    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);
      free_object (tmp);
      fix_player (op);
      return;
    }

/*  If SAVE_INTERVAL is commented out, we never want to save
 *  the player here.
 */
#ifdef SAVE_INTERVAL
  /* I'm not sure why there is a value check - since the save
   * is done every SAVE_INTERVAL seconds, why care the value
   * of what he is dropping?
   */
  if (op->type == PLAYER && !QUERY_FLAG (tmp, FLAG_UNPAID) &&
      (tmp->nrof ? tmp->value * tmp->nrof : tmp->value > 2000) &&
      (op->contr->last_save_time + SAVE_INTERVAL) <= time (NULL))
    {
      save_player (op, 1);
      op->contr->last_save_time = time (NULL);
    }
#endif /* SAVE_INTERVAL */

  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.
   */
  fix_player (op); /* This is overkill, fix_player() is called somewhere */
                   /* in object.c */

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

  floor = get_map_ob (op->map, op->x, op->y);

  LOG(llevDebug, "DROP EN\n");
  if (execute_event (floor, EVENT_DROP_ON, op, tmp, NULL, SCRIPT_FIX_ALL))
    return;
  LOG(llevDebug, "DROP xxEN\n");

  if (floor
      && floor->type == SHOP_FLOOR
      && !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
             */
            remove_ob(tmp);
            free_object(tmp);
            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)
    {
    if (op->contr->last_used==tmp && op->contr->last_used_id == tmp->count) {
      object *n=NULL;
      if(tmp->below != NULL)
          n = tmp->below;
      else if(tmp->above != NULL)
          n = tmp->above;
      op->contr->last_used = n;
      if (n != NULL)
          op->contr->last_used_id = n->count;
      else
          op->contr->last_used_id = 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->socket.update_look=1;
/*  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->socket.update_look=1;
    };
/*    draw_look(op);*/
    return 0;
}

int command_examine (object *op, char *params)
{
  if (!params) {
    object *tmp=op->below;
    while (tmp && !LOOK_OBJ(tmp)) 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 NULL;
    }
    /* 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->count == op->contr->mark_count)
                return tmp;
            else {
                op->contr->mark=NULL;
                op->contr->mark_count=0;
/*              new_draw_info(NDI_UNIQUE,0,op,"You have no marked object");*/
                return NULL;
            }
        }
    }
    return NULL;
}
    

/* op should be a player, params is any params.
 * If no params given, we print out the currently marked object.
 * otherwise, try to find a matching object - try best match first.
 */
int command_mark(object *op, char *params)
{
    if (!op->contr) return 1;
    if (!params) {
        object *mark=find_marked_object(op);
        if (!mark) new_draw_info(NDI_UNIQUE,0,op,"You have no marked object.");
        else new_draw_info_format(NDI_UNIQUE,0,op,"%s is marked.", query_name(mark));
    }
    else {
        object *mark1=find_best_object_match(op, params);
        if (!mark1) {
            new_draw_info_format(NDI_UNIQUE,0,op,"Could not find an object that matches %s",params);
            return 1;
        }
        else {
            op->contr->mark=mark1;
            op->contr->mark_count=mark1->count;
            new_draw_info_format(NDI_UNIQUE,0,op,"Marked item %s", query_name(mark1));
            return 0;
        }
    }
    return 0;   /*shouldnt get here */
}


/* 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;

                strncpy(buf,query_name(tmp), VERY_BIG_BUF-1);
                buf[VERY_BIG_BUF-1]=0;
                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++;
                    strncpy(buf+len, cp, VERY_BIG_BUF-len-1);
                    buf[VERY_BIG_BUF-1]=0;
                }
            }
    }
    if(buf[0]=='\0') {
        strncpy(buf,query_name(tmp), VERY_BIG_BUF-1);
        buf[VERY_BIG_BUF-1]=0;
    }

    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)) {
        object *floor;
        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);
        floor = get_map_ob (op->map, op->x, op->y);
        if (floor && floor->type == SHOP_FLOOR) {
            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,"");
    }

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", 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, 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.");
        fix_player(op);
        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);
  fix_player(op);
      return 1;
}

/*
 * Changing the custom name of an item
 * 
 * Syntax is: rename <what object> to <new name>
 *  if '<what object>' is omitted, marked object is used
 *  if 'to <new name>' is omitted, custom name is cleared
 *
 * Names are considered for all purpose having a length <=127 (max length sent to client
 * by server) */

int command_rename_item(object *op, char *params)
{
  char buf[VERY_BIG_BUF];
  int itemnumber;
  object *item=NULL;
  char *closebrace;
  size_t counter;

  if (params) {
    /* Let's skip white spaces */
    while(' '==*params) params++;

    /* Checking the first part */
    if ((itemnumber = atoi(params))!=0) {
        for (item=op->inv; item && ((item->count != itemnumber) || item->invisible); item=item->below);
        if (!item) {
            new_draw_info(NDI_UNIQUE,0,op,"Tried to rename an invalid item.");
            return 1;
        }
        while(isdigit(*params) || ' '==*params) params++;
    }
    else if ('<'==*params) {
      /* Got old name, let's get it & find appropriate matching item */
      closebrace=strchr(params,'>');
      if(!closebrace) {
        new_draw_info(NDI_UNIQUE,0,op,"Syntax error!");
        return 1;
      }
      /* Sanity check for buffer overruns */
      if((closebrace-params)>127) {
        new_draw_info(NDI_UNIQUE,0,op,"Old name too long (up to 127 characters allowed)!");
        return 1;
      }
      /* Copy the old name */
      strncpy(buf,params+1,closebrace-params-1);
      buf[closebrace-params-1]='\0';

      /* Find best matching item */
      item=find_best_object_match(op,buf);
      if(!item) {
        new_draw_info(NDI_UNIQUE,0,op,"Could not find a matching item to rename.");
        return 1;
      }

      /* Now need to move pointer to just after > */
      params=closebrace+1;
      while(' '==*params) params++;

    } else {
        /* Use marked item */
        item=find_marked_object(op);
        if(!item) {
          new_draw_info(NDI_UNIQUE,0,op,"No marked item to rename.");
          return 1;
        }
    }

    /* Now let's find the new name */
    if(!strncmp(params,"to ",3)) {
      params+=3;
      while(' '==*params) params++;
      if('<'!=*params) {
        new_draw_info(NDI_UNIQUE,0,op,"Syntax error, expecting < at start of new name!");
        return 1;
      }
      closebrace=strchr(params+1,'>');
      if(!closebrace) {
        new_draw_info(NDI_UNIQUE,0,op,"Syntax error, expecting > at end of new name!");
        return 1;
      }

      /* Sanity check for buffer overruns */
      if((closebrace-params)>127) {
        new_draw_info(NDI_UNIQUE,0,op,"New name too long (up to 127 characters allowed)!");
        return 1;
      }

      /* Copy the new name */
      strncpy(buf,params+1,closebrace-params-1);
      buf[closebrace-params-1]='\0';
      
      /* Let's check it for weird characters */
      for(counter=0;counter<strlen(buf);counter++) {
        if(isalnum(buf[counter])) continue;
        if(' '==buf[counter]) continue;
        if('\''==buf[counter]) continue;
        if('+'==buf[counter]) continue;
        if('_'==buf[counter]) continue;
        if('-'==buf[counter]) continue;

        /* If we come here, then the name contains an invalid character...
        tell the player & exit */
        new_draw_info(NDI_UNIQUE,0,op,"Invalid new name!");
        return 1;
      }

    } else {
      /* If param contains something, then syntax error... */
      if(strlen(params)) {
        new_draw_info(NDI_UNIQUE,0,op,"Syntax error, expected 'to <' after old name!");
        return 1;
      }
      /* New name is empty */
      buf[0]='\0';
    }
  } else {
    /* Last case: params==NULL */
    item=find_marked_object(op);
    if(!item) {
      new_draw_info(NDI_UNIQUE,0,op,"No marked item to rename.");
      return 1;
    }
    buf[0]='\0';
  }

  /* Coming here, everything is fine... */
  if(!strlen(buf)) {
     /* Clear custom name */
    if(item->custom_name) {
      FREE_AND_CLEAR_STR(item->custom_name);

      new_draw_info_format(NDI_UNIQUE, 0, op,"You stop calling your %s with weird names.",query_base_name(item,item->nrof>1?1:0));
      esrv_update_item(UPD_NAME,op,item);
    } else {
      new_draw_info(NDI_UNIQUE,0,op,"This item has no custom name.");
    }
  } else {
    /* Set custom name */
    FREE_AND_COPY(item->custom_name,buf);

    new_draw_info_format(NDI_UNIQUE, 0, op,"Your %s will now be called %s.",query_base_name(item,item->nrof>1?1:0),buf);
    esrv_update_item(UPD_NAME,op,item);
  }

  return 1;
}
Revision:	1.2
Committed:	Mon Aug 14 04:22:05 2006 UTC (17 years, 9 months ago) by elmex
Content type:	text/plain
Branch:	MAIN
Changes since 1.1:	+84 -81 lines
Log Message:	fixed bug in cf.pm when unloading extensions. added EVENT_DROP_ON for the trade shops and made query_cost using double