/*    /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() );
    }
}