## GPSR Options
Agent/GPSR set bdesync_                0.5 ;# beacon desync random component
Agent/GPSR set bexp_                   [expr 3*([Agent/GPSR set bint_]+[Agent/GPSR set bdesync_]*[Agent/GPSR set bint_])] ;# beacon timeout interval
Agent/GPSR set pint_                   1.5 ;# peri probe interval
Agent/GPSR set pdesync_                0.5 ;# peri probe desync random component
Agent/GPSR set lpexp_                  8.0 ;# peris unused timeout interval
Agent/GPSR set drop_debug_             1   ;#
Agent/GPSR set peri_proact_            1 	 ;# proactively generate peri probes
Agent/GPSR set use_implicit_beacon_    1   ;# all packets act as beacons; promisc.
Agent/GPSR set use_timed_plnrz_        0   ;# replanarize periodically
Agent/GPSR set use_congestion_control_ 0
Agent/GPSR set use_reactive_beacon_    0   ;# only use reactive beaconing
Agent/GPSR set planar_type_			   1   ;#1=GG planarize, 0= RNG planarize ****

set val(bint)           0.5  ;# beacon interval
set val(use_mac)        1    ;# use link breakage feedback from MAC
set val(use_peri)       1    ;# probe and use perimeters
set val(use_planar)     1    ;# planarize graph
set val(verbose)        1    ;#
set val(use_beacon)     1    ;# use beacons at all
set val(use_reactive)   0    ;# use reactive beaconing
set val(locs)           0    ;# default to OmniLS
set val(use_loop)       0    ;# look for unexpected loops in peris

set val(agg_mac)        1 ;# Aggregate MAC Traces
set val(agg_rtr)        0 ;# Aggregate RTR Trace
set val(agg_trc)		0 ;

set val(aggttrc)		ON;
set val(rtrtrc)			ON;
set val(mactrc)			ON;
set val(movtrc)			ON;

#define option

set val(chan)			Channel/WirelessChannel;
set val(prop)			Propagation/TwoRayGround;
set val(netif)			Phy/WirelessPhy;
set val(mac)			Mac/802_11;
set val(ifq)			Queue/DropTail/PriQueue;
set val(ll)			LL;
set val(ant)			Antenna/OmniAntenna;
set val(x)			4000; #sesuai maps
set val(y)			4000;
set val(ifqlen)			50;
set val(seed)			1.0;
set val(rp)			GPSR;
set val(nn)			105 ; #jumlah node
set val(sc)			"/home/rendi/Downloads/one_1.5.1-RC2/layang_pasupati_simulation_MovementNs2Report.txt" ;  #onesim mob
#set val(tr)			"/home/rendi/Desktop/ns-allinone-2.35/ns-2.35/trafik.tcl";  
set val(stop)			100.0  ;  #waktu simulasi
source 				"/home/rendi/Desktop/ns-allinone-2.35/ns-2.35/tcl/ex/802.11/IEEE802-11p.tcl"

Agent/GPSR set locservice_type_ 3

#Other default settings

puts "setting other default settings"

LL set mindelay_		50us
LL set delay_			25us
LL set bandwidth_		0;

Agent/Null set sport_		0
Agent/Null set dport_		0

Agent/CBR set sport_		0
Agent/CBR set dport_		0

Agent/TCPSink set sport_	0
Agent/TCPSink set dport_	0

Agent/TCP set sport_		0
Agent/TCP set dport_		0
Agent/TCP set packetSize_	512

Queue/DropTail/PriQueue set Prefer_Routing_protocols 1

#unity gain, omni

Antenna/OmniAntenna set X_	0
Antenna/OmniAntenna set Y_	0
Antenna/OmniAntenna set Z_	1.5
Antenna/OmniAntenna set Gt_ 1.0
Antenna/OmniAntenna set Gr_ 1.0


add-all-packet-headers
remove-all-packet-headers
add-packet-header Common Flags IP LL Mac Message GPSR  LOCS SR RTP Ping HLS

Agent/GPSR set bint_                  $val(bint)

# Recalculating bexp_ here
Agent/GPSR set bexp_                 [expr 3*([Agent/GPSR set bint_]+[Agent/GPSR set bdesync_]*[Agent/GPSR set bint_])] ;# beacon timeout interval
Agent/GPSR set use_peri_              $val(use_peri)
Agent/GPSR set use_planar_            $val(use_planar)
Agent/GPSR set use_mac_               $val(use_mac)
Agent/GPSR set use_beacon             $val(use_beacon)
Agent/GPSR set verbose_               $val(verbose)
Agent/GPSR set use_reactive_beacon_   $val(use_reactive)
Agent/GPSR set use_loop_detect_       $val(use_loop)

CMUTrace set aggregate_mac_           $val(agg_mac)
CMUTrace set aggregate_rtr_           $val(agg_rtr)


# seeding RNG
ns-random $val(seed)

#Main program

set ns_ [new Simulator]

set tracetr [open gpsr2.tr w]
$ns_ trace-all $tracetr

set tracenam [open gpsr2.nam w]
$ns_ namtrace-all-wireless $tracenam $val(x) $val(y)

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

set god_ [create-god $val(nn)]
set chan_1_ [new $val(chan)]


#global setting (node)
$ns_ at now
$ns_ node-config 	-adhocRouting 	$val(rp) \
					-llType 		$val(ll) \
					-macType 		$val(mac) \
                 	-ifqType 		$val(ifq) \
                 	-ifqLen 		$val(ifqlen) \
                 	-antType 		$val(ant) \
                 	-propType 		$val(prop) \
                 	-phyType 		$val(netif) \
                 	-channelType 	$val(chan) \
		 			-topoInstance 	$topo \
		 			-agentTrace 	ON \
                 	-routerTrace 	ON \
                 	-macTrace 		ON \
                 	-movementTrace  ON 



for {set i 0} {$i < $val(nn) } {incr i} {
	set node_($i) [$ns_ node]	
	$node_($i) random-motion 0		;
		set ragent [$node_($i)set ragent_]
		$ragent install-tap [$node_($i)set mac_(0)]

	if { $val(mac) == "Mac/802_11p" }
		[$node_($i) set mac_(0)] load-trace $loadTrace

	$god_new_node $node_($i)
	}
}

# Provide initial (X,Y, for now Z=0) co-ordinates for node_s and node_d
#

puts "Loading scenario file..."
source $val(sc)


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

for {set i 0} {$i < $val(nn) } {incr i} {
    $ns_ at $val(stop).0 "$node_($i) reset";
}
#source $val(tr)

set udp_(0) [new Agent/UDP]
$ns_ attach-agent $node_(53) $udp_(0)
set null_(0) [new Agent/Null]
$ns_ attach-agent $node_(3) $null_(0)
set cbr_(0) [new Application/Traffic/CBR]
$cbr_(0) set packetSize_ 512
$cbr_(0) set interval_ 0.01
$cbr_(0) set random_ 1
$cbr_(0) set maxpkts_ 10000
$cbr_(0) attach-agent $udp_(0)
$ns_ connect $udp_(0) $null_(0)
$ns_ at 10.0 "$cbr_(0) start"
$ns_ at 90.0 "$cbr_(0) stop"

$ns_ at $val(stop) "finish"
$ns_ at  $val(stop).0002 "puts "NS EXITING..." ; $ns_ halt" 

proc finish {} {
	global ns_ tracetr tracenam
	$ns_ flush-trace
	close $tracetr
	close $tracenam
	exec nam gpsr2.nam &
	exec awk -f throughput.awk gpsr2.tr &
	exec awk -f PDRPLD.awk gpsr2.tr &
	exit 0 }

puts "Starting Simulation..."
$ns_ run

#for {set i 0} {$i < $val(nn) } {incr i} {
#	set node_($i) [$ns_ node]	
#	$node_($i) random-motion 0		;
#		set ragent [$node_($i)set ragent_]
#		$ragent install-tap [$node_($i)set mac_(0)]

#	if { $val(mac) == "Mac/802_11p" }
#		[$node_($i) set mac_(0)] load-trace $loadTrace

#	$god_new_node $node_($i)
#	}
#}

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