[arcade]

uite codul de care ai nevoie:

proc anti:swear {nick uhost hand chan text} {     
       global username badwords punished            
       
       if {![botisop $chan] || ![channel get $chan antiswear] || [check:fo:ch $hand $chan $nick]} {return 0}   
       set swears "$badwords"
       set how "swear"
       set why "antiswear"
       foreach swearword [string tolower $swears] {  
          if {[string match -nocase "* $swearword *" " $text "]} {
	newchanban $chan [a:maskhost -host $uhost] $username "channel $why protection enabled (Time:[channel get $chan ban-time])" [channel get $chan ban-time] sticky
	putcmdlog "<<${username}>> $why protection -- $chan ${nick}!${uhost}"  }        } 
}
}
}

set badwords {
"fuck" 
"ass" 
"whore" 
"shit" 
"cunt" 
"suck" 
"dick" 
"suck" 
"penis" 
"bitch" 
"asshole" 
"fucker" 
"fuckin`" 
"fucking" 
"masturbate"
"sucker"
}

bind pubm -|- *             anti:swear

vezi k s-ar putea sa fie o } in plus verifici si imi spui