/** * Gagger object originally coded by Obilix 9 April 1997. * Turned into gag and ungag commands by Gruper 20 March 2000. */ #include <playerinfo.h> inherit "/cmds/base"; int cmd( object victim ) { // Ungag them and log it if( !victim->query_property( "gagged" ) ) return notify_fail( victim->query_short() +" is not gagged.\n" ); victim->remove_property("gagged"); log_file("GAG", 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, this_player()->query_short() + " ungags you.\n" "%^YELLOW%^Be more careful with what you say " "in future.%^RESET%^\n" ); write( "Okay, ungagged " + victim->query_short() + ".\n" ); // event( users(), "inform", this_player()->query_short() // + " ungagged " + victim->query_short(), "gag"); return 1; } // cmd() mixed *query_patterns() { return ({ "<indirect:player'player'>", (: cmd( $1[0] ) :) }); } /* query_patterns() */