自学教程：C++ ABORT_MPI函数代码示例

const char *mfn_holds(MFUNARGS){	dbref obj1 = mesg_dbref_raw(descr, player, what, perms, argv[0]);	dbref obj2 = player;	if (argc > 1)		obj2 = mesg_dbref_local(descr, player, what, perms, argv[1], mesgtyp);	if (obj1 == UNKNOWN || obj1 == AMBIGUOUS || obj1 == NOTHING || obj1 == HOME)		ABORT_MPI("HOLDS", "Match failed (1).");	if (obj1 == PERMDENIED)		ABORT_MPI("HOLDS", "Permission Denied (1).");	if (obj2 == UNKNOWN || obj2 == AMBIGUOUS || obj2 == NOTHING || obj2 == HOME)		ABORT_MPI("HOLDS", "Match failed (2).");	if (obj2 == PERMDENIED)		ABORT_MPI("HOLDS", "Permission Denied (2).");	if (obj2 == getloc(obj1)) {		return "1";	} else {		return "0";	}}

const char *mfn_name(MFUNARGS){    char *ptr;    // dbref obj = mesg_dbref_proximity(player, what, perms, argv[0]);    dbref obj = mesg_dbref_raw(player, what, perms, argv[0]);    if (obj == UNKNOWN)        ABORT_MPI("NAME","Match failed.");    if (obj == NOTHING) {        strcpy(buf, "#NOTHING#");	return buf;    }    if (obj == AMBIGUOUS) {        strcpy(buf, "#AMBIGUOUS#");	return buf;    }    if (obj == HOME) {        strcpy(buf, "#HOME#");	return buf;    }    if (!(Typeof(obj) == TYPE_PLAYER) &&        !mesg_proximity_perms(player, perms, obj))        ABORT_MPI("NAME","Permission denied.");    strcpy(buf, RNAME(obj));    if (Typeof(obj) == TYPE_EXIT) {        ptr = index(buf, ';');        if (ptr) *ptr = '/0';    }    return buf;}

const char *mfn_controls(MFUNARGS){dbref   obj;    dbref   obj2;        obj = mesg_dbref_raw(player, what, perms, argv[0]);    if (obj == AMBIGUOUS || obj == NOTHING || obj == UNKNOWN)	ABORT_MPI("CONTROLS","Match failed. (1)");    if (obj == PERMDENIED)	ABORT_MPI("CONTROLS","Permission denied. (1)");    if (obj == HOME) obj = DBFETCH(player)->sp.player.home;    if (argc > 1) {	obj2 = mesg_dbref_raw(player, what, perms, argv[1]);	if (obj2 == AMBIGUOUS || obj2 == NOTHING || obj2 == UNKNOWN)	    ABORT_MPI("CONTROLS","Match failed. (2)");	if (obj2 == PERMDENIED)	    ABORT_MPI("CONTROLS","Permission denied. (2)");	if (obj2 == HOME) obj2 = DBFETCH(player)->sp.player.home;	if (Typeof(obj2) != TYPE_PLAYER) obj2 = OWNER(obj2);    } else {	obj2 = OWNER(perms);    }    if (controls(obj2, obj)) {	return "1";    } else {	return "0";    }}

const char *mfn_center(MFUNARGS){	/* {center:string,fieldwidth,padstr} */	/* Center justify string to a fieldwidth, filling with padstr */	char *ptr;	char *fptr;	int i, len, halflen;	char *fillstr;	len = (argc > 1) ? atoi(argv[1]) : 78;	if (len > BUFFER_LEN - 1)		ABORT_MPI("CENTER", "Fieldwidth too big.");	halflen = len / 2;	fillstr = (argc > 2) ? argv[2] : " ";	if (!*fillstr)		ABORT_MPI("CENTER", "Null pad string.");	for (ptr = buf, fptr = fillstr, i = strlen(argv[0]) / 2; i < halflen; i++) {		*ptr++ = *fptr++;		if (!*fptr)			fptr = fillstr;	}	strcpyn(ptr, buflen - (ptr - buf), argv[0]);	for (i = strlen(buf), ptr = &buf[i], fptr = fillstr; i < len; i++) {		*ptr++ = *fptr++;		if (!*fptr)			fptr = fillstr;	}	*ptr = '/0';	return buf;}

const char *mfn_testlock(MFUNARGS){    struct boolexp *lok;    dbref who = player;    dbref obj = mesg_dbref_local(player, what, perms, argv[0]);    if (argc > 2)	who = mesg_dbref_local(player, what, perms, argv[2]);    if (who == AMBIGUOUS || who == UNKNOWN || who == NOTHING || who == HOME)	ABORT_MPI("TESTLOCK","Match failed. (1)");    if (who == PERMDENIED)	ABORT_MPI("TESTLOCK","Permission denied. (1)");    if (obj == AMBIGUOUS || obj == UNKNOWN || obj == NOTHING || obj == HOME)	ABORT_MPI("TESTLOCK","Match failed. (2)");    if (obj == PERMDENIED)	ABORT_MPI("TESTLOCK","Permission denied. (2)");    lok = get_property_lock(obj, argv[1]);    if (argc > 3 && lok == TRUE_BOOLEXP)	return (argv[3]);    if (eval_boolexp(who, lok, obj)) {	return "1";    } else {	return "0";    }}

const char *mfn_with(MFUNARGS){    char vbuf[BUFFER_LEN];    char *ptr, *valptr;    int v, cnt;    ptr = MesgParse(argv[0], argv[0]);    CHECKRETURN(ptr,"WITH","arg 1");    v = new_mvar(ptr, vbuf);    if (v == 1)	ABORT_MPI("WITH","Variable name too long");    if (v == 2)	ABORT_MPI("WITH","Too many variables already defined");    valptr = MesgParse(argv[1], argv[1]);    CHECKRETURN(valptr,"WITH","arg 2");    *buf = '/0';    strcpy(vbuf, valptr);    for (cnt = 2; cnt < argc; cnt++) {	ptr = MesgParse(argv[cnt],argv[cnt]);	if (!ptr) {	    sprintf(buf, "%s %cWITH%c (%d)", get_mvar("how"),		    MFUN_LEADCHAR, MFUN_ARGEND, cnt);	    notify(player, buf);	    return NULL;	}    }    free_top_mvar();    return ptr;}

const char *mfn_lunion(MFUNARGS){    int iter_limit = MAX_MFUN_LIST_LEN;    char   *ptr, *ptr2, *p;    int len;    int outlen, nextlen;    *buf = '/0';    outlen = 0;    ptr = argv[0];    while (*ptr) {	for (ptr2 = ptr; *ptr2 && *ptr2 != '/r'; ptr2++);	if (*ptr2) *(ptr2++) = '/0';	len = strlen(ptr);	p = buf; 	do {	    if (string_prefix(p, ptr) && (!p[len] || p[len] == '/r'))		break;	    while (*p && *p != '/r') p++;	    if (*p) p++;	} while (*p);	if (!*p) {	    nextlen = strlen(ptr);	    if (outlen + nextlen > BUFFER_LEN - 3)		break;	    if (outlen) strcat((buf+(outlen++)), "/r");	    strcat((buf+outlen), ptr);	    outlen += nextlen;	}	ptr = ptr2;	if (!(--iter_limit))	    ABORT_MPI("LUNION","Iteration limit exceeded");    }    ptr = argv[1];    while (*ptr) {	for (ptr2 = ptr; *ptr2 && *ptr2 != '/r'; ptr2++);	if (*ptr2) *(ptr2++) = '/0';	len = strlen(ptr);	p = buf; 	do {	    if (string_prefix(p, ptr) && (!p[len] || p[len] == '/r'))		break;	    while (*p && *p != '/r') p++;	    if (*p) p++;	} while (*p);	if (!*p) {	    nextlen = strlen(ptr);	    if (outlen + nextlen > BUFFER_LEN - 3)		break;	    if (outlen) strcat((buf+(outlen++)), "/r");	    strcat((buf+outlen), ptr);	    outlen += nextlen;	}	ptr = ptr2;	if (!(--iter_limit))	    ABORT_MPI("LUNION","Iteration limit exceeded");    }    return buf;}

const char *mfn_showlist(MFUNARGS){    dbref obj;    const char *m = NULL;    int lines=0;    if(argc > 1) {	obj = mesg_dbref_mage(player, what, perms, argv[1]);	if (obj == AMBIGUOUS || obj == UNKNOWN || obj == NOTHING || obj == HOME)	    ABORT_MPI("SHOWLIST","Match failed");	if (obj == PERMDENIED)	    ABORT_MPI("SHOWLIST",NOPERM_MESG);    } else obj = what;    if (Prop_Hidden(argv[0]) && (Permlevel(perms) < tp_hidden_prop_mlevel))	ABORT_MPI("SHOWLIST",NOPERM_MESG);    while ( (lines < MAX_MFUN_LIST_LEN) && (!lines || (m && *m)) ) {	sprintf(buf, "%s#/%d", argv[0], ++lines);	m = safegetprop_strict(player, obj, perms, buf);	if( m && *m ) {	    notify_nolisten(player, m, 1);	}    }    buf[0] = '/0';    return buf;}

const char *mfn_lexec(MFUNARGS){	dbref trg = (dbref) 0, obj = what;	char *pname;	const char *ptr;	int blessed = 0;	pname = argv[0];	if (argc == 2) {		obj = mesg_dbref(descr, player, what, perms, argv[1], mesgtyp);	}	if (obj == PERMDENIED)		ABORT_MPI("LEXEC", "Permission denied.");	if (obj == UNKNOWN || obj == AMBIGUOUS || obj == NOTHING || obj == HOME)		ABORT_MPI("LEXEC", "Match failed.");	while (*pname == PROPDIR_DELIMITER)		pname++;	ptr = get_concat_list(player, what, perms, obj, (char *)pname, buf, BUFFER_LEN, 2, mesgtyp, &blessed);	if (!ptr)		ptr = "";	trg = what;	if (blessed) {		mesgtyp |= MPI_ISBLESSED;	} else {		mesgtyp &= ~MPI_ISBLESSED;	}	if (Prop_ReadOnly(pname) || Prop_Private(pname) || Prop_SeeOnly(pname) || Prop_Hidden(pname))		trg = obj;	ptr = mesg_parse(descr, player, obj, trg, ptr, buf, BUFFER_LEN, mesgtyp);	CHECKRETURN(ptr, "LEXEC", "listval");	return ptr;}

const char *mfn_fullname(MFUNARGS){    dbref obj;        obj = tp_compatible_mpi    	? mesg_dbref_raw(player, what, perms, argv[0])    	: mesg_dbref_local(player, what, perms, argv[0])	;    if (obj == UNKNOWN)	ABORT_MPI("NAME","Match failed");    if (obj == PERMDENIED)	ABORT_MPI("NAME",NOPERM_MESG);    if (obj == NOTHING) {	strcpy(buf, "#NOTHING#");	return buf;    }    if (obj == AMBIGUOUS) {	strcpy(buf, "#AMBIGUOUS#");	return buf;    }    if (obj == HOME) {	strcpy(buf, "#HOME#");	return buf;    }    strcpy(buf, RNAME(obj));    return buf;}

const char *mfn_func(MFUNARGS){	char *funcname;	char *ptr=NULL, *def;	char namebuf[BUFFER_LEN];	char argbuf[BUFFER_LEN];	char defbuf[BUFFER_LEN];	int i;	funcname = MesgParse(argv[0], namebuf, sizeof(namebuf));	CHECKRETURN(funcname, "FUNC", "name argument (1)");	def = argv[argc - 1];	for (i = 1; i < argc - 1; i++) {		ptr = MesgParse(argv[i], argbuf, sizeof(argbuf));		CHECKRETURN(ptr, "FUNC", "variable name argument");		snprintf(defbuf, sizeof(defbuf), "{with:%.*s,{:%d},%.*s}", MAX_MFUN_NAME_LEN, ptr, i,				(BUFFER_LEN - MAX_MFUN_NAME_LEN - 20), def);	}	i = new_mfunc(funcname, defbuf);	if (i == 1)		ABORT_MPI("FUNC", "Function Name too long.");	if (i == 2)		ABORT_MPI("FUNC", "Too many functions defined.");	return "";}

const char *mfn_name(MFUNARGS){    char *ptr;    dbref obj;    obj = tp_compatible_mpi    	? mesg_dbref_raw(player, what, perms, argv[0])    	: mesg_dbref_local(player, what, perms, argv[0])	;    if (obj == UNKNOWN)	ABORT_MPI("NAME","Match failed");    if (obj == PERMDENIED)	ABORT_MPI("NAME",NOPERM_MESG);    if (obj == NOTHING) {	strcpy(buf, "#NOTHING#");	return buf;    }    if (obj == AMBIGUOUS) {	strcpy(buf, "#AMBIGUOUS#");	return buf;    }    if (obj == HOME) {	strcpy(buf, "#HOME#");	return buf;    }    strcpy(buf, RNAME(obj));    if (Typeof(obj) == TYPE_EXIT) {	ptr = index(buf, ';');	if (ptr) *ptr = '/0';    }    return buf;}

const char *mfn_right(MFUNARGS){	/* {right:string,fieldwidth,padstr} */	/* Right justify string to a fieldwidth, filling with padstr */	char *ptr;	char *fptr;	int i, len;	char *fillstr;	len = (argc > 1) ? atoi(argv[1]) : 78;	if (len > BUFFER_LEN - 1)		ABORT_MPI("RIGHT", "Fieldwidth too big.");	fillstr = (argc > 2) ? argv[2] : " ";	if (!*fillstr)		ABORT_MPI("RIGHT", "Null pad string.");	for (ptr = buf, fptr = fillstr, i = strlen(argv[0]); i < len; i++) {		*ptr++ = *fptr++;		if (!*fptr)			fptr = fillstr;	}	strcpyn(ptr, buflen - (ptr - buf), argv[0]);	return buf;}

const char *mfn_left(MFUNARGS){	/* {left:string,fieldwidth,padstr} */	/* Left justify string to a fieldwidth, filling with padstr */	char *ptr;	char *fptr;	int i, len;	char *fillstr;	len = (argc > 1) ? atoi(argv[1]) : 78;	if (len > BUFFER_LEN - 1)		ABORT_MPI("LEFT", "Fieldwidth too big.");	fillstr = (argc > 2) ? argv[2] : " ";	if (!*fillstr)		ABORT_MPI("LEFT", "Null pad string.");	strcpyn(buf, buflen, argv[0]);	for (i = strlen(argv[0]), ptr = &buf[i], fptr = fillstr; i < len; i++) {		*ptr++ = *fptr++;		if (!*fptr)			fptr = fillstr;	}	*ptr = '/0';	return buf;}

const char *mfn_nearby(MFUNARGS){	dbref obj;	dbref obj2;	obj = mesg_dbref_raw(descr, player, what, perms, argv[0]);	if (obj == UNKNOWN || obj == AMBIGUOUS || obj == NOTHING)		ABORT_MPI("NEARBY", "Match failed (arg1).");	if (obj == PERMDENIED)		ABORT_MPI("NEARBY", "Permission denied (arg1).");	if (obj == HOME)		obj = PLAYER_HOME(player);	if (argc > 1) {		obj2 = mesg_dbref_raw(descr, player, what, perms, argv[1]);		if (obj2 == UNKNOWN || obj2 == AMBIGUOUS || obj2 == NOTHING)			ABORT_MPI("NEARBY", "Match failed (arg2).");		if (obj2 == PERMDENIED)			ABORT_MPI("NEARBY", "Permission denied (arg2).");		if (obj2 == HOME)			obj2 = PLAYER_HOME(player);	} else {		obj2 = what;	}	if (!(mesgtyp & MPI_ISBLESSED) && !isneighbor(obj, what) && !isneighbor(obj2, what) &&		!isneighbor(obj, player) && !isneighbor(obj2, player)			) {		ABORT_MPI("NEARBY", "Permission denied.  Neither object is local.");	}	if (isneighbor(obj, obj2)) {		return "1";	} else {		return "0";	}}

const char *mfn_rand(MFUNARGS){	int num = 0;	dbref trg = (dbref) 0, obj = what;	const char *pname, *ptr;	int blessed = 0;	pname = argv[0];	if (argc == 2) {		obj = mesg_dbref(descr, player, what, perms, argv[1], mesgtyp);	}	if (obj == PERMDENIED)		ABORT_MPI("RAND", "Permission denied.");	if (obj == UNKNOWN || obj == AMBIGUOUS || obj == NOTHING || obj == HOME)		ABORT_MPI("RAND", "Match failed.");	num = get_list_count(what, obj, perms, (char *)pname, mesgtyp, &blessed);	if (!num)		ABORT_MPI("RAND", "Failed list read.");	ptr = get_list_item(what, obj, perms, (char *)pname, (((RANDOM() / 256) % num) + 1), mesgtyp, &blessed);	if (!ptr)		ABORT_MPI("RAND", "Failed list read.");	trg = what;	if (blessed) {		mesgtyp |= MPI_ISBLESSED;	} else {		mesgtyp &= ~MPI_ISBLESSED;	}	if (Prop_ReadOnly(ptr) || Prop_Private(ptr) || Prop_SeeOnly(ptr) || Prop_Hidden(ptr))		trg = obj;	ptr = mesg_parse(descr, player, obj, trg, ptr, buf, BUFFER_LEN, mesgtyp);	CHECKRETURN(ptr, "RAND", "listval");	return ptr;}

const char *mfn_filter(MFUNARGS){    int iter_limit = MAX_MFUN_LIST_LEN;    char buf2[BUFFER_LEN];    char tmp[BUFFER_LEN];    char   *ptr, *ptr2, *dptr;    char *sepin = argv[3];    char *sepbuf = argv[4];    int seplen, v;    ptr = MesgParse(argv[0],argv[0]);    CHECKRETURN(ptr,"FILTER","arg 1");    v = new_mvar(ptr, tmp);    if (v == 1)        ABORT_MPI("FILTER","Variable name too long.");    if (v == 2)        ABORT_MPI("FILTER","Too many variables already defined.");    dptr = MesgParse(argv[1],argv[1]);    CHECKRETURN(dptr,"FILTER","arg 2");    if (argc > 3) {        ptr = MesgParse(sepin,sepin);        CHECKRETURN(ptr,"FILTER","arg 4");        if (!*ptr)            ABORT_MPI("FILTER","Can't use Null seperator string");    } else {        strcpy(sepin, "/r");    }    if (argc > 4) {        ptr = MesgParse(sepbuf,sepbuf);        CHECKRETURN(ptr,"FILTER","arg 5");    } else {        strcpy(sepbuf, sepin);    }    seplen = strlen(sepin);    *buf = '/0';    ptr = dptr;    while (*ptr) {        for (ptr2 = ptr; *ptr2 && strncmp(ptr2, sepin, seplen); ptr2++);        if (*ptr2) {            *ptr2 = '/0';            ptr2 += seplen;        }        strcpy(tmp, ptr);        dptr = MesgParse(argv[2],buf2);        CHECKRETURN(dptr,"FILTER","arg 3");        if (truestr(buf2)) {            if (*buf) strcat(buf, sepbuf);            strcat(buf, ptr);        }        ptr = ptr2;        if (!(--iter_limit))            ABORT_MPI("FILTER","Iteration limit exceeded");    }    free_top_mvar();    return buf;}

const char *mfn_muf(MFUNARGS){    char *ptr;    struct inst *rv = NULL;    dbref obj = mesg_dbref_raw(player, what, perms, argv[0]);    if (obj == UNKNOWN)	ABORT_MPI("MUF","Match failed");    if (obj <= NOTHING || Typeof(obj) != TYPE_PROGRAM)	ABORT_MPI("MUF","Bad program reference");    if (!(FLAGS(obj) & LINK_OK) && !controls(perms,obj))	ABORT_MPI("MUF",NOPERM_MESG);    if ((mesgtyp & (MPI_ISLISTENER | MPI_ISLOCK)) && (MLevel(obj) < LM3))	ABORT_MPI("MUF",NOPERM_MESG);    if (++mpi_muf_call_levels > 18)	ABORT_MPI("MUF","Too many call levels");    strcpy(match_args, argv[1]);    ptr = get_mvar("how");    strcpy(match_cmdname, ptr);    strcat(match_cmdname, "(MPI)");    rv = interp(player, DBFETCH(player)->location,		obj, perms, PREEMPT, STD_HARDUID, 1);    mpi_muf_call_levels--;    if (!rv) return "";    switch(rv->type) {	case PROG_STRING:	    if (rv->data.string) {		strcpy(buf, rv->data.string->data);		CLEAR(rv);		return buf;	    } else {		CLEAR(rv);		return "";	    }	    break;	case PROG_INTEGER:	    sprintf(buf, "%d", rv->data.number);	    CLEAR(rv);	    return buf;	    break;	case PROG_OBJECT:	    ptr = ref2str(rv->data.objref, buf);	    CLEAR(rv);	    return ptr;	    break;	default:	    CLEAR(rv);	    return "";	    break;    }    return "";}

const char *mfn_commas(MFUNARGS){    int v, i, count;    char *ptr;    char buf2[BUFFER_LEN];    char tmp[BUFFER_LEN];    if (argc == 3)	ABORT_MPI("COMMAS","Takes 1, 2, or 4 arguments");    ptr = MesgParse(argv[0], argv[0]);    CHECKRETURN(ptr,"COMMAS","arg 1");    count = countlitems(argv[0], "/r");    if (count == 0) return "";    if (argc > 1) {	ptr = MesgParse(argv[1], argv[1]);	CHECKRETURN(ptr,"COMMAS","arg 2");    } else {	strcpy(argv[1], " and ");    }    if (argc > 2) {	ptr = MesgParse(argv[2], buf2);	CHECKRETURN(ptr,"COMMAS","arg 3");	v = new_mvar(ptr, tmp);	if (v == 1)	    ABORT_MPI("COMMAS","Variable name too long");	if (v == 2)	    ABORT_MPI("COMMAS","Too many variables already defined");    }    *buf = '/0';    for (i = 1; i <= count; i++) {	ptr = getlitem(buf2, argv[0], "/r", i);	if (argc > 2) {	    strcpy(tmp, ptr);	    ptr = MesgParse(argv[3], buf2);	    CHECKRETURN(ptr,"COMMAS","arg 3");	}	strcat(buf, ptr);	switch (count - i) {	  case 0:	    if (argc > 2) free_top_mvar();	    return buf;	    break;	  case 1:	    strcat(buf, argv[1]);	    break;	  default:	    strcat(buf, ", ");	    break;	}    }    if (argc > 2) free_top_mvar();    return buf;}

const char *mfn_flags(MFUNARGS){	dbref obj = mesg_dbref_local(descr, player, what, perms, argv[0], mesgtyp);	if (obj == UNKNOWN || obj == AMBIGUOUS || obj == NOTHING || obj == HOME)		ABORT_MPI("FLAGS", "Match failed.");	if (obj == PERMDENIED)		ABORT_MPI("FLAGS", "Permission denied.");	return unparse_flags(obj);}

const char *mfn_contents(MFUNARGS){    char buf2[50];    int list_limit = MAX_MFUN_LIST_LEN;    dbref obj = mesg_dbref_local(player, what, perms, argv[0]);    int typchk, ownroom;    int outlen, nextlen;    if (obj == AMBIGUOUS || obj == UNKNOWN || obj == NOTHING || obj == HOME)	ABORT_MPI("CONTENTS","Match failed");    if (obj == PERMDENIED)	ABORT_MPI("CONTENTS",NOPERM_MESG);    typchk = NOTYPE;    if (argc > 1) {	if (!string_compare(argv[1], "Room")) {	    typchk = TYPE_ROOM;	} else if (!string_compare(argv[1], "Exit")) {	    typchk = TYPE_EXIT;  /* won't find any, though */	} else if (!string_compare(argv[1], "Player")) {	    typchk = TYPE_PLAYER;	} else if (!string_compare(argv[1], "Program")) {	    typchk = TYPE_PROGRAM;	} else if (!string_compare(argv[1], "Thing")) {	    typchk = TYPE_THING;	} else {	    ABORT_MPI("CONTENTS","Type must be 'player', 'room', 'thing', 'program', or 'exit'. (2)");	}    }    strcpy(buf, "");    outlen = 0;    ownroom = controls(perms, obj);    obj = DBFETCH(obj)->contents;    while (obj != NOTHING && list_limit) {	if ((typchk == NOTYPE || Typeof(obj) == typchk) &&		(ownroom || controls(perms, obj) ||		!((FLAGS(obj) & DARK) || (FLAGS(getloc(obj)) & DARK) ||		(Typeof(obj) == TYPE_PROGRAM && !(FLAGS(obj) & LINK_OK)))) &&		!(Typeof(obj) == TYPE_ROOM && typchk != TYPE_ROOM)) {	    ref2str(obj, buf2);	    nextlen = strlen(buf2);	    if ((outlen + nextlen) >= (BUFFER_LEN - 3))		break;	    if (outlen) strcat((buf+(outlen++)), "/r");	    strcat((buf + outlen), buf2);	    outlen += nextlen;	    list_limit--;	}	obj = DBFETCH(obj)->next;    }    return buf;}

const char *mfn_loc(MFUNARGS){	dbref obj;	obj = mesg_dbref_local(descr, player, what, perms, argv[0], mesgtyp);	if (obj == UNKNOWN || obj == AMBIGUOUS || obj == NOTHING || obj == HOME)		ABORT_MPI("LOC", "Match failed.");	if (obj == PERMDENIED)		ABORT_MPI("LOC", "Permission denied.");	return ref2str(getloc(obj), buf, BUFFER_LEN);}

const char *mfn_pronouns(MFUNARGS){	dbref obj = player;	if (argc > 1) {		obj = mesg_dbref_local(descr, player, what, perms, argv[1], mesgtyp);		if (obj == UNKNOWN || obj == AMBIGUOUS || obj == NOTHING || obj == HOME)			ABORT_MPI("PRONOUNS", "Match failed.");		if (obj == PERMDENIED)			ABORT_MPI("PRONOUNS", "Permission Denied.");	}	return pronoun_substitute(descr, obj, argv[0]);}

const char *mfn_owner(MFUNARGS){    dbref   obj;        obj = mesg_dbref_raw(player, what, perms, argv[0]);    if (obj == AMBIGUOUS || obj == NOTHING || obj == UNKNOWN)	ABORT_MPI("OWNER","Failed match");    if (obj == PERMDENIED)	ABORT_MPI("OWNER",NOPERM_MESG);    if (obj == HOME)	obj = DBFETCH(player)->sp.player.home;    return ref2str(OWNER(obj), buf);}

const char *mfn_usecount(MFUNARGS){	dbref obj;	obj = mesg_dbref(descr, player, what, perms, argv[0], mesgtyp);	if (obj == UNKNOWN || obj == AMBIGUOUS || obj == NOTHING || obj == HOME)		ABORT_MPI("USECOUNT", "Match failed.");	if (obj == PERMDENIED)		ABORT_MPI("USECOUNT", "Permission denied.");	snprintf(buf, BUFFER_LEN, "%d", DBFETCH(obj)->ts.usecount);	return buf;}

const char *mfn_links(MFUNARGS){    char buf2[BUFFER_LEN];    dbref   obj;    int i, cnt;    obj = mesg_dbref(player, what, perms, argv[0]);    if (obj == AMBIGUOUS || obj == UNKNOWN || obj == NOTHING || obj == HOME)	ABORT_MPI("LINKS","Match failed");    if (obj == PERMDENIED)	ABORT_MPI("LINKS",NOPERM_MESG);    switch (Typeof(obj)) {	case TYPE_ROOM:	    obj = DBFETCH(obj)->sp.room.dropto;	    break;	case TYPE_PLAYER:	    obj = DBFETCH(obj)->sp.player.home;	    break;	case TYPE_THING:	    obj = DBFETCH(obj)->sp.thing.home;	    break;	case TYPE_EXIT: {	    dbref obj2;	    *buf = '/0';	    cnt = DBFETCH(obj)->sp.exit.ndest;	    if (cnt) {		for (i = 0; i < cnt; i++) {		    obj2 = DBFETCH(obj)->sp.exit.dest[i];		    ref2str(obj2, buf2);		    if (strlen(buf) + strlen(buf2) + 2 < BUFFER_LEN) {			if (*buf) strcat(buf, "/r");			strcat(buf, buf2);		    } else break;		}		return buf;	    } else {		return "#-1";	    }	    break;	}	case TYPE_PROGRAM:	default:	    return "#-1";	    break;    }    return ref2str(obj, buf);}

const char *mfn_type(MFUNARGS){    dbref obj = mesg_dbref_local(player, what, perms, argv[0]);    if (obj == NOTHING || obj == AMBIGUOUS || obj == UNKNOWN)	return("Bad");    if (obj == HOME) return("Room");    if (obj == PERMDENIED)	ABORT_MPI("TYPE",NOPERM_MESG);        switch(Typeof(obj)) {	case TYPE_PLAYER:	    return "Player";	    break;	case TYPE_ROOM:	    return "Room";	    break;	case TYPE_EXIT:	    return "Exit";	    break;	case TYPE_THING:	    return "Thing";	    break;	case TYPE_PROGRAM:	    return "Program";	    break;	default:	    return "Bad";	    break;    }    return "Bad";}

const char *mfn_istype(MFUNARGS){    dbref obj = mesg_dbref_raw(player, what, perms, argv[0]);    if (obj == NOTHING || obj == AMBIGUOUS || obj == UNKNOWN)	return(string_compare(argv[1], "Bad") ? "0" : "1");    if (obj == PERMDENIED)	ABORT_MPI("TYPE",NOPERM_MESG);    if (obj == HOME)	return(string_compare(argv[1], "Room") ? "0" : "1");        switch(Typeof(obj)) {	case TYPE_PLAYER:	    return(string_compare(argv[1], "Player") ? "0" : "1");	    break;	case TYPE_ROOM:	    return(string_compare(argv[1], "Room") ? "0" : "1");	    break;	case TYPE_EXIT:	    return(string_compare(argv[1], "Exit") ? "0" : "1");	    break;	case TYPE_THING:	    return(string_compare(argv[1], "Thing") ? "0" : "1");	    break;	case TYPE_PROGRAM:	    return(string_compare(argv[1], "Program") ? "0" : "1");	    break;	default:	    return(string_compare(argv[1], "Bad") ? "0" : "1");	    break;    }    return(string_compare(argv[1], "Bad") ? "0" : "1");}

const char *mfn_locked(MFUNARGS){    dbref who = mesg_dbref_local(player, what, perms, argv[0]);    dbref obj = mesg_dbref_local(player, what, perms, argv[1]);    if (who == AMBIGUOUS || who == UNKNOWN || who == NOTHING || who == HOME)	ABORT_MPI("LOCKED","Match failed. (1)");    if (who == PERMDENIED)	ABORT_MPI("LOCKED","Permission denied. (1)");    if (obj == AMBIGUOUS || obj == UNKNOWN || obj == NOTHING || obj == HOME)	ABORT_MPI("LOCKED","Match failed. (2)");    if (obj == PERMDENIED)	ABORT_MPI("LOCKED","Permission denied. (2)");    sprintf(buf, "%d", !could_doit(who, obj));    return buf;}

const char *mfn_dist(MFUNARGS){	int a, b, c;	int a2, b2, c2;	double result;	a2 = b2 = c = c2 = 0;	a = atoi(argv[0]);	b = atoi(argv[1]);	if (argc == 3) {		c = atoi(argv[2]);	} else if (argc == 4) {		a2 = atoi(argv[2]);		b2 = atoi(argv[3]);	} else if (argc == 6) {		c = atoi(argv[2]);		a2 = atoi(argv[3]);		b2 = atoi(argv[4]);		c2 = atoi(argv[5]);	} else if (argc != 2) {		ABORT_MPI("DIST", "Takes 2,3,4, or 6 arguments.");	}	a -= a2;	b -= b2;	c -= c2;	result = sqrt((double) (a * a) + (double) (b * b) + (double) (c * c));	snprintf(buf, BUFFER_LEN, "%.0f", floor(result + 0.5));	return buf;}