| View previous topic :: View next topic |
| Author |
Message |
i.m.offline
Halfop
Joined: 02 Mar 2006
Posts: 74
|
 Posted: Wed Nov 08, 2006 3:57 am Post subject: Part / Quit Msg Ban |
 |
|
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. |
|
| Back to top |
|
 |
rosc2112
Revered One
Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania
|
| Posted: Wed Nov 08, 2006 4:08 am Post subject: |
|
|
| Which words exactly? And what is the name of the script? |
|
| Back to top |
|
|
i.m.offline
Halfop
Joined: 02 Mar 2006
Posts: 74
|
| Posted: Wed Nov 08, 2006 4:24 am Post subject: |
|
|
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 |
|
| Back to top |
|
|
rosc2112
Revered One
Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania
|
| Posted: Wed Nov 08, 2006 12:16 pm Post subject: |
|
|
| Yeah..that's why I asked "which words exactly" |
|
| Back to top |
|
|
i.m.offline
Halfop
Joined: 02 Mar 2006
Posts: 74
|
| Posted: Wed Nov 08, 2006 12:40 pm Post subject: |
|
|
| i tried to add like echox, killed. |
|
| Back to top |
|
|
rosc2112
Revered One
Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania
|
| Posted: Wed Nov 08, 2006 1:54 pm Post subject: |
|
|
| what settings do you have in the script so i can test it with the same settings. |
|
| Back to top |
|
|
cache
Master
Joined: 10 Jan 2006
Posts: 306
Location: Mass
|
| Posted: Sun Nov 12, 2006 12:04 pm Post subject: |
|
|
| Did you .rehash after adding changes? |
|
| Back to top |
|
|
rosc2112
Revered One
Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania
|
| Posted: Sun Nov 12, 2006 1:27 pm Post subject: |
|
|
| 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.. |
|
| Back to top |
|
|
Riddler
Halfop
Joined: 20 May 2007
Posts: 60
Location: Brasov, Romania
|
| Posted: Mon May 21, 2007 6:09 am Post subject: |
|
|
Try to use this script
| Code: | 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   
_________________
I am a man of few words, but many riddles |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
