/*    /lib/user/nmsh.c
 *    from Dead Souls
 *    the new Dead Souls shell
 *    created by Descartes of Borg 940216
 *    Version: @(#) nmsh.c 1.3@(#)
 *    Last Modified: 96/10/15
 */

#include <config.h> 
#include <daemons.h>
#include <lib.h>
#include "include/nmsh.h"

inherit LIB_HISTORY;

#define DIRECTORY_STACK_SIZE     5
#define MAX_CMD_ALIASES          128

private string CurrentWorkingDirectory = "/";
private string PreviousWorkingDirectory;
private mapping Nicknames, Aliases, Xverbs; 
private static int CWDCount, CWDBottom, CWDTop, CmdNumber; 
private string Prompt; 
private static string *Stack; 

static void create() {
    history::create();
    Nicknames = ([]); 
    Aliases = ([ "l" : "look $*", "bio" : "biography", "i" : "inventory",
      "n" : "go north", "s" : "go south", "e" : "go east", "w" : "go west",
      "ne" : "go northeast", "nw" : "go northwest", "se" : "go southeast",
      "sw" : "go southwest", "d" : "go down", "u" : "go up", "out": "go out",
      "exa" : "look at $*", "p" : "people", "sc" : "status", "inf" : "score",
      "eq" : "equipment", "where" : "people", "prac" : "skills", 
      "sco" : "score", "practice" : "skills", "trophy" : "kills",
      "northwest" : "go northwest", "northeast" : "go northeast", 
      "southwest" : "go southwest", "southeast" : "go southeast",
      "north" : "go north", "south": "go south", "east" : "go east",
      "west" : "go west", "up" : "go up", "down": "go down", 
      "ig" : "intergossip $*", "c" : "cre $*", "lp" : "lpuni $*",
      "inv" : "inventory", "x" : "look at $*", "examine" : "look at $*",
      "ic" : "intercre $*", "aa" : "ascii_art $*", "chat" : "newbie $*",
      "dc" : "dchat $*", "exit" : "go out", "t" : "tell $*",
    ]);
    Xverbs = (["]":"] $*", "'":"say $*",":":"emote $*","\"":"say $*",]);
} 

int Setup() { 
    if(this_player() != this_object()) return 0; 
    reset_prompt(); 
    if(!Nicknames) Nicknames = ([]);
    if(!Aliases) Aliases = ([]);
    if(!Xverbs) Xverbs = ([]);
    add_action("cmd_alias", "alias",1); 
    add_action("cmd_unalias", "unalias",1); 
    add_action("cmd_nickname", "nickname",1); 
    if(creatorp(this_object())) { 
	Stack = allocate(DIRECTORY_STACK_SIZE); 
	CWDBottom = CWDTop = CWDCount = 0; 
	add_action("cmd_cd", "cd"); 
	add_action("cmd_nmsh", "nmsh"); 
	add_action("cmd_pushd", "pushd"); 
	add_action("cmd_popd", "popd"); 
	add_action("cmd_pwd", "cwd");
	add_action("cmd_pwd", "pwd");
	add_action("cmd_work", "work");
    } 
    return 1;
} 

nomask static int cmd_alias(string str) { 
    string *a, *b;
    string key, thing; 
    int i;

    if(this_player() != this_object()) return 0; 
    if(!str) {
	i = sizeof(a = keys(Aliases));
	while(i--)
	    a[i] = sprintf("%s%s", arrange_string(a[i],15),Aliases[a[i]]);
	i = sizeof(b = keys(Xverbs));
	while(i--)
	    b[i] = sprintf("$%s%s", arrange_string(b[i],14), Xverbs[b[i]]);
	this_player()->eventPage(a+b);
	return 1;
    }
    if(sscanf(str, "%s %s", key, thing) != 2) { 
	if(str[0] == '$') { 
	    str = str[1..strlen(str)-1]; 
	    if(Xverbs[str]) { 
		//map_delete(Xverbs, str); 
		//message("system", sprintf("Alias $%s removed.", str), this_player()); 
		write(str+": "+Xverbs[str]);
		return 1;
	    } 
	    else message("system", sprintf("No such alias $%s.", str), this_player()); 
	    return 1; 
	} 
	if(Aliases[str]) { 
	    //map_delete(Aliases, str); 
	    //message("system", sprintf("Alias %s removed.", str), this_player()); 
	    write(str+": "+Aliases[str]);
	    return 1;
	} 
	else message("system", sprintf("No such alias %s.", str), this_player()); 
	return 1; 
    } 
    if(sizeof(Xverbs) + sizeof(Aliases) >= MAX_CMD_ALIASES) { 
	message("system", "You must remove an alias before adding another.", 
	  this_player()); 
	return 1; 
    } 
    if(key == "alias") return notify_fail("That would be a bad idea.\n");
    if(key[0] == '$') { 
	key = key[1..strlen(key)]; 
	if(Xverbs[key])  
	    message("system", sprintf("Alias for $%s altered to (%s).", 
		key, thing), this_player()); 
	else message("system", sprintf("Alias $%s (%s) added.", key, thing), 
	      this_player());      
	Xverbs[key] = thing; 
    } 
    else { 
	if(Aliases[key]) 
	    message("system", sprintf("Alias for %s altered to (%s).", key, thing), 
	      this_player()); 
	else message("system", sprintf("Alias %s (%s) added.", key, thing),this_player()); 
	Aliases[key] = thing; 
    } 
    return 1; 
} 

nomask static int cmd_unalias(string str) { 
    if(this_player() != this_object()) return 0; 
    if(!str) {
	write("Unalias what?");
	return 1;
    }
    if(str[0] == '$') { 
	str = str[1..strlen(str)-1]; 
	if(Xverbs[str]) { 
	    map_delete(Xverbs, str); 
	    message("system", sprintf("Alias $%s removed.", str), this_player()); 
	    return 1;
	} 
	else message("system", sprintf("No such alias $%s.", str), this_player()); 
	return 1; 
    } 
    if(Aliases[str]) { 
	map_delete(Aliases, str); 
	message("system", sprintf("Alias %s removed.", str), this_player()); 
	return 1;
    } 
    else message("system", sprintf("No such alias %s.", str), this_player()); 
    return 1; 
} 

nomask static int cmd_cd(string str) { 
    if(this_player() != this_object()) return 0; 
    set_cwd(str); 
    return 1; 
} 

nomask static int cmd_nickname(string str) { 
    string *cles;
    string key, thing; 
    int i;

    if(this_player() != this_object()) return 0;
    if(!str) {
	i = sizeof(cles = keys(Nicknames));
	while(i--)
	    cles[i] = sprintf("%s%s", arrange_string(cles[i], 15),
	      Nicknames[cles[i]]);
	this_player()->eventPage(cles);
	return 1;
    }
    if(sscanf(str, "%s %s", key, thing) != 2) { 
	if(Nicknames[str]) { 
	    message("system", sprintf("Nickname %s removed.", str), 
	      this_player()); 
	    map_delete(Nicknames, str); 
	} 
	else message("system", sprintf("No such nickname %s.", str), 
	      this_player()); 
    } 
    else { 
	if(Nicknames[key])  
	    message("system", sprintf("Nickname %s altered to (%s).", key, thing), 
	      this_player()); 
	else message("system", sprintf("Nickname %s (%s) added.", key, thing), 
	      this_player()); 
	Nicknames[key] = thing; 
    } 
    return 1; 
} 

nomask static int cmd_nmsh(string str) { 
    string *lines; 
    string tmp;
    int i, maxi; 

    if(!str) return 0; 
    if(this_player() != this_object()) return 0; 
    if((int)this_player()->GetForced()) return 0; 
    if(!(tmp = read_file(absolute_path(query_cwd(), str)))) 
	return notify_fail(sprintf("nmsh: script %s not found.\n")); 
    maxi = sizeof(lines = explode(tmp, "\n")); 
    for(i=0; i < maxi; i++) { 
	if(lines[i][0] == '#') continue; 
	if(!command(lines[i])) { 
	    message("system", sprintf("nmsh: error in executing %s.", str), 
	      this_player()); 
	    return 1; 
	} 
    } 
    return 1; 
} 

nomask static int cmd_pushd(string str) { 
    if(this_player() != this_object()) return 0; 
    if(!set_cwd(str)) return 0; 
    pushd(str); 
    return 1; 
} 

nomask static int cmd_popd() { 
    if(this_player() != this_object()) return 0; 
    set_cwd(popd()); 
    return 1; 
} 

nomask static int cmd_pwd() {
    if(!query_cwd()) message("system", "No current directory.", this_object());
    else message("system", query_cwd()+":", this_object());
    return 1;
}

nomask static int cmd_work(string str) {
    string *tmp;
    object ob;
    string file;
    int flag;

    if(!str || str == "") ob = environment(this_object());
    else if(str == "!") {
	flag = 1;
	ob = environment(this_object());
    }
    else if(str[0] == '!') {
	flag = 1;
	str = str[1..strlen(str)];
    }
    if(!ob && !(ob = present(str, this_object())))
	ob = present(str, environment(this_object()));
    if(!ob) return notify_fail("No target object found.\n");
    tmp = explode(file = base_name(ob), "/");
    set_cwd("/"+implode(tmp[0..sizeof(tmp)-2], "/"));
    if(flag) {
	message("system", file+".c, "+file_size(file+".c")+" bytes:",
	  this_object());
	this_object()->eventEdit(file+".c");
    }
    return 1;
}

nomask string write_prompt() {
    string tmp, ret;
    string ret2 = "";
    int x, y;

    if( (y = query_ed_mode()) != -1 ) {
	if( !y ) {
	    //if( creatorp() ) ret = ":";
	    //else
	    ret = "\tQ)uit without saving, save and ex)it, h)elp\nCommand: ";
	}
	else if( y == -2 ) ret = "Help: ";
	else ret = "*\b";
	message("prompt", ret, this_object());
	return ret;
    }
    if((ret = Prompt) == DEFAULT_PROMPT) {
	message("prompt", ret, this_object());
	return ret;
    }
    if(grepp(ret,"$g")) ret = replace_string(ret,"$g",itoa(this_object()->GetMagicPoints()));
    if(grepp(ret,"$G")) ret = replace_string(ret,"$G",itoa(this_object()->GetMaxMagicPoints()));
    if(grepp(ret,"$V")){
	if(GetInvis())
	    ret = replace_string(ret,"$V","INVIS");
	else
	    ret = replace_string(ret,"$V","");
    }
    if(grepp(ret,"$P")){
	tmp = query_cwd();
	if(!tmp || !sizeof(tmp)) tmp = "No working directory.";
	ret = replace_string(ret,"$P",tmp);
    }
    if(grepp(ret,"$C")) ret = replace_string(ret,"",itoa( CmdNumber+1 ));
    if(grepp(ret,"$h")) ret = replace_string(ret,"$h",itoa( this_object()->GetHealthPoints() ));
    if(grepp(ret,"$H")) ret = replace_string(ret,"$H",itoa( this_object()->GetMaxHealthPoints() ));
    if(grepp(ret,"$i")) ret = replace_string(ret,"$i",itoa( this_object()->GetStaminaPoints() ));
    if(grepp(ret,"$I")) ret = replace_string(ret,"$I",itoa( to_int(this_object()->GetMaxStaminaPoints() )));
    if(grepp(ret,"")) ret = replace_string(ret,"",itoa( ));
    ret += " ";
    message("prompt", ret, this_object());
    return ret;
}

string process_input(string str) { 
    string tmp, xtra, request; 

    if(!str || str == "") return ""; 
    else if(GetClient() &&
      member_array(GetClient(), SUPPORTED_CLIENTS) != -1) {
	if(sscanf(str, "<%s>%s", request, xtra)) {
	    process_request(request, xtra ? xtra : "");
	    return "";
	}
	else return str;
    }
    else if((tmp = eventHistory(str)) == "") return "";     if(tmp != str) message("system", tmp, this_object());
    return do_alias(do_nickname(tmp));
} 

nomask static void process_request(string request, string xtra) {
    switch(request) {
    case "ALIAS":
	receive("<ALIAS>[n,go north] [s,go south] [e,go east] [w,go west] "
	  "[nw,go northwest] [ne,go northeast] [sw,go southwest] "
	  "[se,go southeast] [u,go up] [d,go down] [i,inventory] "
	  "[bio,biography] [exa,look at $*] [$',say $*] "
	  "[$:,emote $*] [l,look]\n");
	break;
    case "NICKNAME": receive("<NICKNAME>\n"); break;
    case "USERS":
	receive("<USERS>"+implode(map_array(filter(users(), 
		"request_vis", this_object()), "user_names", this_object()), 
	    ", ")+"\n");
	break;
    case "ROOM":
	receive("<ROOM>"+
	  (string)environment(this_object())->GetShort()+"\n");
	break;
    case "PRESENT":
	receive("<PRESENT>"+
	  implode(map_array(filter(all_inventory(environment(this_object())),
		"request_vis", this_object()), "user_names", this_object()),
	    ", ")+"\n");
	break;
    default:
	receive("<error>Request not supported.\n");
	break;
    }
}

static int request_vis(object ob) {
    return (userp(ob) && !((int)ob->GetInvis(this_object())));
}

static string user_names(object ob) {
    return (string)ob->GetName();
}

private static int set_cwd(string str) { 
    int x;
    string tmpstr = str;
    if(str == "~-") str = PreviousWorkingDirectory;
    if(!str || str == "") str = user_path(GetKeyName()); 
    if (str[<1] == '/' && str != "/") str = str[0..<2];
    replace_string(str, "//", "/"); 
    str = absolute_path(query_cwd(), str);
    if(!directory_exists(str) && tmpstr == "here" && environment(this_player())){
	str = path_prefix(base_name(environment(this_player())));
    } 
    if((x=file_size(str)) != -2) { 
	if(x > -1) { 
	    message("system", sprintf("%s: Path is a file.", str), this_player()); 
	    return 0; 
	} 
	else { 
	    message("system", sprintf("%s: No such reference.", str), this_player()); 
	    return 0; 
	}  
    } 

    if(str != query_cwd()) PreviousWorkingDirectory = query_cwd();
    CurrentWorkingDirectory = str; 
    message("system", sprintf("%s:", CurrentWorkingDirectory), this_player()); 
    return 1; 
} 

private static void pushd(string str) { 
    if(CWDCount++ == DIRECTORY_STACK_SIZE) { 
	CWDCount--; 
	CWDBottom = (++CWDBottom) % DIRECTORY_STACK_SIZE; 
    } 
    Stack[CWDTop] = str; 
    CWDTop = (++CWDTop) % DIRECTORY_STACK_SIZE; 
} 

private static string popd() { 
    if(!CWDCount) return 0; 
    CWDCount--; 
    return Stack[--CWDTop]; 
} 

nomask private static string do_nickname(string str) { 
    if(!Nicknames) return str; 
    if(str[0..7] == "nickname") return str; 
    return implode(map_array(explode(str, " "), "replace_nickname", this_object()), " "); 
} 

nomask private static string do_alias(string str) { 
    string *words; 
    string tmp; 
    int x; 

    if(!sizeof(words = explode(str, " "))) return "";
    if((x = strlen(words[0])) && (tmp = Xverbs[words[0][0..0]])) {
	words[0] = words[0][1..x-1];
	return replace_string(tmp, "$*", implode(words, " "));
    }
    if(!(tmp = Aliases[words[0]])) return implode(words, " "); 
    else str = implode(words[1..sizeof(words)-1], " "); 
    return replace_string(tmp, "$*", str); 

} 

nomask static string replace_nickname(string str) { 
    if(str == "") return str; 
    if(str[0] == '\\') return str[1..(strlen(str)-1)]; 
    else if(Nicknames[str]) return Nicknames[str]; 
    else return str; 
} 

void reset_prompt() { 
    //Prompt = GetPrompt(); 
    if(!stringp(Prompt)) Prompt = "> ";
    Prompt =replace_string(Prompt, "$M", mud_name()); 
    Prompt =replace_string(Prompt, "$m", lower_case(mud_name())); 
    Prompt =replace_string(Prompt, "$N", capitalize(this_object()->GetKeyName())); 
    Prompt =replace_string(Prompt, "$n", GetKeyName());
} 

string query_cwd() { return CurrentWorkingDirectory; } 

string query_prev_wd() { return PreviousWorkingDirectory; } 

string GetPrompt() { return DEFAULT_PROMPT; }

string SetPrompt(string str) { return Prompt = str; }

int query_mp() { return 1; } 

int query_max_mp() { return 10; } 

int query_hp() { return 1; } 

int query_max_hp() { return 10; } 

int query_sp() { return 1; } 

int query_max_sp() { return 10; } 

string get_path() { return query_cwd(); }

varargs int GetInvis() { return 0; }

string GetKeyName() { return 0; }