source tb_compat.tcl

set ns [new Simulator]
set nodeA [$ns node]
set nodeB [$ns node]
set nodeC [$ns node]
set nodeD [$ns node]

tb-set-hardware $nodeA pcvm
tb-set-hardware $nodeB pcvm
tb-set-hardware $nodeC pcvm
tb-set-hardware $nodeD pcvm

tb-set-node-os $nodeA OPENVZ-STD
tb-set-node-os $nodeB OPENVZ-STD
tb-set-node-os $nodeC OPENVZ-STD
tb-set-node-os $nodeD OPENVZ-STD

tb-set-node-failure-action $nodeA "nonfatal"
tb-set-node-failure-action $nodeB "nonfatal"
tb-set-node-failure-action $nodeC "nonfatal"
tb-set-node-failure-action $nodeD "nonfatal"

set lan0 [$ns make-lan "$nodeA $nodeB $nodeC $nodeD" 100Mb 0.0ms]

tb-set-colocate-factor 4

$ns run