/**
* This is a study command that gives one a brief overview of the
* statistics of an object.
* @author Sandoz, June 2002.
*/
#include <weapon.h>
#define CONVERT(x) CAP(TP->convert_message(x))
inherit COMMAND_BASE;
/** @ignore yes */
private mixed do_study( object ob ) {
// ARMOUR AND CLOTHES.
if( ob->query_armour() || ob->query_clothing() ) {
mixed tmp;
string ret;
int arm;
if( stringp( tmp = ob->query_type() ) )
tmp = ({ tmp });
tmp = implode( map( tmp,
(: CLOTHING_H->query_zone_names($1) :) ), (: $1 + $2 :) );
arm = ob->query_armour();
ret = CONVERT( ob->one_short() )+" is a piece of "+( arm ? "armour" :
"clothing")+" that is "+( arm ? "protecting" : "covering")+" "+
( !sizeof(tmp) ? "no areas" : "the "+query_multiple_short(
sort_array( uniq_array( tmp ), 1 ) ) );
if( ob->query_scabbard() ) {
ret += ", and can be used to sheath "+ob->query_scabbard_mess(1);
} else if( sizeof( tmp = ob->query_pockets() ) ) {
mixed types;
int i;
types = ([ ]);
for( i = 0; i < sizeof( tmp ); i += 2 )
types[ tmp[ i ] ]++;
types = map( keys(types), (: query_num($2[$1]) + " " + $1 + " pocket"+
( $2[$1] > 1 ? "s" : "" ) :), types );
ret += ", and has "+query_multiple_short(types);
}
return ret+".";
}
// WEAPONS.
if( ob->query_weapon() ) {
int i;
mixed attacks;
string *skills, *types;
attacks = ob->query_attack_data();
skills = types = ({ });
for( i = 0; i < sizeof(attacks); i += W_ARRAY_SIZE ) {
if( member_array( attacks[i+W_SKILL], skills ) == -1 )
skills += ({ attacks[i+W_SKILL] });
if( member_array( attacks[i+W_TYPE], types ) == -1 )
types += ({ attacks[i+W_TYPE] });
}
skills = sort_array( map( skills, function( string skill ) {
switch( skill ) {
case "pierce":
return "piercing";
case "sharp":
return "slashing";
case "blunt":
return "bludgeoning";
default:
return skill+"ing";
}
} ), 1 );
i = sizeof(skills);
return CONVERT( ob->one_short() )+" is a "+
query_num(ob->query_no_limbs())+"-handed weapon designed "+
( i == 1 ? "solely " : "")+"for "+query_multiple_short(skills)+
" movements while doing "+query_multiple_short(types)+" damage.";
}
// SCABBARDS.
if( ob->query_scabbard() )
return CONVERT( ob->one_short() )+" is a scabbard that can be used "
"to sheath "+ob->query_scabbard_mess(1)+".";
// UNKNOWN.
return ob;
} /* do_study() */
/** @ignore yes */
int cmd( mixed obs ) {
string *failed;
int i;
obs = map( obs, (: do_study($1) :) );
failed = filter( obs, (: objectp($1) :) );
obs -= failed;
if( i = sizeof(failed) )
obs += ({ CONVERT( query_multiple_short(failed) )+" "+( i == 1 ?
"is" : "are")+" of undeterminable type and cannot be studied." });
TP->more_string( implode( obs, "\n"), "study");
return 1;
} /* cmd() */
/** @ignore yes */
mixed query_patterns() { return ({"<indirect:object:me>", (: cmd($1) :) }); }
