!ping

[MeJseL]

Anyone have a !ping <nick> script ... i type like !ping blah .. and the bot writes the lag time of nick in chan ..

[TALES]

Souperman has 1 search it here: http://eggdrop.za.net

[MeJseL]

didnt work

[]Kami[]

This should work:

Code: Select all

bind pub - !ping pub:ping
bind ctcr - PING pub:pingr

set 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_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"
}

[MeJseL]

Code: Select all

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

[caesar]

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..

[MeJseL]

Code: Select all

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

[MeJseL]

Code: Select all

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

[MeJseL]

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

[]Kami[]

oops, use this code:

Code: Select all

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..

[MeJseL]

Code: Select all

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

[]Kami[]

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

Code: Select all

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: Select all

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

[FakeZ]

Thanx for the script

Ill test it too

[MeJseL]

ohh thx , but how about mili sec ?

[FakeZ]

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 ?