cool.vtc

Unix下的MUD客户端程序

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

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

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

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

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