/**
* Gagger object originally coded by Obilix 9 April 1997.
* Turned into gag and ungag commands by Gruper 20 March 2000.
*/
#include <playerinfo.h>
inherit COMMAND_BASE;
int cmd( object victim ) {
// Ungag them and log it
if( !victim->query_gagged() )
return notify_fail( victim->query_short() +" is not gagged.\n" );
victim->delete_effect(victim->effects_matching("mudlib.gagged")[0]);
log_file("gag.log", "On "+ctime(time())+" "+this_player()->
query_short()+" ungagged "+victim->query_short()+".\n");
PLAYERINFO_HANDLER->add_entry( this_player(), victim->query_name(),
"gag", "Ungagged." );
// Messages...
tell_object( victim, "%^YELLOW%^Let this be a lesson to you!%^RESET%^\n" );
this_player()->add_succeeded_mess( this_object(),
"$N $V $I.\n", ({ victim }) );
return 1;
} // cmd()
mixed *query_patterns() {
return ({ "<indirect:player'player'>",
(: cmd( $1[0] ) :) });
} /* query_patterns() */
