#if defined(macintosh)
#include <types.h>
#else
#include <sys/types.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "emlen.h"
CHAR_DATA *
find_keeper (CHAR_DATA * ch)
{
  CHAR_DATA *keeper;
  SHOP_DATA *pShop;
  pShop = NULL;
  check_room_more (ch->in_room);
  for (keeper = ch->in_room->more->people; keeper; keeper = keeper->next_in_room)
    {
      if (IS_MOB (keeper) && (pShop = keeper->pIndexData->pShop) != NULL)
	break;
    }
  if (pShop == NULL)
    {
      send_to_char ("You can't do that here.\n\r", ch);
      return NULL;
    }
/*
   * Shop hours.
 */
  if (time_info.hour == 12)
    {
      do_say (keeper, "I'm on my lunch break, leave me be!");
      return NULL;
    }
  if (time_info.hour < pShop->open_hour)
    {
      do_say (keeper, "Sorry, try again later.");
      return NULL;
    }
  if (time_info.hour > pShop->close_hour)
    {
      do_say (keeper, "Sorry, we are closed.");
      return NULL;
    }
/*
   * Invisible or hidden people.
 */
  if (!can_see (keeper, ch))
    {
      do_say (keeper, "What? Who said that?");
      return NULL;
    }
  return keeper;
}

CHAR_DATA *
find_repair (CHAR_DATA * ch, int rnum)
{
  CHAR_DATA *keeper;
  check_room_more (ch->in_room);
  for (keeper = ch->in_room->more->people; keeper; keeper = keeper->next_in_room)
    {
      if ((rnum == 1) && IS_MOB (keeper) && (IS_SET (keeper->act, REPAIRS_ONE)))
	break;
      if ((rnum == 2) && IS_MOB (keeper) && (IS_SET (keeper->act, REPAIRS_TWO)))
	break;
    }
  if (keeper == NULL)
    return NULL;
  if (!can_see (keeper, ch))
    {
      do_say (keeper, "What? Who said that?");
      return NULL;
    }
  return keeper;
}

int 
get_cost (CHAR_DATA * keeper, SINGLE_OBJECT * obj, bool fBuy)
{
  SHOP_DATA *pShop;
  int cost;
  if (obj == NULL || (pShop = keeper->pIndexData->pShop) == NULL)
    return 0;
  if (fBuy)
    {
      cost = obj->cost * pShop->profit_buy / 96;
    }
  else
    {
      SINGLE_OBJECT *obj2;
      int itype;
      int tally;
      int origcost;
      cost = 0;
      tally = 0;
      for (itype = 0; itype < MAX_TRADE; itype++)
	{
	  if (obj->pIndexData->item_type == pShop->buy_type[itype])
	    {
	      cost = obj->cost * pShop->profit_sell / 96;
	      break;
	    }
	}
      if (cost == 0)
	return 0;
      for (obj2 = keeper->carrying; obj2; obj2 = obj2->next_content)
	{
	  if (obj->pIndexData == obj2->pIndexData)
	    tally++;
	}
      if (tally > keeper->pIndexData->pShop->items_until_decrease)
	{
	  origcost = cost;
	  cost -= ((tally - keeper->pIndexData->pShop->items_until_decrease) *
		   (cost / (100 / keeper->pIndexData->pShop->decrease)));
	  if (cost < 0)
	    return 0;
	}
    }
  return cost;
}

void 
do_repair (CHAR_DATA * ch, char *argy)
{
  char buf[SML_LENGTH];
  char arg1[SML_LENGTH];
  char arg2[SML_LENGTH];
  CHAR_DATA *keeper;
  CHAR_DATA *keepert;
  SINGLE_OBJECT *obj;
  int repair_cost;
  bool warm;
  bool wrep;
  bool alll;
  DEFINE_COMMAND ("repair", do_repair, POSITION_STANDING, 0, LOG_NORMAL, "This command will repair a damaged weapon(s) or armor(s), depending on the shopkeeper present.")

    alll = FALSE;
  obj = NULL;
  repair_cost = 0;
  if (IS_MOB (ch))
    return;
  if (argy[0] == '\0')
    {
      send_to_char ("Syntax: Repair <item/all> to get the estimated cost.\n\r", ch);
      send_to_char (" Repair <item/all> YES to go ahead and repair the item.\n\r", ch);
      return;
    }
  argy = one_argy (argy, arg1);
  if (argy[0] != '\0')
    argy = one_argy (argy, arg2);
  else
    arg2[0] = '\0';
  if (!str_cmp (arg1, "all"))
    alll = TRUE;
  if (!alll && (obj = get_obj_inv (ch, arg1)) == NULL)
    {
      send_to_char ("You do not have that item.\n\r", ch);
      return;
    }
  if ((keeper = find_repair (ch, 1)) == NULL)
    wrep = FALSE;
  else
    wrep = TRUE;
  if ((keepert = find_repair (ch, 2)) == NULL)
    warm = FALSE;
  else
    warm = TRUE;
  if (keeper == NULL && keepert != NULL)
    keeper = keepert;
  if (!warm && !wrep)
    {
      send_to_char ("No-one here will repair any of your equipment.\n\r", ch);
      return;
    }
  if (alll)
    {
      /*REPAIR ALL */
      SINGLE_OBJECT *obj_nxt;
      int repair_cost_t;
      repair_cost_t = 0;
      for (obj = ch->carrying; obj != NULL; obj = obj_nxt)
	{
	  obj_nxt = obj->next_content;
	  if (obj->next == NULL)
	    obj_nxt = NULL;
	  if (obj == NULL)
	    {
	      send_to_char ("Found nothing to repair.\n\r", ch);
	      return;
	    }
	  if (obj->pIndexData->item_type != ITEM_WEAPON && obj->pIndexData->item_type != ITEM_ARMOR)
	    continue;
	  if (obj->pIndexData->item_type == ITEM_WEAPON && !wrep)
	    continue;
	  if (obj->pIndexData->item_type == ITEM_ARMOR && !warm)
	    continue;
	  if (obj->pIndexData->item_type == ITEM_WEAPON)
	    {
	      I_WEAPON *wp = (I_WEAPON *) obj->more;
	      if (wp->firstdice * wp->seconddice < 17)
		repair_cost = (100 - wp->damage_p) * pow.repair_weapons[0];
	      else if (wp->firstdice * wp->seconddice < 26)
		repair_cost = (100 - wp->damage_p) * pow.repair_weapons[1];
	      else
		{
		  if (LEVEL (keeper) > 75)
		    repair_cost = (100 - wp->damage_p) * pow.repair_weapons[2];
		  else
		    {
		      act ("$N's eyes widen when $S sees $p.\n\r$N refuses to touch such a powerful weapon.", ch, obj, keeper, TO_CHAR);
		      continue;
		    }
		}
	      if (repair_cost < 1)
		continue;
	    }
	  if (obj->pIndexData->item_type == ITEM_ARMOR)
	    {
	      I_ARMOR *r = (I_ARMOR *) obj->more;
	      repair_cost = (r->max_condition - r->condition_now) * pow.repair_armors;

	      if (repair_cost < 1)
		continue;
	    }
	  sprintf (buf, "$N will repair $p for %d coins.", repair_cost);
	  act (buf, ch, obj, keeper, TO_CHAR);
	  if (is_member (ch, GUILD_TINKER))
	    {
	      act ("...but since you are a member of the Tinker's Guild...", ch, NULL, NULL, TO_CHAR);
	      if (repair_cost > 6)
		{
		  repair_cost = (repair_cost) -
		    ((pow.tinker_discount * repair_cost) / 100);
		}
	      sprintf (buf, "$N will repair $p for %d coins.", repair_cost);
	      act (buf, ch, obj, keeper, TO_CHAR);
	    }
	  repair_cost_t += repair_cost;
	  if (!(!str_cmp (arg2, "yes")))
	    continue;
	  if (tally_coins (ch) < repair_cost_t)
	    {
	      act ("You don't have enough money to repair everything!", ch, obj, NULL, TO_CHAR);
	      return;
	    }
	}
      /*END OBJ LIST */
      send_to_char ("------------------\n\r", ch);
      sprintf (buf, "Total: %d coins\n\r", repair_cost_t);
      send_to_char (buf, ch);
      if (!(!str_cmp (arg2, "yes")))
	return;
      send_to_char ("\n\r", ch);
      for (obj = ch->carrying; obj != NULL; obj = obj_nxt)
	{
	  obj_nxt = obj->next_content;
	  if (obj->next == NULL)
	    obj_nxt = NULL;
	  if (obj->pIndexData->item_type != ITEM_WEAPON && obj->pIndexData->item_type != ITEM_ARMOR)
	    continue;
	  if (obj->pIndexData->item_type == ITEM_WEAPON && !wrep)
	    continue;
	  if (obj->pIndexData->item_type == ITEM_ARMOR && !warm)
	    continue;

	  if (obj->pIndexData->item_type == ITEM_WEAPON)
	    {
	      I_WEAPON *wp = (I_WEAPON *) obj->more;
	      if (wp->damage_p > 99)
		continue;
	    }

	  if (obj->pIndexData->item_type == ITEM_ARMOR)
	    {
	      I_ARMOR *r = (I_ARMOR *) obj->more;
	      if (r->max_condition == 0 || r->max_condition <= r->condition_now)
		continue;
	    }

#ifdef NEW_WORLD
	  if (obj->pIndexData->values_2[9] > 0 &&
	      number_range (1, 1000) < obj->pIndexData->values_2[9])
	    {
	      act ("$B$7$N says, 'Woops... this is most unfortunate.'$R$7", ch, obj, keeper, TO_CHAR);
	      act ("$B$7$N quickly sweeps up what remains of $p, now completely destroyed.$R$7", ch, obj, keeper, TO_CHAR);
	      unequip_char (ch, obj);
	      obj_from (obj);
	      free_it (obj);
	      continue;
	    }
#endif
	  act ("$N gives you back $p, brand new!", ch, obj, keeper, TO_CHAR);
	  if (obj->pIndexData->item_type == ITEM_ARMOR)
	    {
	      I_ARMOR *r = (I_ARMOR *) obj->more;
	      if (obj->wear_loc != WEAR_NONE)
		{
		  int tempslot;
		  tempslot = obj->wear_loc;
		  unequip_char (ch, obj);
		  r->condition_now = r->max_condition;
		  equip_char (ch, obj, tempslot);
		  continue;
		}
	      else
		r->condition_now = r->max_condition;
	      continue;
	    }
	  if (obj->pIndexData->item_type == ITEM_WEAPON)
	    ((I_WEAPON *) obj->more)->damage_p = 100;
	  continue;
	}
      if (repair_cost_t > 0)
	{
	  sub_coins (repair_cost_t, ch);
	  create_amount (repair_cost_t, keeper, NULL, NULL);
	}
      return;
    }
/*END REPAIR ALL */
  if (obj->pIndexData->item_type == ITEM_WEAPON && !wrep)
    {
      act ("$N can't repair weapons, only armor.", ch, NULL, keeper, TO_CHAR);
      return;
    }
  if (obj->pIndexData->item_type == ITEM_ARMOR && !warm)
    {
      act ("$N can't repair armors, only weapons.", ch, NULL, keeper, TO_CHAR);
      return;
    }
  if (obj->pIndexData->item_type != ITEM_WEAPON && obj->pIndexData->item_type != ITEM_ARMOR)
    return;
  if (obj->pIndexData->item_type == ITEM_WEAPON)
    {
      I_WEAPON *wp = (I_WEAPON *) obj->more;
      if (wp->firstdice * wp->seconddice < 17)
	repair_cost = (100 - wp->damage_p) * pow.repair_weapons[0];
      else if (wp->firstdice * wp->seconddice < 26)
	repair_cost = (100 - wp->damage_p) * pow.repair_weapons[1];
      else
	{
	  if (LEVEL (keeper) > 75)
	    repair_cost = (100 - wp->damage_p) * pow.repair_weapons[2];
	  else
	    {
	      act ("$N's eyes widen when $S sees $p.\n\r$N refuses to touch such a powerful weapon.", ch, obj, keeper, TO_CHAR);
	    }
	}
      if (repair_cost < 1)
	{
	  send_to_char ("That object doesn't need any repair.\n\r", ch);
	  return;
	}
    }
  else if (obj->pIndexData->item_type == ITEM_ARMOR)
    {
      I_ARMOR *r = (I_ARMOR *) obj->more;
      repair_cost = (r->max_condition - r->condition_now) * pow.repair_armors;


      if (repair_cost < 1)
	{
	  send_to_char ("That object doesn't need any repair.\n\r", ch);
	  return;
	}
    }
  else
    {
      send_to_char ("I can't repair that!\n\r", ch);
      return;
    }
  sprintf (buf, "$N will repair $p for %d coins.", repair_cost);
  act (buf, ch, obj, keeper, TO_CHAR);
  if (is_member (ch, GUILD_TINKER))
    {
      act ("...but since you are a member of the Tinker's Guild...", ch, NULL, NULL, TO_CHAR);
      if (repair_cost > 6)
	repair_cost = (repair_cost) -
	  ((pow.tinker_discount * repair_cost) / 100);
      sprintf (buf, "$N will repair $p for %d coins.", repair_cost);
      act (buf, ch, obj, keeper, TO_CHAR);
    }
  if (!(!str_cmp (arg2, "yes")))
    return;
  if (tally_coins (ch) < repair_cost)
    {
      act ("You don't have enough money to repair $p!", ch, obj, NULL, TO_CHAR);
      return;
    }
  if (repair_cost > 0)
    {
      sub_coins (repair_cost, ch);
      create_amount (repair_cost, keeper, NULL, NULL);
    }
#ifdef NEW_WORLD
  if (obj->pIndexData->values_2[9] > 0 &&
      number_range (1, 1000) < obj->pIndexData->values_2[9])
    {
      act ("$B$7$N says, 'Woops... this is most unfortunate.'$R$7", ch, obj, keeper, TO_CHAR);
      act ("$B$7$N quickly sweeps up what remains of $p, now completely destroyed.$R$7", ch, obj, keeper, TO_CHAR);
      unequip_char (ch, obj);
      obj_from (obj);
      free_it (obj);
      return;
    }
#endif
  act ("That was sure fast! $N gives back $p, brand new!", ch, obj, keeper, TO_CHAR);
  if (obj->pIndexData->item_type == ITEM_ARMOR)
    {
      I_ARMOR *r = (I_ARMOR *) obj->more;
      if (obj->wear_loc != WEAR_NONE)
	{
	  int tempslot;
	  tempslot = obj->wear_loc;
	  unequip_char (ch, obj);
	  r->condition_now = r->max_condition;
	  equip_char (ch, obj, tempslot);
	  return;
	}
      else
	r->condition_now = r->max_condition;
      return;
    }
  if (obj->pIndexData->item_type == ITEM_WEAPON)
    ((I_WEAPON *) obj->more)->damage_p = 100;
  return;
}

void 
do_resize (CHAR_DATA * ch, char *argy)
{
  char buf[SML_LENGTH];
  char arg1[SML_LENGTH];
  char arg2[SML_LENGTH];
  CHAR_DATA *keeper;
  SINGLE_OBJECT *obj;
  I_ARMOR *r;
  int repair_cost;
  bool warm;
  bool alll;
  DEFINE_COMMAND ("resize", do_resize, POSITION_STANDING, 0, LOG_NORMAL, "This command allows you to resize an object (or objects) so that they fit you.  You must be at a shopkeeper.")
    alll = FALSE;
  obj = NULL;
  repair_cost = 0;

  if (IS_MOB (ch))
    return;
  if (argy[0] == '\0')
    {
      send_to_char ("Syntax: Resize <item/all> to get the estimated cost.\n\r", ch);
      send_to_char (" Resize <item/all> YES to go ahead and repair the item.\n\r", ch);
      return;
    }
  argy = one_argy (argy, arg1);
  if (argy[0] != '\0')
    argy = one_argy (argy, arg2);
  else
    arg2[0] = '\0';
  if (!str_cmp (arg1, "all"))
    alll = TRUE;
  if (!alll && (obj = get_obj_inv (ch, arg1)) == NULL)
    {
      send_to_char ("You do not have that item.\n\r", ch);
      return;
    }
  warm = TRUE;
  if ((keeper = find_repair (ch, 2)) == NULL)
    warm = FALSE;
  if (!warm)
    {
      send_to_char ("No-one here will resize any of your equipment.\n\r", ch);
      return;
    }
  if (alll)
    {
      /*REPAIR ALL */
      SINGLE_OBJECT *obj_nxt;
      int repair_cost_t;
      repair_cost_t = 0;
      for (obj = ch->carrying; obj != NULL; obj = obj_nxt)
	{
	  obj_nxt = obj->next_content;
	  if (obj->next == NULL)
	    obj_nxt = NULL;
	  if (obj == NULL)
	    {
	      send_to_char ("Found nothing to resize.\n\r", ch);
	      return;
	    }
	  if (obj->pIndexData->item_type != ITEM_ARMOR)
	    continue;
	  r = (I_ARMOR *) obj->more;
	  if (obj->wear_loc != -1 || OBJ_FITS (obj, ch))
	    continue;
	  repair_cost = obj->cost / pow.resize_divisor;
	  if (repair_cost < 1)
	    repair_cost = 1;
	  sprintf (buf, "$N will resize $p for %d coins.", repair_cost);
	  act (buf, ch, obj, keeper, TO_CHAR);
	  repair_cost_t += repair_cost;
	  if (!(!str_cmp (arg2, "yes")))
	    continue;
	  if (tally_coins (ch) < repair_cost_t)
	    {
	      act ("You don't have enough money to resize everything!", ch, obj, NULL, TO_CHAR);
	      return;
	    }
	}
      /*END OBJ LIST */
      send_to_char ("------------------\n\r", ch);
      sprintf (buf, "Total: %d coins\n\r", repair_cost_t);
      send_to_char (buf, ch);
      if (!(!str_cmp (arg2, "yes")))
	return;
      send_to_char ("\n\r", ch);
      for (obj = ch->carrying; obj != NULL; obj = obj_nxt)
	{
	  obj_nxt = obj->next_content;
	  if (obj->next == NULL)
	    obj_nxt = NULL;
	  if (obj->pIndexData->item_type != ITEM_ARMOR || obj->wear_loc != -1 || OBJ_FITS (obj, ch))
	    continue;
	  act ("$N gives you back $p, fit to perfection!", ch, obj, keeper, TO_CHAR);
	  SET_OBJ_SIZE (ch, obj);
	  continue;
	}
      if (repair_cost_t > 0)
	{
	  sub_coins (repair_cost_t, ch);
	}
      return;
    }
  if (obj->pIndexData->item_type != ITEM_ARMOR || obj->wear_loc != -1 || OBJ_FITS (obj, ch))
    {
      act ("Why would you want to resize that?", ch, NULL, keeper, TO_CHAR);
      return;
    }
  if (obj->pIndexData->item_type != ITEM_ARMOR)
    return;
  repair_cost = obj->cost / pow.resize_divisor;
  if (repair_cost < 1)
    repair_cost = 1;
  sprintf (buf, "$N will resize $p for %d coins.", repair_cost);
  act (buf, ch, obj, keeper, TO_CHAR);
  if (!(!str_cmp (arg2, "yes")))
    return;
  if (tally_coins (ch) < repair_cost)
    {
      act ("You don't have enough money to resize $p!", ch, obj, NULL, TO_CHAR);
      return;
    }
  if (repair_cost > 0)
    {
      sub_coins (repair_cost, ch);
    }
  act ("$N gives back $p, fitted to perfection!", ch, obj, keeper, TO_CHAR);
  SET_OBJ_SIZE (ch, obj);
  return;
}

void 
do_buy (CHAR_DATA * ch, char *argy)
{
  char arg[SML_LENGTH];
  char tells[SML_LENGTH];
  DEFINE_COMMAND ("buy", do_buy, POSITION_STANDING, 0, LOG_NORMAL, "This command allows you to buy an item or pet from a shopkeeper in the room.")
    if (LEVEL (ch) > 100 && !IS_REAL_GOD (ch) && ch->in_room->area->open == 1)
    {
      send_to_char ("Immorts can not buy or sell items in open areas.\n\r", ch);
      return;
    }
  argy = one_argy (argy, arg);
  if (arg[0] == '\0')
    {
      send_to_char ("Buy what?\n\r", ch);
      return;
    }
  if (IS_SET (ch->in_room->room_flags, ROOM_PET_SHOP))
    {
      char buf[STD_LENGTH];
      CHAR_DATA *pet;
      ROOM_DATA *oneroomNext;
      ROOM_DATA *in_room;
      if (IS_MOB (ch))
	return;
      oneroomNext = get_room_index (ch->in_room->vnum + 1);
      if (oneroomNext == NULL)
	{
	  bug ("Do_buy: bad pet shop at vnum %d.", ch->in_room->vnum);
	  send_to_char ("Sorry, you can't buy that here.\n\r", ch);
	  return;
	}
      in_room = ch->in_room;
      ch->in_room = oneroomNext;
      pet = get_char_room (ch, arg);
      ch->in_room = in_room;
      if (pet == NULL || !IS_SET (pet->act, ACT_PET))
	{
	  send_to_char ("Sorry, you can't buy that here.\n\r", ch);
	  return;
	}
      if (LEVEL (ch) < 17)
	if (ch->pcdata->number_pets > 1)
	  {
	    send_to_char ("You are unable to control that many pets at once!\n\r", ch);
	    return;
	  }
      if (LEVEL (ch) < 30)
	if (ch->pcdata->number_pets > 2)
	  {
	    send_to_char ("You are unable to control that many pets at once!\n\r", ch);
	    return;
	  }
      if (LEVEL (ch) < 50)
	if (ch->pcdata->number_pets > 3)
	  {
	    send_to_char ("You are unable to control that many pets at once!\n\r", ch);
	    return;
	  }
      if (ch->pcdata->number_pets > 4)
	{
	  send_to_char ("You are unable to control that many pets at once!\n\r", ch);
	  return;
	}
      if (tally_coins (ch) < 20 * LEVEL (pet) * LEVEL (pet))
	{
	  send_to_char ("You can't afford it.\n\r", ch);
	  return;
	}
      sprintf (buf, "You receive %s in change.\n\r",
	       sub_coins (20 * LEVEL (pet) * LEVEL (pet), ch));
      send_to_char (buf, ch);
      ch->pcdata->number_pets++;
      pet = create_mobile (pet->pIndexData);
      SET_BIT (pet->act, ACT_PET);
      SET_BIT (pet->affected_by, AFF_CHARM);
      argy = one_argy (argy, arg);
      char_to_room (pet, ch->in_room);
      add_follower (pet, ch);
      send_to_char ("Enjoy your pet.\n\r", ch);
      act ("$n bought $N as a pet.", ch, NULL, pet, TO_ROOM);
      return;
    }
  else
    {
      CHAR_DATA *keeper;
      SINGLE_OBJECT *obj;
      int cost;
      int looking;
      if ((keeper = find_keeper (ch)) == NULL)
	return;
      if (is_number (arg))
	{
	  looking = atoi (arg);
	  cost = 0;
	  for (obj = keeper->carrying; obj != NULL && cost < looking;
	       obj = obj->next_content)
	    {
	      if (obj->wear_loc == WEAR_NONE
		  || obj->wear_loc == WEAR_HOLD_1
		  || obj->wear_loc == WEAR_HOLD_2)
		cost++;
	    }
	}
      else
	obj = get_obj_inv (keeper, arg);
      if (obj)
	cost = get_cost (keeper, obj, TRUE);
      else
	cost = 0;
      if (!obj || cost <= 0 || !can_see_obj (ch, obj))
	{
	  sprintf (tells, "%s I don't sell that.  Use the 'list' command to see what I sell.", NAME (ch));
	  do_tell (keeper, tells);
	  return;
	}
      if (!can_drop_obj (keeper, obj) && obj->pIndexData->item_type != ITEM_BOOK)
	{
	  sprintf (tells, "%s I don't really want to sell it, sorry.", NAME (ch));
	  do_tell (keeper, tells);
	  return;
	}
      if (tally_coins (ch) < cost)
	{
	  sprintf (tells, "%s You don't have enough money to buy %s.", NAME (ch),
		   OOSTR (obj, short_descr));
	  do_tell (keeper, tells);
	  return;
	}

      act ("$n buys $p\x1B[0m from $N.", ch, obj, keeper, TO_ROOM);
      act ("You buy $p\x1B[0m from $N.", ch, obj, keeper, TO_CHAR);
      create_amount (cost, keeper, NULL, NULL);
      sub_coins (cost, ch);
      obj_from (obj);
      if (IS_SET (obj->extra_flags, ITEM_INVENTORY))
	obj->extra_flags ^= ITEM_INVENTORY;
      if (obj->pIndexData->item_type == ITEM_ARMOR)
	SET_OBJ_SIZE (ch, obj);
      obj_to (obj, ch);
      obj->wear_loc = -1;
      return;
    }
  return;
}

void 
do_list (CHAR_DATA * ch, char *argy)
{
  int listed_already[1000];
  int k;
  DEFINE_COMMAND ("list", do_list, POSITION_STANDING, 0, LOG_NORMAL, "This command allows you to list items or pets to buy if you are at a shop.")

    hugebuf_o[0] = '\0';
  if (IS_SET (ch->in_room->room_flags, ROOM_PET_SHOP))
    {
      ROOM_DATA *oneroomNext;
      CHAR_DATA *pet;
      bool found;
      oneroomNext = get_room_index (ch->in_room->vnum + 1);
      if (oneroomNext == NULL)
	{
	  bug ("Do_list: bad pet shop at vnum %d.", ch->in_room->vnum);
	  send_to_char ("You can't do that here.\n\r", ch);
	  return;
	}
      found = FALSE;
      check_room_more (oneroomNext);
      for (pet = oneroomNext->more->people; pet; pet = pet->next_in_room)
	{
	  if (IS_SET (pet->act, ACT_PET))
	    {
	      if (!found)
		{
		  found = TRUE;
		  send_to_char ("Pets for sale:\n\r", ch);
		}
	      sprintf (hugebuf_o, "%8d copper pieces - %s\n\r",
		       20 * LEVEL (pet) * LEVEL (pet),
		       SD (pet));
	      send_to_char (hugebuf_o, ch);
	    }
	}
      if (!found)
	send_to_char ("You notice a sign that reads:\n\rSorry, we're out of pets right now.\n\r", ch);
      return;
    }
  else
    {
      char arg[SML_LENGTH];
      CHAR_DATA *keeper;
      SINGLE_OBJECT *obj;
      bool flagx;
      int cost;
      int listcnt;
      int num;
      bool found;
      one_argy (argy, arg);
      if ((keeper = find_keeper (ch)) == NULL)
	return;
      listcnt = 0;
      found = FALSE;
      num = 0;
      for (k = 0; k < 1000; k++)
	{
	  listed_already[k] = 0;
	}
      for (obj = keeper->carrying; obj; obj = obj->next_content)
	{
	  if ((obj->wear_loc == WEAR_NONE
	       || obj->wear_loc == WEAR_HOLD_1
	       || obj->wear_loc == WEAR_HOLD_2)
	      && can_see_obj (ch, obj)
	      && (cost = get_cost (keeper, obj, TRUE)) > 0
	      && (arg[0] == '\0' || is_name (arg, obj->pIndexData->name)))
	    {
	      if (!found)
		{
		  found = TRUE;
		}
	      flagx = FALSE;
	      for (k = 0; k < 1000; k++)
		{
		  if (listed_already[k] == 0)
		    break;
		  if (listed_already[k] == obj->pIndexData->vnum)
		    {
		      flagx = TRUE;
		      break;
		    }
		}
	      num++;
	      if (flagx)
		continue;
	      sprintf (hugebuf_o + strlen (hugebuf_o), "\x1B[0m[\x1B[1m%3d\x1B[0m] %s\x1B[0m for %s.\n\r", num - 1,
		       ans_uppercase (OOSTR (obj, short_descr)),
		       name_amount (cost));
	      listed_already[listcnt] = obj->pIndexData->vnum;
	      listcnt++;
	      if (strlen (hugebuf_o) > 29500)
		{
		  return;
		}
	    }
	}
      if (found)
	{
	  page_to_char (hugebuf_o, ch);
	}
      if (!found)
	{
	  if (arg[0] == '\0')
	    send_to_char ("There is nothing to buy.\n\r", ch);
	  else
	    send_to_char ("You can't buy that here.\n\r", ch);
	}
      return;
    }
  return;
}

void 
do_sell (CHAR_DATA * ch, char *argy)
{
  char buf[STD_LENGTH];
  char arg[SML_LENGTH];
  char tells[SML_LENGTH];
  CHAR_DATA *keeper;
  SINGLE_OBJECT *obj;
  int cost;
  DEFINE_COMMAND ("sell", do_sell, POSITION_STANDING, 0, LOG_NORMAL, "This command allows you to sell an item to a shopkeeper in the room.")

    one_argy (argy, arg);
  if (LEVEL (ch) > 100 && ch->in_room->area->open == 1 && !IS_REAL_GOD (ch))
    {
      send_to_char ("Immorts can not buy or sell items in open areas.\n\r", ch);
      return;
    }
  if (arg[0] == '\0')
    {
      send_to_char ("Sell what?\n\r", ch);
      return;
    }
  if ((keeper = find_keeper (ch)) == NULL)
    return;
  if ((obj = get_obj_carry (ch, arg)) == NULL)
    {
      sprintf (tells, "%s You aren't holding that item!", NAME (ch));
      do_tell (keeper, tells);
      return;
    }
  if (!can_drop_obj (ch, obj) &&
      (obj->pIndexData->vnum != 6753)
    )
    {
      send_to_char ("You can't let go of it.\n\r", ch);
      return;
    }
  if ((cost = get_cost (keeper, obj, FALSE)) <= 0)
    {
      act ("$n looks at $p\x1B[0m and shakes $s head.", keeper, obj, ch, TO_VICT);
      return;
    }
  if (tally_coins (keeper) < cost)
    {
      act ("$n does not have enough money to buy $p\x1B[0m from you.", keeper,
	   obj, ch, TO_VICT);
      return;
    }
  if ((IS_SET (obj->extra_flags, ITEM_NODROP) ||
       IS_SET (obj->extra_flags, ITEM_NOSAVE)) &&
      (obj->pIndexData->vnum != 6753)
    )
    {
      act ("$n does not want to buy that item from you!", keeper, obj, ch, TO_VICT);
      return;
    }
  act ("$n sells $p\x1B[0m to $N.", ch, obj, keeper, TO_ROOM);
  sprintf (buf, "You sell $p\x1B[0m for %s to $N.", name_amount (cost));
  act (buf, ch, obj, keeper, TO_CHAR);
  create_amount (cost, ch, NULL, NULL);
  sub_coins (cost, keeper);
  if (obj->pIndexData->item_type == ITEM_WEAPON)
    ((I_WEAPON *) obj->more)->damage_p = 100;
  if (obj->pIndexData->item_type == ITEM_ARMOR)
    ((I_ARMOR *) obj->more)->condition_now = ((I_ARMOR *) obj->more)->max_condition;
  if (obj->pIndexData->item_type == ITEM_TRASH)
    {
      act ("$n eats $p\x1B[0m, munching hungrily.", keeper, obj, NULL, TO_NOTVICT);
      free_it (obj);
    }
  else
    {
      if (!IS_SET (obj->extra_flags, ITEM_INVENTORY))
	obj->extra_flags ^= ITEM_INVENTORY;
      obj_from (obj);
      obj_to (obj, keeper);
    }
  return;
}

void 
do_value (CHAR_DATA * ch, char *argy)
{
  char arg[SML_LENGTH];
  char tells[SML_LENGTH];
  CHAR_DATA *keeper;
  SINGLE_OBJECT *obj;
  int cost;
  DEFINE_COMMAND ("value", do_value, POSITION_STANDING, 0, LOG_NORMAL, "This command shows you how much a shopkeeper will pay for a specific item.")

    one_argy (argy, arg);
  if (arg[0] == '\0')
    {
      send_to_char ("Value what?\n\r", ch);
      return;
    }
  if ((keeper = find_keeper (ch)) == NULL)
    return;
  if ((obj = get_obj_carry (ch, arg)) == NULL)
    {
      sprintf (tells, "%s You aren't holding that item!", NAME (ch));
      do_tell (keeper, tells);
      return;
    }
  if (!can_drop_obj (ch, obj) &&
      (obj->pIndexData->vnum != 6753))
    {
      send_to_char ("You can't let go of it.\n\r", ch);
      return;
    }
  if ((cost = get_cost (keeper, obj, FALSE)) <= 0)
    {
      act ("$n looks at $p\x1B[0m and shakes $s head.", keeper, obj, ch, TO_VICT);
      return;
    }
  sprintf (tells, "%s I guess I'd give you \x1B[0m%s for \x1B[0m%s.",
	   NAME (ch),
	   name_amount (cost),
	   OOSTR (obj, short_descr));
  do_tell (keeper, tells);
  return;
}