/**
* @changed Added playtester stuff - Sandoz, Sept. 2002.
*/
#define CM(x) TP->convert_message(x)
#define QMS(x) query_multiple_short( x, "a")
inherit COMMAND_BASE;
/** @ignore yes */
int cmd( int pt ) {
object *obs;
if( TP->query_property( "dead" ) ) {
write("You are just a disembodied spirit. "
"You have mist; what else do you want?\n");
obs = filter( INV(TP), (: $1->query_property("dead usable") :) );
if( sizeof(obs) )
write("Hang on! You appear to have "+
query_multiple_short(obs)+". Amazing.\n");
return 1;
}
if( pt ) {
mapping map;
object *keys;
int i, cols;
string ret;
if( !playtesterp(TP) ) {
add_failed_mess("You are not a playtester!\n");
return 0;
}
obs = filter( deep_inventory(TP),
(: $1->effects_matching("mudlib.pt.item") :) );
if( !sizeof(obs) ) {
write("You have no playtester items.\n");
return 1;
}
map = unique_mapping( obs, (: ENV($1) :) );
cols = TP->query_cols();
ret = "";
if( !undefinedp(map[TP]) ) {
ret += indent(" Your inventory: "+CM( QMS( map[TP] ) ),
4, cols )[8..]+".\n";
map_delete( map, TP );
}
i = sizeof( keys = keys( map ) );
while( i-- )
ret += "$C$"+indent(" "+CM( inside_one_short( keys[i] ) )+": "+
CM( QMS( map[keys[i]] ) ), 4, cols )[8..]+".\n";
write( ret );
return 1;
}
write( TP->query_living_contents( 1 ) );
if( TP->query_auto_loading() )
write("\n%^YELLOW%^Please note that your inventory is still being "
"generated.%^RESET%^\n");
return 1;
} /* cmd() */
/** @ignore yes */
mixed query_patterns() {
if( playtesterp(TP) )
return ({"", (: cmd( 0 ) :), "playtester", (: cmd( 1 ) :) });
return ({"", (: cmd( 0 ) :) });
} /* query_patterns() */
