/*  /secure/cmds/player/suicide.c
 *  from the Dead Soulsr2 Object Library
 *  Allows players to obliterate their character
 *  created by Blitz@Dead Souls
 */
 
#include <lib.h>
#include <dirs.h>
#include <flags.h>
#include <privs.h>
#include <message_class.h>
 
inherit LIB_DAEMON;
 
static private void GetPassword(string input);
static private void GetYesOrNo(string input);
static private void EndSuicide(string who);
 
mixed cmd(string str) {
  string who;
  object ob;
 
  if( sizeof(str) ) return "Suicide does not require any arguments.";
  ob = previous_object();
  if( this_player(1) != ob || !userp(ob) ) {
    log_file("security", "** Illegal suicide attempt **\n "
             "Call stack:\n"+ sprintf("%O\n", previous_object(-1)));
    return "Suicide failed.";
  }
  if( this_player()->GetForced() ) {
    log_file("security", "*** Illegal \"Forced\" Suicide **\n"
             "Call stack:\n"+ sprintf("%O\n", previous_object(-1)));
    return 0;
  }
  who = (string)this_player()->GetKeyName();
  if( who == "guest" ) return "Guest is not suicidal!";
  if( member_group(who, PRIV_SECURE) || member_group(who, PRIV_ASSIST) )
    return "You must first have your security privledges removed.";
  this_player()->eventPrint("Committing suicide means having your character "
           "completely erased from "+mud_name()+"'s database.  If you "
           "are certain this is what you want, enter in your correct "
           "password.  Otherwise enter in a wrong password.");
  this_player()->eventPrint("Password: ", MSG_EDIT);
  input_to((: GetPassword :), I_NOECHO | I_NOESC);
  return 1;
}
 
static private void GetPassword(string input) {
  string tmp;
  if( !sizeof(input) ) {
    this_player()->eventPrint("Suicide aborted.");
    return;
  }
  tmp = (string)this_player()->GetPassword();
  if( tmp != crypt(input, tmp) ) {
    this_player()->eventPrint("Wrong password.  Suicide aborted.");
    return;
  }
  this_player()->eventPrint("\nLeave a suicide note? (a)bort, (y)es, (N)o :",
                            MSG_EDIT);
  input_to((: GetYesOrNo :)); 
  return;
}

static private void GetYesOrNo(string input) {
  string tmp = (string)this_player()->GetKeyName();
  if( !sizeof(input) || (input = lower_case(input))[0] != 'y' ) {
     if( input && input[0] == 'a' ) {
        this_player()->eventPrint("Suicide has been aborted.");
        return;
     }
     EndSuicide(tmp);
     return;
  }
  this_player()->eventPrint("\nYou may now enter a letter "
          "explaining why you suicided.  If you do not wish to write a "
          "letter, simply exit the editor without writing anything. "
          "(enter \".\" on a blank line to exit editor.)");
  this_player()->eventEdit(DIR_TMP + "/" + tmp, (: EndSuicide, tmp :));
}
 
static private void EndSuicide(string who) {
  string tmp, file, newfile;
  object *ob;
 
  file = DIR_TMP + "/" + who;
  newfile = DIR_TMP + "/suicide/" + who;
  if( file_size(file) > 0 ) {
    tmp = possessive_noun(who)+" suicide note.\n"
          "Dated: "+ctime(time())+"\n";
    tmp += read_file(file);
    write_file(newfile, tmp, 1);
  }
  if( file_exists(file) ) rm(file);
  log_file("suicide", who+" suicided at "+ctime(time())
          +". (from "+query_ip_name(this_player())+")\n");
  tmp = save_file(who) + __SAVE_EXTENSION__;
  unguarded((: rename, tmp, DIR_SUICIDE + "/" + who + __SAVE_EXTENSION__ :));
  this_player()->eventPrint("You have suicided.  Please try " 
                "again another time.");
  environment(this_player())->eventPrint(
          (string)this_player()->GetName()+" has ended "+
          possessive(this_player())+" own life before your very eyes.",
          this_player() );
  if( sizeof( ob = filter(users(), (: archp :)) ) )
    ob->eventPrint("["+(string)this_player()->GetName()+" has "
                   "comitted suicide]");
  this_player()->eventDestruct();
  return;
}
 
string GetHelp(string str) {
    return "Syntax: suicide\n\n"
      "Ends your character's existence on "+mud_name()+" FOREVER.  "
      "It is non-reversible.  Once you issue this command, tyou will be asked"
      "for a password to confirm your identity.  Once password is confirmed, "
      "you will no longer exist in the MUD's database.  You may also opt "
      "to write a final suicide note.\n\n"
      "NOTE: If you suicide from a restricted site, you will have to "
      "reregister!";
}