ADDING IN TOGGLEABLE WEAR SLOTS
--------------------------------
Edward Felch

The concept of this is to be able to turn people's wear slots on and off,
this would allow for specific race wear slots without any trickiness (dragon
races might have a wing slot), or to allow players to add in new slots (aka
having one's ears pierced), or as a form of perverse Imm punishment (You pissed
me off, so now you can't wield anything).

This is a newbie-ish level snippet, we're only adding in some checks, and
some things into the player structure.

Yes, I know I have no skill at all putting together a snippet, I think I used
to though.


Compiled and tested on: circle30bpl21-OasisOLC-2.0.1

WARNING:
If you are not using ASCII pfiles this will require a pwipe or conversion,
if you are using ASCII pfiles, no one will be able to wear equipment unless
you either toggle all the player's slots back on, or write a quick function
for it. However new players will be normal :) This might not be 100% perfect
as I've taken it from a far different MUD than the one I tested on, somewhere
in the code a player might be able to slip on an item they shouldn't be able
to, but it's easy to find out where and to add in the check to do so.

IMPORTANT:
A line the starts with a + represents either a change in the original code
or an addition.

POSSIBLE IDEA
Add in an ear slot and create a spec proc for a player to pay some gold to get
his/ her ears pierces which turns that wearbit on.

CONTACT INFORMATION:
dustlos@hotmail.com - Not always reliable
efelch@hotmail.com - Only used for MSN messenger
AIM: edwardfelch or ed181818
ICQ: 170542486

I'd prefer some form of messaging contact since I'm trying to switch ISPs and
the hotmail accounts exist soley to see how much spam can accumulate. Yes, I
use Trillian.

Feel free to bug me, I've been out of the CircleMUD community forever and don't
have any real intentions of running a MUD again but I'm quite happy to help out
people, to fix anything wrong in the snippet, etc.

BEGIN

======= act.item.c

Change find_eq_pos to be like this:
-----------------------------------
int find_eq_pos(struct char_data *ch, struct obj_data *obj, char *arg)
{
  int where = -1;

  const char *keywords[] = {
    "!RESERVED!",
    "finger",
    "!RESERVED!",
    "neck",
    "!RESERVED!",
    "body",
    "head",
    "legs",
    "feet",
    "hands",
    "arms",
    "shield",
    "about",
    "waist",
    "wrist",
    "!RESERVED!",
    "!RESERVED!",
    "!RESERVED!",
    "\n"
  };

  if (!arg || !*arg) {
    if (CAN_WEAR(obj, ITEM_WEAR_FINGER))      where = WEAR_FINGER_R;
    if (CAN_WEAR(obj, ITEM_WEAR_NECK))        where = WEAR_NECK_1;
    if (CAN_WEAR(obj, ITEM_WEAR_BODY))        where = WEAR_BODY;
    if (CAN_WEAR(obj, ITEM_WEAR_HEAD))        where = WEAR_HEAD;
    if (CAN_WEAR(obj, ITEM_WEAR_LEGS))        where = WEAR_LEGS;
    if (CAN_WEAR(obj, ITEM_WEAR_FEET))        where = WEAR_FEET;
    if (CAN_WEAR(obj, ITEM_WEAR_HANDS))       where = WEAR_HANDS;
    if (CAN_WEAR(obj, ITEM_WEAR_ARMS))        where = WEAR_ARMS;
    if (CAN_WEAR(obj, ITEM_WEAR_SHIELD))      where = WEAR_SHIELD;
    if (CAN_WEAR(obj, ITEM_WEAR_ABOUT))       where = WEAR_ABOUT;
    if (CAN_WEAR(obj, ITEM_WEAR_WAIST))       where = WEAR_WAIST;
    if (CAN_WEAR(obj, ITEM_WEAR_WRIST))       where = WEAR_WRIST_R;
  } else if ((where = search_block(arg, keywords, FALSE)) < 0)
    send_to_char(ch, "'%s'?  What part of your body is THAT?\r\n", arg);

+  /* We also need to see if they have this slot "open" */
+  if (!IS_SET(WEARBIT_FLAGS(ch), (1<<where)) && !IS_NPC(ch))
+   return -1;

  return (where);
}

 
Change ACMD(do_wield) to be like this:
--------------------------------------
ACMD(do_wield)
{
  char arg[MAX_INPUT_LENGTH];
  struct obj_data *obj;

  one_argument(argument, arg);

  if (!*arg)
    send_to_char(ch, "Wield what?\r\n");
  else if (!(obj = get_obj_in_list_vis(ch, arg, NULL, ch->carrying)))
    send_to_char(ch, "You don't seem to have %s %s.\r\n", AN(arg), arg);
  else {
    if (!CAN_WEAR(obj, ITEM_WEAR_WIELD))
      send_to_char(ch, "You can't wield that.\r\n");
+    else if (!IS_SET(WEARBIT_FLAGS(ch), (1<<WEAR_WIELD)) && !IS_NPC(ch))
+      send_to_char(ch, "You are unable to wield anything!\r\n");
    else if (GET_OBJ_WEIGHT(obj) > str_app[STRENGTH_APPLY_INDEX(ch)].wield_w)
      send_to_char(ch, "It's too heavy for you to use.\r\n");
    else
      perform_wear(ch, obj, WEAR_WIELD);
  }
}


Change ACMD(do_grab) to be like this:
--------------------------------------
ACMD(do_grab)
{
  char arg[MAX_INPUT_LENGTH];
  struct obj_data *obj;

  one_argument(argument, arg);

  if (!*arg)
    send_to_char(ch, "Hold what?\r\n");
  else if (!(obj = get_obj_in_list_vis(ch, arg, NULL, ch->carrying)))
    send_to_char(ch, "You don't seem to have %s %s.\r\n", AN(arg), arg);
  else {
+    if (GET_OBJ_TYPE(obj) == ITEM_LIGHT)
+    {
+     if (!IS_SET(WEARBIT_FLAGS(ch), (1<<WEAR_LIGHT)) && !IS_NPC(ch))
+        send_to_char(ch, "You are unable to wear a light!\r\n");
+     else
+        perform_wear(ch, obj, WEAR_LIGHT);
+    }
    else {
+     if (!IS_SET(WEARBIT_FLAGS(ch), (1<<WEAR_HOLD)) && !IS_NPC(ch))
+     {
+       send_to_char(ch, "You are unable to hold anything!\r\n");
+       return;
+     }
      if (!CAN_WEAR(obj, ITEM_WEAR_HOLD) && GET_OBJ_TYPE(obj) != ITEM_WAND &&
      GET_OBJ_TYPE(obj) != ITEM_STAFF && GET_OBJ_TYPE(obj) != ITEM_SCROLL &&
	  GET_OBJ_TYPE(obj) != ITEM_POTION)
	send_to_char(ch, "You can't hold that.\r\n");
      else
	perform_wear(ch, obj, WEAR_HOLD);
    }
  }
}

======= db.c
Inside init_char, near the end of the function add in:

  /* Set wear bits for player, might want to change this later if you don't want them
  ** to have every wear slot available by default */
  for (i = 0; i < NUM_WEARS; i++)
    SET_BIT(WEARBIT_FLAGS(ch), 1<<i);
    
If you are using ASCII pfiles, make sure you add inside load_char:
    else if(!strcmp(tag, "Wfla"))
      WEARBIT_FLAGS(ch) = asciiflag_conv(line);
	  
and inside of save_char:
    if(WEARBIT_FLAGS(ch) != PFDEF_PREFFLAGS) {
      sprintbits(WEARBIT_FLAGS(ch), bits);
      fbprintf(fl, "Wfla: %s\n", bits);
    }

======= act.wizard.c
Add in this function:

ACMD(do_wearbit)
{
	struct char_data *vict = NULL;
	int slot, i;
	char arg1[512], arg2[512];

	half_chop(argument, arg1, arg2);

    if (!*arg1) {
      send_to_char(ch, "Use=> wearbit victim numberofslot\r\n");
      return;
    }
    if (!(vict = get_char_vis(ch, arg1, NULL, FIND_CHAR_WORLD))) {
      send_to_char(ch, "They don't seem to be on.\r\n");
      return;
    }
    if (IS_NPC(vict)) {
	  send_to_char(ch, "You don't want to do this to a mobile.\r\n");
      return;
    }
    if (!*arg2)
    {
		sprintf(buf, "%s's wearbits:\r\n", GET_NAME(vict));
		for (i = 0; i < NUM_WEARS; i++)
		{
			if (IS_SET(WEARBIT_FLAGS(vict), (1<<i)))
			  sprintf(buf+strlen(buf), "[%d] %s ON\r\n", i, equipment_types[i]);
			else
			  sprintf(buf+strlen(buf), "[%d] %s OFF\r\n", i, equipment_types[i]);
		}
		send_to_char(buf, ch);
		return;
	}
    if (!is_number(arg2)) {
      send_to_char(ch, "Please use a number to indicate what equipment slot you are changing.\r\n");
      return;
    }
    slot = atoi(arg2);
    if (slot < 0 || slot > NUM_WEARS-1) {
      send_to_char(ch, "You are specifying an equipment slot that is out of range.\r\n");
      return;
	}

    sprintf(buf, "You are altering the person's %s.\r\n", equipment_types[slot]);
    send_to_char(ch, buf);

    TOGGLE_BIT(WEARBIT_FLAGS(vict), (1<<slot));
}

======= interpreter.c
Add in the prototype for wearbit near the top:
ACMD(do_wearbit);

Inside the command structure add in:
{ "wearbit"  , POS_SLEEPING, do_wearbit  , LVL_GRGOD, 0 },


======= structs.h
Below the #define WEAR_XXXs, add in:
#define W_LIGHT		(1 << WEAR_LIGHT)
#define W_FINGER_R	(1 << WEAR_FINGER_R)
#define W_FINGER_L	(1 << WEAR_FINGER_L)
#define W_NECK_1	(1 << WEAR_NECK_1)
#define W_NECK_2	(1 << WEAR_NECK_2)
#define W_BODY		(1 << WEAR_BODY)
#define W_HEAD		(1 << WEAR_HEAD)
#define W_LEGS		(1 << WEAR_LEGS)
#define W_FEET		(1 << WEAR_FEET)
#define W_HANDS		(1 << WEAR_HANDS)
#define W_ARMS		(1 << WEAR_ARMS)
#define W_SHIELD	(1 << WEAR_SHIELD)
#define W_ABOUT		(1 << WEAR_ABOUT)
#define W_WAIST		(1 << WEAR_WAIST)
#define W_WRIST_R	(1 << WEAR_WRIST_R)
#define W_WRIST_L	(1 << WEAR_WRIST_L)
#define W_WIELD		(1 << WEAR_WIELD)
#define W_HOLD		(1 << WEAR_HOLD)

Inside struct char_player_data {, add in:
int /*bitvector_t*/ wear_bits; /* What bits are available to the player */

And inside struct char_file_u {, add in:
int /*bitvector_t*/ wear_bits; /* What bits are available to the player */

======= utils.h
Add in:
#define WEARBIT_FLAGS(ch)	((ch)->player.wear_bits)