Ping

Pagini: 1

strugurel
Administrator
Din: Sibiu
Postari: 28

for {set i 0} {$i < $ping(maxbuf)} {incr i} { set pingbuf($i) 0 }

proc pub:ping {hand chan args x mix} {
global ping pingbuf

set who [lindex $x 0]

for {set i 0} {$i < $ping(maxbuf)} {incr i} {
if {$pingbuf($i)!=0 && ([lindex $pingbuf($i) 2]+$ping(timeout)<[unixtime])} {set pingbuf($i) 0}
if {$pingbuf($i)==0} {
set rand [expr round(rand()*10000)]
set pingbuf($i) "[list $x] $rand [unixtime]"
putserv "PRIVMSG $who :01PING ${i}.${rand}.C!01"
return $who
}
}
}

proc pub:ping:SubRoutine {nick uhost hand dest key arg} {
global ping pingbuf

set arg [split $arg "."]
set rand [lindex $arg 1]
set i [lindex $arg 0]
set pingnum [lindex $pingbuf($i) 2]
if { [llength $arg]!=3 || ![string equal [lindex $arg 2] C!] || ![a:check -digit $i] || ![a:check -digit $rand] || $i>=$ping(maxbuf) || $i<0 || [lindex $pingbuf($i) 1]!=$rand || ![string equal [lindex [lindex $pingbuf($i) 0] 0] $nick]} { return "FAILED: invalid ping ($arg)" }

a:tell [lindex $pingbuf($i) 0] 131 "[expr {abs([expr [expr {abs([clock clicks -milliseconds])} - $pingnum] / 1000000000.0])}] seconds"
set pingbuf($i) 0
}

Pagini: 1

Mergi la