Hello You can declare ragent_ for instance in your tcl script like this:
set ragent_($i) [$node_($i) set ragent_] $ns at $var "$ragent_($i) Myfunction" Then in your tcl script you can also have the ragent_ reference like this: puts "mubashir $ragent_(0)" puts "mubashir $ragent_(1)" And you can have access to this ragent_ in either you AODV.cc or DSR.cc protocol by utilizing it by defining Myfunction in command AODV::command(int argc, const char*const* argv) { if(strncasecmp(argv[1], "Myfunction", 2) == 0) { //do what ever you want } return TCL_OK; } Hope it helps Regards -- Mubashir Husain Rehmani Mobile : 00 33 (0)6 32 00 89 35