unter.vtc

来自「Unix下的MUD客户端程序」· VTC 代码 · 共 56 行

if (!depend_loaded) Load("depend");
register_file("unter");
file_depends_on("rmtio");

UNTER ?:= alloc(5, Twtype);
UNTER->name = "Unter";
func unter_init(world, rmt, login) {
	mud_init(world, rmt, login);
	if (login)
		detach(.suppress_until, "### end of messages ###", rmt);
}
UNTER->init = .unter_init;

// #### Please reconnect to <name>@<IP address> (<hostname>) port <port> ####
portal_reg = regcomp(\
"^#### Please reconnect to +([^@]+)@([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)\
 +\([^)]*\) +port +([0-9]+) +####$");

func unter_netread(line) {
	if (regexec(portal_reg, line))
		portal();
	else
		line_netread(line);
}
UNTER->netread = .unter_netread;

func portal() [new] {
	new = alloc(6, Tworld);
	new->type = UNTER;
	new->name = regmatch(portal_reg, 1);
	new->addr = regmatch(portal_reg, 2);
	new->port = atoi(regmatch(portal_reg, 3));
	new->char = cur_world()->char;
	new->pwd = cur_world()->pwd;
	if (world(new, 1, 1))
		disconnect(cur_rmt);
}

UNTER->save = .std_mud_save;
UNTER->list = .std_mud_list;
UNTER->print = .std_mud_print;
UNTER->outbound = .normal_outbound;

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

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