skylib_mudos_v1/
skylib_mudos_v1/bin/
skylib_mudos_v1/bin/db/
skylib_mudos_v1/mudlib/banish/a/
skylib_mudos_v1/mudlib/banish/b/
skylib_mudos_v1/mudlib/banish/c/
skylib_mudos_v1/mudlib/banish/d/
skylib_mudos_v1/mudlib/banish/e/
skylib_mudos_v1/mudlib/banish/f/
skylib_mudos_v1/mudlib/banish/g/
skylib_mudos_v1/mudlib/banish/h/
skylib_mudos_v1/mudlib/banish/j/
skylib_mudos_v1/mudlib/banish/l/
skylib_mudos_v1/mudlib/banish/m/
skylib_mudos_v1/mudlib/banish/n/
skylib_mudos_v1/mudlib/banish/o/
skylib_mudos_v1/mudlib/banish/p/
skylib_mudos_v1/mudlib/banish/r/
skylib_mudos_v1/mudlib/banish/s/
skylib_mudos_v1/mudlib/banish/t/
skylib_mudos_v1/mudlib/banish/u/
skylib_mudos_v1/mudlib/banish/w/
skylib_mudos_v1/mudlib/cmds/
skylib_mudos_v1/mudlib/cmds/admin/
skylib_mudos_v1/mudlib/cmds/guild-race/
skylib_mudos_v1/mudlib/cmds/guild-race/crafts/
skylib_mudos_v1/mudlib/cmds/guild-race/magic/
skylib_mudos_v1/mudlib/cmds/guild-race/other/
skylib_mudos_v1/mudlib/cmds/living/broken/
skylib_mudos_v1/mudlib/cmds/player/group_cmds/
skylib_mudos_v1/mudlib/d/admin/
skylib_mudos_v1/mudlib/d/admin/room/
skylib_mudos_v1/mudlib/d/admin/room/we_care/
skylib_mudos_v1/mudlib/d/admin/save/
skylib_mudos_v1/mudlib/d/admin/text/
skylib_mudos_v1/mudlib/d/learning/TinyTown/buildings/
skylib_mudos_v1/mudlib/d/learning/TinyTown/map/
skylib_mudos_v1/mudlib/d/learning/TinyTown/roads/
skylib_mudos_v1/mudlib/d/learning/chars/
skylib_mudos_v1/mudlib/d/learning/functions/
skylib_mudos_v1/mudlib/d/learning/handlers/
skylib_mudos_v1/mudlib/d/learning/help_topics/
skylib_mudos_v1/mudlib/d/learning/help_topics/npcs/
skylib_mudos_v1/mudlib/d/learning/help_topics/objects/
skylib_mudos_v1/mudlib/d/learning/help_topics/rcs_demo/
skylib_mudos_v1/mudlib/d/learning/help_topics/rcs_demo/RCS/
skylib_mudos_v1/mudlib/d/learning/help_topics/rooms/
skylib_mudos_v1/mudlib/d/learning/help_topics/rooms/crowd/
skylib_mudos_v1/mudlib/d/learning/help_topics/rooms/situations/
skylib_mudos_v1/mudlib/d/learning/save/
skylib_mudos_v1/mudlib/d/learning/school/
skylib_mudos_v1/mudlib/d/learning/school/add_sc/
skylib_mudos_v1/mudlib/d/learning/school/characters/
skylib_mudos_v1/mudlib/d/learning/school/general/
skylib_mudos_v1/mudlib/d/learning/school/getting-started/
skylib_mudos_v1/mudlib/d/learning/school/getting-started/basic_commands/
skylib_mudos_v1/mudlib/d/learning/school/getting-started/edtutor/
skylib_mudos_v1/mudlib/d/learning/school/getting-started/unix_tutor/
skylib_mudos_v1/mudlib/d/learning/school/items/
skylib_mudos_v1/mudlib/d/learning/school/npc_school/
skylib_mudos_v1/mudlib/d/learning/school/room_school/
skylib_mudos_v1/mudlib/d/learning/school/room_school/room_basic/
skylib_mudos_v1/mudlib/d/learning/school/room_school/situations/
skylib_mudos_v1/mudlib/d/learning/school/room_school/terrain_tutor/
skylib_mudos_v1/mudlib/d/learning/text/
skylib_mudos_v1/mudlib/d/liaison/
skylib_mudos_v1/mudlib/d/mudlib/
skylib_mudos_v1/mudlib/d/mudlib/changes/
skylib_mudos_v1/mudlib/d/playtesters/
skylib_mudos_v1/mudlib/d/playtesters/effects/
skylib_mudos_v1/mudlib/d/playtesters/handlers/
skylib_mudos_v1/mudlib/d/playtesters/items/
skylib_mudos_v1/mudlib/d/sage/
skylib_mudos_v1/mudlib/doc/
skylib_mudos_v1/mudlib/doc/creator/
skylib_mudos_v1/mudlib/doc/driver/
skylib_mudos_v1/mudlib/doc/driver/efuns/arrays/
skylib_mudos_v1/mudlib/doc/driver/efuns/buffers/
skylib_mudos_v1/mudlib/doc/driver/efuns/compile/
skylib_mudos_v1/mudlib/doc/driver/efuns/filesystem/
skylib_mudos_v1/mudlib/doc/driver/efuns/floats/
skylib_mudos_v1/mudlib/doc/driver/efuns/functions/
skylib_mudos_v1/mudlib/doc/driver/efuns/general/
skylib_mudos_v1/mudlib/doc/driver/efuns/mappings/
skylib_mudos_v1/mudlib/doc/driver/efuns/mixed/
skylib_mudos_v1/mudlib/doc/driver/efuns/mudlib/
skylib_mudos_v1/mudlib/doc/driver/efuns/numbers/
skylib_mudos_v1/mudlib/doc/driver/efuns/parsing/
skylib_mudos_v1/mudlib/doc/known_command/
skylib_mudos_v1/mudlib/doc/login/
skylib_mudos_v1/mudlib/doc/lpc/basic_manual/
skylib_mudos_v1/mudlib/doc/lpc/intermediate/
skylib_mudos_v1/mudlib/doc/new/add_command/
skylib_mudos_v1/mudlib/doc/new/events/
skylib_mudos_v1/mudlib/doc/new/handlers/
skylib_mudos_v1/mudlib/doc/new/living/race/
skylib_mudos_v1/mudlib/doc/new/living/spells/
skylib_mudos_v1/mudlib/doc/new/object/
skylib_mudos_v1/mudlib/doc/new/player/
skylib_mudos_v1/mudlib/doc/new/room/guild/
skylib_mudos_v1/mudlib/doc/new/room/outside/
skylib_mudos_v1/mudlib/doc/new/room/storeroom/
skylib_mudos_v1/mudlib/doc/object/
skylib_mudos_v1/mudlib/doc/playtesters/
skylib_mudos_v1/mudlib/doc/policy/
skylib_mudos_v1/mudlib/doc/weapons/
skylib_mudos_v1/mudlib/global/
skylib_mudos_v1/mudlib/global/creator/
skylib_mudos_v1/mudlib/global/handlers/
skylib_mudos_v1/mudlib/global/virtual/setup_compiler/
skylib_mudos_v1/mudlib/include/cmds/
skylib_mudos_v1/mudlib/include/effects/
skylib_mudos_v1/mudlib/include/npc/
skylib_mudos_v1/mudlib/include/room/
skylib_mudos_v1/mudlib/include/shops/
skylib_mudos_v1/mudlib/net/daemon/
skylib_mudos_v1/mudlib/net/daemon/chars/
skylib_mudos_v1/mudlib/net/inherit/
skylib_mudos_v1/mudlib/net/obj/
skylib_mudos_v1/mudlib/obj/amulets/
skylib_mudos_v1/mudlib/obj/b_day/
skylib_mudos_v1/mudlib/obj/clothes/
skylib_mudos_v1/mudlib/obj/dwarmours/plate/
skylib_mudos_v1/mudlib/obj/dwclothes/transport/horse/
skylib_mudos_v1/mudlib/obj/dwscabbards/
skylib_mudos_v1/mudlib/obj/dwweapons/axes/
skylib_mudos_v1/mudlib/obj/dwweapons/chains/
skylib_mudos_v1/mudlib/obj/faith/symbols/
skylib_mudos_v1/mudlib/obj/fungi/
skylib_mudos_v1/mudlib/obj/gatherables/
skylib_mudos_v1/mudlib/obj/instruments/
skylib_mudos_v1/mudlib/obj/magic/
skylib_mudos_v1/mudlib/obj/media/
skylib_mudos_v1/mudlib/obj/misc/player_shop/
skylib_mudos_v1/mudlib/obj/monster/godmother/
skylib_mudos_v1/mudlib/obj/monster/transport/
skylib_mudos_v1/mudlib/obj/rings/
skylib_mudos_v1/mudlib/obj/spells/
skylib_mudos_v1/mudlib/obj/stationery/
skylib_mudos_v1/mudlib/obj/stationery/envelopes/
skylib_mudos_v1/mudlib/obj/stationery/papers/
skylib_mudos_v1/mudlib/obj/toys/
skylib_mudos_v1/mudlib/obj/vessels/
skylib_mudos_v1/mudlib/obj/weapons/swords/
skylib_mudos_v1/mudlib/save/autodoc/
skylib_mudos_v1/mudlib/save/leaflets/
skylib_mudos_v1/mudlib/save/mail/
skylib_mudos_v1/mudlib/save/new_soul/data/
skylib_mudos_v1/mudlib/save/parcels/
skylib_mudos_v1/mudlib/save/playerinfo/
skylib_mudos_v1/mudlib/save/players/d/
skylib_mudos_v1/mudlib/save/random_names/
skylib_mudos_v1/mudlib/save/random_names/data/
skylib_mudos_v1/mudlib/save/terrains/
skylib_mudos_v1/mudlib/save/terrains/tutorial_desert/
skylib_mudos_v1/mudlib/save/terrains/tutorial_grassy_field/
skylib_mudos_v1/mudlib/save/terrains/tutorial_mountain/
skylib_mudos_v1/mudlib/save/todo_lists/
skylib_mudos_v1/mudlib/secure/
skylib_mudos_v1/mudlib/secure/cmds/admin/
skylib_mudos_v1/mudlib/secure/cmds/lord/
skylib_mudos_v1/mudlib/secure/config/
skylib_mudos_v1/mudlib/secure/handlers/autodoc/
skylib_mudos_v1/mudlib/secure/handlers/intermud/
skylib_mudos_v1/mudlib/secure/include/global/
skylib_mudos_v1/mudlib/secure/save/
skylib_mudos_v1/mudlib/secure/save/handlers/
skylib_mudos_v1/mudlib/secure/std/classes/
skylib_mudos_v1/mudlib/secure/std/modules/
skylib_mudos_v1/mudlib/std/commands/
skylib_mudos_v1/mudlib/std/commands/shadows/
skylib_mudos_v1/mudlib/std/creator/
skylib_mudos_v1/mudlib/std/dom/
skylib_mudos_v1/mudlib/std/effects/
skylib_mudos_v1/mudlib/std/effects/external/
skylib_mudos_v1/mudlib/std/effects/fighting/
skylib_mudos_v1/mudlib/std/effects/priest/
skylib_mudos_v1/mudlib/std/effects/room/
skylib_mudos_v1/mudlib/std/environ/
skylib_mudos_v1/mudlib/std/guilds/
skylib_mudos_v1/mudlib/std/guilds/old/
skylib_mudos_v1/mudlib/std/languages/
skylib_mudos_v1/mudlib/std/languages/BACKUPS/
skylib_mudos_v1/mudlib/std/liquids/
skylib_mudos_v1/mudlib/std/npc/
skylib_mudos_v1/mudlib/std/npc/goals/
skylib_mudos_v1/mudlib/std/npc/goals/basic/
skylib_mudos_v1/mudlib/std/npc/goals/misc/
skylib_mudos_v1/mudlib/std/npc/plans/
skylib_mudos_v1/mudlib/std/npc/plans/basic/
skylib_mudos_v1/mudlib/std/npc/types/
skylib_mudos_v1/mudlib/std/npc/types/helper/
skylib_mudos_v1/mudlib/std/npcs/
skylib_mudos_v1/mudlib/std/outsides/
skylib_mudos_v1/mudlib/std/races/shadows/
skylib_mudos_v1/mudlib/std/room/basic/topography/
skylib_mudos_v1/mudlib/std/room/controller/
skylib_mudos_v1/mudlib/std/room/inherit/topography/
skylib_mudos_v1/mudlib/std/room/topography/area/
skylib_mudos_v1/mudlib/std/room/topography/iroom/
skylib_mudos_v1/mudlib/std/room/topography/milestone/
skylib_mudos_v1/mudlib/std/shadows/curses/
skylib_mudos_v1/mudlib/std/shadows/disease/
skylib_mudos_v1/mudlib/std/shadows/fighting/
skylib_mudos_v1/mudlib/std/shadows/healing/
skylib_mudos_v1/mudlib/std/shadows/magic/
skylib_mudos_v1/mudlib/std/shadows/poison/
skylib_mudos_v1/mudlib/std/shadows/rituals/
skylib_mudos_v1/mudlib/std/shadows/room/
skylib_mudos_v1/mudlib/std/shops/controllers/
skylib_mudos_v1/mudlib/std/shops/objs/
skylib_mudos_v1/mudlib/std/shops/player_shop/
skylib_mudos_v1/mudlib/std/socket/
skylib_mudos_v1/mudlib/std/soul/
skylib_mudos_v1/mudlib/std/soul/d/
skylib_mudos_v1/mudlib/std/soul/e/
skylib_mudos_v1/mudlib/std/soul/i/
skylib_mudos_v1/mudlib/std/soul/j/
skylib_mudos_v1/mudlib/std/soul/k/
skylib_mudos_v1/mudlib/std/soul/l/
skylib_mudos_v1/mudlib/std/soul/n/
skylib_mudos_v1/mudlib/std/soul/o/
skylib_mudos_v1/mudlib/std/soul/q/
skylib_mudos_v1/mudlib/std/soul/u/
skylib_mudos_v1/mudlib/std/soul/v/
skylib_mudos_v1/mudlib/std/soul/y/
skylib_mudos_v1/mudlib/std/soul/z/
skylib_mudos_v1/mudlib/std/stationery/
skylib_mudos_v1/mudlib/w/
skylib_mudos_v1/mudlib/w/default/
skylib_mudos_v1/mudlib/w/default/armour/
skylib_mudos_v1/mudlib/w/default/clothes/
skylib_mudos_v1/mudlib/w/default/item/
skylib_mudos_v1/mudlib/w/default/npc/
skylib_mudos_v1/mudlib/w/default/room/
skylib_mudos_v1/mudlib/w/default/weapon/
skylib_mudos_v1/mudlib/www/
skylib_mudos_v1/mudlib/www/download/
skylib_mudos_v1/mudlib/www/java/
skylib_mudos_v1/mudlib/www/secure/
skylib_mudos_v1/mudlib/www/secure/lpc/advanced/
skylib_mudos_v1/mudlib/www/secure/lpc/intermediate/
skylib_mudos_v1/v22.2b14-DSv10/
skylib_mudos_v1/v22.2b14-DSv10/ChangeLog.old/
skylib_mudos_v1/v22.2b14-DSv10/Win32/
skylib_mudos_v1/v22.2b14-DSv10/compat/
skylib_mudos_v1/v22.2b14-DSv10/compat/simuls/
skylib_mudos_v1/v22.2b14-DSv10/include/
skylib_mudos_v1/v22.2b14-DSv10/mudlib/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/clone/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/command/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/data/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/etc/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/include/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/inherit/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/inherit/master/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/log/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/single/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/single/tests/compiler/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/single/tests/efuns/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/single/tests/operators/
skylib_mudos_v1/v22.2b14-DSv10/testsuite/u/
skylib_mudos_v1/v22.2b14-DSv10/tmp/
skylib_mudos_v1/v22.2b14-DSv10/windows/
/* projecttool.c
 * The Project Control Tool 
 * for the admtool 
 *Shaydz 3 Apr '00
 */

#include <colors.h>
inherit COMMAND_BASE;

private mapping return_mapping = ([ ]);
private string main_menu_template = @END
-------------------------------------------------------------------------
%s
-------------------------------------------------------------------------
  %sCommand                                      Status%s
  
  [1]  Create new Project                      %s
  [2]  Delete Project                          %s
  [3]  List Projects                           %s
  [4]  Add Leader to Project                   %s
  [5]  Add Member to Project                   %s
  [6]  Remove Leader from Project              %s
  [7]  Remove Member from Project              %s
  
END;

private string main_prompt = "Enter your command [1-7], or [Q] to quit: ";
private string main_prompt2 = "Enter your command [1-7], [B] to go back, or [Q] to quit: ";

// Function prototypes
mixed cmd(string args);
private void get_command(string str);
private void create_project();
private void create_project2(string str);
private void create_project3(string str, string project);
private void delete_project();
private void delete_project2(string str);
private void delete_project3(string str, string project);
private void list_projects();
private void add_leader();
private void add_leader2(string str);
private void add_leader3(string str, string project);
private void add_member();
private void add_member2(string str);
private void add_member3(string str, string project);
private void remove_leader();
private void remove_leader2(string str);
private void remove_leader3(string str, string project);
private void remove_member();
private void remove_member2(string str);
private void remove_member3(string str, string project);

private void display_menu() {
    string title, s1, s2, s3, s4, s5, s6, s7;

    title = sprintf("%s%|72s%s", YELLOW, mud_name()+" Projects Control Tool v1.5", RESET);

    s1 = s2 = s3 = s4 = s5 = s6 = s7 = RED+"Unavailable"+RESET;

    if (PROJECT_H->query_leader(TP->query_name())){
	s5 = s7 = MAGENTA+"Limited"+RESET;
	s3 = GREEN+"Available"+RESET;
    }

    if (creatorp(TP)) {
	s3 = GREEN+"Available"+RESET;
    }

    if (adminp(TP)) {
	s1 = s2 = s3 = s4 = s5 = s6 = s7 = GREEN+"Available"+RESET;
    }

    tell_object(TP, sprintf(main_menu_template, title, BOLD, RESET, s1, s2, s3, s4, s5, s6, s7));
} /*display_menu()*/

private void create_project() {
    if(!DOMAIN_H->query_leader("project",TP->query_name()) && !adminp(TP)){
	tell_object(TP,RED+"\nYou are not authorised to use this option.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP, "Enter the name of the NEW Project: ");
    input_to((: create_project2 :));
} /*create_project()*/

private void create_project2(string str) {
    if (!str || str == "") {
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP, "Enter the name of the Project leader or press return to use yourself: ");
    input_to((: create_project3($1, $(str)) :));
} /*create_project2()*/

private void create_project3(string str, string project){
    string err;

    if (!str || str == "") {
	str = TP->query_name();
    }
    if (err = PROJECT_H -> add_project(project)){
	tell_object(TP,RED+"\n"+err+"\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if (err = PROJECT_H -> add_member(project,str)){
	tell_object(TP,RED+"\n"+err+"\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }else
    if (err = PROJECT_H -> add_leader(project,str)){
	tell_object(TP,RED+"\n"+err+"\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP,GREEN+"\nCreated project " + CAP(project) + " with leader " +
        CAP(str) + ".\n\n"+RESET);
    tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
    input_to((: get_command :));
} /*create_project3()*/

private void delete_project() {
    if(!DOMAIN_H->query_leader("project",TP->query_name()) && !adminp(TP)){
	tell_object(TP,RED+"\nYou are not authorised to use this option.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP, "Enter the name of the project to DELETE: ");
    input_to((: delete_project2 :));
} /*delete_project()*/

private void delete_project2(string str) {
    if (!str || str == "") {
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if(!PROJECT_H->query_project(str)){
	tell_object(TP,RED+"The project "+CAP(str)+" doesn't exist.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP, "Are you sure you wish to delete the "+str+" project? : ");
    input_to((: delete_project3($1, $(str)) :));
} /*delete_project2()*/

private void delete_project3(string str, string project){
    string err;
    str = lower_case(str);
    if(!str||str==""){
	tell_object(TP,"\nThe project "+CAP(project)+" has NOT been deleted.\n");
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }     
    if(str!="y"&&str!="yes"){
	tell_object(TP,"\nThe project "+CAP(project)+" has NOT been deleted.\n");
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }     
    if (err = PROJECT_H -> remove_project(project)){
	tell_object(TP,RED+"\n"+err+"\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }    
    tell_object(TP,GREEN+"\nRemoved project " + CAP(project) + ".\n"+RESET);
    tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
    input_to((: get_command :));
} /*delete_projects3()*/

private void list_projects(){
    tell_object(TP, create_table( ({ "Projects", "project" }), map(PROJECT_H ->
	  query_projects(), (: CAP($1) :) ), 0)); 
    tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
    input_to((: get_command :));
} /*list_projects()*/

private void add_leader() {
    if(!DOMAIN_H->query_leader("project",TP->query_name()) && !adminp(TP)){
	tell_object(TP,RED+"\nYou are not authorised to use this option.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP, "Enter the name of the Project to add a leader to: ");
    input_to((: add_leader2 :));
} /*add_leader()*/

private void add_leader2(string str) {
    if (!str || str == "") {
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if(!PROJECT_H->query_project(str)){
	tell_object(TP,RED+"The project "+CAP(str)+" doesn't exist.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }

    tell_object(TP, "Enter the name of the Project leader to add or press return to use yourself: ");
    input_to((: add_leader3($1, $(str)) :));
} /*add_leader2()*/

private void add_leader3(string str, string project){
    string err;

    if (!str || str == "") {
	str = TP->query_name();
    }
    if(PROJECT_H->query_leader(project,str)){
	tell_object(TP,RED+CAP(str)+" is already a leader of "+CAP(project)+".\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if(!PROJECT_H->query_member(project,str)){
	if (err = PROJECT_H -> add_member(project,str)){
	    tell_object(TP,RED+"\n"+err+"\n"+RESET);
            tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	    input_to((: get_command :));
	    return;
	}
    }     
    if (err = PROJECT_H -> add_leader(project,str)){
	tell_object(TP,RED+"\n"+err+"\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP,GREEN+"\nAdded " + CAP(str) + " as leader of Project " +
        CAP(project) + ".\n\n"+RESET);
    tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
    input_to((: get_command :));
} /*add_leader3()*/

private void add_member() {
    tell_object(TP, "Enter the name of the Project to add a member to: ");
    input_to((: add_member2 :));
} /*add_member()*/

private void add_member2(string str) {
    if (!str || str == "") {
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if(!PROJECT_H->query_project(str)){
	tell_object(TP,RED+"The project "+CAP(str)+" doesn't exist.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if(!adminp(TP)&&!PROJECT_H->query_leader(str,TP->query_name())){
	tell_object(TP,RED+"\nYou are not authorised to do that.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP, "Enter the name of the member to add or press return to use yourself: ");
    input_to((: add_member3($1, $(str)) :));
} /*add_member2()*/

private void add_member3(string str, string project){
    string err;

    if (!str || str == "") {
	str = TP->query_name();
    }
    if(PROJECT_H->query_member(project,str)){
	tell_object(TP,RED+CAP(str)+" is already a member of "+CAP(project)+".\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if (err = PROJECT_H -> add_member(project,str)){
	tell_object(TP,RED+"\n"+err+"\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP,GREEN+"\nAdded " + CAP(str) + " as a member of " +
        CAP(project) + ".\n\n"+RESET);
    tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
    input_to((: get_command :));
} /*add_member3()*/

private void remove_leader() {
    if(!DOMAIN_H->query_leader("project",TP->query_name()) && !adminp(TP)){
	tell_object(TP,RED+"\nYou are not authorised to use this option.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP, "Enter the name of the Project to remove a Leader from: ");
    input_to((: remove_leader2 :));
} /*remove_leader()*/

private void remove_leader2(string str) {
    if (!str || str == "") {
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if(!PROJECT_H->query_project(str)){
	tell_object(TP,RED+"The project "+CAP(str)+" doesn't exist.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP, "Enter the name of the Project leader to remove or press return to use yourself: ");
    input_to((: remove_leader3($1, $(str)) :));
} /*remove_leader2()*/

private void remove_leader3(string str, string project){
    string err;

    if (!str || str == "") {
	str = TP->query_name();
    }
    if(!PROJECT_H->query_leader(project,str)){
	tell_object(TP,RED+CAP(str)+" isn't a Leader of "+CAP(project)+".\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if (err = PROJECT_H -> remove_leader(project,str)){
	tell_object(TP,RED+"\n"+err+"\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP,GREEN+"\nRemoved " + CAP(str) + " as leader from " +
      CAP(project) + ".\n"+RESET);
    tell_object(TP,GREEN+"\nIf you wish to remove "+CAP(str)+" as a member use the remove member option.\n\n"+RESET);
    tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
    input_to((: get_command :));
} /*remove_leader3()*/


private void remove_member() {
    tell_object(TP, "Enter the name of the Project to remove member from: ");
    input_to((: remove_member2 :));
} /*remove_member()*/

private void remove_member2(string str) {
    if (!str || str == "") {
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if(!PROJECT_H->query_project(str)){
	tell_object(TP,RED+"The project "+CAP(str)+" doesn't exist.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if(!adminp(TP)&&!PROJECT_H->query_leader(str,TP->query_name())){
	tell_object(TP,RED+"\nYou are not authorised to do that.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP, "Enter the name of the Project member to remove or press return to use yourself: ");
    input_to((: remove_member3($1, $(str)) :));
} /*remove_member2()*/

private void remove_member3(string str, string project){
    string err;

    if (!str || str == "") {
	str = TP->query_name();
    }
    if(PROJECT_H->query_leader(project,str)){
	tell_object(TP,RED+CAP(str)+" is a Leader of "+CAP(project)+" use the remove leader option.\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    if(!PROJECT_H->query_member(project,str)){
	tell_object(TP,RED+CAP(str)+" isn't a member of "+CAP(project)+".\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }

    if (err = PROJECT_H -> remove_member(project,str)){
	tell_object(TP,RED+"\n"+err+"\n"+RESET);
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	return;
    }
    tell_object(TP,GREEN+"\nRemoved " + CAP(str) + " as member of " +
        CAP(project) + ".\n\n"+RESET);
    tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
    input_to((: get_command :));
} /*remove_member3()*/

private void get_command(string str) { 
    if (!str) {
	display_menu();
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
    }

    switch(str) {
    case "1":
	create_project();
	break;
    case "2":
	delete_project();
	break;
    case "3":
	list_projects();
	break;
    case "4":
	add_leader();
	break;
    case "5":
	add_member();
	break;
    case "6":
	remove_leader();
	break;
    case "7":
	remove_member();
	break;
    case "B": case "b":
      if (!return_mapping[TP]) {
        display_menu();
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
        input_to((: get_command :));
        break;
      }
      if (return_mapping[TP]) {
        return_mapping[TP]->cmd("");
        map_delete(return_mapping, TP);
      }
      break;
    case "Q": case "q":
      break;
    default:
	display_menu();
        tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
	input_to((: get_command :));
	break;
    }
} /*get_command()*/

mixed cmd(string args) {

    if (file_name(previous_object()) == "/secure/cmds/creator/admtools")
      return_mapping[TP] = previous_object();

    seteuid(geteuid(TP));
    display_menu();
    tell_object(TP, undefinedp(return_mapping[TP]) ? main_prompt : main_prompt2);
    input_to((: get_command :));
    return 1;
} /*cmd()*/