/*    /cmds/creator/home.c
 *    from the Nightmare IV LPC Library
 *    command to take a creator home
 *    created by Descartes of Borg long ago (modified 950331)
 */

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

inherit LIB_DAEMON;

mixed cmd(string str) {
    object ob, prev;
    string who;

    prev = environment(this_player());
    if( !str || str == "" ) who =(string)this_player()->GetKeyName();
    else who = lower_case(str);
    str = user_path(who);
    if( ob = (object)this_player()->query_property("workroom") ) {
        if(ob == prev) return "You twitch.";
        if( (int)this_player()->eventMove(ob) ) {
            this_player()->eventDescribeEnvironment(0);
            if(hiddenp(this_player()) || this_player()->GetInvis())
              return 1;
            message("mmout", (string)this_player()->GetMessage("home"), prev);
            message("mmin", (string)this_player()->GetMessage("telin"), ob, 
              ({ this_player() }));
            return 1;
        }
    }
    if( !ob ) {
      if( !(ob = load_object(str+"workroom")) &&
        str == user_path((string)this_player()->GetKeyName())) {
        ob = new(DIR_OBJ + "workroom");
        this_player()->set_property("workroom", ob);
      }
      else if( !(ob = load_object(str+"workroom")) ) {
        if(!(ob = find_player(who)) || !(ob=(object)ob->query_property("workroom")))
          return capitalize(who)+" has no active workroom.";
      }
      else {
        if( file_name(prev) == str+"workroom" )
          return "You twitch.";
        if( (int)this_player()->eventMove(ob) ) {
            this_player()->eventDescribeEnvironment(0);
            if(hiddenp(this_player()) || this_player()->GetInvis())
              return 1;
            message("mmout", (string)this_player()->GetMessage("home"), prev);
            message("mmin", (string)this_player()->GetMessage("telin"),
              environment(this_player()), ({ this_player() }));
            return 1;
        }
        return "You stay where you are.";
      }
    }
    if(ob == prev) return "You twitch.";
    if( (int)this_player()->eventMove(ob) ) {
        this_player()->eventDescribeEnvironment(0);
        if(hiddenp(this_player()) || this_player()->GetInvis()) return 1;
        message("mmout", (string)this_player()->GetMessage("home"), prev);
        message("mmin",(string)this_player()->GetMessage("telin"),ob,({this_player()}));
        return 1;
    }
    return "You stay where you are.";
}

void help() {
    message("help", "Syntax: <home>\n        <home [creator]>\n\n"
	    "Without arguments, this command will take you to your workroom.  "
	    "With arguments, it takes you to the workroom of the person "
	    "you specify.\n\n"
	    "See also: goto, trans", this_player());
}