my badword tcl is missing :) help pls

2005-06-26T09:08:01-04:00

A badword simple script can be summed up in just 5-6 lines.

Code:

set badwords {"*word1*""*word2*""word3*""*word4""*wor*d5*""*w??rd6*""sentence here*"}bind pubm - "*" pubm:badwordproc pubm:badword {nick uhost hand chan text} { global badwords  if {[botisop $chan] && ![isbotnick $nick]} {   foreach badword $badwords {    if {[string match -nocase $badword $text]} {      putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]"      putquick "KICK $chan $nick :Badword *$badword* detected"      }    }  }}

Statistics: Posted by awesomeawyeah — Sun Jun 26, 2005 9:08 am

my badword tcl is missing :) help pls

2005-06-22T19:40:58-04:00

This script is pretty much buggy and has some unused variables, I'd suggest you search for a different bad words kick script.

Statistics: Posted by Sir_Fz — Wed Jun 22, 2005 7:40 pm

my badword tcl is missing :) help pls

2005-06-22T18:41:53-04:00

this badword tcl is ban kicks good but i want to remove the bans with in time period how can i do this ? tnx ..

# Set this to the default password to assign to the added user
# record.
set bword "badword1"

##Ban time for second warning
set bantime 1

##Comment for ban
set Ban "kufur YASAK ! $bantime dakka banlandInIz ."

set flag1 Y
set flag2 E
set flag3 G
bind pub - "pricks" badword

proc badword {nick uhost hand chan rest} {
putlog "$nick $uhost $hand $chan $rest"
global botnick ban-time Ban bword
if {([ matchattr $hand f ])} {
putserv "PRIVMSG $chan :\001ACTION OVER Hears \002$nick\002 And SmiLes L:-)\001"
return 1
} elseif {([matchattr $hand G])} {
chattr $nick +dk
setuser $nick COMMENT "Perm banned for 4 bad word offenses"
putserv "PRIVMSG $chan :$nick You Are Not Welcomed Here Anymore..."
putserv "KICK $chan $nick :$Ban \[Perm\]"
return 1
} elseif {([matchattr $hand E])} {
chattr $nick +G-E
putserv "PRIVMSG $chan :$nick You Have Had Your Chances, Now You Are Out of Here. Strike! two Your --------=>>> Out."
set banlamer [maskhost [getchanhost $nick $chan]]
newban $banlamer Badword $Ban 1 none
setuser $nick COMMENT "3 Bad Word Offenses"
return 1
} elseif {([matchattr $hand Y])} {
chattr $nick +E-Y
putserv "PRIVMSG $chan :Has taken action on $nick for the 2nd Offense"
set banlamer [maskhost [getchanhost $nick $chan]]
newban $banlamer Badword $Ban 1 none
setuser $nick COMMENT "2 Bad Word Offenses"
return 1
}
adduser $nick [maskhost [getchanhost $nick $chan]]
putserv "KICK $chan $nick :git geL 1 topici oku $nick"
putserv "NOTICE $nick :If You Continue, You Will Be Banned The Second Time For 1 hour"
chattr $nick +Y
set banlamer [maskhost [getchanhost $nick $chan]]
newban $banlamer Badword $Ban 1 none
setuser $nick PASS $bword
setuser $nick COMMENT "1st Offense Badword"
return 0
}

Statistics: Posted by Antiphates — Wed Jun 22, 2005 6:41 pm

egghelp/eggheads community

my badword tcl is missing :) help pls

my badword tcl is missing :) help pls

my badword tcl is missing :) help pls