tcp-man-n200.tcl

来自「在linux平台下」· TCL 代码 · 共 40 行

if { $opt(ntcp) == 10 } {
	create_tcp_connection 0 12 tcp 3
	create_tcp_connection 52 64 tcp 3
	create_tcp_connection 104 116 tcp 3
	create_tcp_connection 156 168 tcp 3
	create_tcp_connection 198 17 tcp 3

	create_tcp_connection 22 156 tcp 3
	create_tcp_connection 4 160 tcp 3
	create_tcp_connection 8 164 tcp 3
	create_tcp_connection 12 168 tcp 3
	create_tcp_connection 35 168 tcp 3
}

if { $opt(ntcp) == 20 } {
	create_tcp_connection 0 82 tcp 3
	create_tcp_connection 52 64 tcp 3
	create_tcp_connection 104 116 tcp 3
	create_tcp_connection 156 168 tcp 3
	create_tcp_connection 56 198 tcp 3

	create_tcp_connection 192 156 tcp 3
	create_tcp_connection 4 160 tcp 3
	create_tcp_connection 8 124 tcp 3
	create_tcp_connection 12 111 tcp 3
	create_tcp_connection 15 168 tcp 3

	create_tcp_connection 94 12 tcp 3
	create_tcp_connection 52 64 tcp 3
	create_tcp_connection 104 116 tcp 3
	create_tcp_connection 159 87 tcp 3
	create_tcp_connection 133 18 tcp 3

	create_tcp_connection 120 156 tcp 3
	create_tcp_connection 41 168 tcp 3
	create_tcp_connection 81 159 tcp 3
	create_tcp_connection 28 179 tcp 3
	create_tcp_connection 69 155 tcp 3
}