| View previous topic :: View next topic |
| Author |
Message |
Danik Halfop
Joined: 15 Jun 2008 Posts: 49 Location: Moldova
|
Posted: Fri Nov 14, 2008 9:52 am Post subject: TCL edit |
|
|
can someone edit the allprotection.tcl version 4.6b8
i think it is a error
| Code: | [15:19:21] * InGeRaSa` was kicked by |1C (Advertising detected. (* http://*) :: [Fri Nov 14 16:19:20 2008] - Banned 180 minutes ·249·)
[15:19:21] * InGeRaSa` (~Ingerasa@InGeRaSs.users.undernet.org) has joined #999.md
[15:19:21] * |1C sets mode: +b *!*@InGeRaSs.users.undernet.org |
it has to ban first, and after that to kick the user |
|
| Back to top |
|
 |
Danik Halfop
Joined: 15 Jun 2008 Posts: 49 Location: Moldova
|
Posted: Thu Nov 20, 2008 10:06 am Post subject: |
|
|
I think that the problem is here
| Code: | "kb" {
foreach {jn ju} $nl {
if {[onchan $jn $c] && ![punishing k:$jn:$c]} {
putquick "KICK $c $jn :[clonemap [mapall $km $c $bti] [incr cc]]"
}
if {[punishing b:[set bm [masktype $jn!$ju $bty]]:$c]} {continue}
if {![info exists arb($bm)]} {
if {$banthruX(do)==1 || ($banthruX(do) && [llength [chanbans $c]] >= ${max-bans})} {
putquick [mapXcmd $banthruX(cmd) $jn $ju $c [clonemap [mapall $km $c $bti] $cc] $bty $bti]
} {
queue $c $bm
if {$bti > 0 && [istimer "pushmode $c -b $bm"] == ""} {
timer $bti [list pushmode $c -b $bm]
}
set arb($bm) 1
}
} |
So can anyone change it ? |
|
| Back to top |
|
 |
Sir_Fz Revered One

Joined: 27 Apr 2003 Posts: 3793 Location: Lebanon
|
|
| Back to top |
|
 |
|