egghelp/eggheads community

How do I load a TCL by bot's partyline (DCC Chat)?

Set +k as a new blacklist user mode (if +k is not already a defined flag in the bot). If it is not defined then define it in a tcl. And when users join (bind join and bind splt), check their handle if their global/channel flags match +k use 'newchanban' as mentioned above with time '0' to ban them,...

Anyone got any idea?

Tcl: syntax error in expression "(![info exists netsplit_lock]) && ([lsearch -exact $checkmod" Tcl: ("if" test expression) Tcl: while compiling Tcl: "if {(![info exists netsplit_lock]) && ([lsearch -exact $checkmode "m"] == -1) && ([string m...

MeTroiD wrote:

Code: Select all

bind pub n "\$error" tcldebug:error

proc tcldebug:error {nick host hand chan args} {
  foreach line [split $::errorInfo \n] {
    putquick "PRIVMSG $chan :$line"
  }
}

Where should I place this at?

gb wrote:It's 'errorInfo', not 'errorinfo'. CaSe matters.

<user> .tcl set errorinfo
<bot> Tcl error: can't read "errorinfo": no such variable

The bot replies,

Tcl: can't read "errorinfo": no such variable
Tcl: while executing
Tcl: "set errorinfo"

Restarted..

<user> .tcl set errorInfo
<bot> What? You need '.help'

Hmmm... I added # infront but it still doesn't work...

#Comment these two lines if you wish to enable the .tcl and .set commands.
# If you select your owners wisely, you should be okay enabling these.
#unbind dcc n tcl *dcc:tcl
#unbind dcc n set *dcc:set

<Bot> What? You need '.help'



Mmm... Does the TCL detect fake quit msg too?
Etc.

* Quits: Eggy (egg@egghelp.org) (Quit (boston.ma.us.galaxynet.org singnet.sg.galaxynet.org))

Mmm... I still got this error after I edited the TCL...

Tcl error [netsplit:lock]: syntax error in expression "(![info exists netsplit_lock($chan)]) && ([lsearch -exact $c"

Oh ok, but I've tested this: bind sign - * netsplit:lock proc netsplit:lock {nick uhost hand chan text {reason ""}} { global botnick netsplit_lock set checkmode [string trim [lindex [split [getchanmode $chan]] 0] "+"] if {(![info exists netsplit_lock]) && ([lsearch -exact...

set netsplitchans "#chan1 #chan2 #chan3" proc netsplit:lock {nick uhost hand chan text} { global netsplitchans if {([lsearch -exact [split [string tolower $netsplitchans]] [string tolower $chan]] == -1)} { return 0 } ............................... ........................ ..................

Oh ya, does this works? bind sign - * netsplit:lock bind pub n|m !ns ns_switch proc netsplit:lock {nick uhost hand chan text {reason ""}} { global botnick netsplit_lock set checkmode [string trim [lindex [split [getchanmode $chan]] 0] "+"] if {(![info exists netsplit_lock]) &...

Oh, mmm...
So the codes that u post previously works on every channels that the bot is in?