TCL edit

[Danik]

can someone edit the allprotection.tcl version 4.6b8

i think it is a error

Code: Select all

[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

[Danik]

I think that the problem is here

Code: Select all

"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 ?

[Sir_Fz]

You're posting in the wrong forum. Please post in the script's thread to receive support for it.