egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-12-03T13:34:46-04:00 https://forum.eggheads.org/app.php/feed/topic/10931 2005-12-03T13:34:46-04:00 2005-12-03T13:34:46-04:00 https://forum.eggheads.org/viewtopic.php?p=57923#p57923 <![CDATA[ctcp expression]]> Statistics: Posted by demond — Sat Dec 03, 2005 1:34 pm

]]> 2005-12-03T10:39:00-04:00 2005-12-03T10:39:00-04:00 https://forum.eggheads.org/viewtopic.php?p=57922#p57922 <![CDATA[ctcp expression]]>
How can I express ctcp in tcl. I want to modify this script to ping the bot every X min, because of lagging problem.

Code: 

set time-to-send 4set anti-idle-msg ":-)"set what-nick "$botnick" set what-nick [string tolower ${nick}]if {![info exists {antiidle-loaded}]} {  global what-nick anti-idle-msg time-to-send  set antiidle-loaded 1  timer ${time-to-send} ZimoZimo-proc}proc ZimoZimo-proc {} {  global what-nick anti-idle-msg time-to-send  putserv "PRIVMSG ${what-nick} :${anti-idle-msg}"  timer ${time-to-send} ZimoZimo-proc}

Statistics: Posted by IRCNick — Sat Dec 03, 2005 10:39 am

]]>