metroid: thanks
it's turn on now.
i have a lil question in here, i'm downloading some tcl from egghelp.org.
here's the code:
#
# Bantime in seconds
set check(bantime) "600"
bind join - * checkthisnick
setudef flag nickcheck
set check(kmessage) "You were detected as a Spam/Flood-bot. To join this channel, pls change your nick to something... erm...normal"
set check(cons) "bcdfghjklmnpqrstvxyz"
set check(good) "tt ll ss"
set check(affixture) "off bnc \[ \] afk"
proc checkthisnick { nick uhois hand chan} {
global check
if {[lsearch -exact [channel info $chan] +nickcheck] == -1} {return 0}
set const_count 0
set score 0
set txt [list $nick]
# basic l337-translat0r
set txt [string map "0 o 1 l 3 e 7 t 4 a" $txt]
# Remove double-cons
foreach x [split $check(good)] {
set txt [string map -nocase "$x \"\"" $txt]
}
# Remove "off","bnc" etc and lower score
foreach x [split $check(affixture)] {
if {[string match -nocase *$x* $txt]} {
set txt [string map -nocase "$x \"\"" $txt]
set score [expr $score - 10]
}
}
# Check cons frequency
for {set x 0} {$x<[string length $txt]} {incr x} {
if {[string last [string index $txt $x] $check(cons)] > -1} {
incr const_count
if {$const_count >= 3} { set score [expr $score+10] }
} else {
set const_count 0
}
}
if {$score >= 30} {
putlog "Found suspicious nickname in $chan: $nick ($score)"
pushmode $chan +b "$nick!*@*"
flushmode $chan
putkick $chan $nick "$check(kmessage) -blub"
utimer $check(bantime) "[list pushmode $chan -b "$nick!*@*"]"
}
}
this code only ban a nick, but i want ban the host.
could anyone help me? thank you.
regards,
qwek
with banning. i have some question in here that i seen other bot banned ppl. here's the example.
