/**
* This object handles all the different types of clothing, their
* locations etc.
* @author Pinkfish
*
* Fiddled! Actually added the cloak and dresses areas and fixed here and
* there.
* @Siel, Summer 2001
*/
#include <clothing.h>
mapping _types;
mapping _equivilants;
mapping _zones;
string *_zone_level;
protected void add_clothing_type(string name,
string *not_remove,
string *hiding);
protected void add_clothing_zone(string zone, string *types);
private int fixup_types(string type, string *types);
protected void add_equivilant_type(string name, string equiv);
private void check_clothing_types();
string *query_clothing_zone(string zone);
string *query_clothing_cannot_remove(string type);
string can_wear_or_remove(object thing, object player);
void create() {
_types = ([ ]);
_equivilants = ([ ]);
_zones = ([ ]);
_zone_level = ({ });
//
// Special type for bandaids..
//
add_clothing_type("bandaid", ({ }), ({ }));
/* Do not reorder this next section, is it in a nice order. */
add_clothing_type("wig",
({ "hood", "helmet", "coif", "hat", "all covering" }),
({ "hood", "helmet", "coif", "hat", "all covering" }));
add_clothing_type("hat",
({ "hood", "helmet", "all covering" }),
({ "hood", "helmet", "all covering" }));
add_clothing_type("helmet",
({ "hood", "all covering" }),
({ "hood", "all covering" }));
add_clothing_type("hood",
({ "all covering" }),
({ "all covering" }));
add_clothing_type("earring",
({ "coif", "all covering" }),
({ "hood", "coif", "all covering" }));
add_clothing_type("moustache",
({ "coif", "mask", "all covering" }),
({ "coif", "mask", "all covering" }));
add_clothing_type("glasses",
({ "all covering" }),
({ "all covering" }));
add_clothing_type("nosering",
({ "mask", "coif", "all covering" }),
({ "mask", "coif", "all covering" }));
add_clothing_type("mask",
({ "all covering" }),
({ "all covering" }));
add_clothing_type("headband",
({ "hat", "hood", "helmet", "coif", "all covering" }),
({ "hat", "hood", "helmet", "coif", "all covering" }));
add_clothing_type("scarf",
({ "hood", "all covering" }),
({ "hood", "all covering"}));
add_clothing_type("necklace",
({ "coif", "all covering" }),
({ "cloak", "coif", "all covering" }));
add_clothing_type("collar",
({ "hood", "all covering" }),
({ "hood", "all covering"}));
add_clothing_type( "shoulder",
({ "cloak", "cape", "sash", "robe", "tabard", "breastplate",
"hauberk", "haubergon", "byrnie", "jacket","jumper", "waistcoat",
"shirt", "undershirt", "all covering" }),
({ "cloak", "robe", "tabard", "breastplate", "hauberk", "haubergon",
"byrnie", "jacket", "jumper", "waistcoat", "shirt", "undershirt",
"all covering" }));
add_clothing_type( "bra",
({ "cloak", "cape", "sash", "robe", "tabard", "breastplate",
"hauberk", "haubergon", "byrnie", "jacket","jumper", "waistcoat",
"shirt", "undershirt", "all covering", "long dress", "mini dress" }),
({ "cloak", "robe", "tabard", "breastplate", "hauberk", "haubergon",
"byrnie", "jacket", "jumper", "waistcoat", "shirt", "undershirt",
"all covering", "long dress", "mini dress" }));
add_clothing_type("undershirt",
({ "cloak", "cape", "sash", "robe", "tabard", "breastplate",
"haubergon", "hauberk", "byrnie", "jacket","jumper", "waistcoat",
"shirt", "harness", "all covering" }),
({ "cloak", "robe", "tabard", "breastplate", "haubergon", "hauberk",
"byrnie", "jacket", "jumper", "waistcoat", "shirt",
"all covering" }));
add_clothing_type("shirt",
({ "cloak", "cape", "sash", "robe", "tabard", "breastplate",
"haubergon", "hauberk", "byrnie", "jacket", "jumper", "waistcoat",
"harness", "all covering" }),
({ "cloak", "robe", "haubergon", "hauberk", "byrnie", "jacket", "jumper",
"all covering" }));
add_clothing_type("waistcoat",
({ "cloak", "cape", "sash", "robe", "tabard", "breastplate",
"haubergon", "hauberk", "byrnie", "jacket", "jumper", "harness",
"all covering" }),
({ "cloak", "robe", "haubergon", "hauberk", "byrnie", "jacket", "jumper",
"shirt", "all covering" }));
add_clothing_type("harness",
({ "all covering" }),
({ "cloak", "all covering" }));
add_clothing_type("jumper",
({ "cloak", "cape", "sash", "robe", "breastplate", "haubergon",
"hauberk", "byrnie", "tabard", "jacket", "all covering" }),
({ "cloak", "robe", "haubergon", "hauberk", "jacket", "all covering" }));
add_clothing_type("jacket",
({ "cloak", "cape", "sash", "robe", "tabard", "breastplate",
"haubergon", "hauberk", "byrnie", "all covering" }),
({ "cloak", "robe", "hauberk", "all covering" }));
add_clothing_type("tabard",
({ "cloak", "cape", "sash", "robe", "all covering" }),
({ "cloak", "robe", "all covering" }));
add_clothing_type("robe",
({ "cloak", "cape", "sash", "all covering" }),
({ "cloak", "all covering" }));
add_clothing_type("cloak",
({ "all covering" }),
({ "all covering" }));
add_clothing_type("sash",
({ "cloak", "cape", "all covering" }),
({ "cloak", "all covering" }));
add_clothing_type("cape",
({ "all covering" }),
({ "all covering" }));
add_clothing_type("armband",
({ "all covering" }),
({ "cloak", "robe", "all covering" }));
add_clothing_type("glove",
({ "all covering" }),
({ "all covering" }));
add_clothing_type("bracelet",
({ "glove", "all covering" }),
({ "cloak", "glove", "all covering" }));
add_clothing_type("ring",
({ "glove", "all covering" }),
({ "glove", "all covering" }));
add_clothing_type("box",
({ "cloak", "robe", "all covering" }),
({ "cloak", "robe", "skirt", "all covering" }));
add_clothing_type("apron",
({ "cloak", "all covering" }),
({ "cloak", "all covering" }));
add_clothing_type("underwear",
({ "harness", "trousers", "greave", "hauberk", "haubergon",
"byrnie", "belt", "trousers", "all covering" }),
({ "cloak", "robe", "skirt", "trousers", "all covering",
"long dress", "mini dress" }));
add_clothing_type("garter",
({ "greave", "hauberk", "trousers", "all covering"}),
({ "cloak", "robe", "greave", "hauberk", "trousers", "skirt",
"all covering", "long dress", "mini dress"}));
add_clothing_type("skirt",
({ "belt", "all covering" }),
({ "cloak", "robe", "all covering" }));
add_clothing_type("trousers",
({ "greave", "hauberk", "belt" }),
({ "cloak", "hauberk", "robe", "all covering" }));
add_clothing_type("belt",
({"hauberk", "haubergon", "byrnie", "all covering" }),
({ "cloak", "robe", "hauberk", "haubergon", "byrnie", "all covering" }));
add_clothing_type("sock",
({ "overshoe", "boot", "chausse", "all covering" }),
({ "cloak", "overshoe", "boot", "chausse", "all covering",
"long dress" }));
add_clothing_type("anklet",
({ }),
({ "cloak", "overshoe", "chausse", "all covering" }));
add_clothing_type("boot",
({ "overshoe" }),
({ "overshoe", "all covering" }));
add_clothing_type("overshoe",
({ }),
({ "all covering" }));
add_clothing_type("long dress",
({ "cloak", "cape", "sash", "robe", "tabard", "breastplate",
"haubergon", "hauberk", "byrnie", "jacket", "jumper", "harness",
"all covering","belt" }),
({ "cloak", "robe", "haubergon", "hauberk", "byrnie", "jacket",
"jumper", "all covering" }));
add_clothing_type("mini dress",
({ "cloak", "cape", "sash", "robe", "tabard", "breastplate",
"haubergon", "hauberk", "byrnie", "jacket", "jumper", "harness",
"all covering","belt" }),
({ "cloak", "robe", "haubergon", "hauberk", "byrnie", "jacket",
"jumper", "all covering" }));
add_clothing_type("small shield",
({"all covering" }),
({ "all covering" }));
add_clothing_type("shield",
({"all covering" }),
({ "all covering" }));
add_clothing_type("large shield",
({"all covering" }),
({ "all covering" }));
add_clothing_type("badge",
({ "all covering" }),
({ "cloak", "all covering" }));
add_clothing_type("scabbard",
({ "all covering" }),
({ "cloak", "all covering" }));
add_clothing_type("small scabbard",
({ "all covering" }),
({ "cloak", "robe", "all covering" }));
add_clothing_type("belt scabbard",
({ "all covering" }),
({ "cloak", "robe", "all covering" }));
// Maille armour
add_clothing_type("coif",
({ "hood", "scarf", "mask", "helmet", "hat", "all covering"}),
({ "hood", "all covering"}));
add_clothing_type("byrnie",
({ "cloak", "breastplate", "backplate", "tabard", "small scabbard",
"belt scabbard", "robe", "cape", "sash", "all covering" }),
({ "cloak", "robe", "all covering" }));
add_clothing_type("haubergon",
({ "cloak", "breastplate", "backplate", "tabard", "vambrace",
"small scabbard", "belt scabbard", "robe", "cape", "sash",
"all covering"}),
({ "cloak", "robe", "all covering"}));
add_clothing_type("hauberk",
({ "cloak", "tabard", "vambrace", "greave", "breastplate", "backplate",
"small scabbard", "belt scabbard", "robe", "cape", "sash",
"all covering"}),
({ "cloak", "robe", "all covering" }));
add_clothing_type("chausse",
({ "boot", "overshoe", "all covering"}),
({ "boot", "overshoe", "all covering"}));
// Plate armour
add_clothing_type("breastplate",
({ "cloak", "small scabbard", "belt scabbard", "robe", "tabard",
"cape", "sash", "all covering" }),
({ "cloak", "robe", "all covering" }));
add_clothing_type("backplate",
({ "cloak", "cape", "sash", "robe", "tabard", "all covering"}),
({ "cloak", "cape", "sash", "robe", "all covering"}));
add_clothing_type("vambrace",
({ "glove", "all covering" }),
({ "cloak", "robe", "all covering" }));
add_clothing_type("greave",
({ "all covering" }),
({ "cloak", "robe", "all covering" }));
add_clothing_type("all covering", ({}), ({}));
/* The clothing zones... */
add_clothing_zone("head",
({ "hood", "helmet", "coif", "hat", "wig", "headband", "moustache",
"glasses", "mask" }));
add_clothing_zone("neck",
({ "cloak", "hood", "coif", "cape", "scarf", "collar" }));
add_clothing_zone("chest",
({ "cloak", "sash", "robe", "breastplate", "haubergon", "hauberk",
"byrnie", "tabard", "jacket","jumper", "shirt", "undershirt",
"shoulder", "bra","shield", "large shield", "long dress",
"mini dress", "apron" }));
add_clothing_zone("back",
({ "cloak", "cape", "sash", "robe", "hauberk", "haubergon", "byrnie",
"jacket", "jumper", "shirt", "undershirt", "backplate",
"long dress", "mini dress" }));
add_clothing_zone("abdomen",
({ "large shield", "robe", "breastplate", "byrnie", "hauberk",
"skirt", "box", "trousers", "underwear", "long dress",
"mini dress", "apron" }));
add_clothing_zone("arms",
({ "cloak", "small shield", "shield", "large shield", "robe",
"vambrace", "hauberk", "haubergon", "jacket", "armband",
"jumper", "shirt", "long dress" }));
add_clothing_zone("hands",
({ "glove", "small shield", "shield", "large shield" }));
add_clothing_zone("legs",
({ "cloak", "robe", "greave", "hauberk", "skirt", "trousers",
"long dress" }));
add_clothing_zone("feet",
({ "overshoe", "boot", "chausse", "sock", "anklet" }));
/* The equivilant types. */
add_equivilant_type("shoe", "boot");
add_equivilant_type("sandal", "boot");
add_equivilant_type("clog", "boot");
add_equivilant_type("sabaton", "boot");
add_equivilant_type("turban", "helmet");
add_equivilant_type("gorget", "collar");
add_equivilant_type("stocking", "sock");
add_equivilant_type("coat", "cape");
call_out((: check_clothing_types() :), 2);
} /* create() */
/**
* This method returns the list of things that are blocking the removal
* of the specific object.
* @param thing the thing to find what it is being blocked by
* @param player the player to look it up on
* @return the array of objects blocking it
*/
object* query_items_blocking(object thing, object player) {
int i;
int j;
int k;
string *stuff;
object *blocking;
mixed junk;
mixed main_types;
object *wearing;
main_types = thing->query_type();
if (stringp(main_types)) {
main_types = ({ main_types });
}
wearing = player->query_wearing() - ({ thing });
blocking = ({ });
for (k=0;k<sizeof(main_types);k++) {
stuff = query_clothing_cannot_remove(main_types[k]);
if (!sizeof(wearing) || !stuff) {
return ({ });
}
for (i = 0; i < sizeof(wearing); i++) {
junk = wearing[i]->query_type();
if (stringp(junk)) {
junk = ({ junk });
}
for (j = 0; j < sizeof(junk); j++) {
if (member_array(junk[j], stuff) != -1 &&
member_array(wearing[i], blocking) == -1) {
blocking += ({ wearing[i] });
break;
}
}
}
}
return blocking;
} /* query_items_blocking() */
/**
* This method returns whether or not a player can wear or remove a given item.
* @param thing the item to be worn or removed.
* @param player the person doing the wearing or removing.
* @return 0 for success, a string for failure.
*/
string can_wear_or_remove( object thing, object player ) {
object *blocking;
blocking = query_items_blocking(thing, player);
if (sizeof(blocking)) {
return "when you are wearing "+ query_multiple_short(blocking);
}
return 0;
} /* can_wear_or_remove() */
/**
* This method adds a new clothing type into the existing clothing
* type mapping.
* @param name the name of the clothing type
* @param not_remove the types which if worn you cannot remove this item
* @param hiding the types which hides this clothing
*/
protected void add_clothing_type(string name,
string *not_remove,
string *hiding) {
_types[name] = new (class clothing_type, _hiding : hiding,
_not_remove : not_remove);
} /* add_clothing_type() */
/**
* This method returns the information associated with the clothing
* of a particular type.
* <p>
* This will returns a class containing the clothing type information
* in it.
* @param name the name of the type to lookup
* @return the clothing type array, 0 if not found
* @see query_clothing_cannot_remove()
* @see query_clothing_cannot_remove()
*/
class clothing_type query_clothing_type(string name) {
return _types[name];
} /* query_clothing_type() */
/**
* This method returns the items you would be unable to remove the
* type with.
* @param type the type of clothing to check
* @return array of types you would be unable to remove, 0 if invalid type
* @see query_clothing_hiding()
* @see query_clothing_depth()
*/
string *query_clothing_cannot_remove(string type) {
class clothing_type bing;
bing = _types[type];
if (bing) {
return bing->_not_remove;
}
return 0;
} /* query_clothing_not_remove() */
/**
* This method returns the types which hide this type of thingy.
* @param type the type of clothing to check
* @return array of types which would hide this type, 0 if invalid type
* @see query_clothing_cannot_remove()
* @see query_clothing_depth()
*/
string *query_clothing_hiding(string type) {
class clothing_type bing;
bing = _types[type];
if (bing) {
return bing->_hiding;
}
return ({ });
} /* query_clothing_hiding() */
/**
* This method returns the depth of the clothing type. The parament
* can also be an array, in which case it will return the minimum
* non-zero depth.
* @param type the type of clothing to check
* @return the depth rating of the type
* @see query_clothing_cannot_remove()
* @see query_clothing_hiding()
*/
int query_clothing_depth(mixed type) {
class clothing_type bing;
int depth;
string str;
int min_depth;
if (stringp(type)) {
bing = _types[type];
if (bing) {
return bing->_depth;
}
} else if (pointerp(type)) {
min_depth = 100000;
foreach (str in type) {
depth = query_clothing_depth(str);
if (depth < min_depth && depth > 0) {
min_depth = depth;
}
}
return min_depth;
}
return 0;
} /* query_clothing_depth() */
/**
* This method returns the depth of the clothing type. The parament
* can also be an array, in which case it will return the maximum
* non-zero depth.
* @param type the type of clothing to check
* @return the depth rating of the type
* @see query_clothing_cannot_remove()
* @see query_clothing_hiding()
*/
int query_clothing_maximum_depth(mixed type) {
class clothing_type bing;
int depth;
string str;
int max_depth;
if (stringp(type)) {
bing = _types[type];
if (bing) {
return bing->_depth;
}
} else if (pointerp(type)) {
max_depth = 0;
foreach (str in type) {
depth = query_clothing_depth(str);
if (depth > max_depth) {
max_depth = depth;
}
}
return max_depth;
}
return 0;
} /* query_clothing_depth() */
/**
* This method returns a mapping of the current clothing types.
* <p>
* The make up of this array is:<br>
* <dl>
* <dh>first element
* <dd> is the items which if you're wearing this
* one cannot be removed.
* <dh>second element
* <dd>is the items which hide the given item.
* </dl>
* i.e. The wig type cannot be removed if types hood, helmet
* or hat are also worn, also the wig type is not visible
* if the types hood, helmet or hat are worn.
* @return the mapping of clothing types
* @see add_clothing_type()
*/
mapping query_all_clothing_types() {
return _types;
} /* query_clothing_types() */
/**
* This method will go through all the current types and make sure the
* hidden and the cannot remove types are valid. It will also figure
* out depth numbers for all the types.
*/
private void check_clothing_types() {
string ty;
class clothing_type bits;
string *stuff;
string bing;
string type;
int rank;
tell_creator("presto", "called check_clothing_types\n");
foreach (ty, bits in _types) {
foreach (bing in bits->_not_remove) {
if (!query_clothing_type(bing)) {
write("Unknown clothing type " + bing + " in the not remove "
" for " + ty + ".\n");
}
}
foreach (bing in bits->_hiding) {
if (!query_clothing_type(bing)) {
write("Unknown clothing type " + bing + " in the hiding "
" for " + ty + ".\n");
}
}
}
/*
* Go through each zone and assign levels to them...
*/
rank = 1;
foreach (bing in _zone_level) {
stuff = query_clothing_zone(bing);
/* Set the top levels. */
foreach (type in stuff) {
bits = _types[type];
if (!bits->_depth &&
(sizeof(bits->_not_remove) == 0 ||
bits->_not_remove[0] == "all covering")) {
bits->_depth = rank;
rank = fixup_types(type, stuff);
}
}
foreach (type in stuff) {
bits = _types[type];
if (!bits->_depth) {
tell_creator("presto", "setting depth of %O to %d\n", type, rank + 1);
bits->_depth = rank++;
}
}
}
} /* check_clothing_types() */
private int fixup_types(string type, string *types) {
string bing;
class clothing_type base;
class clothing_type bits;
int depth;
base = _types[type];
depth = base->_depth + 1;
foreach (bing in types) {
bits = _types[bing];
/* Gravitate it upwards... */
if (!bits->_depth &&
member_array(type, bits->_not_remove) != -1) {
bits->_depth = depth;
depth = fixup_types(bing, types);
}
}
return depth;
} /* fixup_types() */
/**
* This method adds a clothing zone.
* @param zone the zone name
* @param types the types to add to the zone
*/
protected void add_clothing_zone(string zone, string *types) {
string ty;
/* Check to make sure each type exists. */
foreach (ty in types) {
if (!query_clothing_type(ty)) {
write("Incorrect clothing type " + ty + " in zone " + zone + ".\n");
}
}
_zones[zone] = types;
_zone_level += ({ zone });
} /* add_clothing_zone() */
/**
* This method sets the zones that a particular clothing type covers
* @param type the clothing type
* @zones the zones covered.
*/
protected void add_zone_coverage(string type, string *zones) {
string zone;
if(!query_clothing_type(type))
write("Incorrect clothing type " + type + "\n");
foreach(zone in zones)
if(member_array(type, zones) != -1)
_zones[zone] += ({ type });
}
/**
* This method returns the clothing zones. The mapping consists of
* arrays of types which are in the particular zones.
* @return the clothing zones
*/
mapping query_all_clothing_zones() {
return _zones;
} /* query_clothing_zones() */
/**
* This method returns the array of clothing types in the particular
* zone.
* @param zone the zone to get the types for
* @return the clothing in the current zone
*/
string *query_clothing_zone(string zone) {
return _zones[zone];
} /* query_clothing_zone() */
/**
* This method finds the zone for the specific type.
* @param type the type to find in the zones
* @return the zone name, 0 if not found
*/
string query_zone_name(string type) {
string zone;
string *stuff;
foreach (zone, stuff in _zones) {
if (member_array(type, stuff) != -1) {
return zone;
}
}
return 0;
} /* query_zone_name() */
/**
* This method finds all the zones for the specific type.
* @param type the type to find in the zones
* @return the zone names, 0 if not found
*/
string *query_zone_names(string type) {
string zone;
string *stuff;
string *zones;
if(_equivilants[type])
type = _equivilants[type];
zones = ({ });
foreach (zone, stuff in _zones) {
if (member_array(type, stuff) != -1 && zone) {
zones += ({ zone });
}
}
return zones;
} /* query_zone_name() */
/**
* This method returns the level for the specified zone.
* @param zone the zone to check
* @return the level of the zone
*/
int query_zone_level(string zone) {
int i;
i = member_array(zone, _zone_level);
return i * 100;
} /* query_zone_level() */
/**
* This method adds an equivilant type.
* @param name the name of the type
* @param equiv what it is equivilant to
*/
protected void add_equivilant_type(string name, string equiv) {
if (!query_clothing_type(equiv)) {
write("Incorrect clothing type " + equiv + " in equivilant listing.\n");
}
_equivilants[name] = equiv;
} /* add_equivilant_type() */
/**
* This method returns all the equivilant types.
* @return the equivilant types
*/
mapping query_all_equivilant_types() {
return _equivilants;
} /* query_equivilant_types() */
/**
* This method returns the equivilant type for the given type.
* @param type the type to get the equivilant fo
* @return the equivilant type
*/
string query_equivilant_type(string type) {
return _equivilants[type];
} /* query_equivilant_type() */
/**
* This method tells us if the type is valid. It checks both normal
* types and equivilant types.
* @param type the type to check
* @return 1 if it is valid, 0 if not
* @query_equivilant_type()
* @query_clothing_type()
*/
int query_valid_type(string type) {
if (query_clothing_type(type) ||
query_equivilant_type(type)) {
return 1;
}
return 0;
} /* query_valid_type() */
