| View previous topic :: View next topic |
| Author |
Message |
IRCNick Halfop
Joined: 12 Oct 2005 Posts: 64 Location: Germany
|
Posted: Sat Dec 03, 2005 10:39 am Post subject: ctcp expression |
|
|
Hi,
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 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
}
|
|
|
| Back to top |
|
 |
demond Revered One

Joined: 12 Jun 2004 Posts: 3073 Location: San Francisco, CA
|
Posted: Sat Dec 03, 2005 1:34 pm Post subject: |
|
|
learn CTCP and use octal escapes (i.e. \001) to embed non-ascii chars in the string _________________ connection, sharing, dcc problems? click <here>
before asking for scripting help, read <this>
use [code] tag when posting logs, code |
|
| Back to top |
|
 |
|