/* -*- LPC -*- */ /* * $Locker: $ * $Id: unp_rotect.c,v 1.6 1999/04/13 01:15:25 pinkfish Exp $ * */ inherit "/cmds/base"; #define TP this_player() mixed cmd(object *things) { object *defendees; object ob; object *fail; if(!things) { things = ({ }); } things -= ({ TP }); if ( !sizeof( things ) ) { add_failed_mess("You cannot undefend yourself!\n"); return 0; } defendees = ({ }); fail = ({ }); foreach ( ob in things) { if ( ob->remove_defender( TP ) ) { defendees += ({ ob }); } else { fail += ({ ob }); } } if ( sizeof( fail ) ) { add_failed_mess( "You are not defending " + query_multiple_short( fail ) + ".\n" ); } if (sizeof(defendees)) { add_succeeded_mess("$N stop$s defending $I.\n", defendees); return 1; } else { return 0; } } /* cmd() */ mixed *query_patterns() { return ({ "<indirect:living>", (: cmd($1) :) }); } /* query_patterns() */