egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-07-19T18:03:15-04:00 https://forum.eggheads.org/app.php/feed/topic/2147 2002-07-19T18:03:15-04:00 2002-07-19T18:03:15-04:00 https://forum.eggheads.org/viewtopic.php?p=9014#p9014 <![CDATA[Swear Script]]> why dont you just use the mc.badwords.tcl ?

[ lame reply?..lol sorry den ]

Statistics: Posted by Guest — Fri Jul 19, 2002 6:03 pm

]]> 2002-07-14T19:08:33-04:00 2002-07-14T19:08:33-04:00 https://forum.eggheads.org/viewtopic.php?p=8879#p8879 <![CDATA[swear script]]>

Thanks
regards
AW

Statistics: Posted by Guest — Sun Jul 14, 2002 7:08 pm

]]> 2002-07-14T04:46:11-04:00 2002-07-14T04:46:11-04:00 https://forum.eggheads.org/viewtopic.php?p=8850#p8850 <![CDATA[swear script]]> i tried to use -> lsearch -exact ....format as well, but didn't work
can anyone help me please???

thanks
regards
AW

Statistics: Posted by Guest — Sun Jul 14, 2002 4:46 am

]]> 2002-07-13T01:44:21-04:00 2002-07-13T01:44:21-04:00 https://forum.eggheads.org/viewtopic.php?p=8832#p8832 <![CDATA[swear script]]>
i will appreciate if someone can help me please.

i have a swear script and have badwords list, like for example "cock", but somehow its kicking on this word as well cocktail.etc
is there anyway i can set for an exact words and for wildcard and if words end like [censored]* or start *[censored]...

set bword "badword1"
set ban-time 10
set Ban "For abusive language"
set flag1 Y
set flag2 E
set flag3 G

bind pubm - "*[censored]*" badword
bind pubm - "bastard" badword
bind pub - "suck" badword
bind pub - "cock" 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 120 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 10 none
setuser $nick COMMENT "2 Bad Word Offenses"
return 1
}
adduser $nick [maskhost [getchanhost $nick $chan]]
putserv "PRIVMSG $chan :\001ACTION Detected A Banned Word by $nick\001"
putserv "PRIVMSG $nick :\001ACTION Hey, $nick, Profanity IS BAD,I Will Not allow Such A Thing In This Channel!!!\001"
putserv "PRIVMSG $chan :\001ACTION Bad Language Is Not Fun, $nick Should never have said that...\001"
putserv "KICK $chan $nick :Get The out of here with that kind of talk"
putserv "NOTICE $nick :Please DON'T use that language in $chan"
putserv "NOTICE $nick :\001ACTION Is Frowning At $nick This is your \[1st Warning\]\001"
putserv "NOTICE $nick :If You Continue, You Will Be Banned The Second Time For 1 hour"
chattr $nick +Y
setuser $nick PASS $bword
setuser $nick COMMENT "1st Offense Badword"
return 0
}

Thanks
regards
Aw

Statistics: Posted by Guest — Sat Jul 13, 2002 1:44 am

]]>