PCBots
Cel mai tare...si fain canal din #EggLending
|
Nou pe simpatie:
ionela24 pe Simpatie.ro
 | Femeie
24 ani
Prahova
cauta Barbat
25 - 47 ani |
|
|
PCBotsInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
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
}
|
|
| |
|
