/* -*- LPC -*- */ /* * $Locker: $ * $Id: sh_adows.c,v 1.2 2001/12/28 10:12:58 taffyd Exp $ * $Log: sh_adows.c,v $ * Revision 1.2 2001/12/28 10:12:58 taffyd * Changed to use query_patterns() and /cmds/base instead of old method. * * Revision 1.1 1998/01/06 05:25:41 ceres * Initial revision * */ /* shadows command, trial out by Turrican for a commands daemon. */ #include <creator.h> inherit "/cmds/base"; int cmd(object *indirect_obs) { object *objs, *shadows, ob, shad, nobj; /* if (!s || s == "") s = "me"; objs = WIZ_PRESENT->wiz_present(s, this_player()); if (sizeof(objs) == 0) { notify_fail("Can't find object.\n"); return 0; } */ objs = indirect_obs; foreach (ob in objs) { shadows = ({ }); nobj = ob; while(nobj = shadow(nobj, 0)) shadows += ({ nobj }); if(!sizeof(shadows)) { write(WIZ_PRESENT->desc_f_object(ob) + " is not being shadowed.\n"); } else { write(WIZ_PRESENT->desc_f_object(ob) + " is being shadowed by:\n"); foreach (shad in shadows) write(" " + file_name(shad) + "\n"); } } return 1; } mixed *query_patterns() { return ({ "<indirect:wiz-present>", (: cmd( $1 ) :) }); } /* query_patterns() */