RAW ?:= alloc(5, Twtype);RAW->name = "Raw";func raw_init(world, rmt) {	set_raw(rmt, 1);	rmt->buffer = "";}RAW->init = .raw_init;func raw_netread(block) [line, ptr, end] {	output(block);	if (cur_rmt->logfile)		fwrite(cur_rmt->logfile, block);	line = cur_rmt->buffer;	while (ptr = strchr(block, '\n')) {		end = (ptr[-1] == '\r') ? ptr - 1 : ptr;		strcat(line, block, end - block);		check_triggers(line);		add_hist(line);		block = ptr + 1;		line = "";	}	strcat(line, block);	cur_rmt->buffer = line;}RAW->netread = .raw_netread;func std_base_save(w, fp) {	fprintf(fp, "%s(%s);\n", func_name(w->type->add),		arglist(w->name, w->addr, w->port));}RAW->save = .std_base_save;func std_base_list(w) {	printf("%15s %10s %30s %4d\n", w->name, w->type->name, w->addr,				       w->port);}RAW->list = .std_base_list;func std_base_print(w) {	printf("Type: %s\n", w->type->name);	printf("Name: %s\n", w->name);	printf("Addr: %s\n", w->addr);	printf("Port: %d\n", w->port);}RAW->print = .std_base_print;func normal_outbound(rmt, l) { send(rmt, l + "\n"); }RAW->outbound = .normal_outbound;func add_raw(name, addr, port) {	add_world(new_world(RAW, name, addr, port));}RAW->add = .add_raw;func Add_raw(name, addr, port) { add_raw(name, addr, atoi(port)); }add_cmd("add_raw", 3, .Add_raw, "/add_raw <name> <addr> <port>");