#include <skills.h>
inherit COMMAND_BASE;
private string rec_list( mixed *args, string path, int all, int lvl,
int only_leaf, object pl ) {
int i, sk, o_l;
string str, tp, tmp;
str = "";
for ( i = 0 ; i < sizeof( args ) ; i += SKILL_ARR_SIZE ) {
o_l = 0;
tp = path +"."+ args[ i ];
sk = (int)pl->query_skill( tp );
reset_eval_cost();
if (lvl == 1 && SKILL_OB->query_only_leaf(tp))
o_l = 1;
if (!(only_leaf || o_l) || (!sizeof(args[i+SKILL_BIT]) &&
(sk > 0 || all)))
str += sprintf( "%*'| 's%*'.'-s %4d %4d\n", ( lvl-1 ) * 2, "",
20 - ( ( lvl - 1 ) * 2 ), args[ i ], sk,
(int)pl->query_skill_bonus( tp ) );
if ( sizeof( args[ i + SKILL_BIT ] ) && ( only_leaf || o_l || all
|| ( sk > 5 * lvl ) ) ) {
tmp = rec_list( args[ i + SKILL_BIT ], path +"."+ args[i],
all, lvl + 1, only_leaf || o_l, pl );
if ((only_leaf || o_l) && (tmp != "" || (!all && lvl == 1)))
str += sprintf( "%*'| 's%*'.'-s - -\n", ( lvl-1 ) * 2, "",
20 - ( ( lvl - 1 ) * 2 ), args[ i ]) + tmp;
else
str += tmp;
}
}
return str;
} /* rec_list() */
int cmd( object *players, string word ) {
int i;
string result, *bits;
object pl;
mixed *args;
/* Only do the first player */
pl = players[0];
result = "";
bits = ({ });
if ( word ) {
args = (mixed *)SKILL_OB->query_skills();
if ( ( i = member_array( word, args ) ) == -1 ) {
notify_fail( "Usage: "+ query_verb() +" <skill>\n" );
return 0;
}
args = args[ i + SKILL_BIT ];
result = sprintf( "%'='*-s\n", (int)this_player()->query_cols(),
"=======SKILLS=======Level/Bonus" );
result += sprintf( "%#*-s\n", (int)this_player()->query_cols(),
rec_list( args, word, 1, 1, 0, pl ) );
this_player()->more_string( result, "Skills" );
this_player()->add_succeeded(players[0]);
this_player()->add_succeeded_mess(this_object(), ({ "",
this_player()->query_name() +
" delves skillfully into the internals of $I.\n" }),
players[0..0]);
return 1;
}
args = (mixed *)SKILL_OB->query_skills();
result += sprintf( "%'='*-s\n", (int)this_player()->query_cols(),
"=======SKILLS=======Level/Bonus");
result += sprintf( "%#*-s\n", (int)this_player()->query_cols(),
rec_list( args, "", ( member_array( "all", bits ) != -1 ), 1, 0, pl ) );
this_player()->more_string( result, "Skills" );
this_player()->add_succeeded(players[0]);
this_player()->add_succeeded_mess(this_object(), ({ "",
this_player()->query_name() +
" delves skillfully into the internals of $I.\n" }),
players[0..0]);
return 1;
} /* cmd() */
mixed *query_patterns() {
return ({ "<indirect:wiz-present> <string>",
(: cmd($1, $4[1]) :),
"<indirect:wiz-present>",
(: cmd($1, 0) :) });
} /* query_pattern() */
