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>");