This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.
Help for those learning Tcl or writing their own scripts.
-
IRCNick
- Halfop
- Posts: 64
- Joined: Wed Oct 12, 2005 9:43 pm
- Location: Germany
-
Contact:
Post
by IRCNick »
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: 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
}
-
demond
- Revered One
- Posts: 3073
- Joined: Sat Jun 12, 2004 9:58 am
- Location: San Francisco, CA
-
Contact:
Post
by demond »
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
