egghelp/eggheads community

!ping

2003-11-28T06:22:53-04:00

Souperman's ping.tcl works just fine. lol

The latest version works. Older versions had various bugs which would affect some bots. Hopefully I've thought of everything and there will be no more bugs

Statistics: Posted by Souperman — Fri Nov 28, 2003 6:22 am

!ping

2003-11-25T09:02:24-04:00

Souperman's ping.tcl works just fine. lol

Statistics: Posted by Sir_Fz — Tue Nov 25, 2003 9:02 am

!ping

2003-11-25T08:50:40-04:00

ohh thx , but how about mili sec ?

if possible i would be happy too...

btw. the script runs fine ! Thanx again.

One last think .. i cant Ping myself... is that normal ?

Statistics: Posted by FakeZ — Tue Nov 25, 2003 8:50 am

!ping

2003-11-25T07:11:06-04:00

ohh thx , but how about mili sec ?

Statistics: Posted by MeJseL — Tue Nov 25, 2003 7:11 am

!ping

2003-11-25T07:00:15-04:00

Thanx for the script

Ill test it too

Statistics: Posted by FakeZ — Tue Nov 25, 2003 7:00 am

!ping

2003-11-25T06:46:19-04:00

sorry, i was doing it before school, didnt had time to tets it..This work 100% (tested..)..

Code:

bind pub - !ping pub:ping bind ctcr - PING pub:pingr proc say {who what} {    puthelp "PRIVMSG $who :$what" } set pub_pingchan "#here.you.set.chan" proc pub:ping {nick uhost hand chan args} {    set args [split [cleanarg $args]]    if {[llength $args]<1} {       set who $nick    } else {       set who [lindex $args 0]    }    global pub_pingchan    set time [unixtime]    say $who "\001PING $time\001"    set pub_pingchan $chan } proc pub:pingr {nick uhost hand dest keyword args} {    global pub_pingchan    set temp [unixtime]    set time [expr $temp - $args]    say $pub_pingchan "PING reply from $nick: $time seconds" }

You can see here:

Code:

[11:45:54] <01]Kami[> !ping ]Kami[[11:45:56] [Uber1337-Guard PING][11:45:57] <01Uber1337-Guard> PING reply from ]Kami[: 1 seconds

Statistics: Posted by ]Kami[ — Tue Nov 25, 2003 6:46 am

!ping

2003-11-25T03:19:00-04:00

Code:

[08:19] missing close-brace    while executing"proc cleanarg {arg}"

Statistics: Posted by MeJseL — Tue Nov 25, 2003 3:19 am

!ping

2003-11-25T03:14:41-04:00

oops, use this code:

Code:

bind pub - !ping pub:ping bind ctcr - PING pub:pingr proc say {who what} {puthelp "PRIVMSG $who :$what"}proc cleanarg {arg} { set temp ""for {set i 0} {$i < [string length $arg]} {incr i} {  set char [string index $arg $i]  if {($char != "\12") && ($char != "\15")} {   append temp $char  }set pub_pingchan "#here.you.set.chan" proc pub:ping {nick uhost hand chan args} {    set args [split [cleanarg $args]]    if {[llength $args]<1} {       set who $nick    } else {       set who [lindex $args 0]    }    global pub_pingchan    set time [unixtime]    say $who "\001PING $time\001"    set pub_pingchan $chan } proc pub:pingr {nick uhost hand dest keyword args} {    global pub_pingchan    set temp [unixtime]    set time [expr $temp - $args]    say $pub_pingchan "PING reply from $nick: $time seconds" }

this should work fine..

Statistics: Posted by ]Kami[ — Tue Nov 25, 2003 3:14 am

!ping

2003-11-25T03:01:06-04:00

ops sry .. it just said that i couldnt replay so fast .. then i tryed again and i go 2 post sry

Statistics: Posted by MeJseL — Tue Nov 25, 2003 3:01 am

!ping

2003-11-25T02:59:35-04:00

Code:

Tcl error [pub:ping]: invalid command name "say"

Statistics: Posted by MeJseL — Tue Nov 25, 2003 2:59 am

!ping

2003-11-25T02:59:18-04:00

Code:

Tcl error [pub:ping]: invalid command name "say"

Statistics: Posted by MeJseL — Tue Nov 25, 2003 2:59 am

!ping

2003-11-25T01:34:11-04:00

Remove the if {![auth:check $hand]} {return 0} line.. I think that is ]Kami['s check to see if is an valid user or something..

Statistics: Posted by caesar — Tue Nov 25, 2003 1:34 am

!ping

2003-11-25T00:03:12-04:00

Code:

[05:03] Tcl error [pub:ping]: invalid command name "auth:check"

Statistics: Posted by MeJseL — Tue Nov 25, 2003 12:03 am

!ping

2003-11-24T14:06:15-04:00

This should work:

Code:

bind pub - !ping pub:pingbind ctcr - PING pub:pingrset pub_pingchan "#here.you.set.chan"proc pub:ping {nick uhost hand chan args} {if {![auth:check $hand]} {return 0}set args [split [cleanarg $args]]if {[llength $args]<1} {set who $nick} else {set who [lindex $args 0]}global pub_pingchanset time [unixtime]say $who "\001PING $time\001"set pub_pingchan $chan}proc pub:pingr {nick uhost hand dest keyword args} {global pub_pingchanset temp [unixtime]set time [expr $temp - $args]say $pub_pingchan "PING reply from $nick: $time seconds"}

Statistics: Posted by ]Kami[ — Mon Nov 24, 2003 2:06 pm

!ping

2003-11-24T10:58:17-04:00

didnt work

Statistics: Posted by MeJseL — Mon Nov 24, 2003 10:58 am