/** * testchar command. Adds a few useful properties to test characters. * @author Taffyd */ inherit "/cmds/base"; private mapping properties = ([ "no score" : 1, "no delete" : 1, "test character" : (: $1->query_name() :), "authorised player" : 1 ]); int cmd( object player, string status ) { foreach( string property, mixed value in properties ) { if ( status == "on" ) { if ( functionp( value ) ) { player->add_property( property, evaluate( value, this_player() ) ); } else { player->add_property( property, value ); } } else { player->remove_property( property ); } } if ( status == "on" ) { player->save_me(); add_succeeded_mess( ({ "$I is now a test character.\n", "" }), ({ player }) ); } else { add_succeeded_mess( ({ "$I is no longer a test character.\n", "" }), ({ player }) ); } return 1; } /* cmd() */ mixed *query_patterns() { return ({ "<indirect:player> {on|off}", (: cmd($1[0], $4[1]) :) }); } /* query_patterns() */