Part / Quit Msg Ban

[i.m.offline]

Hello Friends,

I would request if I can have a script which bans on specific part/quit msg. I tried using Awyeah's code and it works all well. But when I tried to add few more words in it for part/quit ban. The script dont react for those words. I dont understand why.

Please if u have something better, thx in advance.

[rosc2112]

Which words exactly? And what is the name of the script?

[i.m.offline]

The script is
# Begin - Part/Quit, Anti Part/Quit Message Script v5.34.b (partquit.tcl)

by Awyeah.

and the variable in this script is
set partquitwords {

But when I add new words in it, it doesn't seems to be reacting

[rosc2112]

Yeah..that's why I asked "which words exactly"

[i.m.offline]

i tried to add like echox, killed.

[rosc2112]

what settings do you have in the script so i can test it with the same settings.

[cache]

Did you .rehash after adding changes?

[rosc2112]

Hmm I guess he's not gonna tell me what his settings are..This script is really really really overly complicated.. Would be easier to write a custom script based on any one of the simpler "ban for this or that" scripts from the archives, like one of the badname or badword scripts..

[Riddler]

Try to use this script

Code: Select all

set qpadv(chan) "#channel"

# Set here your kick message
set qpadv(km) "Please change your QUIT/PART message!"

# Set here the ban time
set 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:qpadv
bind part - * s:riddler:qpadv

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

It`s working very good