Twtype ?:= new_assoc();Tworld ?:= new_assoc();worlds ?:= make_tree(.stricmp);func new_world(type, name, addr, port) [world] {	world = alloc(4, Tworld);	world->type = type;	world->name = name;	world->addr = addr;	world->port = port;	return world;}func add_world(world) { insert_tree(worlds, world->name, world); }func find_world(name) --> find_tree(worlds, name)func Find_world(name) --> efind(.find_world, "world", name)func list_worlds(s) { traverse_tree(worlds, .list_world, s); }func list_world(n, w, s) { if (!*s || smatch(s, n)) (*w->type->list)(w); }func print_world(name) [w] { w = Find_world(name); (*w->type->print)(w); }func unworld(pattern) { del_smatches(worlds, pattern); }func save_worlds(fp) { traverse_tree(worlds, .save_world, fp); }func save_world(n, w, fp) { (*w->type->save)(w, fp); }func List_worlds(s) { print_or_list(s, .print_world, .list_worlds); }func Unworld(s) { unworld(s); }add_cmd("list_worlds", -1, .List_worlds, "/list_worlds [<name>]");add_cmd("unworld", 1, .Unworld, "/unworld <name>");