Code:

set qpadv(chan) "#channel"# Set here your kick messageset qpadv(km) "Please change your QUIT/PART message!"# Set here the ban timeset qpadv(bt) "1440"# Set here the bad quit's for witch the user will be banned.set qpadv(w) {  "*www*"  "*http://*"  "#*"  "*.com*"  "*.org*"  "*.ro*"  "*.de*"  "*.us*"  "*.net*"  "*.co.uk"  "*.eu"  "*.in"  "*.bis*"}#########################################################- Don't edit below unless you know what you're doing -#########################################################bind sign - * s:riddler:qpadvbind part - * s:riddler:qpadvproc s:riddler:qpadv {nick uhost hand chan arg} {  global botnick qpadv     if {[matchattr $hand of|of $chan] || [isop $nick $chan] || [isvoice $nick $chan]}  { return 0 }     if {(([lsearch -exact [string tolower $qpadv(chan)] [string tolower $chan]] != -1) || ($qpadv(chan) == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {         foreach badqp [string tolower $qpadv(w)] {         if {[string match *$badqp* [string tolower $arg]]} {            set ban "*!*@[lindex [split $uhost @] 1]"            newchanban $chan $ban quitpartadv $qpadv(km) $qpadv(bt)            return 1             }        }    }}putlog "TCL Loaded: noquitpartadv.tcl"