/* /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 192
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", "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 $*", "loot" : "get all from $*", "chat" : "newbie $*",
"dc" : "dchat $*", "exit" : "go out", "t" : "tell $*", "k" : "kill $*",
"alist" : "ls /domains", "zlist" : "domains", "mwhere" : "findobj $*",
"owhere" : "findobj $*", "peace" : "quell", "vnum" : "help find",
]);
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]){
write(str+": "+Xverbs[str]);
return 1;
}
else message("system", sprintf("No such alias $%s.", str), this_player());
return 1;
}
if(Aliases[str]){
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 ){
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 == "-") 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(){
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; }
