if (!is_wizard(progr)) return make_error_pack(E_PERM);
if (!is_wizard(progr)) { free_var(arglist); return make_error_pack(E_PERM); }
bf_open_network_connection(Var arglist, Byte next, void *vdata, Objid progr){#ifdef OUTBOUND_NETWORK    Var r;    enum error e;    if (!is_wizard(progr))	return make_error_pack(E_PERM);    e = network_open_connection(arglist);    free_var(arglist);    if (e == E_NONE) {	/* The connection was successfully opened, implying that	 * server_new_connection was called, implying and a new negative	 * player number was allocated for the connection.  Thus, the old	 * value of next_unconnected_player is the number of our connection.	 */	r.type = TYPE_OBJ;	r.v.obj = next_unconnected_player + 1;    } else {	r.type = TYPE_ERR;	r.v.err = e;    }    if (r.type == TYPE_ERR)	return make_error_pack(r.v.err);    else	return make_var_pack(r);#else				/* !OUTBOUND_NETWORK */    /* This function is disabled in this server. */    free_var(arglist);    return make_error_pack(E_PERM);#endif}