egghelp/eggheads community

Enforce Ban

2006-10-24T05:02:02-04:00

Why do you even use that version?

This is a much cleaner version.

Code:

bind mode - "* +b" enforcebansset enforce(max) "8"set enforce(kmsg) "Banned :ban: by :nick:"proc enforcebans {nick uhost hand chan mc ban} {  global enforce  if {[botisop $chan]} {      set ban [string map {"\\" "\\\\" "\[" "\\["} $ban]    set reason [string map [list ":ban:" "$ban" ":nick" "$nick"] $enforce(kmsg)]        set list [list]    foreach user [chanlist $chan] {      if {[isbotnick $user]} {        continue      } elseif {[matchattr [nick2hand $user] f|f $chan]} {        continue      } elseif {[string match -nocase $ban $user![getchanhost $user $chan]]} {        lappend list $user      }    }        if {[set llist [llength $list]] > $enforce(max)} {      putserv "MODE $chan -ob $nick $ban"    } else {      for {set i 0;set temp [list];set j 0} {$i <= $llist} {incr i} {        if {$j == 3 || $i == $llist} {          if {$j > 0} {            putserv "KICK $chan [join $temp ,] :$reason"            set temp [list]            set j 0          }        }        lappend temp [lindex $list $i]        incr j      }    }   }}

Now if you want it to use random kickmessages from a file, use the snippet I gave you in a different topic (which begs the question why you aren't using it?).

Code:

proc getrandomreason {} {  set file [open "YOURFILE" r]  set data [split [read $file] \n]  close $file  return [lindex $data [rand [llength $data]]]}

If you want it to use a random message for every kick, simply change $reason to [getrandomreason].

Like:

Code:

putserv "KICK $chan [join $temp ,] :$reason"

To:

Code:

putserv "KICK $chan [join $temp ,] :[getrandomreason]"

If you want it to use one (random) reason, simply change

Code:

set reason [string map [list ":ban:" "$ban" ":nick" "$nick"] $enforce(kmsg)]

Code:

set reason [getrandomreason]

Now if you still don't understand how this all works, then I suggest you give up on using eggdrops.

Statistics: Posted by metroid — Tue Oct 24, 2006 5:02 am

.

2006-10-24T00:34:57-04:00

This is like something im looking for, but can someone edit it where it
can load from a txt file thanks

Code:

bind mode - "* +b" enforcebansset enforce(max) "8"set enforce(kmsg) ""proc enforcebans {nick uhost hand chan mc ban} {   global enforce    if {![botisop $chan]} { return }   set ban [string map {"\\" "\\\\" "\[" "\\["} $ban]   if {[string match -nocase $ban $::botnick]} { return }   set kickmsg "$enforce(kmsg)"   regsub -all :ban: $kickmsg $ban kickmsg   regsub -all :nick: $kickmsg $nick kickmsg   set list ""   foreach user [chanlist $chan] {      if {[matchattr [nick2hand $user] f $chan]} { continue }      if {[string match -nocase $ban $user![getchanhost $user $chan]]} {         lappend list $user      }   }   if {[string match [llength $list] 0]} { return }   if {[llength $list] > $enforce(max)} {      putserv "MODE $chan -ob $nick $ban"   } else {      if {[llength $list] <= "3"} {         putserv "KICK $chan [join $list ,] :$kickmsg"      } else {         set nlist ""         foreach x $list {            lappend nlist $x            if {[llength $nlist] == "3"} {               putserv "KICK $chan [join $nlist ,] :$kickmsg"               set nlist ""            }         }         if {[llength $nlist] != ""} {            putserv "KICK $chan [join $nlist ,] :$kickmsg"            set nlist ""         }      }   }}putlog "Enforcebans loaded."

Statistics: Posted by sdays — Tue Oct 24, 2006 12:34 am

Enforce Ban

2006-10-02T04:08:22-04:00

Sorry Friends, but I haven't given try to the code you made, but just got it fixed what I had with help of some of my mate (KissMine on DALnet). Just pasting here for reference and it works all fine as I wanted. Thanks for the help

Code:

bind mode - "* +b" enforcebans set enforce(max) "8" set enforce(kmsg) "Banned :ban: by :nick:" proc enforcebans {nick uhost hand chan mc ban} {   global enforce    if {![botisop $chan]} { return }   set ban [string map {"\\" "\\\\" "\[" "\\["} $ban]   if {[string match -nocase $ban $::botnick]} { return }   set kickmsg "$enforce(kmsg)"   regsub -all :ban: $kickmsg $ban kickmsg   regsub -all :nick: $kickmsg $nick kickmsg   set list ""   foreach user [chanlist $chan] {      if {[matchattr [nick2hand $user] f $chan]} { continue }      if {[string match -nocase $ban $user![getchanhost $user $chan]]} {         lappend list $user      }   }   if {[string match [llength $list] 0]} { return }   if {[llength $list] > $enforce(max)} {      putserv "MODE $chan -ob $nick $ban"   } else {      if {[llength $list] <= "3"} {         putserv "KICK $chan [join $list ,] :$kickmsg"      } else {         set nlist ""         foreach x $list {            lappend nlist $x            if {[llength $nlist] == "3"} {               putserv "KICK $chan [join $nlist ,] :$kickmsg"               set nlist ""            }         }         if {[llength $nlist] != ""} {            putserv "KICK $chan [join $nlist ,] :$kickmsg"            set nlist ""         }      }   }}putlog "Enforcebans loaded."

Statistics: Posted by i.m.offline — Mon Oct 02, 2006 4:08 am

Enforce Ban

2006-09-29T17:28:25-04:00

Code:

bind mode - "* +b" enforcebansset enforce(max) "8"set enforce(kmsg) "Banned :ban: by :nick:"proc enforcebans {nick uhost hand chan mc ban} {  global enforce botname  if {[botisop $chan]} {    set ban [string map {"\\" "\\\\" "\[" "\\["} $ban]    if {[string match $ban $botname]} {      return 0    }    set reason [string map [list ":ban:" "$ban" ":nick" "$nick"] $enforce(kmsg)    set list [list]    set continue 1    foreach user [chanlist $chan] {      if {[isbotnick $user]} {        continue      } elseif {[matchattr [nick2hand $user] f|f $chan]} {        pushmode $chan -b $ban        set continue 0        break      } elseif {[string match -nocase $ban $user![getchanhost $user $chan]]} {        lappend list $user      }    }    if {$continue} {      if {[set llist [llength $list]]} {        if {$llist > $enforce(max)} {          putserv "MODE $chan -ob $nick $ban"        } else {          if {$llist <= 3} {            putserv "KICK $chan [join $list ,] :$reason"          } else {            for {set i 0;set temp [list];set j 0} {$i <= $llist} {incr i} {              if {$j == 3 || $i == $llist} {                if {$j > 0} {                  putserv "KICK $chan [join $temp ,] :$reason"                  set temp [list]                  set j 0                  if {$j == $llist} {                    break                  }                }                lappend temp [lindex $list $i]                incr j              }            }          }        }      }    }  }}

Should work fine. [untested]

Statistics: Posted by metroid — Fri Sep 29, 2006 5:28 pm

Enforce Ban

2006-09-29T06:50:55-04:00

Ok, this should be the last one now:

Code:

bind mode - "* +b" enforcebansset enforce(max) "8"set enforce(kmsg) "Banned :ban: by :nick:"proc enforcebans {nick uhost hand chan mc ban} {  global enforce botname  if {![botisop $chan]} { return }  set ban [string map {"\\" "\\\\" "\[" "\\["} $ban]  if {[string match -nocase $ban $botname]} { return }  set kickmsg "$enforce(kmsg)"  regsub -all :ban: $kickmsg $ban kickmsg  regsub -all :nick: $kickmsg $nick kickmsg  set list ""  set continue "1"  foreach user [chanlist $chan] {    if {![string match -nocase $nick $user] && [matchattr [nick2hand $user] f|f $chan] && ![isbotnick $user]} {      putserv "MODE $chan -b $ban"      putserv "NOTICE $nick :Ban removed with the reason: Matched a botusers hostmask."      set continue "0"      break    } elseif {[string match -nocase $ban $user![getchanhost $user $chan]]} {      lappend list $user    }  }  if {$continue} {    if {[llength $list] == "0"} { return }    if {[llength $list] > $enforce(max)} {      putserv "MODE $chan -ob $nick $ban"      putserv "NOTICE $nick :Ban removed with the reason: Exceeded the max of $enforce(max) bans."    } else {      if {[llength $list] <= "3"} {        putserv "KICK $chan [join $list ,] :$kickmsg"      } else {        set nlist ""        foreach x $list {          lappend nlist $x          if {[llength $nlist] == "3"} {            putserv "KICK $chan [join $nlist ,] :$kickmsg"            set nlist ""          }        }        if {[llength $nlist] != ""} {          putserv "KICK $chan [join $nlist ,] :$kickmsg"          set nlist ""        }      }    }  }}putlog "Enforcebans loaded."

Statistics: Posted by r0t3n — Fri Sep 29, 2006 6:50 am

Enforce Ban

2006-09-28T13:32:35-04:00

now its releasing all the bans set by anyone

Statistics: Posted by i.m.offline — Thu Sep 28, 2006 1:32 pm

Enforce Ban

2006-09-28T09:01:40-04:00

This code should work:

Code:

bind mode - "* +b" enforcebansset enforce(max) "8"set enforce(kmsg) "Banned :ban: by :nick:"proc enforcebans {nick uhost hand chan mc ban} {  global enforce botname  if {![botisop $chan]} { return }  set ban [string map {"\\" "\\\\" "\[" "\\["} $ban]  if {[string match -nocase $ban $botname]} { return }  set kickmsg "$enforce(kmsg)"  regsub -all :ban: $kickmsg $ban kickmsg  regsub -all :nick: $kickmsg $nick kickmsg  set list ""  set continue "1"  foreach user [chanlist $chan] {    if {[matchattr [nick2hand $user] f|f $chan]} {      putserv "MODE $chan -b $ban"      putserv "NOTICE $nick :Ban removed with the reason: Matched a botusers hostmask."      set continue "0"      break    } elseif {[string match -nocase $ban $user![getchanhost $user $chan]]} {      lappend list $user    }  }  if {$continue} {    if {[llength $list] == "0"} { return }    if {[llength $list] > $enforce(max)} {      putserv "MODE $chan -ob $nick $ban"      putserv "NOTICE $nick :Ban removed with the reason: Exceeded the max of $enforce(max) bans."    } else {      if {[llength $list] <= "3"} {        putserv "KICK $chan [join $list ,] :$kickmsg"      } else {        set nlist ""        foreach x $list {          lappend nlist $x          if {[llength $nlist] == "3"} {            putserv "KICK $chan [join $nlist ,] :$kickmsg"            set nlist ""          }        }        if {[llength $nlist] != ""} {          putserv "KICK $chan [join $nlist ,] :$kickmsg"          set nlist ""        }      }    }  }}putlog "Enforcebans loaded."

Statistics: Posted by r0t3n — Thu Sep 28, 2006 9:01 am

Enforce Ban

2006-09-28T08:05:33-04:00

bot quit with error

Code:

[08:04] missing close-brace    while executing"proc enforcebans {nick uhost hand chan mc ban} {  global enforce botname  if {![botisop $chan]} { return }  set ban [string map {"\\" "\\\\" "\[" "..."    (file "scripts/enforcebans.tcl" line 6)

:/ thx for trying mate n sparing time for me

Statistics: Posted by i.m.offline — Thu Sep 28, 2006 8:05 am

Enforce Ban

2006-09-28T06:11:17-04:00

Try This:

Code:

bind mode - "* +b" enforcebansset enforce(max) "8"set enforce(kmsg) "Banned :ban: by :nick:"proc enforcebans {nick uhost hand chan mc ban} {  global enforce botname  if {![botisop $chan]} { return }  set ban [string map {"\\" "\\\\" "\[" "\\["} $ban]  if {[string match -nocase $ban $botname]} { return }  set kickmsg "$enforce(kmsg)"  regsub -all :ban: $kickmsg $ban kickmsg  regsub -all :nick: $kickmsg $nick kickmsg  set list ""  set continue "1"  foreach user [chanlist $chan] {    if {[matchattr [nick2hand $user] f|f $chan]} {      putserv "MODE $chan -b $ban"      putserv "NOTICE $nick :Ban removed with the reason: Matched a botusers hostmask."      set continue "0"      break    if {[string match -nocase $ban $user![getchanhost $user $chan]]} {      lappend list $user    }  }  if {$continue} {    if {[llength $list] == "0"} { return }    if {[llength $list] > $enforce(max)} {      putserv "MODE $chan -ob $nick $ban"      putserv "NOTICE $nick :Ban removed with the reason: Exceeded the max of $enforce(max) bans."    } else {      if {[llength $list] <= "3"} {        putserv "KICK $chan [join $list ,] :$kickmsg"      } else {        set nlist ""        foreach x $list {          lappend nlist $x          if {[llength $nlist] == "3"} {            putserv "KICK $chan [join $nlist ,] :$kickmsg"            set nlist ""          }        }        if {[llength $nlist] != ""} {          putserv "KICK $chan [join $nlist ,] :$kickmsg"          set nlist ""        }      }    }  }}putlog "Enforcebans loaded."

Statistics: Posted by r0t3n — Thu Sep 28, 2006 6:11 am

Enforce Ban

2006-09-28T04:31:57-04:00

thx for the suggestion krimson

I did give try for that earlier. Bot doesn't react at all for this code. it doesn't kick at all for whatsoever mask it is.

Statistics: Posted by i.m.offline — Thu Sep 28, 2006 4:31 am

Enforce Ban

2006-09-28T03:41:14-04:00

you have an extra closing bracket at the end of the script.. remove that and try again

Statistics: Posted by krimson — Thu Sep 28, 2006 3:41 am

Enforce Ban

2006-09-28T02:31:44-04:00

when I tried using this code the bot quits giving error msg

invalid command name "}"
while executing
"}"
(file "scripts/enforcebans.tcl" line 22)
invoked from within

ya it should prvent *!*@* banmask too. thx in advance.

Statistics: Posted by i.m.offline — Thu Sep 28, 2006 2:31 am

Enforce Ban

2006-09-27T19:29:32-04:00

Code:

bind mode - "* +b" enforcebans set enforce(max) "8" proc enforcebans {nick uhost hand chan mc ban} {   global enforce botname   if {![botisop $chan]} { return }   set ban [string map {"\\" "\\\\" "\[" "\\["} $ban]   if {[string match -nocase $ban $botname]} { return }   set list ""   foreach user [chanlist $chan] {     if {[matchattr [nick2hand $user] f|f $chan]} { return }     if {[string match -nocase $ban $user![getchanhost $user $chan]]} {       lappend list $user     }   }   if {[llength $list] == "0"} { return }   if {[llength $list] > $enforce(max)} {     putserv "MODE $chan -ob $nick $ban"     }  } } putlog "Enforcebans loaded."

So this can only be used to check if a banned host is banning more than 8 users and what if i also wana check if its banning *!*@* so i can do it more quick, thanks if this code can be more better.

Statistics: Posted by honeybee — Wed Sep 27, 2006 7:29 pm

Enforce Ban

2006-09-27T08:59:31-04:00

i have tried making few changes but still couldn't make it work. please help :/ thx

Statistics: Posted by i.m.offline — Wed Sep 27, 2006 8:59 am

Enforce Ban

2006-09-23T11:09:26-04:00

thanks for the help mate, but for some od reason, it doesn't kick at all nor it removes ban mask from flagged users :s despite of user being flagged or not.

Statistics: Posted by i.m.offline — Sat Sep 23, 2006 11:09 am