It is for that, but users like to use it to display the reason of the channel-lock so they use -k to show it.AskMe wrote:i was tinking the -k was for removing key mode
Replace withif {[punishing w:$jn:$c]} {continue}
puthelp "NOTICE $jn :$wm"
lappend offenders $jn
}
putlog "\002AP\002: Warned [join $offenders \002,\002] on $c: $wm"
}
I don't see any choice for the output message "notice" or "privmsg"if {[punishing w:$jn:$c]} {continue}
puthelp "privmsg $jn :$wm"
lappend offenders $jn
}
putlog "\002AP\002: Warned [join $offenders \002,\002] on $c: $wm"
}
Code: Select all
[08:14] Tcl error [::AllProtection::pubms textl]: wrong # args: should be "timer"
Code: Select all
(00:59:59) (ChanBot) Settings for dynamic channel #channel:
(00:59:59) (ChanBot) Protect modes (chanmode): None
(00:59:59) (ChanBot) Idle Kick after (idle-kick): DON'T!
(01:00:00) (ChanBot) stopnethack: DON'T![code]
(01:00:00) (ChanBot) aop-delay: 0:0
(01:00:00) (ChanBot) revenge-mode: 0
(01:00:00) (ChanBot) ban-time: 0
(01:00:00) (ChanBot) exempt-time: 60
(01:00:00) (ChanBot) invite-time: 60
(01:00:00) (ChanBot) Other modes:
(01:00:00) (ChanBot) -inactive -statuslog -secret -shared
(01:00:00) (ChanBot) -greet -seen -cycle -dontkickops
(01:00:00) (ChanBot) -protectops -protectfriends -revenge -revengebot
(01:00:00) (ChanBot) -bitch -autoop -autovoice -nodesynch
(01:00:00) (ChanBot) -enforcebans -dynamicbans +userbans -autohalfop
(01:00:00) (ChanBot) -protecthalfops
(01:00:00) (ChanBot) -dynamicexempts -userexempts -dynamicinvites -userinvites
(01:00:00) (ChanBot) User defined channel flags:
(01:00:00) (ChanBot) -toys
(01:00:00) (ChanBot) User defined channel settings:
(01:00:00) (ChanBot) regon: 0
(01:00:00) (ChanBot) User defined channel strings:
(01:00:00) (ChanBot) registrar: {}
(01:00:00) (ChanBot) ap:level: 75
(01:00:00) (ChanBot) ap:textl: {2:60 10 kb 2}
Code: Select all
(05:03:23) (ChanBot) Currently: wrong # args: should be "timer"
(05:03:23) (ChanBot) Currently: while executing
(05:03:23) (ChanBot) Currently: "timer $bti [list pushmode $c -b $bm]"
(05:03:23) (ChanBot) Currently: ("foreach" body line 12)
(05:03:23) (ChanBot) Currently: invoked from within
(05:03:23) (ChanBot) Currently: "foreach {jn ju} $nl {
(05:03:23) (ChanBot) Currently: if {[onchan $jn $c] && ![punishing k:$jn:$c]} {
(05:03:23) (ChanBot) Currently: putquick "KICK $c $jn :[clonemap [mapall $km $c $bti] [incr cc]]"
(05:03:23) (ChanBot) Currently: }
(05:03:23) (ChanBot) Currently: if {..."
(05:03:23) (ChanBot) Currently: ("kb" arm line 2)
(05:03:23) (ChanBot) Currently: invoked from within
(05:03:23) (ChanBot) Currently: "switch -- $p {
(05:03:23) (ChanBot) Currently: "kb" {
(05:03:23) (ChanBot) Currently: foreach {jn ju} $nl {
(05:03:23) (ChanBot) Currently: if {[onchan $jn $c] && ![punishing k:$jn:$c]} {
(05:03:23) (ChanBot) Currently: putquick "KICK $c $jn :[clonemap [mapall $km $c..."
(05:03:23) (ChanBot) Currently: (procedure "punish" line 15)
(05:03:23) (ChanBot) Currently: invoked from within
(05:03:23) (ChanBot) Currently: "punish $pm [list $n $u] $c [mapr $myvar(kmsg) "[subst $mapr] in $ts secs"] $myvar(wmsg) $bty $bti $myvar(klmsg) $myvar(ktime) $myvar(ktype) [string to..."
(05:03:23) (ChanBot) Currently: (procedure "checkf" line 5)
(05:03:23) (ChanBot) Currently: invoked from within
(05:03:23) (ChanBot) Currently: "checkf $s $o $uhc $u $c $pm $n $rsn $bty $bti $f $i $myo"
(05:03:23) (ChanBot) Currently: (procedure "seqflood" line 10)
(05:03:23) (ChanBot) Currently: invoked from within
(05:03:23) (ChanBot) Currently: "seqflood $flood $o $s $nick $uhost $chan $pmeth $btype $btime [string length $arg]"
(05:03:23) (ChanBot) Currently: ("textl" arm line 3)
(05:03:23) (ChanBot) Currently: invoked from within
(05:03:23) (ChanBot) Currently: "switch -- $flood {
(05:03:23) (ChanBot) Currently: "textl" - "textc" {
(05:03:23) (ChanBot) Currently: foreach {o s} [cgsplit $off] {break}
(05:03:23) (ChanBot) Currently: seqflood $flood $o $s $nick $uhost $chan $pmeth $btype $btime [str..."
(05:03:23) (ChanBot) Currently: (procedure "::AllProtection::pubms" line 5)
(05:03:23) (ChanBot) Currently: invoked from within
(05:03:23) (ChanBot) Currently: "::AllProtection::pubms textl $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"
« Opposing » .tcl timer
« Bot » Tcl error: wrong # args: should be "timer minutes command"
« Opposing » .tcl timer 1
« Bot » Tcl error: wrong # args: should be "timer minutes command"
« Opposing » .tcl timer 1 2 3
« Bot » Tcl error: wrong # args: should be "timer minutes command"
I got the same error now, and i looked in my code but couldt not fine the exact line that you specify here, but i found one that looked very much like it and replaced it whit the one you posted here but now i just get this error:Sir_Fz wrote:I can't find a reason why this error appeared, however you'll have to show the output of '.set errorInfo' so I can see where exactly the error occurred.TheConstructor wrote:Code: Select all
[21:56] ^BAP^B: Warned EpOs on #evy: Warning: You've triggered text flood (chars) protection, decrease your text legnth. [21:56] Tcl error [::AllProtection::pubms textl]: can't read "offenders": no such variable [21:56] ^BAP^B: Locked #evy due to Botnet text (chars) flood.
Edit: I took a look at the script and found that this error may indeed occur (after my recent changes to the script). To prevent this error from happening again, replace:withCode: Select all
putlog "\002AP\002: Warned [join $offenders \002,\002] on $c: $wm"
Code: Select all
if {[info exists offenders]} { putlog "\002AP\002: Warned [join $offenders \002,\002] on $c: $wm" }
Code: Select all
[16:47] Tcl error [::AllProtection::pubms textl]: can't read "c": no such variable
Code: Select all
putlog "\002AP\002: Warned [join $offenders \002,\002] on $chan :$wmsg"
Code: Select all
if {[info exists offenders]} { putlog "\002AP\002: Warned [join $offenders \002,\002] on $c: $wm" }