egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-01-23T06:40:38-04:00 https://forum.eggheads.org/app.php/feed/topic/3511 2003-01-23T06:40:38-04:00 2003-01-23T06:40:38-04:00 https://forum.eggheads.org/viewtopic.php?p=15693#p15693 <![CDATA[ctcp commands]]> Statistics: Posted by ppslim — Thu Jan 23, 2003 6:40 am

]]> 2003-01-23T06:06:55-04:00 2003-01-23T06:06:55-04:00 https://forum.eggheads.org/viewtopic.php?p=15689#p15689 <![CDATA[ctcp commands]]> I have written these:
bind dcc m ctcp ctcp_com
bind ctcr - PING ping_me_reply

proc ctcp_com {nick uhost hand arg} {
set arg [string toupper $arg]
if {$arg == "*PING*"} {
putlog "#$hand# CTCP to $nick PING"
putserv "PRIVMSG $nick :\001PING [unixtime]\001"
return 0
}
}
and when I'm trying to .ctcp me PING it says that:
[12:17] Tcl error [ctcp_com]: no value given for parameter "arg" to "ctcp_com"

Statistics: Posted by ReaLz — Thu Jan 23, 2003 6:06 am

]]>