Code:

namespace eval BadNick {# Set the channel(s) you want this script active on.# This script supports multiple channels.# Usage: "#channel1 #channel2 #mychannel"# (To activate on all channels use: "")set bad(chans) "#sukoon"# Set the *bad ** for the script to react on.# When users join a channel this script is activated# and their nicks match this current world list,# they will be kicked/banned. (wildcards "" are accepted)# (Set/edit these words according to your needs)# (I have already added some as examples)set bad(nicks) {"maderchod" "behanchode" "randi" "kanjer" "dalla" "bharwa" "rape" "ghasti"}# Set the flags for bot owners, masters, ops# and users which to exempt from the script.# (Usage: m, n, o, or "mnf", "fbo" etc)set bad(exempt) "mnof|mnof"#For how long you wish (in minutes) to ban the#user with the bad nick. (mins)set bad(time) 10#For how long you wish (in minutes) to ban the#user with the bad nick. (mins)set bad(timer) 5# Set reason.# %nick will be replaced with actual user name# %time will be replaced with actual time you set at bad(time)# %chan will be replaced with actual channel name# %match will be replaced with what was actually matchedset bad(reason) "Bad nick %nick cos matches %match. Type '/nick NewNick' and rejoin... %time mins ban"bind join - * [namespace current]::checkproc check {nick uhost hand chan} {variable badif {[isbotnick $nick] || ![botisop $chan]} returnset match 0if {$bad(chans) == "*" || [lsearch -nocase $bad(chans) $chan] > -1} {if {[isop $nick $chan] || [isvoice $nick $chan] || [matchattr $hand $bad(exempt) $chan]} returnif {[scan $uhost {%[^@]@%s} user host] != 2} returnforeach n $bad(nicks) {if {[string match -nocase "*$n*" $nick] || [string match -nocase "*$n*" $user]} {lappend bans "$nick!*@*"lappend bans "*!*@$host"set word $nincr matchbreak}}}if {$match} {if {![onchan $nick $chan]} returnpushmode $chan +b [join $bans]puthelp "KICK $chan $nick :[string map [list %nick $nick %time $bad(time) %chan $chan %match $word] $bad(reason)]"utimer $bad(timer) [list [namespace current]::lift $chan $bans]}}proc lift {chan bans} {if {![botonchan $chan] || ![botisop $chan]} returnpushmode $chan -b [join $bans]}}

Statistics: Posted by caesar — Thu Sep 06, 2018 3:55 am

Code:

### Start editing variables from here onwards! ####Set the channel(s) you want this script active on.#This script supports multiple channels.#Usage: "#channel1 #channel2 #mychannel"#(To activate on all channels use: "")set badnickchans "#sukoon"#Set the *bad ** for the script to react on. #When users join a channel this script is activated #and their nicks match this current world list, #they will be kicked/banned. (wildcards "" are accepted)#(Set/edit these words according to your needs)#(I have already added some as examples)set badnicks {"maderchod""behanchode""randi""kanjer""dalla""bharwa""rape""ghasti"}#Set the flags for bot owners, masters, ops#and users which to exempt from the script.#(Usage: m, n, o, or "mnf", "fbo" etc)set badnickexempt "mnof|mnof"#For how long you wish (in minutes) to ban the #user with the bad nick. (mins)set badnicktime 10#For how long you wish (in minutes) to ban the #user with the bad nick. (mins)set badnicktimer 5### Don't edit anything else from this point onwards, even if you know tcl! ###bind join - * join:badnickproc join:badnick {nick host hand chan} { global botnick badnicks badnickchans badnickexempt badnicktime badnicktimer  if {(([lsearch -exact [string tolower $badnickchans] [string tolower $chan]] != -1) || ($badnickchans == "*")) && ($nick != $botnick)} {    foreach badnick [string tolower $badnicks] {     set badnickban1 "*$badnick*!*@*"     set badnickban2 "*!*@[lindex [split $host @] 1]"     set usernick "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]"    if {[string match *$badnick* [string tolower $nick]]} {      if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand $badnickexempt $chan]) && ([onchan $nick $chan])} {  putquick "MODE $chan +bb $badnickban1 $badnickban2"        putquick "KICK $chan $nick :10Bad Nick *$badnick* Type /nick New-Nick aNd rEjOiN ...! 5 mis ban"        timer $badnicktime "pushmode $chan -b $badnickban1"        timer $badnicktimer "pushmode $chan -b $badnickban2"        return 0        }      }    }  }}# (ain't i an asskicker?...)putlog "Bad nick Kicker Script v1.65.ab by \002F|irT\002 -=Loaded=-"putlog "*ENABLED* Bad nick Kicker Script on:\002 $badnickchans"

[12:30] * Joins: uhub (InCeSt@chan.stats.uk.to)
[12:30] * NoNSt0p sets mode: +b *!*@*
[12:30] * uhub was kicked by NoNSt0p (Bad Nick ** Type /nick New-Nick aNd rEjOiN ...! 5 mis ban)
[12:30] * Joins: uhub (InCeSt@chan.stats.uk.to)
[12:30] * NoNSt0p sets mode: +b *!*@*
[12:30] * uhub was kicked by NoNSt0p (Bad Nick ** Type /nick New-Nick aNd rEjOiN ...! 5 mis ban)
[12:30] * Joins: uhub (InCeSt@chan.stats.uk.to)
[12:30] * NoNSt0p sets mode: +b *!*@*
[12:30] * uhub was kicked by NoNSt0p (Bad Nick ** Type /nick New-Nick aNd rEjOiN ...! 5 mis ban)
[12:30] * Joins: uhub (InCeSt@chan.stats.uk.to)
[12:30] * NoNSt0p sets mode: +b *!*@*
[12:30] * uhub was kicked by NoNSt0p (Bad Nick ** Type /nick New-Nick aNd rEjOiN ...! 5 mis ban)

NoNSt0p banned *!*@* (+b)
11:28 AM ← HouseWife_RP (~HouseWife@49.206.12.52) was kicked by •NoNSt0p: Bad Nick ** Type /nick New-Nick aNd rEjOiN ...! 5 mis ban
11:29 AM •NoNSt0p un-banned *!*@* (-b)
11:29 AM •MaSt3r un-banned *!*@* (-b)
11:29 AM → Tamilan90 and Scorpionheart__ joined
11:29 AM •NoNSt0p banned *!*@* (+b)
11:29 AM ← Tamilan90 (~Mibbit@157.49.225.153) was kicked by •NoNSt0p: Bad Nick ** Type /nick New-Nick aNd rEjOiN ...! 5 mis ban

Statistics: Posted by F|irT — Tue Sep 04, 2018 3:46 am