/* -*- LPC -*- */
/*
* $Locker: $
* $Id: setmout.c,v 1.2 1998/04/14 02:41:29 pinkfish Exp $
* $Log: setmout.c,v $
* Revision 1.2 1998/04/14 02:41:29 pinkfish
* Changed to use add_command.
*
* Revision 1.1 1998/01/06 05:29:43 ceres
* Initial revision
*
*/
inherit "/cmds/base";
#define TP this_player()
mixed cmd(string str) {
if(TP->query_creator() || TP->query_property("setm")) {
str = str + " ";
if(sizeof(explode("^"+str, "$N")) < 2 ||
sizeof(explode("^"+str, "$T")) < 2)
return notify_fail("Must have a $N and a $T in your exit message.\n");
TP->set_msgout(str);
write("Ok.\n");
return 1;
}
return notify_fail("You are not allowed that power yet.\n");
} /* cmd() */
mixed *query_patterns() {
return ({ "<string>", (: cmd($4[0]) :) });
} /* query_patterns() */
