"A dump of #15623 on Sun Dec 17 13:47:27 1995 PST

@create $root_class named generic body area:generic body area,body part,body
 area,area,part,appendage
@prop #15623."coverage" 0 rc
@prop #15623."shock_mod" 0 rc
@prop #15623."stun_resistance" 0 rc
@prop #15623."attack_mod" 0 rc
@prop #15623."parry_mod" 0 rc
;;#15623.("key") = 0
;;#15623.("aliases") = {"generic body area", "body part", "body area", "area",
 "part", "appendage"}
;;#15623.("description") = "A part of YOUR body.  Guard it well, lest it be
 sliced and diced by some mad hacker."
;;#15623.("object_size") = {1954, 819192646}

@verb #15623:"coverage shock_mod stun_resistance attack_mod parry_mod" this
 none this
@program #15623:coverage
":*(character[, attacker[, weapon]])";
"Descriptions for each stat follow.  Bracketed numbers are suggested ranges.";
".coverage";
"-> % of body the part covers, for random area determination.  [1..100]";
".shock_mod";
"-> Modifer when checking shock from wounds to this area.  [-30..0]";
".stun_resistance";
"-> How resistant the area is against being stunned. [0..100]";
".attack_mod";
"-> Attacker's mod when aiming for the area.  [-30..30]";
".parry_mod";
"-> Defender's mod when parrying an attack aimed for the area.  [-30..30]";
return this.(verb);
"Quinn 22-OCT-93 0328: Added.";
.

@verb #15623:"title" this none this rx
@program #15623:title
":title(whose-body) -> The name of this body area, allowing for customisation
 by characters.";
"Note that, for the moment, due to speed considerations and -wanting- to allow
 Non-GM PCs to customise their parts, this does not check permissions on the
 custom verb.";
"If this becomes a problem, a permissions check will be included.  Knowing a
 few PCs as I do, it probably will.";
if (args && (typeof(custom = args[1]:get_body_area_name(this)) == STR))
  return custom;
else
  return pass(@args);
endif
"Quinn 22-OCT-93 0328: Added.";
.

"***finished***