/*    /secure/cmds/adm/decre.c 
 *    from the Dead Souls LPC Library
 *    turns a creator into a player
 *    created by Descartes of Borg 950323
 */

#include <lib.h>
#include <privs.h>
#include <rooms.h>
#include <daemons.h>

inherit LIB_DAEMON;

string home_dir, PlayerName;
object ob, player_ob;

mixed cmd(string args) {
    object *inv, *purge_array;
    string nom, file;

    if( !((int)master()->valid_apply(({ PRIV_ASSIST, PRIV_SECURE, LIB_CONNECT }))) )
	error("Illegal decre attempt: "+get_stack()+" "+identify(previous_object(-1)));

    ob = 0;
    player_ob = 0;

    if( args == "" || !stringp(args) ) 
	return "Who do you want to make a player?";
    nom = convert_name(args);
    if( !user_exists(nom) ) return capitalize(nom) + " is not a member of " +
	possessive_noun(mud_name()) + " reality.";
    if( !strsrch(file = save_file(nom), DIR_PLAYERS) )
	return "You cannot make "+capitalize(args)+" a player.";

    if(ob == this_player()){
	return "Nonsense.";
    }

    if(!ob = find_player(nom)){
	PLAYERS_D->RemovePendingEncre(lower_case(nom));
	PLAYERS_D->AddPendingDecre(lower_case(nom));
	write(capitalize(nom)+" will be demoted on their next login.");
	return 1;
    }

    else {
	mixed attrape;
	home_dir = homedir(ob);
	write("You decre "+capitalize(nom)+".");
	PlayerName = nom;

	//Try to remove inventory and move the guy to the pod
	//
	ob->eventMove(ROOM_POD);
	inv = deep_inventory(ob);
	if(sizeof(inv))
	    foreach(object thing in inv){
	    if(thing) {
		thing->eventMove(ROOM_FURNACE);
	    }
	}	//Save the user to sync its state with his inventory
	unguarded( (: ob->save_player((string)ob->GetKeyName()) :) );

	//Move the user file to the player dir
	//
	   if( file_size(DIR_PLAYERS+"/"+nom[0..0]) != -2) 
	mkdir(DIR_PLAYERS+"/"+nom[0..0]);
	if(rename(file+__SAVE_EXTENSION__, DIR_PLAYERS+"/"+nom[0..0]+"/"+nom+__SAVE_EXTENSION__))
	    return "You failed due to lack of write access to "+DIR_PLAYERS+".";
	//Remove their homedir, save it to a backup dir.
	if(home_dir && directory_exists(home_dir))
	    rename(home_dir,"/secure/save/decre/"+nom+"."+timestamp());
	//Remove their name from the creator list in the player daemon, add it to the player list.
	PLAYERS_D->eventDecre(lower_case(nom));

	//Try to create the new player object
	//
	attrape = catch(player_ob = (object)master()->player_object(nom));
	PlayerName = 0;
	if( attrape || !player_ob ) {
	    message("system", "\nFailed to create a player object.", 
	      this_player());
	    message("system", "Please log out and log back in.", ob);
	    return 1;
	}

	//Do the decre
	//
	exec(player_ob, ob);
	player_ob->Setup();

	//Remove creator channels and such
	//
	foreach(string channel in player_ob->GetChannels())
	player_ob->RemoveChannel(channel);
	if( avatarp(player_ob) ) player_ob->AddChannel(({ "avatar" }));
	if( high_mortalp(player_ob) ) player_ob->AddChannel( ({ "hm" }) );
	if( newbiep(player_ob) ) player_ob->AddChannel( ({ "newbie" }) );
	player_ob->AddChannel( ({ "gossip" }) );
	if( councilp(player_ob) ) player_ob->AddChannel( ({ "council" }) );
	player_ob->AddChannel(player_ob->GetClass());

	//Destroy any objects loaded from their homedir
	//
	purge_array = filter(objects(), (: !strsrch(base_name($1), home_dir) :) );
	foreach(object tainted in purge_array){
	    if(clonep(tainted)){
		tainted->eventMove(ROOM_FURNACE);
		purge_array -= ({ tainted });
	    }
	}
	foreach(object tainted in purge_array){
	    tainted->eventDestruct();
	}
    }
    call_out( (: ob->eventMove(ROOM_FURNACE) :), 1 );
    player_ob->eventMoveLiving(ROOM_START);
    player_ob->SetLoginSite(ROOM_START);
    unguarded( (: player_ob->save_player((string)player_ob->GetKeyName()) :) );
    message("system", "You are now a player.", player_ob);
    message("system", (string)player_ob->GetName() + " is now a player!",
      this_player());
    return 1;
}

string GetKeyName() { return PlayerName; }
void help() {
    message("help",
      "Syntax: decre <person>\n\n"
      "Demotes the specified creator to player status. "
      "If the target is not "
      "logged in, they will be made a player when "
      "they next log in."
      "\n\n"
      "See also: encre, rid", this_player()
    );
}