moo.vtc

Unix下的MUD客户端程序

if (!depend_loaded) Load("depend");
register_file("moo");

MOO ?:= alloc(5, Twtype);
MOO->name = "Moo";
MOO->init = .mud_init;
MOO->netread = .line_netread;
MOO->save = .std_mud_save;
MOO->list = .std_mud_list;
MOO->print = .std_mud_print;

moo_wh_reg = regcomp("^wh? ([^ ]*) *= *(.*)$");
moo_page_reg = regcomp("^p(a(ge?)?)? ([^ ]*) *= *(.*)$");
func moo_outbound(r, line) [to, what] {
	if (regexec(moo_wh_reg, line)) {
		to = regmatch(moo_wh_reg, 1);
		what = stringconst(regmatch(moo_wh_reg, 2));
		normal_outbound(r, "wh " + what + " to " + to);
	} else if (regexec(moo_page_reg, line)) {
		to = regmatch(moo_page_reg, 3);
		what = regmatch(moo_page_reg, 4);
		normal_outbound(r, "page " + to + " with " + what);
	} else
		normal_outbound(r, line);
}
MOO->outbound = .moo_outbound;

func add_moo(name, addr, port, char, pwd) {
	add_world(new_mud(MOO, name, addr, port, char, pwd));
}
MOO->add = .add_moo;

func Add_moo(name, addr, port, char, pwd) {
	add_moo(name, addr, atoi(port), char, pwd);
}
add_cmd("add_moo", 5, .Add_moo, "/add_moo <name> <addr> <port> <char> <pwd>");