void
f_query_multiple_short()
{
svalue_t *sv = sp - st_num_arg + 1;
const char *type = NULL;
int no_dollars = 0, quiet = 0, dark = 0;
if ( st_num_arg > 4) {
if (sv[4].type == T_NUMBER) {
dark = sv[4].u.number;
}
}
if ( st_num_arg > 3) {
if (sv[3].type == T_NUMBER) {
quiet = sv[3].u.number;
}
}
if ( st_num_arg > 2) {
if (sv[2].type == T_NUMBER) {
no_dollars = sv[2].u.number;
}
}
if (st_num_arg >= 2) {
if (sv[1].type == T_STRING) {
type = sv[1].u.string;
}
}
query_multiple_short(sv, type, no_dollars, quiet, dark, st_num_arg);
}
int cmd() {
string *args;
args = PHILOSOPHY_HANDLER->query_all_known(this_player()->query_name());
if (!sizeof(args)) {
write("You do not know any theological arguments.\n");
} else {
write("You know the following theological arguments:\n" +
query_multiple_short(args) + ".\n");
}
return 1;
} /* cmd() */
int cmd_list() {
string* alts;
string p1;
p1 = PLAYERINFO_HANDLER->query_alt_of(this_player()->query_name());
if (!p1) {
p1 = this_player()->query_name();
}
alts = (string*)PLAYERINFO_HANDLER->query_alts(p1) |
(string*)PLAYERINFO_HANDLER->query_alt_of(this_player()->query_name());
if (!sizeof(alts)) {
write("No alts registered.\n");
return 1;
}
write("Your registered alts are " + query_multiple_short(alts) + ".\n");
return 1;
}
int do_test(string str) {
string arg1, arg2, arg3;
string *womble;
int i;
womble = explode("#"+read_file("/doc/driver/concepts/socket_efuns"), "\n.");
for (i=0;i<sizeof(womble);i++)
write(strlen(womble[i])+"\n");
if (!str) {
notify_fail("Bing!\n");
return 0;
}
write(query_multiple_short(explode(str, " ")));
"/net/nameserver"->lookup_mud("discworld", "blue");
"/net/nameserver"->lookup_mud("bing", "blue");
write("Parse:"+parse_command("bing with bing", this_player(),
"%s 'with' %s", arg1, arg2, arg3));
printf("%O\n", arg1);
printf("%O\n", arg2);
printf("%O\n", arg3);
return 1;
}
void stopped_route() {
object *obs;
int i;
mixed room;
room = arg();
if (pointerp(room)) {
room = room[0];
}
if (file_name(environment(player)) == room) {
/* Sell stuff... */
obs = all_inventory(player);
for (i=0;i<sizeof(obs);i++) {
if (!obs[i]->query_property("start equipment"))
call_out("sell_the_stuff", 1, obs[i]);
call_out( "drop_the_stuff", 2, obs[ i ] );
}
call_out( "bury_the_stuff", 3, query_multiple_short( obs ) );
}
call_out("remove_this_effect", 4);
} /* stopped_route() */
