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: Select all
set time-to-send 4
set 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
}