egghelp/eggheads community

PING script

2006-09-22T22:06:59-04:00

Code:

 putserv "privmsg [lindex $moo(arg) :\001PING [clock clicks -milliseconds]\001"

That's the only obvious error I see so far. When you tested $moo(arg) did you get an error (undeclared) or was it just the wrong value (e.g. empty)?

Statistics: Posted by stdragon — Fri Sep 22, 2006 10:06 pm

Re: sorry

2006-09-20T19:56:24-04:00

sorry but I didn't ask for a pre-made script. I just asked where's the problem in my own. and the "rules" on this section of the forum are "do no request scripts".

I posted it as an example of a working script. Take it as such, or read it and learn from it.

Statistics: Posted by rosc2112 — Wed Sep 20, 2006 7:56 pm

PING script

2006-09-20T17:17:28-04:00

And it would be polite for you to enclose your code within code tags.

Statistics: Posted by Alchera — Wed Sep 20, 2006 5:17 pm

sorry

2006-09-20T16:42:10-04:00

sorry but I didn't ask for a pre-made script. I just asked where's the problem in my own. and the "rules" on this section of the forum are "do no request scripts".

Statistics: Posted by chadchoud — Wed Sep 20, 2006 4:42 pm

PING script

2006-09-20T14:47:59-04:00

Code:

set pingchans "#mychan #chan2 #etc"bind pub - .ping pub:pingbind ctcr - PING ctcr:pingproc pub:ping {nick uhost hand chan arg} {global pingreq pingp pingchans        if {[lsearch -exact $pingchans $chan] == -1} {                puthelp "PRIVMSG $nick :ping disabled on $chan"                return        }        set arg [string trim $arg]        if {![info exists pingp($chan)]} {                 set pingp($chan) 0         }        utimer 2 [list incr pingp($chan) -1]        if {[incr pingp($chan)] < 3} {                if {[set targ [lindex [split $arg] 0]] == ""} {                        putserv "PRIVMSG $chan :Use: .ping  or .ping me"                        return                }                if {([string equal -nocase "me" $targ] == 1)} {                        putserv "PRIVMSG $nick :\001PING [clock clicks -milliseconds]\001"                        set pingreq([string tolower $nick]) "$chan"                        return                }                if {[onchan $targ $chan]} {                        putserv "PRIVMSG $targ :\001PING [clock clicks -milliseconds]\001"                        set pingreq([string tolower $targ]) "$chan"                } else {                        puthelp "PRIVMSG $chan :$targ is not in $chan."                }        }}proc ctcr:ping {nick uhost hand dest keyword arg} {        global pingreq        if {![info exists pingreq([set nnick [string tolower $nick]])]} {return}        if {[string is integer [set reply [lindex [split $arg] 0]]]} {                putserv "PRIVMSG $pingreq($nnick) :\[\002$nick\002 PING reply\]: [expr {abs([clock clicks -milliseconds] - $reply) / 1000.0}] seconds."        }        unset pingreq($nnick)}putlog "Ping.tcl v1.3 by Opposing Loaded..."

Statistics: Posted by rosc2112 — Wed Sep 20, 2006 2:47 pm

PING script

2006-09-20T14:16:50-04:00

I wrote a tcl ping script. I'm still a newbie in tcl. I hope somebody can help.
Here's the script:

Code:

bind PUB - !ping CheckPingproc CheckPing {nick uhost hand chan text} {  putserv "privmsg $chan : [lindex [split $text] 0]"  if { [lindex [split $text] 0] != "" } {    set ::moo(arg) [lindex [split $text] 0]  } else {      set ::moo(arg) $nick  }  set ::moo(ticks) [clock clicks -milliseconds]  set ::moo(chan) $chan  putserv "privmsg $chan : $moo(arg) "  putserv "privmsg [lindex $moo(arg) :\001PING [clock clicks -milliseconds]\001"  putserv "privmsg $chan :ping sent!"  putserv "privmsg $chan :I'm sending the ping request to $moo(arg) now."}bind CTCR - PING* Replyproc Reply {nick uhost hand dest keyword text} {  global server moo  putserv "privmsg $moo(chan) :$moo(arg)'s ping reply from $server is : [expr [expr [clock clicks] - $moo(ticks)] / 1000]"}

As you see, I added some debuging, and found that $moo(arg) isn't filled.

I didn't check the ctcp reply yet..

Statistics: Posted by chadchoud — Wed Sep 20, 2006 2:16 pm