/*    /cmds/player/title.c
 *    from the Dead Souls LPC Library
 *    allows someone to set their titles
 *    created by Descartes of Borg 950716
 */

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

inherit LIB_DAEMON;

static void eventOrderTitles(string *titles, int maxi);
static void GetTitle(string which, string *titles, int maxi);
static void GetDest(string which, string *titles, int i, int maxi);

mixed cmd(string args) {
    string *titles;
    int maxi;

    if( creatorp(this_player()) || avatarp(this_player()) ) {
	if( !args || args == "" ) return "Change your title to what?";
	else args = (string)this_player()->SetShort(args);
	message("system", "Title changed to: " + args, this_player());
	this_player()->save_player((string)this_player()->GetKeyName());
	update("/secure/daemon/finger");
	return 1;
    }
    if( !(maxi = sizeof(titles = (string *)this_player()->GetTitles())) ) 
	return "You are totally unaccomplished.";
    if( args == "1" || args == "2" ) {
	this_player()->SetTitleLength(to_int(args));
	this_player()->SetShort("foo");
	this_player()->eventPrint("Number of titles in your descriptions changed to " + args + ".");
	this_player()->save_player((string)this_player()->GetKeyName());
	update("/secure/daemon/finger");
	return 1;
    }
    if( maxi == 1 ) {
	message("system", "You have only one title: " + titles[0], 
	  this_player());
	return 1;
    }
    else if( maxi == 2 ) {
	function f;

	f = function(string yn, string *titles) {
	    yn = (yn || "n");
	    if( yn != "y" ) {
		message("system", "Titles remain unchanged.", this_player());
		return;
	    }
	    this_player()->SetTitles( ({ titles[1], titles[0] }) );
	    message("system", "Titles reversed.", this_player());
	    this_player()->save_player((string)this_player()->GetKeyName());
	    update("/secure/daemon/finger");
	};
	message("system", "You have the following titles:\n\t" +
	  titles[0] + "\n\t" + titles[1], this_player());
	message("prompt", "Do you wish to reverse them? [n] ", this_player());
	input_to(f, titles);
	return 1;
    }
    else eventOrderTitles(titles, maxi);
    return 1;
}

static void eventOrderTitles(string *titles, int maxi) {
    int i;

    message("system", "You have the following titles:", this_player());
    for(i=0; i<maxi; i++)
	message("system", "\t" + (i+1) + " " + titles[i], this_player());
    message("prompt", "Move which (q to quit)? [" + (maxi) + "] ", 
      this_player());
    input_to((: GetTitle :), titles, maxi);
}

static void GetTitle(string which, string *titles, int maxi) {
    int x;

    if( which == "q" ) {
	this_player()->SetTitles(titles);
	message("system", "Done.", this_player());
	return;
    }
    else if( which == "" || !which ) which = "" + maxi;
    x = to_int(which);
    if( x < 1 || x > maxi ) {
	message("system", "Illegal title number.", this_player());
	eventOrderTitles(titles, maxi);
	return;
    }
    x--;
    message("prompt", "Move \"" + titles[x] + "\" to position? [1] ",
      this_player());
    input_to( (: GetDest :), titles, x, maxi );
}

static void GetDest(string which, string *titles, int i, int maxi) {
    string *tmp;
    int j, maxj, x;

    if( which == "q" ) {
	this_player()->SetTitles(titles);
	message("system", "Done.", this_player());
	this_player()->save_player((string)this_player()->GetKeyName());
	update("/secure/daemon/finger");
	return;
    }
    else if( which == "" || !which ) which = "1";
    x = to_int(which);
    if( x < 1 || x > maxi || x == i+1 ) {
	message("system", "Illegal title number.", this_player());
	eventOrderTitles(titles, maxi);
	return;
    }
    x--;
    tmp = allocate(maxj = sizeof(titles));
    for(j=0; j<maxj; j++) {
	if( j == x ) tmp[j] = titles[i];
	else if( (j < x && j < i) || (j > x && j > i) ) tmp[j] = titles[j];
	else if( j > x && j <= i ) tmp[j] = titles[j-1];
	else tmp[j] = titles[j+1];
    }
    eventOrderTitles(tmp, maxi);
}

void help() {
    if( creatorp(this_player()) ) {
	message("help", "Syntax: <title [title]>\n\n"
	  "Allows you to change your title.  You must include the "
	  "token $N in your title, which will be replaced with your "
	  "name as appropriate.  For example:\n"
	  "\ttitle We are $N of Borg\n"
	  "would make my short appear as:\n"
	  "\tWe are Descartes of Borg.\n\n", this_player());
    }
    else {
	message("help", "Syntax: <title>\n\n"
	  "Allows you to reorder your titles.  Your first two titles "
	  "appear in your short description.  This command is "
	  "interactive, meaning it prompts you for what to do.  "
	  "hit 'q' at any point to save your changes and exit out of "
	  "this command.\nYou can also type (title 1) or (title 2) "
	  "to change how many titles appear in your description.",
	  this_player() );
    }
}