/* -*- LPC -*- */ /* * $Locker: $ * $Id: path_of.c,v 1.3 2003/02/25 17:19:40 trilogy Exp $ * $Log: path_of.c,v $ * Revision 1.3 2003/02/25 17:19:40 trilogy * Got rid of some tabs. * * Revision 1.2 2001/06/01 20:56:52 ceres * Fixed long eval stuff * * Revision 1.1 1998/01/06 05:25:41 ceres * Initial revision * */ /* pathof command, trial out by Turrican for a commands daemon. */ #include <creator.h> mixed cmd(string str) { object *ov, ob; if(strsrch(str, "in everyone") != -1) return notify_fail("Please don't do that. You've been asked not to " "and it causes lag.\n"); notify_fail("Pathof what?\n"); ov = WIZ_PRESENT->wiz_present(str, this_player()); if (!sizeof(ov)) return 0; foreach (ob in ov) { if (!objectp(ob)) continue; write("Path of " + WIZ_PRESENT->desc_object(ob) + " in " + WIZ_PRESENT->desc_object(environment(ob)) + ":\n"); write(file_name(ob)+ "\n"); } return 1; } void dest_me() { destruct(this_object()); } void clean_up() { dest_me(); } void reset() { dest_me(); }