/*
* $Id: predicates.c,v 1.5 2005/08/08 10:30:11 murrayma Exp $
*/
#include "copyright.h"
#include "config.h"
#include <signal.h>
#include "mudconf.h"
#include "config.h"
#include "db.h"
#include "interface.h"
#include "externs.h"
#include "match.h"
#include "command.h"
#include "alloc.h"
#include "attrs.h"
#include "powers.h"
#include "ansi.h"
#include "patchlevel.h"
#include "htab.h"
extern dbref match_thing(dbref, char *);
extern int do_command(DESC *, char *, int);
extern void dump_database(void);
extern void dump_restart_db(void);
extern int slave_pid;
extern int slave_socket;
#ifdef ARBITRARY_LOGFILES
extern int fileslave_pid, fileslave_socket;
#endif
#ifdef NEED_VSPRINTF_DCL
extern char *vsprintf(char *, char *, va_list);
#endif
#ifdef STDC_HEADERS
char *tprintf(const char *format, ...)
#else
char *tprintf(va_alist)
va_dcl
#endif
{
static char buff[LBUF_SIZE];
va_list ap;
#ifdef STDC_HEADERS
va_start(ap, format);
#else
const char *format;
va_start(ap);
format = va_arg(ap, char *);
#endif
vsnprintf(buff, LBUF_SIZE, format, ap);
va_end(ap);
buff[LBUF_SIZE - 1] = '\0';
return buff;
}
#ifdef STDC_HEADERS
void safe_tprintf_str(char *str, char **bp, const char *format, ...)
#else
void safe_tprintf_str(va_alist)
va_dcl
#endif
{
static char buff[LBUF_SIZE];
va_list ap;
#ifdef STDC_HEADERS
va_start(ap, format);
#else
char *str;
char **bp;
const char *format;
va_start(ap);
str = va_arg(ap, char *);
bp = va_arg(ap, char **);
format = va_arg(ap, char *);
#endif
/*
* Sigh, don't we wish _all_ vsprintf's returned int...
*/
vsnprintf(buff, LBUF_SIZE, format, ap);
va_end(ap);
buff[LBUF_SIZE - 1] = '\0';
safe_str(buff, str, bp);
**bp = '\0';
}
/*
* ---------------------------------------------------------------------------
* * insert_first, remove_first: Insert or remove objects from lists.
*/
dbref insert_first(head, thing)
dbref head, thing;
{
s_Next(thing, head);
return thing;
}
dbref remove_first(head, thing)
dbref head, thing;
{
dbref prev;
if (head == thing)
return (Next(thing));
DOLIST(prev, head) {
if (Next(prev) == thing) {
s_Next(prev, Next(thing));
return head;
}
}
return head;
}
/*
* ---------------------------------------------------------------------------
* * reverse_list: Reverse the order of members in a list.
*/
dbref reverse_list(list)
dbref list;
{
dbref newlist, rest;
newlist = NOTHING;
while (list != NOTHING) {
rest = Next(list);
s_Next(list, newlist);
newlist = list;
list = rest;
}
return newlist;
}
/*
* ---------------------------------------------------------------------------
* * member - indicate if thing is in list
*/
int member(thing, list)
dbref thing, list;
{
DOLIST(list, list) {
if (list == thing)
return 1;
}
return 0;
}
/*
* ---------------------------------------------------------------------------
* * is_integer, is_number: see if string contains just a number.
*/
int is_integer(str)
char *str;
{
while (*str && isspace(*str))
str++; /*
* Leading spaces
*/
if (*str == '-') { /*
* Leading minus
*/
str++;
if (!*str)
return 0; /*
* but not if just a minus
*/
}
if (!isdigit(*str)) /*
* Need at least 1 integer
*/
return 0;
while (*str && isdigit(*str))
str++; /*
* The number (int)
*/
while (*str && isspace(*str))
str++; /*
* Trailing spaces
*/
return (*str ? 0 : 1);
}
int is_number(str)
char *str;
{
int got_one;
while (*str && isspace(*str))
str++; /*
* Leading spaces
*/
if (*str == '-') { /*
* Leading minus
*/
str++;
if (!*str)
return 0; /*
* but not if just a minus
*/
}
got_one = 0;
if (isdigit(*str))
got_one = 1; /*
* Need at least one digit
*/
while (*str && isdigit(*str))
str++; /*
* The number (int)
*/
if (*str == '.')
str++; /*
* decimal point
*/
if (isdigit(*str))
got_one = 1; /*
* Need at least one digit
*/
while (*str && isdigit(*str))
str++; /*
* The number (fract)
*/
while (*str && isspace(*str))
str++; /*
* Trailing spaces
*/
return ((*str || !got_one) ? 0 : 1);
}
#ifndef STANDALONE
int could_doit(player, thing, locknum)
dbref player, thing;
int locknum;
{
char *key;
dbref aowner;
int aflags, doit;
/*
* no if nonplayer trys to get key
*/
if (!isPlayer(player) && Key(thing)) {
return 0;
}
if (Pass_Locks(player))
return 1;
key = atr_get(thing, locknum, &aowner, &aflags);
doit = eval_boolexp_atr(player, thing, thing, key);
free_lbuf(key);
return doit;
}
int can_see(player, thing, can_see_loc)
dbref player, thing;
int can_see_loc;
{
/*
* Don't show if all the following apply: * Sleeping players should *
*
* * * * not be seen. * The thing is a disconnected player. * The
* player * is * * * not a puppet.
*/
if (mudconf.dark_sleepers && isPlayer(thing) && !Connected(thing) &&
!Puppet(thing)) {
return 0;
}
/*
* You don't see yourself or exits
*/
if ((player == thing) || isExit(thing)) {
return 0;
}
/*
* If loc is not dark, you see it if it's not dark or you control it.
* * * * * If loc is dark, you see it if you control it. Seeing your
* * own * * * dark objects is controlled by mudconf.see_own_dark. *
* In * dark * * locations, you also see things that are LIGHT and
* !DARK.
*/
if (can_see_loc) {
return (!Dark(thing) || (mudconf.see_own_dark &&
MyopicExam(player, thing)));
} else {
return ((Light(thing) && !Dark(thing)) || (mudconf.see_own_dark &&
MyopicExam(player, thing)));
}
}
static int pay_quota(who, cost)
dbref who;
int cost;
{
dbref aowner;
int quota, aflags;
char buf[20], *quota_str;
/*
* If no cost, succeed
*/
if (cost <= 0)
return 1;
/*
* determine quota
*/
quota = atoi(quota_str =
atr_get(Owner(who), A_RQUOTA, &aowner, &aflags));
free_lbuf(quota_str);
/*
* enough to build? Wizards always have enough.
*/
quota -= cost;
if ((quota < 0) && !Free_Quota(who) && !Free_Quota(Owner(who)))
return 0;
/*
* dock the quota
*/
sprintf(buf, "%d", quota);
atr_add_raw(Owner(who), A_RQUOTA, buf);
return 1;
}
int canpayfees(player, who, pennies, quota)
dbref player, who;
int pennies, quota;
{
if (!Wizard(who) && !Wizard(Owner(who)) && !Free_Money(who) &&
!Free_Money(Owner(who)) && (Pennies(Owner(who)) < pennies)) {
if (player == who) {
notify(player, tprintf("Sorry, you don't have enough %s.",
mudconf.many_coins));
} else {
notify(player,
tprintf("Sorry, that player doesn't have enough %s.",
mudconf.many_coins));
}
return 0;
}
if (mudconf.quotas) {
if (!pay_quota(who, quota)) {
if (player == who) {
notify(player,
"Sorry, your building contract has run out.");
} else {
notify(player,
"Sorry, that player's building contract has run out.");
}
return 0;
}
}
payfor(who, pennies);
return 1;
}
int payfor(who, cost)
dbref who;
int cost;
{
dbref tmp;
if (Wizard(who) || Wizard(Owner(who)) || Free_Money(who) ||
Free_Money(Owner(who)) || Immortal(who) || Immortal(Owner(who))) {
return 1;
}
who = Owner(who);
if ((tmp = Pennies(who)) >= cost) {
s_Pennies(who, tmp - cost);
return 1;
}
return 0;
}
#endif /*
* STANDALONE
*/
void add_quota(who, payment)
dbref who;
int payment;
{
dbref aowner;
int aflags;
char buf[20], *quota;
quota = atr_get(who, A_RQUOTA, &aowner, &aflags);
sprintf(buf, "%d", atoi(quota) + payment);
free_lbuf(quota);
atr_add_raw(who, A_RQUOTA, buf);
}
void giveto(who, pennies)
dbref who;
int pennies;
{
if (Wizard(who) || Wizard(Owner(who)) || Free_Money(who) ||
Free_Money(Owner(who)) || Immortal(who) || Immortal(Owner(who))) {
return;
}
who = Owner(who);
s_Pennies(who, Pennies(who) + pennies);
}
int ok_name(name)
const char *name;
{
const char *cp;
/* Disallow pure ANSI names */
if (strlen(strip_ansi(name)) == 0)
return 0;
/* Disallow leading spaces */
if (isspace(*name))
return 0;
/*
* Only printable characters
*/
for (cp = name; cp && *cp; cp++) {
if ((!isprint(*cp)) && (*cp != ESC_CHAR))
return 0;
}
/*
* Disallow trailing spaces
*/
cp--;
if (isspace(*cp))
return 0;
/*
* Exclude names that start with or contain certain magic cookies
*/
return (name && *name && *name != LOOKUP_TOKEN && *name != NUMBER_TOKEN
&& *name != NOT_TOKEN && !index(name, ARG_DELIMITER) &&
!index(name, AND_TOKEN) && !index(name, OR_TOKEN) &&
string_compare(name, "me") && string_compare(name, "home") &&
string_compare(name, "here"));
}
int ok_player_name(name)
const char *name;
{
const char *cp, *good_chars;
/*
* No leading spaces
*/
if (isspace(*name))
return 0;
/*
* Not too long and a good name for a thing
*/
if (!ok_name(name) || (strlen(name) >= PLAYER_NAME_LIMIT))
return 0;
#ifndef STANDALONE
if (mudconf.name_spaces)
good_chars = " `$_-.,'";
else
good_chars = "`$_-.,'";
#else
good_chars = " `$_-.,'";
#endif
/*
* Make sure name only contains legal characters
*/
for (cp = name; cp && *cp; cp++) {
if (isalnum(*cp))
continue;
if ((!index(good_chars, *cp)) || (*cp == ESC_CHAR))
return 0;
}
return 1;
}
int ok_attr_name(attrname)
const char *attrname;
{
const char *scan;
if (!isalpha(*attrname))
return 0;
for (scan = attrname; *scan; scan++) {
if (isalnum(*scan))
continue;
if (!(index("'?!`/-_.@#$^&~=+<>()%", *scan)))
return 0;
}
return 1;
}
int ok_password(password)
const char *password;
{
const char *scan;
if (*password == '\0')
return 0;
for (scan = password; *scan; scan++) {
if (!(isprint(*scan) && !isspace(*scan))) {
return 0;
}
}
/*
* Needed. Change it if you like, but be sure yours is the same.
*/
if ((strlen(password) == 13) && (password[0] == 'X') &&
(password[1] == 'X'))
return 0;
return 1;
}
#ifndef STANDALONE
/*
* ---------------------------------------------------------------------------
* * handle_ears: Generate the 'grows ears' and 'loses ears' messages.
*/
void handle_ears(thing, could_hear, can_hear)
dbref thing;
int could_hear, can_hear;
{
char *buff, *bp;
int gender;
static const char *poss[5] = { "", "its", "her", "his", "their" };
if (!could_hear && can_hear) {
buff = alloc_lbuf("handle_ears.grow");
StringCopy(buff, Name(thing));
if (isExit(thing)) {
for (bp = buff; *bp && (*bp != ';'); bp++);
*bp = '\0';
}
gender = get_gender(thing);
notify_checked(thing, thing,
tprintf("%s grow%s ears and can now hear.", buff,
(gender == 4) ? "" : "s"),
(MSG_ME | MSG_NBR | MSG_LOC | MSG_INV));
free_lbuf(buff);
} else if (could_hear && !can_hear) {
buff = alloc_lbuf("handle_ears.lose");
StringCopy(buff, Name(thing));
if (isExit(thing)) {
for (bp = buff; *bp && (*bp != ';'); bp++);
*bp = '\0';
}
gender = get_gender(thing);
notify_checked(thing, thing,
tprintf("%s lose%s %s ears and become%s deaf.", buff,
(gender == 4) ? "" : "s", poss[gender],
(gender == 4) ? "" : "s"),
(MSG_ME | MSG_NBR | MSG_LOC | MSG_INV));
free_lbuf(buff);
}
}
/*
* for lack of better place the @switch code is here
*/
void do_switch(player, cause, key, expr, args, nargs, cargs, ncargs)
dbref player, cause;
int key, nargs, ncargs;
char *expr, *args[], *cargs[];
{
int a, any;
char *buff, *bp, *str;
if (!expr || (nargs <= 0))
return;
if (key == SWITCH_DEFAULT) {
if (mudconf.switch_df_all)
key = SWITCH_ANY;
else
key = SWITCH_ONE;
}
/*
* now try a wild card match of buff with stuff in coms
*/
any = 0;
buff = bp = alloc_lbuf("do_switch");
for (a = 0; (a < (nargs - 1)) && args[a] && args[a + 1]; a += 2) {
bp = buff;
str = args[a];
exec(buff, &bp, 0, player, cause, EV_FCHECK | EV_EVAL | EV_TOP,
&str, cargs, ncargs);
*bp = '\0';
if (wild_match(buff, expr)) {
wait_que(player, cause, 0, NOTHING, 0, args[a + 1], cargs,
ncargs, mudstate.global_regs);
if (key == SWITCH_ONE) {
free_lbuf(buff);
return;
}
any = 1;
}
}
free_lbuf(buff);
if ((a < nargs) && !any && args[a])
wait_que(player, cause, 0, NOTHING, 0, args[a], cargs, ncargs,
mudstate.global_regs);
}
void do_addcommand(player, cause, key, name, command)
dbref player, cause;
int key;
char *name, *command;
{
CMDENT *old, *cmd;
ADDENT *add, *nextp;
dbref thing;
int atr;
char *s;
if (!*name) {
notify(player, "Sorry.");
return;
}
if (!parse_attrib(player, command, &thing, &atr) || (atr == NOTHING)) {
notify(player, "No such attribute.");
return;
}
/* Let's make this case insensitive... */
for (s = name; *s; s++) {
*s = tolower(*s);
}
old = (CMDENT *) hashfind(name, &mudstate.command_htab);
if (old && (old->callseq & CS_ADDED)) {
/* If it's already found in the hash table, and it's being
added using the same object and attribute... */
for (nextp = (ADDENT *) old->handler; nextp != NULL;
nextp = nextp->next) {
if ((nextp->thing == thing) && (nextp->atr == atr)) {
notify(player, tprintf("%s already added.", name));
return;
}
}
/* else tack it on to the existing entry... */
add = (ADDENT *) malloc(sizeof(ADDENT));
add->thing = thing;
add->atr = atr;
add->name = (char *) strdup(name);
add->next = (ADDENT *) old->handler;
old->handler = (void *) add;
} else {
if (old) {
/* Delete the old built-in and rename it __name */
hashdelete(name, &mudstate.command_htab);
}
cmd = (CMDENT *) malloc(sizeof(CMDENT));
cmd->cmdname = (char *) strdup(name);
cmd->switches = NULL;
cmd->perms = 0;
cmd->extra = 0;
if (old && (old->callseq & CS_LEADIN)) {
cmd->callseq = CS_ADDED | CS_ONE_ARG | CS_LEADIN;
} else {
cmd->callseq = CS_ADDED | CS_ONE_ARG;
}
add = (ADDENT *) malloc(sizeof(ADDENT));
add->thing = thing;
add->atr = atr;
add->name = (char *) strdup(name);
add->next = NULL;
cmd->handler = (void *) add;
hashadd(name, (int *) cmd, &mudstate.command_htab);
if (old) {
/* Fix any aliases of this command. */
hashreplall((int *) old, (int *) cmd, &mudstate.command_htab);
hashadd(tprintf("__%s", name), (int *) old,
&mudstate.command_htab);
}
}
/* We reset the one letter commands here so you can overload them */
set_prefix_cmds();
notify(player, tprintf("%s added.", name));
}
void do_listcommands(player, cause, key, name)
dbref player, cause;
int key;
char *name;
{
CMDENT *old;
ADDENT *nextp;
int didit = 0;
char *s, *keyname;
/* Let's make this case insensitive... */
for (s = name; *s; s++) {
*s = tolower(*s);
}
if (*name) {
old = (CMDENT *) hashfind(name, &mudstate.command_htab);
if (old && (old->callseq & CS_ADDED)) {
/* If it's already found in the hash table, and it's being
added using the same object and attribute... */
for (nextp = (ADDENT *) old->handler; nextp != NULL;
nextp = nextp->next) {
notify(player, tprintf("%s: #%d/%s", nextp->name,
nextp->thing,
((ATTR *) atr_num(nextp->atr))->name));
}
} else {
notify(player, tprintf("%s not found in command table.",
name));
}
return;
} else {
for (keyname = hash_firstkey(&mudstate.command_htab);
keyname != NULL;
keyname = hash_nextkey(&mudstate.command_htab)) {
old = (CMDENT *) hashfind(keyname, &mudstate.command_htab);
if (old && (old->callseq & CS_ADDED)) {
for (nextp = (ADDENT *) old->handler; nextp != NULL;
nextp = nextp->next) {
if (strcmp(keyname, nextp->name))
continue;
notify(player, tprintf("%s: #%d/%s", nextp->name,
nextp->thing,
((ATTR *) atr_num(nextp->atr))->name));
didit = 1;
}
}
}
}
if (!didit)
notify(player, "No added commands found in command table.");
}
void do_delcommand(player, cause, key, name, command)
dbref player, cause;
int key;
char *name, *command;
{
CMDENT *old, *cmd;
ADDENT *prev = NULL, *nextp;
dbref thing;
int atr;
char *s;
if (!*name) {
notify(player, "Sorry.");
return;
}
if (*command) {
if (!parse_attrib(player, command, &thing, &atr) ||
(atr == NOTHING)) {
notify(player, "No such attribute.");
return;
}
}
/* Let's make this case insensitive... */
for (s = name; *s; s++) {
*s = tolower(*s);
}
old = (CMDENT *) hashfind(name, &mudstate.command_htab);
if (old && (old->callseq & CS_ADDED)) {
if (!*command) {
for (prev = (ADDENT *) old->handler; prev != NULL;
prev = nextp) {
nextp = prev->next;
/* Delete it! */
free(prev->name);
free(prev);
}
hashdelete(name, &mudstate.command_htab);
if ((cmd =
(CMDENT *) hashfind(tprintf("__%s", name),
&mudstate.command_htab)) != NULL) {
hashdelete(tprintf("__%s", name), &mudstate.command_htab);
hashadd(name, (int *) cmd, &mudstate.command_htab);
hashreplall((int *) old, (int *) cmd,
&mudstate.command_htab);
}
free(old);
set_prefix_cmds();
notify(player, "Done.");
return;
} else {
for (nextp = (ADDENT *) old->handler; nextp != NULL;
nextp = nextp->next) {
if ((nextp->thing == thing) && (nextp->atr == atr)) {
/* Delete it! */
free(nextp->name);
if (!prev) {
if (!nextp->next) {
hashdelete(name, &mudstate.command_htab);
if ((cmd =
(CMDENT *) hashfind(tprintf("__%s",
name),
&mudstate.command_htab)) != NULL) {
hashdelete(tprintf("__%s", name),
&mudstate.command_htab);
hashadd(name, (int *) cmd,
&mudstate.command_htab);
hashreplall((int *) old, (int *) cmd,
&mudstate.command_htab);
}
free(old);
} else {
old->handler = (void *) nextp->next;
free(nextp);
}
} else {
prev->next = nextp->next;
free(nextp);
}
set_prefix_cmds();
notify(player, "Done.");
return;
}
prev = nextp;
}
notify(player, "Command not found in command table.");
}
} else {
notify(player, "Command not found in command table.");
}
}
/*
* @prog 'glues' a user's input to a command. Once executed, the first string
* input from any of the doers's logged in descriptors, will go into
* A_PROGMSG, which can be substituted in <command> with %0. Commands already
* queued by the doer will be processed normally.
*/
void handle_prog(d, message)
DESC *d;
char *message;
{
DESC *all;
char *cmd;
dbref aowner;
int aflags, i;
/*
* Allow the player to pipe a command while in interactive mode.
*/
if (*message == '|') {
do_command(d, message + 1, 1);
/* Use telnet protocol's GOAHEAD command to show prompt */
if (d->program_data != NULL)
queue_string(d, tprintf("%s>%s \377\371", ANSI_HILITE,
ANSI_NORMAL));
return;
}
cmd = atr_get(d->player, A_PROGCMD, &aowner, &aflags);
wait_que(d->program_data->wait_cause, d->player, 0, NOTHING, 0, cmd,
(char **) &message, 1, (char **) d->program_data->wait_regs);
/* First, set 'all' to a descriptor we find for this player */
//all = (DESC *) nhashfind(d->player, &mudstate.desc_htab);
all = (DESC *) rb_find(mudstate.desctree, &d->player);
for (i = 0; i < MAX_GLOBAL_REGS; i++) {
free_lbuf(all->program_data->wait_regs[i]);
}
free(all->program_data);
/* Set info for all player descriptors to NULL */
DESC_ITER_PLAYER(d->player, all)
all->program_data = NULL;
atr_clr(d->player, A_PROGCMD);
free_lbuf(cmd);
}
void do_quitprog(player, cause, key, name)
dbref player, cause;
int key;
char *name;
{
DESC *d;
dbref doer;
int i, isprog = 0;
if (*name) {
doer = match_thing(player, name);
} else {
doer = player;
}
if (!(Prog(player) || Prog(Owner(player))) && (player != doer)) {
notify(player, "Permission denied.");
return;
}
if (!isPlayer(doer) || !Good_obj(doer)) {
notify(player, "That is not a player.");
return;
}
if (!Connected(doer)) {
notify(player, "That player is not connected.");
return;
}
DESC_ITER_PLAYER(doer, d) {
if (d->program_data != NULL) {
isprog = 1;
}
}
if (!isprog) {
notify(player, "Player is not in an @program.");
return;
}
// d = (DESC *) nhashfind(doer, &mudstate.desc_htab);
d = (DESC *) rb_find(mudstate.desctree, &doer);
for (i = 0; i < MAX_GLOBAL_REGS; i++) {
free_lbuf(d->program_data->wait_regs[i]);
}
free(d->program_data);
/* Set info for all player descriptors to NULL */
DESC_ITER_PLAYER(doer, d)
d->program_data = NULL;
atr_clr(doer, A_PROGCMD);
notify(player, "@program cleared.");
notify(doer, "Your @program has been terminated.");
}
void do_prog(player, cause, key, name, command)
dbref player, cause;
int key;
char *name, *command;
{
DESC *d;
PROG *program;
int i, atr, aflags;
dbref doer, thing, aowner;
ATTR *ap;
char *attrib, *msg;
if (!name || !*name) {
notify(player, "No players specified.");
return;
}
doer = match_thing(player, name);
if (!(Prog(player) || Prog(Owner(player))) && (player != doer)) {
notify(player, "Permission denied.");
return;
}
if (!isPlayer(doer) || !Good_obj(doer)) {
notify(player, "That is not a player.");
return;
}
if (!Connected(doer)) {
notify(player, "That player is not connected.");
return;
}
msg = command;
attrib = parse_to(&msg, ':', 1);
if (msg && *msg) {
notify(doer, msg);
}
parse_attrib(player, attrib, &thing, &atr);
if (atr != NOTHING) {
if (!atr_get_info(thing, atr, &aowner, &aflags)) {
notify(player, "Attribute not present on object.");
return;
}
ap = atr_num(atr);
if (God(player) || (!God(thing) &&
See_attr(player, thing, ap, aowner, aflags) &&
(Wizard(player) || (aowner == Owner(player))))) {
atr_add_raw(doer, A_PROGCMD, atr_get_raw(thing, atr));
} else {
notify(player, "Permission denied.");
return;
}
} else {
notify(player, "No such attribute.");
return;
}
/*
* Check to see if the cause already has an @prog input pending
*/
DESC_ITER_PLAYER(doer, d) {
if (d->program_data != NULL) {
notify(player, "Input already pending.");
return;
}
}
program = (PROG *) malloc(sizeof(PROG));
program->wait_cause = player;
for (i = 0; i < MAX_GLOBAL_REGS; i++) {
program->wait_regs[i] = alloc_lbuf("prog_regs");
StringCopy(program->wait_regs[i], mudstate.global_regs[i]);
}
/*
* Now, start waiting.
*/
DESC_ITER_PLAYER(doer, d) {
d->program_data = program;
/*
* Use telnet protocol's GOAHEAD command to show prompt
*/
queue_string(d, tprintf("%s>%s \377\371", ANSI_HILITE,
ANSI_NORMAL));
}
}
/*
* ---------------------------------------------------------------------------
* * do_restart: Restarts the game.
*/
void do_restart(player, cause, key)
{
if (mudstate.dumping) {
notify(player, "Dumping. Please try again later.");
return;
}
ResetSpecialObjects();
raw_broadcast(0, "Game: Restart by %s, please wait.",
Name(Owner(player)));
STARTLOG(LOG_ALWAYS, "WIZ", "RSTRT") {
log_text((char *) "Restart by ");
log_name(player);
ENDLOG;
} dump_database_internal(DUMP_RESTART);
shutdown_services();
dump_restart_db();
execl("bin/netmux", "netmux", mudconf.config_file, NULL);
}
/*
* ---------------------------------------------------------------------------
* * do_comment: Implement the @@ (comment) command. Very cpu-intensive :-)
*/
void do_comment(player, cause, key)
dbref player, cause;
int key;
{
}
static dbref promote_dflt(old, new)
dbref old, new;
{
switch (new) {
case NOPERM:
return NOPERM;
case AMBIGUOUS:
if (old == NOPERM)
return old;
else
return new;
}
if ((old == NOPERM) || (old == AMBIGUOUS))
return old;
return NOTHING;
}
dbref match_possessed(dbref player, dbref thing, char *target, dbref dflt, int check_enter) {
dbref result, result1;
int control;
char *buff, *start, *place, *s1, *d1, *temp;
/*
* First, check normally
*/
if (Good_obj(dflt))
return dflt;
/*
* Didn't find it directly. Recursively do a contents check
*/
start = target;
while (*target) {
/*
* Fail if no ' characters
*/
place = target;
target = (char *) index(place, '\'');
if ((target == NULL) || !*target)
return dflt;
/*
* If string started with a ', skip past it
*/
if (place == target) {
target++;
continue;
}
/*
* If next character is not an s or a space, skip past
*/
temp = target++;
if (!*target)
return dflt;
if ((*target != 's') && (*target != 'S') && (*target != ' '))
continue;
/*
* If character was not a space make sure the following * * *
*
* * character is a space.
*/
if (*target != ' ') {
target++;
if (!*target)
return dflt;
if (*target != ' ')
continue;
}
/*
* Copy the container name to a new buffer so we can * * * *
* terminate it.
*/
buff = alloc_lbuf("is_posess");
for (s1 = start, d1 = buff; *s1 && (s1 < temp); *d1++ = (*s1++));
*d1 = '\0';
/*
* Look for the container here and in our inventory. Skip *
* * * * past if we can't find it.
*/
init_match(thing, buff, NOTYPE);
if (player == thing) {
match_neighbor();
match_possession();
} else {
match_possession();
}
result1 = match_result();
free_lbuf(buff);
if (!Good_obj(result1)) {
dflt = promote_dflt(dflt, result1);
continue;
}
/*
* If we don't control it and it is either dark or opaque, *
* * * * skip past.
*/
control = Controls(player, result1);
if ((Dark(result1) || Opaque(result1)) && !control) {
dflt = promote_dflt(dflt, NOTHING);
continue;
}
/*
* Validate object has the ENTER bit set, if requested
*/
if ((check_enter) && !Enter_ok(result1) && !control) {
dflt = promote_dflt(dflt, NOPERM);
continue;
}
/*
* Look for the object in the container
*/
init_match(result1, target, NOTYPE);
match_possession();
result = match_result();
result =
match_possessed(player, result1, target, result, check_enter);
if (Good_obj(result))
return result;
dflt = promote_dflt(dflt, result);
}
return dflt;
}
/*
* ---------------------------------------------------------------------------
* * parse_range: break up <what>,<low>,<high> syntax
*/
void parse_range(name, low_bound, high_bound)
char **name;
dbref *low_bound, *high_bound;
{
char *buff1, *buff2;
buff1 = *name;
if (buff1 && *buff1)
*name = parse_to(&buff1, ',', EV_STRIP_TS);
if (buff1 && *buff1) {
buff2 = parse_to(&buff1, ',', EV_STRIP_TS);
if (buff1 && *buff1) {
while (*buff1 && isspace(*buff1))
buff1++;
if (*buff1 == NUMBER_TOKEN)
buff1++;
*high_bound = atoi(buff1);
if (*high_bound >= mudstate.db_top)
*high_bound = mudstate.db_top - 1;
} else {
*high_bound = mudstate.db_top - 1;
}
while (*buff2 && isspace(*buff2))
buff2++;
if (*buff2 == NUMBER_TOKEN)
buff2++;
*low_bound = atoi(buff2);
if (*low_bound < 0)
*low_bound = 0;
} else {
*low_bound = 0;
*high_bound = mudstate.db_top - 1;
}
}
int parse_thing_slash(dbref player, char *thing, char **after, dbref *it) {
char *str;
/*
* get name up to /
*/
for (str = thing; *str && (*str != '/'); str++);
/*
* If no / in string, return failure
*/
if (!*str) {
*after = NULL;
*it = NOTHING;
return 0;
}
*str++ = '\0';
*after = str;
/*
* Look for the object
*/
init_match(player, thing, NOTYPE);
match_everything(MAT_EXIT_PARENTS);
*it = match_result();
/*
* Return status of search
*/
return (Good_obj(*it));
}
extern NAMETAB lock_sw[];
int get_obj_and_lock(player, what, it, attr, errmsg, bufc)
dbref player, *it;
char *what, *errmsg, **bufc;
ATTR **attr;
{
char *str, *tbuf;
int anum;
tbuf = alloc_lbuf("get_obj_and_lock");
StringCopy(tbuf, what);
if (parse_thing_slash(player, tbuf, &str, it)) {
/*
* <obj>/<lock> syntax, use the named lock
*/
anum = search_nametab(player, lock_sw, str);
if (anum < 0) {
free_lbuf(tbuf);
safe_str("#-1 LOCK NOT FOUND", errmsg, bufc);
return 0;
}
} else {
/*
* Not <obj>/<lock>, do a normal get of the default lock
*/
*it = match_thing(player, what);
if (!Good_obj(*it)) {
free_lbuf(tbuf);
safe_str("#-1 NOT FOUND", errmsg, bufc);
return 0;
}
anum = A_LOCK;
}
/*
* Get the attribute definition, fail if not found
*/
free_lbuf(tbuf);
*attr = atr_num(anum);
if (!(*attr)) {
safe_str("#-1 LOCK NOT FOUND", errmsg, bufc);
return 0;
}
return 1;
}
#endif /*
* STANDALONE
*/
/*
* ---------------------------------------------------------------------------
* * where_is: Returns place where obj is linked into a list.
* * ie. location for players/things, source for exits, NOTHING for rooms.
*/
dbref where_is(what)
dbref what;
{
dbref loc;
if (!Good_obj(what))
return NOTHING;
switch (Typeof(what)) {
case TYPE_PLAYER:
case TYPE_THING:
loc = Location(what);
break;
case TYPE_EXIT:
loc = Exits(what);
break;
default:
loc = NOTHING;
break;
}
return loc;
}
/*
* ---------------------------------------------------------------------------
* * where_room: Return room containing player, or NOTHING if no room or
* * recursion exceeded. If player is a room, returns itself.
*/
dbref where_room(what)
dbref what;
{
int count;
for (count = mudconf.ntfy_nest_lim; count > 0; count--) {
if (!Good_obj(what))
break;
if (isRoom(what))
return what;
if (!Has_location(what))
break;
what = Location(what);
}
return NOTHING;
}
int locatable(player, it, cause)
dbref player, it, cause;
{
dbref loc_it, room_it;
int findable_room;
/*
* No sense if trying to locate a bad object
*/
if (!Good_obj(it))
return 0;
loc_it = where_is(it);
/*
* Succeed if we can examine the target, if we are the target, * if *
*
* * * * we can examine the location, if a wizard caused the lookup,
* * or * * * if the target caused the lookup.
*/
if (Examinable(player, it) || Find_Unfindable(player) ||
(loc_it == player) || ((loc_it != NOTHING) &&
(Examinable(player, loc_it) || loc_it == where_is(player))) ||
Wizard(cause) || (it == cause))
return 1;
room_it = where_room(it);
if (Good_obj(room_it))
findable_room = !Hideout(room_it);
else
findable_room = 1;
/*
* Succeed if we control the containing room or if the target is * *
* * * findable and the containing room is not unfindable.
*/
if (((room_it != NOTHING) && Examinable(player, room_it)) ||
Find_Unfindable(player) || (Findable(it) && findable_room))
return 1;
/*
* We can't do it.
*/
return 0;
}
/*
* ---------------------------------------------------------------------------
* * nearby: Check if thing is nearby player (in inventory, in same room, or
* * IS the room.
*/
int nearby(player, thing)
dbref player, thing;
{
int thing_loc, player_loc;
if (!Good_obj(player) || !Good_obj(thing))
return 0;
thing_loc = where_is(thing);
if (thing_loc == player)
return 1;
player_loc = where_is(player);
if ((thing_loc == player_loc) || (thing == player_loc))
return 1;
return 0;
}
/*
* ---------------------------------------------------------------------------
* * exit_visible, exit_displayable: Is exit visible?
*/
int exit_visible(exit, player, key) /*
* exit visible to lexits()
*/
dbref exit, player;
int key;
{
if (key & VE_LOC_XAM)
return 1; /*
* Exam exit's loc
*/
if (Examinable(player, exit))
return 1; /*
* Exam exit
*/
if (Light(exit))
return 1; /*
* Exit is light
*/
if (key & (VE_LOC_DARK | VE_BASE_DARK))
return 0; /*
* Dark Loc or base
*/
if (Dark(exit))
return 0; /*
* Dark exit
*/
return 1; /*
* Default
*/
}
int exit_displayable(exit, player, key) /*
* exit visible to look
*/
dbref exit, player;
int key;
{
if (Dark(exit))
return 0; /*
* Dark exit
*/
if (Light(exit))
return 1; /*
* Light exit
*/
if (key & (VE_LOC_DARK | VE_BASE_DARK))
return 0; /*
* Dark Loc or base
*/
return 1; /*
* Default
*/
}
/*
* ---------------------------------------------------------------------------
* * next_exit: return next exit that is ok to see.
*/
dbref next_exit(player, this, exam_here)
dbref player, this;
int exam_here;
{
if (isRoom(this))
return NOTHING;
if (isExit(this) && exam_here)
return this;
while ((this != NOTHING) && Dark(this) && !Light(this) &&
!Examinable(player, this))
this = Next(this);
return this;
}
#ifndef STANDALONE
/*
* ---------------------------------------------------------------------------
* * did_it: Have player do something to/with thing
*/
void did_it(dbref player, dbref thing, int what, const char *def, int owhat,
const char *odef, int awhat, char *args[], int nargs) {
char *d, *buff, *act, *charges, *bp, *str;
dbref loc, aowner;
int num, aflags;
/*
* message to player
*/
if (what > 0) {
d = atr_pget(thing, what, &aowner, &aflags);
if (*d) {
buff = bp = alloc_lbuf("did_it.1");
str = d;
exec(buff, &bp, 0, thing, player,
EV_EVAL | EV_FIGNORE | EV_TOP, &str, args, nargs);
*bp = '\0';
if (what == A_HTDESC) {
safe_str("\r\n", buff, &bp);
*bp = '\0';
notify_html(player, buff);
} else
notify(player, buff);
free_lbuf(buff);
} else if (def) {
notify(player, def);
}
free_lbuf(d);
} else if ((what < 0) && def) {
notify(player, def);
}
/*
* message to neighbors
*/
if ((owhat > 0) && Has_location(player) &&
Good_obj(loc = Location(player))) {
d = atr_pget(thing, owhat, &aowner, &aflags);
if (*d) {
buff = bp = alloc_lbuf("did_it.2");
str = d;
exec(buff, &bp, 0, thing, player,
EV_EVAL | EV_FIGNORE | EV_TOP, &str, args, nargs);
*bp = '\0';
if (*buff)
notify_except2(loc, player, player, thing, tprintf("%s %s",
Name(player), buff));
free_lbuf(buff);
} else if (odef) {
notify_except2(loc, player, player, thing, tprintf("%s %s",
Name(player), odef));
}
free_lbuf(d);
} else if ((owhat < 0) && odef && Has_location(player) &&
Good_obj(loc = Location(player))) {
notify_except2(loc, player, player, thing, tprintf("%s %s",
Name(player), odef));
}
/*
* do the action attribute
*/
if (awhat > 0) {
if (*(act = atr_pget(thing, awhat, &aowner, &aflags))) {
charges = atr_pget(thing, A_CHARGES, &aowner, &aflags);
if (*charges) {
num = atoi(charges);
if (num > 0) {
buff = alloc_sbuf("did_it.charges");
sprintf(buff, "%d", num - 1);
atr_add_raw(thing, A_CHARGES, buff);
free_sbuf(buff);
} else if (*(buff =
atr_pget(thing, A_RUNOUT, &aowner, &aflags))) {
free_lbuf(act);
act = buff;
} else {
free_lbuf(act);
free_lbuf(buff);
free_lbuf(charges);
return;
}
}
free_lbuf(charges);
wait_que(thing, player, 0, NOTHING, 0, act, args, nargs,
mudstate.global_regs);
}
free_lbuf(act);
}
}
/*
* ---------------------------------------------------------------------------
* * do_verb: Command interface to did_it.
*/
void do_verb(player, cause, key, victim_str, args, nargs)
dbref player, cause;
int key, nargs;
char *victim_str, *args[];
{
dbref actor, victim, aowner;
int what, owhat, awhat, nxargs, restriction, aflags, i;
ATTR *ap;
const char *whatd, *owhatd;
char *xargs[10];
/*
* Look for the victim
*/
if (!victim_str || !*victim_str) {
notify(player, "Nothing to do.");
return;
}
/*
* Get the victim
*/
init_match(player, victim_str, NOTYPE);
match_everything(MAT_EXIT_PARENTS);
victim = noisy_match_result();
if (!Good_obj(victim))
return;
/*
* Get the actor. Default is my cause
*/
if ((nargs >= 1) && args[0] && *args[0]) {
init_match(player, args[0], NOTYPE);
match_everything(MAT_EXIT_PARENTS);
actor = noisy_match_result();
if (!Good_obj(actor))
return;
} else {
actor = cause;
}
/*
* Check permissions. There are two possibilities * 1: Player * * *
* controls both victim and actor. In this case victim runs * his
*
* * * * * * action list. * 2: Player controls actor. In this case
* * victim * does * not run his * action list and any attributes
* * that * player cannot * read from * victim are defaulted.
*/
if (!controls(player, actor)) {
notify_quiet(player, "Permission denied,");
return;
}
restriction = !controls(player, victim);
what = -1;
owhat = -1;
awhat = -1;
whatd = NULL;
owhatd = NULL;
nxargs = 0;
/*
* Get invoker message attribute
*/
if (nargs >= 2) {
ap = atr_str(args[1]);
if (ap && (ap->number > 0))
what = ap->number;
}
/*
* Get invoker message default
*/
if ((nargs >= 3) && args[2] && *args[2]) {
whatd = args[2];
}
/*
* Get others message attribute
*/
if (nargs >= 4) {
ap = atr_str(args[3]);
if (ap && (ap->number > 0))
owhat = ap->number;
}
/*
* Get others message default
*/
if ((nargs >= 5) && args[4] && *args[4]) {
owhatd = args[4];
}
/*
* Get action attribute
*/
if (nargs >= 6) {
ap = atr_str(args[5]);
if (ap)
awhat = ap->number;
}
/*
* Get arguments
*/
if (nargs >= 7) {
parse_arglist(victim, actor, args[6], '\0',
EV_STRIP_LS | EV_STRIP_TS, xargs, 10, (char **) NULL, 0);
for (nxargs = 0; (nxargs < 10) && xargs[nxargs]; nxargs++);
}
/*
* If player doesn't control both, enforce visibility restrictions
*/
if (restriction) {
ap = NULL;
if (what != -1) {
atr_get_info(victim, what, &aowner, &aflags);
ap = atr_num(what);
}
if (!ap || !Read_attr(player, victim, ap, aowner, aflags) ||
((ap->number == A_DESC) && !mudconf.read_rem_desc &&
!Examinable(player, victim) && !nearby(player, victim)))
what = -1;
ap = NULL;
if (owhat != -1) {
atr_get_info(victim, owhat, &aowner, &aflags);
ap = atr_num(owhat);
}
if (!ap || !Read_attr(player, victim, ap, aowner, aflags) ||
((ap->number == A_DESC) && !mudconf.read_rem_desc &&
!Examinable(player, victim) && !nearby(player, victim)))
owhat = -1;
awhat = 0;
}
/*
* Go do it
*/
did_it(actor, victim, what, whatd, owhat, owhatd, awhat, xargs,
nxargs);
/*
* Free user args
*/
for (i = 0; i < nxargs; i++)
free_lbuf(xargs[i]);
}
#endif /*
* STANDALONE
*/