[ns] Help with Code

[νι∂нуα ρяαкαѕн R]

i have installed the ns2 successfully when i try to run my frnds code i get
this error message plase help me...

SARP.tcl
#===============================================================================
# Define options
#===============================================================================
set opt(chan)           Channel/WirelessChannel    ;# channel type
set opt(prop)           Propagation/TwoRayGround   ;# radio-propagation
model
set opt(netif)          Phy/WirelessPhy            ;# network interface type
set opt(mac)            Mac/802_11
set opt(ifq)            Queue/DropTail/PriQueue    ;# interface queue type
set opt(ll)             LL                         ;# Link layer type
set opt(rlc)            RLC                        ;# Radio Link Control
set opt(ant)            Antenna/OmniAntenna        ;# antenna model
set opt(ifqlen)         500                        ;# max packet in ifq
set opt(adhocRouting)   SARP                       ;# routing protocol
set opt(x)          1000                         ;# x coordinate of topology
set opt(y)                 1000                       ;# y coordinate of
topology
set opt(nn)             100                        ;# number of mobilenodes
set opt(start)         1                          ;# simulation start time
set opt(stop)       15                         ;# simulation stop time
set opt(att)            5               ;# number of attackers
set st_atk              56               ;# starting attacker node
set opt(pause)        10
#==============================================================================

set ns_ [new Simulator]
# $ns_ use-newtrace
set nf [open out.nam w]
set tf [open out.tr w]
$ns_ namtrace-all-wireless $nf $opt(x) $opt(y)
$ns_ trace-all $tf

set topo [new Topography]
$topo load_flatgrid $opt(x) $opt(y)

set god_  [create-god $opt(nn)]

set channel [new $opt(chan)]


$ns_ node-config -adhocRouting $opt(adhocRouting) \
                 -llType $opt(ll) \
                 -rlcType $opt(rlc) \
                 -macType $opt(mac) \
                 -ifqType $opt(ifq) \
                 -ifqLen $opt(ifqlen) \
                 -antType $opt(ant) \
                 -propType $opt(prop) \
                 -phyType $opt(netif) \
         -topoInstance $topo \
                 -wiredRouting OFF \
         -agentTrace ON \
                 -routerTrace ON \
                 -macTrace OFF \
         -movementTrace OFF \
         -channel $channel

#node creation
for {set i 0} {$i < $opt(nn) } {incr i} {
        set node_($i) [$ns_ node]
        $node_($i) random-motion 0        ;# disable random motion
}

#$ns_ color 0 red

puts "Loading scenario files .."
source "../scen/SCENP$opt(pause)"

for {set i $st_atk} {$i < [expr $st_atk+$opt(att)] } {incr i} {
     $ns_ at 0.0 "$node_($i) add-mark m1 red circle"
}

set rate [expr $opt(att)*50]kb

set udp1 [new Agent/UDP]
$ns_ attach-agent $node_(0) $udp1
set null1 [new Agent/Null]
$ns_ attach-agent $node_(50) $null1
set cbr1 [new Application/Traffic/CBR]
$cbr1 set packetSize_ 1000
$cbr1 set rate_ $rate
$cbr1 attach-agent $udp1
$ns_ connect $udp1 $null1
$ns_ at 1.0 "$node_(0) label Src";
$ns_ at 1.0 "$node_(50) label Dest";
$ns_ at 1.0 "$cbr1 start"


for {set i 0} {$i < $opt(nn) } {incr i} {
    $ns_ at $opt(stop) "$node_($i) reset";
}

for {set i 0} {$i < $opt(nn)} {incr i} {
    $ns_ initial_node_pos $node_($i) 20
}

$ns_ at $opt(stop).01 "puts \"NS EXITING...\" ; $ns_ halt"

proc finish {} {
    global nf tf ns_
    $ns_ flush-trace
    close $nf
    close $tf
        exec ./find2.bin
    #exec nam out.nam &
    exit 0
}

$ns_ at $opt(stop) "finish"
$ns_ run

when i try run i get this error please help me frnds..
[r...@localhost tcl]# ns SARP.tcl
num_nodes is set 100

    (_o14 cmd line 1)
    invoked from within
"_o14 cmd addr"
    invoked from within
"catch "$self cmd $args" ret"
    invoked from within
"if [catch "$self cmd $args" ret] {
set cls [$self info class]
global errorInfo
set savedInfo $errorInfo
error "error when calling class $cls: $args" $..."
    (procedure "_o14" line 2)
    (SplitObject unknown line 2)
    invoked from within
"_o14 addr"
    ("eval" body line 1)
    invoked from within
"eval $node addr $args"
    ("default" arm line 2)
    invoked from within
"switch -exact $routingAgent_ {
DSDV {
set ragent [$self create-dsdv-agent $node]
}
DSR {
$self at 0.0 "$node start-dsr"
}
AODV {
set ragent [$self cre..."
    (procedure "_o3" line 14)
    (Simulator create-wireless-node line 14)
    invoked from within
"_o3 create-wireless-node"
    ("eval" body line 1)
    invoked from within
"eval $self create-wireless-node $args"
    (procedure "_o3" line 23)
    (Simulator node line 23)
    invoked from within
"$ns_ node"
    ("for" body line 2)
    invoked from within
"for {set i 0} {$i < $opt(nn) } {incr i} {
                set node_($i) [$ns_ node]
                $node_($i) random-motion 0              ;# disable random
motion
}"
    (file "SARP.tcl" line 57)
[r...@localhost tcl]#
-- 
I мαkє мy σwи яυlєร
I รєт мy σwи gσαlร
I fσllσw тнє ραтн lєรร fσllσwєd
I αм wнαт I αм

R.VIDHYA PRAKASH
www.techmelody.com
9944524864