inherit COMMAND_BASE;
mixed cmd(string str) {
if(creatorp(TP) || TP->query_property("setm")) {
str = str + " ";
if (sizeof(explode("^"+str, "$N")) < 2)
return notify_fail("Must have a $N in your teleport exit message.\n");
TP->set_mmsgout(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() */