ban someone who types ???? or !!!!

Bytez · Post by **Bytez** » Sun Oct 12, 2003 4:32 pm

Hi, I want my bot to ban people who type 4 or more consecutive ???? or !!!! after a sentence, or just by itself. How can I do this?

Code: Select all

bind pubm - *!!!!* kickass

proc kickass { nick host hand chan text } {
if {[matchattr $hand o|o $chan]} return
putserv "KICK $chan $nick :kicked for using 4 consecutive !!!!"

}

This didn't work, it kicked when people used 2 consecutive ?? and when they type

and

Thanks!

Ofloo · Post by **Ofloo** » Mon Oct 13, 2003 8:24 am

could you rephrase your question ?

Post by **Sir_Fz** » Mon Oct 13, 2003 9:06 am

I think the bind should be:

bind pubm - *\!\!\!\!* kickass

Ofloo · Post by **Ofloo** » Mon Oct 13, 2003 9:09 am

and what would that do ?

Post by **Sir_Fz** » Mon Oct 13, 2003 9:16 am

well my bad, I thought ! is a wildcard like ? * % ~ . but no

then try:

Code: Select all

bind pubm - * kickass

proc kickass {nick uhost hand chan arg} {
if {[string match [split $arg] "*!!!!*"] || [string match [split $arg] "*\?\?\?\?*"]} {
putserv "KICK $chan $nick :kicked for using 4 consecutive !!!!/????"
 }
}

Post by **caesar** » Mon Oct 13, 2003 12:08 pm

The [string match [split $arg] "*\?\?\?\?*"] should actualy be [string match "*\?\?\?\?*" [split $arg]] because is a match of a string against something, not something against a string like you did. Anyway, is not good. Demonstration:

Code: Select all

bind pubm - * my:bla

proc my:bla {nick uhost hand chan text} {
if {[string match -nocase "*\?\?\?\?*" [split $text]]} {
putserv "PRIVMSG $chan :match!"
}
}

(07:05) (caesar) ????
(07:05) (@bot) match!
(07:05) (caesar) ?aaaaa
(07:05) (@bot) match!

and with

Code: Select all

bind pubm - * my:bla

proc my:bla {nick uhost hand chan text} {
if {[string match -nocase "*\\\?\\\?\\\?\\\?*" [split $text]]} {
putserv "PRIVMSG $chan :match!"
}
}

do you notice any difference?

(07:07) (caesar) ?aaaaa
(07:07) (caesar) ????
(07:07) (@bot) match!

Post by **Sir_Fz** » Mon Oct 13, 2003 4:45 pm

using \\ would work right I guess too?

strikelight · Post by **strikelight** » Mon Oct 13, 2003 9:19 pm

caesar wrote:and with

Code: Select all

bind pubm - * my:bla

proc my:bla {nick uhost hand chan text} {
if {[string match -nocase "*\\\?\\\?\\\?\\\?*" [split $text]]} {
putserv "PRIVMSG $chan :match!"
}
}

ok... first off....
string match (as the name suggests) performs an operation on a string.
the variable text is a string.
split converts a string into a list.

Thus... we nix the split altogether, as 'string match' is a string function, not a list function. which gives us...

Code: Select all

if {[string match -nocase "*\\\?\\\?\\\?\\\?*" $text]} {

Secondly, you can save on keystrokes by using {}'s instead of "'s and removing some of the back slashes:

Code: Select all

if {[string match -nocase {*\?\?\?\?*} $text]} {

Post by **caesar** » Tue Oct 14, 2003 2:31 am

Duno whty I've added the split there..

Your sugestion is good also..