egghelp/eggheads community

it`s work perfectly

2002-08-15T06:36:45-04:00

try this one

Code:

set badword { badword1 badword2}bind pubm - * checkwordproc checkword {nick uhost handle chan text} { global badword if (![matchattr $nick +o]) {  foreach n $badword {   if ([string match $n [string tolower $text]]) {    putlog "$nick said bad word in $chan - $n"    putkick $chan $nick "bad word,please don`t use it"    return 0   }  } }}

Statistics: Posted by Guest — Thu Aug 15, 2002 6:36 am

badword/swear script

2002-08-14T22:04:27-04:00

Thanks Papillon, it helped a lot, i have changed the setup, its working, but its not efficient, i'll appreciate if someone can look these codes and help me to make them more efficient, perfect codes...thanks

set badwordlist {
"test1"
"*test2*"
.
.
.

}
proc badword {nick uhost hand chan rest} {
putlog "$nick $uhost $hand $chan $rest"
global channel botnick badwordlist
foreach badword "$badwordlist" {
if {[string match "$badword" $rest]} {
set rest "$badword"
.
.
.
}
}
}
proc ctcp_badword {nick uhost hand chan keyword rest} {
badword $nick $uhost $hand $chan $rest
}

bind pubm - * badword
bind ctcp - ACTION ctcp_badword

i have this line -> putlog "$nick $uhost $hand $chan $rest" just to see in a partyline, but now cos of this, if any user type anything, shows in the partyline..

thanks
regards
aw

Statistics: Posted by Guest — Wed Aug 14, 2002 10:04 pm

badword/swear script

2002-08-13T13:23:31-04:00

Code:

proc ctcp_badword {nick uhost hand chan keyword rest} {   if {[string match "somebadword" $rest]} {    badword $nick $uhost $hand $chan $rest   }}

or if u set up a list of bad words u could do a loop on them

Code:

set badwordlist "word1 word2 word3......"proc ctcp_badword {nick uhost hand chan keyword rest} {  global badwordlist   foreach badword "$badwordlist" {    if {[string match "$badword" $rest]} {      set rest "$badword"      badword $nick $uhost $hand $chan $rest    }  }}

Statistics: Posted by Papillon — Tue Aug 13, 2002 1:23 pm

badword/swear script

2002-08-12T21:24:22-04:00

Hi,

i'll appreciate if someone can help me with this, may be an example, i never worked with regexp stuff, or any advise for another solution plz?
thanks
regards
Aw

Statistics: Posted by Guest — Mon Aug 12, 2002 9:24 pm

badword/swear script

2002-08-10T01:09:22-04:00

Thanks, but could you please give me an example, how to do this?/
thanks
regards'
AW

Statistics: Posted by Guest — Sat Aug 10, 2002 1:09 am

badword/swear script

2002-08-10T00:52:22-04:00

With the pubm bind, you are testing for *test1* or *test2*. But in the ctcp bind, you call badword every time there is an action.

Just add in a test to make sure the bad word is in the $rest variable. Use 'string match' or 'regexp'.

Statistics: Posted by stdragon — Sat Aug 10, 2002 12:52 am

badword/swear script

2002-08-10T00:19:51-04:00

Hi, i couldn't figure out this.
i have a badword script, which works fine, but then i wrote a ctcp/ACTION procedure, which calls this working script, but i f anyone used /me text, gets kick....don't why

bind pubm - "*test1*" badword
bind pubm - "*test2*" badword

proc badword {nick uhost hand chan rest} {

............ its works fine

}

but when i have added this for ctcp/action

proc ctcp_badword {nick uhost hand chan keyword rest} {
badword $nick $uhost $hand $chan $rest
}

bind ctcp - ACTION ctcp_badword

its kick anyone use ACTION ..like /me hello..

any advise/suggestions please??
thanks
regards
aW

Statistics: Posted by Guest — Sat Aug 10, 2002 12:19 am