/* /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);
//tc("ob location: "+identify(environment(ob)));
//tc("ob inventory: "+identify(inv),"green");
if(sizeof(inv))
foreach(object thing in inv){
if(thing) {
//tc("thing: "+identify(thing));
//tc("Thing's env: "+identify(environment(thing)),"green");
thing->eventMove(ROOM_FURNACE);
//tc("Thing's env: "+identify(environment(thing)),"cyan");
}
} //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()
);
}
